sys_datamodal.~pas

来自「相关的销售服务管理行业的一个软件」· ~PAS 代码 · 共 49 行

unit SYS_DataModal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB,Gys_Kh_TLB, ComObj;

type
  TDM1 = class(TDataModule)
    ADOCon1: TADOConnection;
    ADOConuser: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure ADOConuserAfterConnect(Sender: TObject);
  private
    { Private declarations }
  public
          Imy:IBaseInfo;
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

uses Udata, Umain;

{$R *.DFM}

procedure TDM1.DataModuleCreate(Sender: TObject);
begin
  UData.readreg;
  UData.Connectdatabase;
  if not UData.ConSuccess then
    begin
      //Application.MessageBox('Error','',0);
      exit;
    end;
end;

procedure TDM1.ADOConuserAfterConnect(Sender: TObject);
begin
Imy:=CreateComObject(CLASS_BaseInfo) as IBaseInfo;
 Imy.Init(dm1.ADOConuser.ConnectionString,dm1.ADOCon1.ConnectionString);
end;

end.