uoralcefactory.pas

用DELPH写的DAO访问模块.有连接池.应用了各种模块,把数据库操作

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

unit uOralceFactory;

interface

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

  TOralceFactory = class(TDBFactory)
    public
      function CreatDBContext() :TDBContext; override;
  end;

implementation

uses
  uOracleDbContext;

function TOralceFactory.CreatDBContext() :TDBContext;
var
  connDB: TDBContext;
begin
  connDB := TOracleDbContext.Create;
  Result := connDB;
end;




end.