今天给大家分享的是由图老师小编精心为您推荐的动态建表(示例)，喜欢的朋友可以分享一下，也算是给小编一份支持，大家都不容易啊!
【 tulaoshi.com - 编程语言 】
begin
with Table1 do
begin
Active := False;
DatabaseName := 'DOCTOR';
TableType := ttParadox;
TableName := 'DOCTORINF23';
if not Table1.Exists then begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := '姓名';
DataType := ftString;
Required := True;
Size := 10;
end;
with AddFieldDef do begin
Name := '年龄';
DataType := ftInteger;
end;//建立字段定，利用AddFieldDef方法添加一个新的TFieldDef对象
with AddFieldDef do begin
Name := '职称';
DataType := ftString;
Required := True;
Size := 10;
end;
end;
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := 'MYINDEX';
Fields := '姓名';
Options := [ixPrimary];
end;
end; //建立索引
end;
CreateTable;
end;
//Table1.Append ;
Table1.Open;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='刘延';
Table1.FieldByName('年龄').AsInteger:=22 ;
Table1.FieldByName('职称').AsString:='医师';
Table1.Append;
Table1.Edit;
Table1.FieldByName('姓名').AsString:='杨晓';
Table1.FieldByName('年龄').AsInteger:=25 ;
Table1.FieldByName('职称').AsString:='医师';
DBGrid1.DataSource:=DataSource1;
Table1.Active :=True;
end;
来源:http://www.tulaoshi.com/n/20160219/1606574.html
