说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在运行期创建表-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在运行期创建表-Delphi资料

procedure CreateATable(DBName

TblName:String

TblTyoe:TTbaleType);

var

tbl:TTable;

Begin

tbl:=TTable.Create(Application);

with tbl do Begin

Active:=False;

DatabaseName:= DBName :

TableName:=TblName;

TableType:=TblType;

with FieldDefs do begin

Clear;

Add('LastName'

ftString

30

False);

Add('FirstName'

ftString

30

False);

Add('Address'

ftString

40

False);

Add('Zip'

ftString

10

False);

end;

{加入主关键字}

With indexDefs do begin

Clear;

Add('FieldIndex'

'LastName;FirstName'

[ixPrimary

ixUnique]);

end;

CreateTable;

end;

end;

//该方法仅为桌面型的数据库创建表,还是比较简单的!

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