md.~pas

来自「本系统便用Delphi与Access2000开发了一套基于服务器与客户端多层模式」· ~PAS 代码 · 共 45 行

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;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMd: TDataMd;

implementation

{$R *.dfm}

end.