unitdata.pas

来自「用户管理：用于对用户的添加」· PAS 代码 · 共 60 行

unit UnitData;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TSmallintField;
    ADOQuery1DSDesigner6: TSmallintField;
    ADOQuery1DSDesigner7: TFloatField;
    ADOQuery1DSDesigner8: TFloatField;
    ADOQuery1DSDesigner9: TFloatField;
    ADOQuery1DSDesigner10: TSmallintField;
    ADOQuery1DSDesigner11: TFloatField;
    ADOQuery1DSDesigner12: TSmallintField;
    ADOQuery1DSDesigner13: TFloatField;
    ADOQuery1DSDesigner14: TFloatField;
    ADOQuery2: TADOQuery;
    ADOQueryGrade: TADOQuery;
    ADOQueryKm: TADOQuery;
    ADOQuerySchool: TADOQuery;
    ADOQueryAllBySchool: TADOQuery;
    ADOQueryAllBySchoolDSDesigner: TWideStringField;
    ADOQueryAllBySchoolDSDesigner2: TWideStringField;
    ADOQueryAllBySchoolDSDesigner3: TWideStringField;
    ADOQueryAllBySchoolDSDesigner4: TWideStringField;
    ADOQueryAllBySchoolDSDesigner5: TSmallintField;
    ADOQueryAllBySchoolDSDesigner6: TSmallintField;
    ADOQueryAllBySchoolDSDesigner7: TFloatField;
    ADOQueryAllBySchoolDSDesigner8: TFloatField;
    ADOQueryAllBySchoolDSDesigner9: TFloatField;
    ADOQueryAllBySchoolDSDesigner10: TSmallintField;
    ADOQueryAllBySchoolDSDesigner11: TFloatField;
    ADOQueryAllBySchoolDSDesigner12: TSmallintField;
    ADOQueryAllBySchoolDSDesigner13: TFloatField;
    ADOQueryAllBySchoolDSDesigner14: TFloatField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.