中间层业务逻辑(一)
一 前言:
本文是作者个人的软件作品 / 产品 iSale 商业进销存系统的部分设计思路,软件还在最后完善中,文中摘录这个软件中的部分设计思路及实现方法与网友共同讨论,以得到不同的意见,共同提高水平。
另外我本人将在 200 4年 2 月末 -3 月份期间寻找工作机会 ( 即软件 1.0 完成后 ) ,如有伯乐请 Email: 至 cocoboy79 (at) 163.com 。 qq:364941
文中提到的技术等相关内容仅供参考 , 如有不妥之处请告之,谢谢合作。
系统架构:可用于 Internet 的分布式多层 (SocketConnection) 系统
客户端: Delphi 开发的客户端界面程序, Windows 界面。
中间层应用服务器:基于 Delphi 开发的 DCOM 组件 ( 处理业务处理逻辑 )
数据库服务器: Sql Server 2000 数据库
二 参考图:
图1系统架构图
图2 业务流程及类对应图
图3 重要的类
图4 所有类及关系
图4说明:
Tlogon :处理登录,权限检查
TbaseInfo :系统基本信息处理
TqueryObj :系统查询功能处理
TbaseBillObj :系统单据处理基类
TbillDataCopy :缓存单据数据
TbizProcess :业务处理类,提供业务处理接口
TbizProvider :具体业务处理功能实现的工具集
TxxxBillobj :各种业务单据处理子类 如 :TsaleBillobj, TbuyBillobj 等。
三 正文:
一般情况下进销存系统一笔业务的实现往往是如下所示这样的 ( 至少我的系统是这样做的 )
操作员录单 ->>>> 单据保存 ->>>> 单据处理 ->>>> 更新库存 ->>>> 更新账务 ->>>> 完成
上面的过程是一笔业务实现的大概轮廓,在实际当中可能比这个流程要复杂的多,比如要做一些权限检查,对于不同单据代表的不同业务类型,要用不同的处理办法进行 '' 更新库存 '' 和 '' 更新账务 '' 的操作等。那么如何用面向对象的方法来抽象这个业务流程 , 这对于我个人来讲在几个月前是一个新的挑战,如今也算是实现出来,很是欣慰。下面我就中间层中对于业务处理的设计思路与大家分享 , 希望能得到宝贵意见。
多层分布式系统的应用服务器,用于控制系统业务的处理, DCom 或 Com+ 是应用服务器的外在表现,它们除了为客户端提供调用接口以及与向数据库服务器存取数据外,更重要的是我们可以将整个业务处理核心抽象成若干个类,这些类相互配合完成整个业务处理的流程,而这些类就存放于 Dcom 或 Com+ 组件中 ( 见图 1 中‘业务逻辑处理类''的位置 ) 。〕
( 读下文同时可参考上面图2 )
TbizComponent 类:
在图4中是系统中间层处理业务逻辑所用到的类,以及它们之间的关系,除了 TbizProvider 之外所有的类都是从 TbizComponent 继承 (TbizComponent 实际是继承自 Tcomponent 类 ) ,这样做是为了提高扩展性,比如所有的 TbizComponet 的子类都需要某一个方法或属性实现一个功能时,只要在 TbizComponet 类加入此方法或属性就可以了,还可以在它的子类中 Override 方法来让子类有自已的实现。另外因为要在这些业务类中创建使用 TadoQuery ,而这些 Tadoxxx 类的 Owner 都要求是一个 Tcomponent 类或子类,所以这样就比较便于使用了。
TBaseBillobj 类:
注: 以下文中提到的 TxxxBillobj 类代表各种业务单据处理子类 如 :TsaleBillobj, TbuyBillobj 等 ( 除 TbaseBillobj 外以 Billobj 结尾的类 ) ,见图 4
进销存系统中录入不同单据代表不同业务发生,而无论哪种单据本身都有很多共同特点:新建单据、保存单据、更新单据,单据数据合法检查、单据状态控制等基本是每个单据要有的处理,因此可以抽象出一个 TbaseBillobj 基类 ( 见图 2,3) 用于实现单据的基本操作。比如图4中 TbaseBillobj 就是所有 TxxxBillobj 的基类 ( 中间 TbizProcess 提供过账处理接口见下文 ) 。那么在图 3 中也可以看到 TbaseBillobj 类的细节,基中有些方法比如 UpdateBill,SaveBill 等都是在此基类中就已实现,由 TxxxBillobj 这些单据子类直接继承使用。但也有例外的情况,有些方法,比如 OrderCheck 是用于处理销售单和进货单相关联的销售订单和进货订单的完成状态的,只有销售单和进货单需要使用,那么在基类 TbaseBillobj 中就先将 OrderCheck 声明为 Virtual 方法,然后在基类中保持此方法的实现为空,如果是其它单据不必在单据子类 override 此方法,这样就会执行继承执行这个基类的空方法,如果是销售单和进货单则各自执行其 Override 后的方法。如下:
基类中声明:
procedure OrderCheck(cds:TClientDataSet); virtual;
基类中调用 OrderCheck
procedure TBaseBillobj.BillDetailCheckData(cdsDataSet:TClientDataSet);
begin
。。。。。。。
{如果图 4 中的 xxxBillobj 单据子类没有 override OrderCheck, 那么在此实际上就会执行下面基类的的 TbaseBillobj.OrderCheck ,它是一个空方法。 }
if Self.FProcessTag>=2 then
OrderCheck(cdsDataSet);
end;
基类实现:
procedure TBaseBillobj.OrderCheck(cds:TClientDataSet);
begin
// 只有销售单、进货单 TsaleBillobj 、 TbuyBillobj override 并具体实现此方法
end;
考虑一下,如果用非 OO 的设计来完成类似这样的情况,那应该是是写一个通用的 OrderCheck 然后用 if 判断来处理,实际上这里情况较简单,就销售单和进货单两种情况,如果是那种复杂情况 if 就会很多,那种程序不是很好维护而且总是用一种方式编程序也会很烦。
由于篇幅所限,更多内容在 进销存软件之OO设计--中间层处理(二)