userbo.pas

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

//------------------------------------------------------------------------------
// 
//
//------------------------------------------------------------------------------

unit UserBO;

interface

uses
  Windows, Classes, SysUtils, UserDAOValueObjectUnit, BaseBOUnit;

type

  PUserBO = ^ TUserBO;
  TUserBO = class(TBaseBO)
     published
      procedure InitBusinessObj; override;
  end;

implementation
  uses BOPrototypeManagerUnit;

{$J+}

procedure TUserBO.InitBusinessObj;
begin
  PDAOObj := TUserDAO.Create;
end;

initialization
  RegisterClass(TUserBO);
  BOPrototype.PBOClsList.Add(TUserBO);
  
end.