umpdatabase.pas

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

unit UMPDatabase;

interface

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

type
  TMPDatabase = class(TPersistModel)
    Connection: TADOConnection;
  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;
  Connection.Open;
end;

destructor TMPDatabase.Destroy;
begin
  try
    Connection.Close;
  finally
    inherited;
  end;
end;

end.