unit UDataModule;
interface
  uses
     Controls,SysUtils, Classes, DB, ADODB,windows,forms,CustomCom_TLB;
  type
    TDataModule1 = class(TDataModule)
      ADOConnection1: TADOConnection;
      dsDataSet: TADODataSet;
      ADOQuery1: TADOQuery;
      procedure DataModuleCreate(Sender: TObject);
    private
      { Private declarations }
    public
      ConnOK:boolean;
      { Publ...[ 查看全文 ]