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...[ 查看全文 ]