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

				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.