上篇博客中介绍了如何应用职责链模式对上机时间进行处理,现在时间得到了,该怎么利用上机时间计算出上机消费金额呢?
策略模式(Strategy):它定义了算法家族,分别封装起来,让它们之间可以互相替换,此模式让算法的变化不会影响到算法的客户。
这么看来,策略模式是非常适合用来处理机房收费系统的收银操作的。定义一个抽象算法类,BL_STG_CashSuper,会员用户和临时用户的收费算法分别写到BL_STG_CashVip,和BL_STG_CashTmp中,并继承BL_STG_CashSuper类。另外再定义一个BL_STG_CashContext类来判定具体使用哪个算法。
类图:
代码具现化:
1. BL_STG_CashSuper 抽象类,定义所有支持的算法的公共接口
- Public MustInherit Class BL_STG_CashSuper
- '根据上机时间、卡的类型,计算出消费金额(抽象方法)
- Public MustOverride Function GetConsumeMoney(ByVal Time As Integer) As Single
- End Class
2. BL_STG_CashVip 具体策略类,计算会员用户消费金额,封装了具体的算法或行为,继承于类 BL_STG_CashSuper
- Imports Charge_EN
- Public Class BL_STG_CashVip : Inherits BL_STG_CashSuper
- Dim queryBasedata As New BL_QueryBaseData '实例化类BL_QueryBaseData用于查询基础数据
- Dim ENBaseDatainfo As New EN_BaseData_info '定义基础数据实体
- Dim basedatalist As List(Of EN_BaseData_info) '定义实体的泛型集合
- Dim VipHourCash As Single '定义变量存放会员用户每小时费用
- Public Overrides Function GetConsumeMoney(Time As Integer) As Single
- '调用查询方法获取数据,且赋值给实体泛型集合
- basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)
- VipHourCash = basedatalist(0).vipcost '给变量赋值(会员用户每小时费用)
- Dim comsumecash As Single '定义变量存放消费金额
- comsumecash = CSng(Time) * CSng(VipHourCash / 60) '计算消费金额
- Return comsumecash '返回消费金额
- End Function
- End Class
3. BL_STG_CashTmp 具体策略类,计算临时用户消费金额,封装了具体的算法或行为,继承于类 BL_STG_CashSuper
- Imports Charge_EN
- Public Class BL_STG_CashTmp : Inherits BL_STG_CashSuper
- Dim queryBasedata As New BL_QueryBaseData '实例化类BL_QueryBaseData用于查询基础数据
- Dim ENBaseDatainfo As New EN_BaseData_info '定义基础数据实体
- Dim basedatalist As List(Of EN_BaseData_info) '定义实体的泛型集合
- Dim TmpHourCash As Single '定义变量存放临时用户每小时费用
- Public Overrides Function GetConsumeMoney(Time As Integer) As Single
- '调用查询方法获取数据,且赋值给实体泛型集合
- basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)
- TmpHourCash = basedatalist(0).tmpcost '给变量赋值(会员用户每小时费用)
- Dim comsumecash As Single '定义变量存放消费金额
- comsumecash = CSng(Time) * CSng(TmpHourCash / 60) '计算消费金额
- Return comsumecash '返回消费金额
- End Function
- End Class
4. BL_STG_CashContext,应用简单工厂模式,通过传入的卡的类型,来具体选择应用哪个算法。
- Public Class BL_STG_CashContext
- Private cashsuper As BL_STG_CashSuper '定义抽象类
- Public Sub New(ByVal CardType As String)
- 'select语句进行判断选择传入的卡类型,进行自动创建消费类型
- Select Case CardType
- Case "固定用户"
- cashsuper = New BL_STG_CashVip() '创建固定用户收费类型
- Case "临时用户"
- cashsuper = New BL_STG_CashTmp() '创建临时用户收费类型
- Case Else
- CardType = Nothing
- End Select
- End Sub
- Public Function GetResult(ByVal Time As Integer) As Single
- '调用相关的消费处理类计算收费方法
- Return cashsuper.GetConsumeMoney(Time)
- End Function
- End Class
策略模式封装了变化,消除了条件语句,避免了大量的判断,特别是在和简单工厂模式结合后,把具体实现的职责交给BL_STG_CashContext类来承担,这就最大化的减轻了客户端的职责。
但是这样仍然不够完美,假如我们需要增加一种算法的时候,比如说,超级会员收费方式;那么在增加一个超级会员算法类的同时还需要去修改BL_STG_CashContext类中的Select语句,开闭原则又没有好好遵守,这总是让人很不爽~别忘记还有一招反射呢。
利用反射技术,对BL_STG_CashContext类进行改造
- Imports System.Reflection '添加反射的引用
- Public Class BL_STG_CashContext
- Private cashsuper As BL_STG_CashSuper '定义抽象类
- Public Sub New(ByVal CardType As String)
- '应用反射技术根据卡号类型自动选择应该实例化的类
- Dim strInstance As String = "Charge_BLL.BL_STG_Cash" + CardType
- cashsuper = CType(Assembly.Load("Charge_BLL").CreateInstance(strInstance),BL_STG_CashSuper)
- End Sub
- Public Function GetResult(ByVal Time As Integer) As Single
- '调用相关的消费处理类计算收费方法
- Return cashsuper.GetConsumeMoney(Time)
- End Function
- End Class
反射,反射程序员的快乐,这样再添加新算法的时候连BL_STG_CashContext类也不用改动了。
U层调用
- '===根据获得的上机时间,应用策略模式计算消费金额==========================================
- Dim CardType As String
- '---进行字符串转换,转换为反射识别的字符
- Select Case Cardlist(0).Cardtype
- Case "会员"
- CardType = "Vip"
- Case "临时用户"
- CardType = "Tmp"
- Case Else
- CardType = ""
- End Select
- '---实例化类BL_STG_CashContext,传入用户类型
- Dim cashcontext As New BL_STG_CashContext(CardType)
- '---调用策略模式计算出余额并且赋值给consumecash
- Dim consumecash As Single = cashcontext.GetResult(ENLineinfo.consumeTime)
- '---定义变量newbalance,用于存放最新的余额
- Dim newbalance As Single = CSng(Cardlist(0).balance.ToString) - CSng(consumecash)
- '==================================================================================
任何需求的变更都是需要成本的,我们需要做的就是怎么才能以最小的代价完成这些变更。 --大鸟
而设计模式正式为此而生。
机房收费系统的下机就到这里了,有什么不合理的地方,路过的大鸟指点一二。。