sys_datamodal.pas

相关的销售服务管理行业的一个软件

unit SYS_DataModal;

interface

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

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

    { 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;

end.