uconndb_oracleserver.~pas

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

/////////////////////////////////////////////////////////////////////////
//                  数据库连接对象 ORACLE 类
//1.数据库连接对象(产品基类 ORACLE 数据库)
//2.通过实现 IConnDataBase，配置数据库连接和命名用数据库Connect对象。
//3.可采用BDE和ADO方式连接后台数据库。
//4.ConnfigDBConnection方法是实际的数据库连接配置
//5.连接配置采用统一方式用TConnDBConfig类实现(委托方式),彻底摆脱数据库
//  配置的受缚.
/////////////////////////////////////////////////////////////////////////


unit uConnDB_ORACLEServer;

interface

uses
  Classes, ADODB, DB, DBTables, uConnDatabase, uIConnDatabase;

type

  TConnBDEDB_ORACLEServer = class(TConnDatabase, IConnDatabase)
    private
      s_DriverName: String;
      procedure setBDEDriverName(sBDEDriverName :String);
      function getBDEDriverName: String;
    public
      constructor Create;
      destructor Destroy; override;
    protected
      function getDBConnection: TCustomConnection; override;
      function ConnfigDBConnection: Boolean; override;
    published
      property pBDEDriverName: String read getBDEDriverName write setBDEDriverName;
      property pDBConnection: TCustomConnection read getDBConnection;
  end;

  TConnADODB_ORACLEServer = class(TConnDatabase, IConnDataBase)
    public
      constructor Create;
      destructor Destroy; override;
    protected
      function getDBConnection: TCustomConnection; override;
      function ConnfigDBConnection: Boolean; override;
    published
      property pDBConnection: TCustomConnection read getDBConnection;
  end;
  
implementation

  
constructor TConnBDEDB_ORACLEServer.Create;
begin
  inherited Create;
  pDBConn := TDatabase.Create(nil);
  pBDEDriverName := 'Oracle in OraHome90';
end;

destructor TConnBDEDB_ORACLEServer.Destroy;
begin
  pDBConn.Free;
  inherited Destroy;
end;

procedure TConnBDEDB_ORACLEServer.setBDEDriverName(sBDEDriverName :String);
begin
  if (pDBConn is TDataBase) then
  begin
    (pDBConn as TDataBase).DriverName := sBDEDriverName;
    s_DriverName := sBDEDriverName;
  end
  else
    (pDBConn as TDataBase).DriverName := '';
end;

function TConnBDEDB_ORACLEServer.getBDEDriverName: String;
begin
  Result := pBDEDriverName;
end;

function TConnBDEDB_ORACLEServer.getDBConnection: TCustomConnection;
begin
  Result := pDBConn;
end;

function TConnBDEDB_ORACLEServer.ConnfigDBConnection: Boolean;
begin
  Result := false;
end;

constructor TConnADODB_ORACLEServer.Create;
begin
  inherited Create;
  pDBConn := TADOConnection.Create(nil);
end;

destructor TConnADODB_ORACLEServer.Destroy;
begin
  pDBConn.Free;
  inherited Destroy;
end;

function TConnADODB_ORACLEServer.getDBConnection: TCustomConnection;
begin
  Result := pDBConn;
end;

function TConnADODB_ORACLEServer.ConnfigDBConnection: Boolean;
begin
  Result := false;
end;


end.