动态建表(示例)
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 := '年龄'...[ 查看全文 ]
