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;
|
