纵观机房收费系统，逻辑最复杂的也就是下机操作了，这几天一直在考虑下机操作该如何进行。
流程分析：
- 判断卡号是否存在与是否上机
- 上机时间的处理
- 根据时间计算消费金额
- 更新余额，添加记录
关于逻辑的操作主要集中在两个计算上面时间和金额。首先说上机时间的处理问题，做之前我看了下第一版机房收费系统关于下机的操作：
'计算消费时间
TxtTime.Text =DateDiff("n", Trim(TxtOntime.Text), Trim(Offtime))
TxtTime.Text = TxtTime.Text -preparetime
If TxtTime.Text < 0 Then
TxtTime.Text = 0
TxtMoney.Text = 0
Else
'计算消费金额
If Trim(TxtType.Text) ="固定用户" Then
TxtMoney.Text =Int(TxtTime.Text / 30) * Val(Trim(rate))
IfVal(((Val(TxtTime.Text) Mod 30) + 30) * 60) > Val(Trim(unittime)) Then
TxtMoney.Text =Val(Trim(TxtTime.Text)) + Val(Trim(rate))
End If
'---------------------判断上机时间是否大与30分钟，小于30分钟按30分钟收费
If Val(TxtTime.Text)< 30 Then
TxtMoney.Text =rate
End If
Else
TxtMoney.Text =Int(TxtTime.Text / 60) * Val(Trim(tmprate))
IfVal((Val(TxtTime.Text) Mod 60) * 60) > Val(Trim(unittime)) Then
TxtMoney.Text =Val(Trim(TxtMoney.Text)) + Val(Trim(tmprate))
End If
'---------------------判断上机时间是否大与60分钟，小于60分钟按60分钟收费
If Val(TxtTime.Text)< 60 Then
TxtMoney.Text =tmprate
End If
End If
End If
mrcLine.Close
真是惨不忍睹，时间处理不完善，一长串的if...else...语句，耦合过高，应对变化能力基本没有，别提维护和扩展性问题了。。
经过查阅资料和分析，决定对于上机时间处理这块采用职责链模式，因为上机的时间根据大小分为三阶段，准备时间、至少上机时间、单位递增时间，在判断处理的时候是依次进行的，这就与职责链模式（“加薪”模式）不谋而合了，参照加薪模式把三阶段写成三个类，准备时间类，至少时间类和单位时间类。传入上下机的时间，如果小于准备时间，则准备时间类进行处理，否则传入下一阶段；如果小于至少上机时间则，至少时间类进行处理，否则继续传；一直到能够处理为止。消除了大量的选择判断语句，这也正是职责链的职责所在。
UML图
相关代码(这些类都建在B层)
- BL_COR_TimeHandler 抽象类，定义一个处理请求的接口
PublicMustInherit Class BL_COR_TimeHandler
Protected successor As BL_COR_TimeHandler
PublicSub setsuccessor(ByVal successor As BL_COR_TimeHandler) '设置继承者者
Me.successor = successor
End Sub
Public MustOverride FunctionHandleTime(ByVal time As Integer) As Integer '处理请求的抽象方法
EndClass
- BL_COR_PrepareTimeHandler继承类BL_COR_TimeHandler，准备时间处理类
PublicClass BL_COR_PrepareTimeHandler : Inherits BL_COR_TimeHandler
Dim preparetime As Integer
Public Sub New(ByVal ENBasicData As List(OfEN_BaseData_info)) '构造函数，传入准备时间的值
Me.preparetime =CInt(ENBasicData(0).preTime)
End Sub
Public Overrides Function HandleTime(timeAs Integer) As Integer
If time <= preparetime Then '如果上机时间小于准备时间，返回0
Return 0
Else
Returnsuccessor.HandleTime(time) '否则转到下一位继承者
End If
End Function
EndClass
- BL_COR_LeastTimeHandler，至少时间处理类
PublicClass BL_COR_LeastTimeHandler : Inherits BL_COR_TimeHandler
Private leasttime As Integer
Public Sub New(ByVal ENBasicData As List(OfEN_BaseData_info)) '构造函数，传入至少上机时间的值
Me.leasttime =CInt(ENBasicData(0).leastTime)
End Sub
Public Overrides Function HandleTime(timeAs Integer) As Integer
If time <= leasttime Then '如果上机时间小于至少上机时间,返回时间
Return leasttime
Else
Returnsuccessor.HandleTime(time) '否则转到下一位继承者
End If
End Function
EndClass
- BL_COR_UnitTimeHandler 单位时间处理类
PublicClass BL_COR_UnitTimeHandler : Inherits BL_COR_TimeHandler
Private unittime As Integer
Public Sub New(ByVal ENBasicData As List(OfEN_BaseData_info)) '构造函数，传入递增时间时间的值
Me.unittime =CInt(ENBasicData(0).unitTime)
End Sub
Public Overrides Function HandleTime(timeAs Integer) As Integer '大于至少时间，返回实际消费时间
Return Math.Abs(Int(-time / unittime))* unittime
End Function
EndClass
- 到这职责链模式基本上就完成了，当然为了便于调用还可以添加一个类，类似外观的接口，调用的时候只需要传入两个实体参数就可以了。
PublicClass BL_COR_OnlineTimeCount
''' <summary>
''' 职责链处理，上机时间的计算
''' </summary>
''' <paramname="ENBaseDatainfo">EN_BaseData_info基本数据实体</param>
''' <paramname="ENLineinfo">EN_Line_info上机记录实体</param>
''' <returns>处理后的上机时间</returns>
''' <remarks>牛迁迁2014年7月2日</remarks>
Public Function CostTime(ByValENBaseDatainfo As List(Of EN_BaseData_info), ENLineinfo As EN_Line_info) AsInteger
'实例化类，通过构造函数，传递参数
Dim bPrepareTime As NewBL_COR_PrepareTimeHandler(ENBaseDatainfo)
Dim bLeastTime As NewBL_COR_LeastTimeHandler(ENBaseDatainfo)
Dim bStepTime As NewBL_COR_UnitTimeHandler(ENBaseDatainfo)
bPrepareTime.setsuccessor(bLeastTime) '设置职责链继承者
bLeastTime.setsuccessor(bStepTime)
Dim time As Integer '计算上下机时间差
time = DateDiff("n",ENLineinfo.onTime, ENLineinfo.offTime) + DateDiff("n",ENLineinfo.onDate, ENLineinfo.offDate)
ReturnbPrepareTime.HandleTime(time) '职责链处理，返回上机时间
End Function
EndClass
- 调用以及传入参数
'调用查询基本数据函数，返回实体集合
basedatalist =queryBasedata.queryBaseData(ENBaseDatainfo)
'调用职责链模式，计算上机的时间
ENLineinfo.consumeTime =onTimeCount.CostTime(basedatalist, ENLineinfo)
应用职责链模式，使系统在应对变化上迈出了一步，如果机房要添加一个满3小时赠1小时活动的话，只需要添加一个相应的时间处理类即可，很好的符合了开闭原则。
时间的处理就介绍到这，下篇博客会介绍如何根据时间自动计算出消费的金额（策略模式+反射+配置文件的应用）。
未完待续。。。
职责链模式+策略模式+反射+配置文件,完美实现下机操作(一)
时间： 2024-07-29 21:36:23