dmpub.~pas

来自「是分布式粮库程序,是采用Delphi实现的」· ~PAS 代码 · 共 52 行

unit dmPub;

interface

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

type
  TdmPub = class(TDataModule)
    HZUS: TDatabase;
    HZBS: TDatabase;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmSysPub: TdmPub;

implementation

uses
  UntPub;
{$R *.DFM}

//-- 打开数据库
procedure TdmPub.DataModuleCreate(Sender: TObject);
begin

end;

//-- 关闭数据库
procedure TdmPub.DataModuleDestroy(Sender: TObject);
begin
  try
    HZBS.Close;
    HZUS.Close;
  except
    on E:exception do ErrorHandler(E,'TdmPub.DataModuleDestroy');
  end;
end;


end.