procedure ZldcreateTable;
var
zldT：TTable;
begin
zldT:=TTable．Create(Self);
with zldT do
begin
DatabaseName:=DBDEMOS;｛预定义的别名数据库工作区名｝
TableName:=ZLDDBASE;｛将定义的数据库名｝
TableType:=ttDbase;｛数据库类型,可为ttParadox、ttASCII、ttDbase｝
with FieldDefs do｛数据库结构信息｝
begin
Clear;
Add(ZLS,ftInteger,0,false);
Add(ZLD,ftBoolean,0,false);
Add(ZEZ,ftString,10,false);
Add(XL,ftDate,0,false);
｛．．．．｝ //------Add
Other Fields Here
end;
with IndexDefs do｛索引文件信息｝
begin
Clear;
Add(Primary,ZEZ,[ixPrimary,ixUnique]);
｛．．．．｝ ////------Add Other
Indexes Here
end;
CreateTable; //---- dynamically Create Table;
end;
end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
