动态建表(示例)

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;