s2.model.ts2adodatabasemanager.pas

轉載的程序應用框架

unit S2.Model.TS2ADODatabaseManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Model.TS2DatabaseManager, DB, ADODB, S2.Model.IS2ADODatabaseConnection,
  S2.Model.IS2DatabaseConnection;

type
  TS2ADODatabaseManager = class(TS2DatabaseManager, IS2ADODatabaseConnection)
    Connection: TADOConnection;
  public
    function GetADOConnection: TADOConnection; virtual;
    function GetConnection: IS2DatabaseConnection; override;
  end;

implementation

{$R *.dfm}

{ TS2ADODatabaseManager }

function TS2ADODatabaseManager.GetADOConnection: TADOConnection;
begin
  Result := Connection;
end;

function TS2ADODatabaseManager.GetConnection: IS2DatabaseConnection;
begin
  Result := IS2ADODatabaseConnection(Self);
end;

end.