conndbfactory_sqlserver.pas

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

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


unit ConnDBFactory_SQLServer;

interface

uses
  Classes, uIConnDatabase, uConnDatabase, uConnDBFactory, uConnDB_SQLServer;

type

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

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

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

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



end.