conndbfactory_oralce.pas

Delphi最新三层源码(1.0),对delphi有帮助

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



unit ConnDBFactory_Oralce;

interface

uses
  Classes, ADODB, ConnDB, DB, DBTables, Dialogs, IConnDB, ConnDBFactory;
    
type

  TConnDBBDEFactory_Oralce = class(TConnDBFactory)
    public
      function CreatorConnDB() :IConnDataBase; override;
  end;

  TConnDBADOFactory_Oralce = class(TConnDBFactory)
    public
      function CreatorConnDB() :IConnDataBase; override;
  end;

implementation
  uses ConnDB_ORACLEServer;

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


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




end.