md.pas

来自「一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！」· PAS 代码 · 共 59 行

unit MD;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataMd = class(TDataModule)
    ADOConn: TADOConnection;
    ADOManage: TADOQuery;
    ADOOrder: TADOQuery;
    ADOEmpleer: TADOQuery;
    ADOEnrol: TADOQuery;
    ADOGrade: TADOQuery;
    ADOWorth: TADOQuery;
    ADORegiste: TADOQuery;
    dsManage: TDataSource;
    DSorder: TDataSource;
    dsempleer: TDataSource;
    DSEnrol: TDataSource;
    DSGrade: TDataSource;
    DSWorth: TDataSource;
    DSRegiste: TDataSource;
    DSHouse: TDataSource;
    ADOhouse: TADOQuery;
    DSTBPd: TDataSource;
    ADOBTPd: TADOQuery;
    ADOVisit: TADOQuery;
    DSVisit: TDataSource;
    ADOOrderDSDesigner: TWideStringField;
    ADOOrderDSDesigner2: TWideStringField;
    ADOOrderDSDesigner3: TWideStringField;
    ADOOrderDSDesigner4: TWideStringField;
    ADOOrderDSDesigner5: TDateTimeField;
    ADOOrderDSDesigner6: TDateTimeField;
    ADOOrderDSDesigner7: TWideStringField;
    ADOOrderDSDesigner8: TWideStringField;
    ADOOrderDSDesigner9: TWideStringField;
    ADOOrderDSDesigner10: TWideStringField;
    ADOOrderDSDesigner11: TWideStringField;
    ADOOrderDSDesigner12: TWideStringField;
    ADOOrderDSDesigner13: TWideStringField;
    ADOOrderDSDesigner14: TMemoField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMd: TDataMd;

implementation

{$R *.dfm}

end.