动态建表(示例)

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航