umssqldaofactory.~pas

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

unit uMssqlDaoFactory;

interface

uses
  uDaoFactory, DB, uMemberDAO, uMssqlMemberDAO, ADODB;

type
//==============================================================================
// Mssql数据库DAO工厂类
//==============================================================================
{ TMssqlDaoFactory }

  TMssqlDaoFactory = class(TDaoFactory)
  private

  protected

  public
    constructor Create;
    destructor Destroy; override;
    function getMemberDAO : IMemberDAO;
    //function createConnection : TCustomConnection; reintroduce; overload;
  end;


implementation

{ TMssqlDaoFactory }

constructor TMssqlDaoFactory.Create;
begin
  //
end;

destructor TMssqlDaoFactory.Destroy;
begin
  //
  inherited;
end;

function TMssqlDaoFactory.getMemberDAO: IMemberDAO;
begin
  result := TMssqlMemberDAO.create(fConn as Tadoconnection);
end;

end.