进销存软件之OO设计--中间层处理(二)

转载 2006年06月26日 13:14:00

。。。接上文

另:参考图 请见上文

 

 

TbizProcess

  这个类是从TBaseBillobj继承下来的,如果说TBaseBillobj是用来处理业务单据的一般事务,那TbizProcess就是用来处理单据过账操作的,但是TBaseBillobj实际上只用几个Abstract Method来提供过账操作的接口而真正实现是由那些个TxxxBillobj的具体业务单据类来实现。请看下面讨论:

单据不仅要做保存更新这样的操作,还要有过账处理从而才能影响系统的库存和账务,最终才能从报表功能中表现这些影响,从而才能使用户得知当前业务的状况如何。基本上各单据的过账处理对账务的影响都是不同的,但大体可以归纳为钱流处理和物流处理,无论哪种单据最少都要执行这两个其中的一个,比如一张采购进货单处理后即会对系统钱流数据产生影响,而且对物流数据也产生影响,那么一张销货收款单只会对钱流数据产生影响,而销售订单即不会对钱流数据产生影响也不会对物流数据产生影响。于是对于不同的单据我们知道要进行钱流或物流的处理,但不知道具体单据类型之前,我们并不确定钱流或物流处理的具体内容,那么根据此特点,我们可以声明一个类TbizProcess(见图2,3),它有两个Abstract的方法:MoneyProcessGoodsProcess(见图3),代表钱流处理和物流处理的动作名称,之所以是‘动作名称’即这里只声明接口(我用的是Abstract Method做为接口而并非Interface),这样在具体单据处理子类的中实现这些Abstract Method后即可做‘具体动作’,另外PrepareProcessFinishProcess也是如此,分别在处理前和处理后做一些准备和善后工作。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),那下层的单据子类如:TbuyBillobjTgatheringBillobj用统一接口实现不同操作内容。对于PrepareProcess; GoodsProcess;FinishProcess;也是一样的。这样无论子类的实现内容如何变化,调用程序都不被(或很少)受影响,因为有一至的接口。

注:可以用Abstract Method当做接口,但Interface更先进,特别是更复杂的情况下,VCL不少地方使用Abstract Method来当接口,但使用Interface好像是趋势(李维的<<Inside VCL>>中对Interface说明的相当的详细),另外看看.netframework,很多地方都使用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;

    procedure MoneyProcess; override;

    procedure OrderCheck(cds:TClientDataSet); override;

    procedure PrepareProcess; override;

  end;

TbizProvider类:

  上面提到可以把业务流的处理分为MoneyProcessGoodsProcess,而钱流和物流处理实际上各自又包括一些具体内容,比如从上面进货单的钱流处理procedure TBuyBillobj.MoneyProcess;就可以看到总共有现金银行账务处理、应收应付账务处理、库存成本账务处理等,那么系统中像这些具体的处理功能有很多,用非OO的设计方法实现时可以写若干个通用的FunctionProcedure达到目的,如果用OO实现,我考虑了两种方法,一个是从父类声明Abstract Method(如果基类有实现可以用Virtual Method)方法,然后到子类再做具体实现。第二种是写一个服务类或者说是工具类比如就叫它TbizProvider类,它提供这些现金银行账务处理、应收应付账务处理、库存成本账务等处理的实现,然后各业务单据子类再声明一个此类型的属性或是域(我这里用的域FBizProvider)来使用。如下:

参考上面TsaleBillobj类的声明中 FBizProvider: TBizProvider;

TbizProvider的细节见图3,另外TbizProviderCreate如下:

声明:

constructor Create(AOwner:TComponent;BizObj:TBizProcess); reintroduce; overload;

实现:

constructor TBizProvider.Create(AOwner:TComponent;BizObj:TBaseBillObj);

begin

  inherited Create(AOwner);

  FBizObj:=BizObj;  

end;

