动态建表(示例)

核心提示：beginwith Table1 dobegin Active := False; DatabaseName := 'DOCTOR'; TableType := ttParadox; TableName := 'DOCTORINF23'; if not Table1.Exist

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;