data.pas

来自「Delphi数据库开发系统例子」· PAS 代码 · 共 42 行

unit DATA;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDATABASE = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADO_QYXX: TADOQuery;
    ADO_QYXZ: TADOQuery;
    ADO_QYLX: TADOQuery;
    ADO_QYZX: TADOQuery;
    ADO_KHJB: TADOQuery;
    ADO_KHMYD: TADOQuery;
    ADO_KHXX: TADOQuery;
    ADO_bb: TADOQuery;
    ADO_LXRXX: TADOQuery;
    ADO_YWWL: TADOQuery;
    ADO_KHFK: TADOQuery;
    ADO_KHTS: TADOQuery;
    ADO_KHFKFX: TADOQuery;
    ADO_KHTSFX: TADOQuery;
    ADO_GZBWL: TADOQuery;
    ADO_user: TADOQuery;
    ADO_TT: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DATABASE: TDATABASE;

implementation

{$R *.dfm}

end.