DELPHI技术

摘要： beginwith Table1 dobegin Active := False; DatabaseName := 'DOCTOR'; TableType := ttParadox; TableName := 'DOCTORINF23'; if not Table1.Exists then begin with FieldDefs do begin Clear; with AddFieldDef ... 阅读全文