《DELPHI三层架构设计方案》由会员分享,可在线阅读,更多相关《DELPHI三层架构设计方案(6页珍藏版)》请在人人文库网上搜索。
1、随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了,不喜欢举例子。 大多数文章中都或多或少的讲到了三层架构。表示层,业务层,数据层。又把业务层 再细分,分为外观服务层,主业务服务,及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。 业务层要与表示层尽量解藕, 我的方法是:首先我们在中间层 TLB_ 中定义一个接口 IBusinessService, 定义一个方法。 getvoList ,我要得到一个 VO 的列表, VO 即 ValueObject, 例如:TValueObject= class(TPersistent)privat。
2、eb_insertFlag :Boolean;b_updateFlag :Boolean;b_deleteFlag :Boolean;d_rowVersion :double;procedure setInsertFlag(pInsertFlag :Boolean);function getInsertFlag: Boolean;procedure setUpdateFlag(pUpdateFlag :Boolean);function getUpdateFlag: Boolean;procedure setDeleteFlag(pDeleteFlag :Boolean);function g。
3、etDeleteFlag: Boolean;procedure setRowVersion(pRowV ersion :double);function getRowV ersion:double;protectedfunction GetOLEData: OleV ariant; virtual;procedure SetOLEData(const Value: OleVariant); virtual;publishedproperty bInsertFlag: Boolean read getInsertFlag write setInsertFlag;property bUpdateF。
4、lag: Boolean read getUpdateFlag write setUpdateFlag; property bDeleteFlag: Boolean read getDeleteFlag write setDeleteFlag; property dRowVersion: double read getRowV ersion write setRowV ersion; property POLEData:OleV ariant read GetOLEData write SetOLEData; end;TUserVO = class(TV alueObject)privatei。
5、d: string;name: string;password: string;。VO 的列表:TValueObjectList = Class(TObjectList)privateValueObject: TV alueObject;ClassName: TClass;procedure setClassName(pTmpClsName :TClass);function getClassName: TClass;procedure setValueObject(pTmpVO :TV alueObject);function getV alueObject: TV alueObject;p。
6、rotectedfunction GetOLEData: OleV ariant; virtual;procedure SetOLEData(const Value: OleVariant); virtual;publishedfunction AddItem(index: integer; AObject: TObject ):Integer; virtual;function GetItem(index, itemid: integer ): TObject; virtual;function CountItem:Integer; virtual;publicconstructor Cre。
7、ate; virtual;destructor Destroy; override;procedure AfterConstruction; override;property PClassName: TClass read getClassName write setClassName;property POLEData: OleV ariant read GetOLEData write SetOLEData; property PValueObject: TV alueObject read getValueObject write setV alueObject;end;TValueO。
8、bjectList 就是 VO 的装载器。在 JAVA 中有一个好听的叫法,VOList 值列表组装器,具体的功能是可以管理VO , 当然你可以进行扩充,比如后来我加入了 OLETOBJECTTDataset 互换的功能。主键生成机制,分页存取功能,生成子集功能,及懒装载功能,压缩传输流功能等,同步数 据更新问题等。这要你自己去发挥吧。说了这么多,话题转回来吧。现在说客户端怎么去存取数据。 在前面中间层已经定义了 IBusinessService, 定义一个方法。 getvoList ,这个就是通用存取数 据的接口了。下面看看他的完整形式:procedure getvoList(const s。
9、BOName: WideString; const sBOService: WideString; out voListObj: OleV ariant);这里有三个参数, sBOName:sBOService:voListObj: 干什么用的?第一个就是业务对象名称, 第二个是业务对象服务名称, 第三个是传回来的 olevariant;强调一点。 sBOName:sBOService: 这两个参数并不直接对应中间层的业务对象。之间 加了一个转换层。也就是 service 定位层。这个东西把客户传来的两个参数定位到相应的业务对象中。 有什么好处呢。 其实就相当于客户端和中间层的一个简单的协议,。
10、 客户端发一个bon ame,个服务名,这都是约定的。也就是不变的。以后该业务要变,就十分方便,只需要在中间层的定位器,配置一下就可以了,如果采用 XML 或文件配置,不需要修改任何程 序,客户的业务已经发生改变。当然会采用名字调用等技术了。相关代码如下:TBOService= class(TServiceObject)private/srvOBName : String;IBasBO: IBaseBO;BOPool: TBOPrototype; / 业务对象持久池:publicconstructor Create;procedure getvoList(const sBOName: Wide。
11、String; const sBOService: WideString;out voListObj: OleV ariant); safecall;。再说说 TBOPrototype 吧 ,这个东西是管理业务对象池的。 由他统一创建业务对象。 用的是单例模式。之后具体的调用,相关代码如下:if FindClass(fClsPer.ClassName) nil thenShowMessage(ss as TUserVO).pName); 之后,你想怎么样就怎么样了。 。呵呵,下次再讲讲业务逻辑方面吧,希望给做DELPHI 三层的兄弟一个参考。我的QQ:11718111Email: wu_yanan2003yahoo.com.cn。