uconndbfactory_oralce.pas

来自「用DELPH写的DAO访问模块.有连接池.应用了各种模块,把数据库操作」· PAS 代码 · 共 50 行

//--------------------------------------------------------------------------
//1.工厂基类(ORACLE工厂类）
//--------------------------------------------------------------------------

unit uConnDBFactory_Oralce;

interface

uses
  Classes, ADODB, uConnDatabase, DB, uDBFactory;
    
type

  TConnDBBDEFactory_ORALCE = class(TDBFactory)
    public
      function CreatorConnDB() :IConnDataBase; override;
  end;

  TConnDBADOFactory_ORALCE = class(TDBFactory)
    public
      function CreatorConnDB() :IConnDataBase; override;
  end;

implementation

uses
  uConnDB_ORACLE;

function TConnDBBDEFactory_Oralce.CreatorConnDB() :IConnDataBase;
var
  connDB: TConnDatabase;
begin
  connDB := TConnBDEDB_ORACLE.Create;
  Result := connDB;
end;


function TConnDBADOFactory_Oralce.CreatorConnDB() :IConnDataBase;
var
  connDB: TConnDatabase;
begin
  connDB := TConnADODB_ORACLE.Create;
  Result := connDB;
end;




end.