TempLm:=TTable.Create(Self);
with TempLm do begin
DatabaseName:='Gzk';
TableName:='TempLm';
TableType:=ttdefault;
with FieldDefs do begin
Add('Lm_Sort',ftSmallInt,0,True);
Add('Lm_Name',ftString,10,False);
Add('Lm_Type',ftString,10,False);
Add('Lm_Width',ftSmallInt,0,False);
end;
IndexDefs.Add('PrimaryKey','Lm_Sort',[ixPrimary,ixUnique]);
CreateTable;
end;
我是这样建access的, 请参考。