ctrsample.pas

来自「数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2」· PAS 代码 · 共 84 行

unit CtrSample;

interface

uses
    Forms, Entity, EtyList, SampleDBGW, FtySample;

type
  TCtrSample = class
  private
  protected
    m_dbgw : TdmSampleDBGW;
  public
    constructor Create;

    function LoadEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
    function LoadEntityList(list : TEtyList; const listCondition : TEtyList = nil; const listRule : TEtyList = nil) : Boolean;
    function InsertEntity(pety : PIEntity) : Boolean;
    function UpdateEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
    function DeleteEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
  end;

implementation
uses DB;

//-----------------------------------------------------------------------------
//                              Create                                       
//-----------------------------------------------------------------------------
constructor TCtrSample.Create;
var
  factory : TFtySample;
begin
  m_dbgw := dmSampleDBGW;
  factory := TFtySample.Create;

  //注意，这里一定要设置factory, 在DGBW的LoadEntityList里需要用
  m_dbgw.SetEntityFactory(factory);
end;

//-----------------------------------------------------------------------------
//                              LoadEntity
//-----------------------------------------------------------------------------
function TCtrSample.LoadEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
begin
  //这里还根据商务逻辑增加写日志，或事务处理，权限控制

  Result := m_dbgw.LoadEntity(pety, listCondition);
end;

//-----------------------------------------------------------------------------
//                              LoadEntityList
//-----------------------------------------------------------------------------
function TCtrSample.LoadEntityList(list : TEtyList; const listCondition : TEtyList = nil; const listRule : TEtyList = nil) : Boolean;
begin
  Result := m_dbgw.LoadEntityList(list, listCondition, listRule);
end;

//-----------------------------------------------------------------------------
//                              InsertEntity
//-----------------------------------------------------------------------------
function TCtrSample.InsertEntity(pety : PIEntity) : Boolean;
begin
  Result := m_dbgw.InsertEntity(pety);
end;

//-----------------------------------------------------------------------------
//                              UpdateEntity
//-----------------------------------------------------------------------------
function TCtrSample.UpdateEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
begin
  Result := m_dbgw.UpdateEntity(pety, listCondition);
end;

//-----------------------------------------------------------------------------
//                              DeleteEntity
//-----------------------------------------------------------------------------
function TCtrSample.DeleteEntity(pety : PIEntity; const listCondition : TEtyList = nil) : Boolean;
begin
  Result := m_dbgw.DeleteEntity(pety, listCondition);
end;

end.