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;
没有相关教程