这样TbizProviderCreate后将来就知道是为哪个业务单据做现金银行、应收应付等处理

如下为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;

以上TbizProviderCreate中第二个参数为TbaseBillObj类型的对象,而传入的实际为它的子类型(TSaleBillobj)对象实例(self),结合这样的处理方法正好也是OO中对多态的使用。(Overload那个Create与多态没有关系),这样一来,在TbizProvider内部只知道有一个要被提供服务的单据’(TbaseBillobj)就行了,具体是哪个单据(TxxxBillobj)不用知道,在TbizProvider的实现程序里使用那个FbizObj就可以了。

最后再看一下图4,可以看到各业务单据子类与TbizProvider建立了关联,这个关联是基于FbizProvider的。(图4是用ModelMaker反向工程出来的)

进销存软件之OO设计--中间层处理(二)

 。。。接上文另:参考图 请见上文  TbizProcess类  这个类是从TBaseBillobj继承下来的,如果说TBaseBillobj是用来处理业务单据的一般事务,那TbizProcess就是...
  • cocoboy79
  • cocoboy79
  • 2004年02月03日 13:51
  • 1016

进销存软件之OO设计--中间层处理(一)

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 12:31
  • 125

进销存软件之OO设计――中间层业务逻辑(一)

一 前言:本文是作者个人的软件作品/产品 iSale商业进销存系统的部分设计思路,软件还在最后完善中,文中摘录这个软件中的部分设计思路及实现方法与网友共同讨论,以得到不同的意见,共同提高水平。另外我本...
  • wokagoka
  • wokagoka
  • 2006年06月26日 13:13
  • 1151

OO设计与分析总结之一

OO设计与分析总结之一
  • syf88888888
  • syf88888888
  • 2016年12月05日 21:15
  • 207

OO设计五大原则

OO的五大原则是指SRP、OCP、LSP、DIP、ISP 1. SRP(Single Responsibility Principle 单一职责原则)  单一职责很容易理解,所谓单一职...
  • u014117094
  • u014117094
  • 2015年07月08日 23:13
  • 846

随想二OO八 最爱这一天

               我的“看空”和“做多”         火炬在昨天来到了深圳,可惜我是在上班,没有去看到那火爆的场面,但是后来网上传来照片上显示,人的确是非常的多,官方的数字是三百万!深...
  • yx2008
  • yx2008
  • 2008年01月05日 21:14
  • 2597

Java:一个完整OO设计

任务描述:公司要对两类人进行收入计算:老板收入=工资+股份红利;员工=工资+奖金。设计整体要求:各个类要完成的的计算在内部完成。1、先写空结构package base;public class NoI...
  • java1573
  • java1573
  • 2007年04月25日 10:14
  • 733

二OO八春节假期 新的顿悟

                   春节假期    新的顿悟    二OO八年是中国人期盼了许多年的一个年份,所以二OO八年的春节理所当然的为更多的人为之牵挂!但是在多少年后,火车票不再一票难求,或...
  • yx2008
  • yx2008
  • 2008年02月17日 12:19
  • 6084

C++设计模式9--代理模式--万能的中间层

代理模式--万能的中间层   引言 曾经看到过这样一句话,忘了是哪位大神说的了(只记得是在程序员的自我修养这本书里看到的,这里特别提一下这本书,是因为我的好多零碎的知识点都是在这本书里学到的,所以特别...
  • gatieme
  • gatieme
  • 2014年03月18日 13:36
  • 16899

Python之OO 面向对象

Python之面向对象 在C++和Python中,都有面向对象的概念,但是两者有哪些重要的区别呢?用最简单的语言便是,C++把每一个用户(这里当然值的是使用代码的程序员)当做是潜在的可能的犯罪分...
  • C12345SDN
  • C12345SDN
  • 2014年12月07日 22:08
  • 1244
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:进销存软件之OO设计--中间层处理(二)
举报原因:
原因补充:

(最多只允许输入30个字)