|
procedure MoneyProcess; override;
procedure OrderCheck(cds:TClientDataSet); override;
procedure PrepareProcess; override;
end;
TbizProvider类：
上面提到可以把业务流的处理分为MoneyProcess和GoodsProcess，而钱流和物流处理实际上各自又包括一些具体内容，比如从上面进货单的钱流处理procedure TBuyBillobj.MoneyProcess;就可以看到总共有现金银行账务处理、应收应付账务处理、库存成本账务处理等，那么系统中像这些具体的处理功能有很多，用非OO的设计方法实现时可以写若干个通用的Function或Procedure达到目的，如果用OO实现，我考虑了两种方法，一个是从父类声明Abstract Method(如果基类有实现可以用Virtual Method)方法，然后到子类再做具体实现。第二种是写一个服务类或者说是工具类比如就叫它TbizProvider类，它提供这些现金银行账务处理、应收应付账务处理、库存成本账务等处理的实现，然后各业务单据子类再声明一个此类型的属性或是域(我这里用的域FBizProvider)来使用。如下：
参考上面TsaleBillobj类的声明中 有FBizProvider: TBizProvider;
TbizProvider的细节见图３，另外TbizProvider的Create如下：
声明：
constructor Create(AOwner:TComponent;BizObj:TBizProcess); reintroduce; overload;
实现：
constructor TBizProvider.Create(AOwner:TComponent;BizObj:TBaseBillObj);
begin
inherited Create(AOwner);
FBizObj:=BizObj;
end;
这样TbizProvider在Create后将来就知道是为哪个业务单据做现金银行、应收应付等处理
如下为TsaleBillobj建立TbizProvider的实例：
procedure TSaleBillobj.PrepareProcess;
begin
。。。。
FBizProvider:=TBizProvider.Create(Self,Self);
。。。。
end;
procedure TSaleBillobj.MoneyProcess;
begin
with FBizProvider do //调用TbizProvider提供的一系列功能
begin
BankProcess(1);
ArApForSale;
SaleCost;
SaleIncome;
StockGoods;
end;
end;
以上TbizProvider的Create中第二个参数为TbaseBillObj类型的对象，而传入的实际为它的子类型(TSaleBillobj)对象实例(self)，结合这样的处理方法正好也是OO中对多态的使用。(Overload那个Create与多态没有关系)，这样一来，在TbizProvider内部只知道有一个要被提供服务的’单据’(TbaseBillobj)就行了，具体是哪个单据(TxxxBillobj)不用知道，在TbizProvider的实现程序里使用那个FbizObj就可以了。
最后再看一下图４，可以看到各业务单据子类与TbizProvider建立了关联,这个关联是基于FbizProvider的。(图４是用ModelMaker反向工程出来的)。
曹春鹏
2004-02
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
