动态建表(示例)_delphi教程

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;