|
。。。接上文
另：参考图 请见上文
TbizProcess类
这个类是从TBaseBillobj继承下来的，如果说TBaseBillobj是用来处理业务单据的一般事务，那TbizProcess就是用来处理单据过账操作的，但是TBaseBillobj实际上只用几个Abstract Method来提供过账操作的’接口’而真正实现是由那些个TxxxBillobj的具体业务单据类来实现。请看下面讨论：
单据不仅要做保存更新这样的操作，还要有过账处理从而才能影响系统的库存和账务，最终才能从报表功能中表现这些影响，从而才能使用户得知当前业务的状况如何。基本上各单据的过账处理对账务的影响都是不同的，但大体可以归纳为钱流处理和物流处理，无论哪种单据最少都要执行这两个其中的一个，比如一张采购进货单处理后即会对系统钱流数据产生影响，而且对物流数据也产生影响，那么一张销货收款单只会对钱流数据产生影响，而销售订单即不会对钱流数据产生影响也不会对物流数据产生影响。于是对于不同的单据我们知道要进行钱流或物流的处理，但不知道具体单据类型之前，我们并不确定钱流或物流处理的具体内容，那么根据此特点，我们可以声明一个类TbizProcess(见图２,3)，它有两个Abstract的方法：MoneyProcess和GoodsProcess(见图3)，代表钱流处理和物流处理的动作名称，之所以是‘动作名称’即这里只声明接口(我用的是Abstract Method做为接口而并非Interface)，这样在具体单据处理子类的中”实现”这些Abstract Method后即可做‘具体动作’，另外PrepareProcess和FinishProcess也是如此，分别在处理前和处理后做一些准备和善后工作。TbizProcess类还有一个方法是ProcessFlow，调用它来实现整个过账处理，无论是什么单据处理都是使用如下ProcessFlow：
//业务单据过账处理：
function TBizProcess.ProcessFlow(BillHead:OleVariant; BillDetail:OleVariant; Tag:integer):
Integer;
Begin
。。。。。。。
FConnection.BeginTrans;
。。。。。。。
。。。。。。。
PrepareProcess;
GoodsProcess;
MoneyProcess;
FinishProcess;
。。。。。。。
。。。。。。
FConnection.CommitTrans;
。。。。。。。
End;
这里以MoneyProcess为例：
进货单是这样的钱流处理
procedure TBuyBillobj.MoneyProcess;
begin
with FBizProvider do
begin
BankProcess(-1); //现金银行账务处理
ArApForBuy; //应收应付账务处理
StockGoods; //库存成本账务处理(并非库存变动处理)
end;
end;
收款单的钱流处理内容与进货单不相同,依此类推…
procedure TGatheringBillobj.MoneyProcess;
begin
with FBizProvider do
begin
BankProcess(1);
ArApForGather;
end;
end;
这样TbizProcess声明了接口(Abstract Method)，那下层的单据子类如:TbuyBillobj和TgatheringBillobj用统一接口实现不同操作内容。对于PrepareProcess; GoodsProcess;FinishProcess;也是一样的。这样无论子类的实现内容如何变化，调用程序都不被(或很少)受影响，因为有一至的接口。
注：可以用Abstract Method当做’接口’，但Interface更先进，特别是更复杂的情况下，VCL不少地方使用Abstract Method来当接口，但使用Interface好像是趋势(李维的<<Inside VCL>>中对Interface说明的相当的详细)，另外看看.net的framework，很多地方都使用Interface而不再是Abstract Method，特别是Ado.net。我使用Abstract Method的原因是当初的‘认识’问题以及系统并不巨大，而且当前所用的办法也工作的很好就是了。
TxxxBillobj类：
这是一系列具体单据处理类，xxx代表单据的英文名如TbuyBillobj,TsaleBillobj等，见图(4)。比如以下是销售单类的声明，它重新override了一些父类的方法以及实现了上面提到的4个抽象方法。其它TxxxBillobj的实现也都是基于这种思路。
TSaleBillobj = class (TBizProcess)
private
FBizProvider: TBizProvider;
public
function BillHeadCondition: string; override;
function DetailSql(optype:integer): string; override;
procedure FinishProcess; override;
procedure GoodsProcess; override;
[1] [2] 下一页 | 
