cdatamodule.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 42 行

unit CDataModule;

interface

uses
  SysUtils, Classes, BoldSubscription, BoldAbstractModel, BoldModel,
  BoldHandles, BoldSystemHandle, BoldHandle, BoldPersistenceHandle,
  BoldPersistenceHandleFile, BoldPersistenceHandleFileXML,
  BoldAbstractDatabaseAdapter, BoldDatabaseAdapterADO, DB, ADODB,
  BoldAbstractPersistenceHandleDB, BoldPersistenceHandleDB,
  BoldDatabaseAdapterIB, IBDatabase;

type
  TDmMoney = class(TDataModule)
    bmMoney: TBoldModel;
    bsthMoney: TBoldSystemTypeInfoHandle;
    bshMoney: TBoldSystemHandle;
    bphdMoney: TBoldPersistenceHandleDB;
    bdaiMoney: TBoldDatabaseAdapterIB;
    ibdMoney: TIBDatabase;
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DmMoney: TDmMoney;

implementation

{$R *.dfm}

procedure TDmMoney.DataModuleDestroy(Sender: TObject);
begin
  //更新数据库
  bshMoney.System.UpdateDatabase;
end;

end.