uaccessfactory.pas

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

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

unit uAccessFactory;

interface

uses
  Classes, uDBContext, uDBFactory, uAccessDbContext;

type

  TAccessFactory = class(TDBFactory)
  public
    function CreatDBContext : TDBContext; override;
  end;

implementation

function TAccessFactory.CreatDBContext : TDBContext;
var
  connDB: TDBContext;
begin
  connDB := TAccessDbContext.Create;
  Result := connDB;
end;



end.