uconndbfactory_access.~pas

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

//--------------------------------------------------------------------------
//                    工厂类(ACCESS数据库工厂类）
//--------------------------------------------------------------------------



unit uConnDBFactory_ACCESS;

interface

uses
  Classes, uConnDatabase, uDBFactory, uConnDB_ACCESS;


type

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

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

implementation
  
function TConnBDEDBFactory_ACCESS.CreatorConnDB() :IConnDataBase;
var
  connDB: TConnDatabase;
begin
  connDB := TConnBDEDB_ACCESS.Create;
  Result := connDB;
end;

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



end.