conndbfactory_accessserver.pas

来自「随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太」· PAS 代码 · 共 50 行

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



unit ConnDBFactory_ACCESSServer;

interface

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


type

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

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

implementation
  uses ConnDB_ACCESSServer;
  
function TConnBDEDBFactory_ACCESSServer.CreatorConnDB() :IConnDataBase;
var
  connDB: TConnDB;
begin
  connDB := TConnBDEDB_ACCESSServer.Create;
  Result := connDB;
end;

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



end.