动态建表(示例)

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://com.8s8s.com/it/it4768.htm