职责链模式+策略模式+反射,完美实现下机操作(二)

前端之家收集整理的这篇文章主要介绍了职责链模式+策略模式+反射,完美实现下机操作(二)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

上篇博客中介绍了如何应用职责链模式对上机时间进行处理,现在时间得到了,该怎么利用上机时间计算出上机消费金额呢?

策略模式(Strategy:它定义了算法家族,分别封装起来,让它们之间可以互相替换,此模式让算法的变化不会影响到算法的客户。

这么看来,策略模式是非常适合用来处理机房收费系统的收银操作的。定义一个抽象算法类,BL_STG_CashSuper,会员用户和临时用户的收费算法分别写到BL_STG_CashVip,和BL_STG_CashTmp中,并继承BL_STG_CashSuper类。另外再定义一个BL_STG_CashContext类来判定具体使用哪个算法。

类图:

代码具现化:

1. BL_STG_CashSuper 抽象类,定义所有支持的算法的公共接口

  1. Public MustInherit Class BL_STG_CashSuper
  2. '根据上机时间、卡的类型,计算出消费金额(抽象方法)
  3. Public MustOverride Function GetConsumeMoney(ByVal Time As Integer) As Single
  4. End Class


2. BL_STG_CashVip 具体策略类,计算会员用户消费金额,封装了具体的算法或行为,继承于类 BL_STG_CashSuper

  1. Imports Charge_EN
  2. Public Class BL_STG_CashVip : Inherits BL_STG_CashSuper
  3. Dim queryBasedata As New BL_QueryBaseData '实例化类BL_QueryBaseData用于查询基础数据
  4. Dim ENBaseDatainfo As New EN_BaseData_info '定义基础数据实体
  5. Dim basedatalist As List(Of EN_BaseData_info) '定义实体的泛型集合
  6. Dim VipHourCash As Single '定义变量存放会员用户每小时费用
  7.  
  8. Public Overrides Function GetConsumeMoney(Time As Integer) As Single
  9. '调用查询方法获取数据,且赋值给实体泛型集合
  10. basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)
  11.  
  12. VipHourCash = basedatalist(0).vipcost '给变量赋值(会员用户每小时费用)
  13. Dim comsumecash As Single '定义变量存放消费金额
  14. comsumecash = CSng(Time) * CSng(VipHourCash / 60) '计算消费金额
  15. Return comsumecash '返回消费金额
  16. End Function
  17. End Class


3. BL_STG_CashTmp 具体策略类,计算临时用户消费金额,封装了具体的算法或行为,继承于类 BL_STG_CashSuper

  1. Imports Charge_EN
  2. Public Class BL_STG_CashTmp : Inherits BL_STG_CashSuper
  3.  
  4. Dim queryBasedata As New BL_QueryBaseData '实例化类BL_QueryBaseData用于查询基础数据
  5. Dim ENBaseDatainfo As New EN_BaseData_info '定义基础数据实体
  6. Dim basedatalist As List(Of EN_BaseData_info) '定义实体的泛型集合
  7. Dim TmpHourCash As Single '定义变量存放临时用户每小时费用
  8.  
  9. Public Overrides Function GetConsumeMoney(Time As Integer) As Single
  10. '调用查询方法获取数据,且赋值给实体泛型集合
  11. basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)
  12.  
  13. TmpHourCash = basedatalist(0).tmpcost '给变量赋值(会员用户每小时费用)
  14. Dim comsumecash As Single '定义变量存放消费金额
  15. comsumecash = CSng(Time) * CSng(TmpHourCash / 60) '计算消费金额
  16. Return comsumecash '返回消费金额
  17. End Function
  18. End Class


4. BL_STG_CashContext,应用简单工厂模式,通过传入的卡的类型,来具体选择应用哪个算法。

  1. Public Class BL_STG_CashContext
  2. Private cashsuper As BL_STG_CashSuper '定义抽象类
  3. Public Sub New(ByVal CardType As String)
  4.  
  5. 'select语句进行判断选择传入的卡类型,进行自动创建消费类型
  6. Select Case CardType
  7. Case "固定用户"
  8. cashsuper = New BL_STG_CashVip() '创建固定用户收费类型
  9. Case "临时用户"
  10. cashsuper = New BL_STG_CashTmp() '创建临时用户收费类型
  11. Case Else
  12. CardType = Nothing
  13. End Select
  14. End Sub
  15. Public Function GetResult(ByVal Time As Integer) As Single
  16. '调用相关的消费处理类计算收费方法
  17. Return cashsuper.GetConsumeMoney(Time)
  18. End Function
  19. End Class


策略模式封装了变化,消除了条件语句,避免了大量的判断,特别是在和简单工厂模式结合后,把具体实现的职责交给BL_STG_CashContext类来承担,这就最大化的减轻了客户端的职责。

但是这样仍然不够完美,假如我们需要增加一种算法的时候,比如说,超级会员收费方式;那么在增加一个超级会员算法类的同时还需要去修改BL_STG_CashContext类中的Select语句,开闭原则又没有好好遵守,这总是让人很不爽~别忘记还有一招反射呢。

利用反射技术,对BL_STG_CashContext类进行改造

  1. Imports System.Reflection '添加反射的引用
  2. Public Class BL_STG_CashContext
  3. Private cashsuper As BL_STG_CashSuper '定义抽象类
  4. Public Sub New(ByVal CardType As String)
  5.  
  6. '应用反射技术根据卡号类型自动选择应该实例化的类
  7. Dim strInstance As String = "Charge_BLL.BL_STG_Cash" + CardType
  8. cashsuper = CType(Assembly.Load("Charge_BLL").CreateInstance(strInstance),BL_STG_CashSuper)
  9. End Sub
  10. Public Function GetResult(ByVal Time As Integer) As Single
  11. '调用相关的消费处理类计算收费方法
  12. Return cashsuper.GetConsumeMoney(Time)
  13. End Function
  14. End Class

反射,反射程序员的快乐,这样再添加新算法的时候连BL_STG_CashContext类也不用改动了。

U调用

  1. '===根据获得的上机时间,应用策略模式计算消费金额==========================================
  2. Dim CardType As String
  3. '---进行字符串转换,转换为反射识别的字符
  4. Select Case Cardlist(0).Cardtype
  5. Case "会员"
  6. CardType = "Vip"
  7. Case "临时用户"
  8. CardType = "Tmp"
  9. Case Else
  10. CardType = ""
  11. End Select
  12. '---实例化类BL_STG_CashContext,传入用户类型
  13. Dim cashcontext As New BL_STG_CashContext(CardType)
  14. '---调用策略模式计算出余额并且赋值给consumecash
  15. Dim consumecash As Single = cashcontext.GetResult(ENLineinfo.consumeTime)
  16. '---定义变量newbalance,用于存放最新的余额
  17. Dim newbalance As Single = CSng(Cardlist(0).balance.ToString) - CSng(consumecash)
  18. '==================================================================================

任何需求的变更都是需要成本的,我们需要做的就是怎么才能以最小的代价完成这些变更。 --大鸟

而设计模式正式为此而生。

机房收费系统的下机就到这里了,有什么不合理的地方,路过的大鸟指点一二。。

猜你在找的VB相关文章