ibasebounit.pas

随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了

unit IBaseBOUnit;

interface

uses
  Classes, DAOValueObjectUnit;

type

  IBaseBO = interface(IUnknown)
    ['{3AE5EA91-41EA-41E7-B40C-CF00F8B75F8A}']
    function GetObject: TObject;
    procedure SetObject( value: TObject );
    function GetDAOValueObject: TDAOValueObject;
    procedure SetDAOValueObject(tmpDAOVO: TDAOValueObject);
    procedure InitBusinessObj;
  end;

implementation

end.