umpdatabase.pas

来自「一整套的源代码」· PAS 代码 · 共 47 行

unit UMPDatabase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UPersistModel, DB, DBAccess, Ora, DBTables, ADODB;

type
  TMPDatabase = class(TPersistModel)
    Session: TOraSession;
  private
    { Private declarations }
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

var
  MPDatabase: TMPDatabase;

implementation

{$R *.dfm}

{ TMPDatabase }

constructor TMPDatabase.Create(Owner: TComponent);
begin
  inherited;
  Session.Open;
end;

destructor TMPDatabase.Destroy;
begin
  try
    if Session.InTransaction then
      Session.Rollback;
    Session.Close;
  finally
    inherited;
  end;
end;

end.