dmfm.pas

不管我的程序编得怎么样

unit dmfm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADO1: TADOConnection;
    aq_admin: TADOQuery;
    aq_user: TADOQuery;
    ds_user: TDataSource;
    ds_admin: TDataSource;
    aq_xm: TADOQuery;
    ds_xm: TDataSource;
    aq_online: TADOQuery;
    ds_online: TDataSource;
    aq_xm_yes: TADOQuery;
    ds_xm_yes: TDataSource;
    aq_jl: TADOQuery;
    ds_jl: TDataSource;
    aq_fk: TADOQuery;
    ds_fk: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.