【重构】策略和职责链下机

前言：

下机需要查看消费时间以及选择用户类型，因此这里用到了职责连模式以及策略模式两种模式。消费时间用的是职责连模式，选择用户类型（固定用户，临时用户）。涉及多个表的查询，用视图是个不错的选择。

内容：

 

一、各个层调用关系：

二、UI层代码：

Private Sub btnOffLine_Click(sender As Object, e As EventArgs) Handles btnOffLine.Click

'1、卡号是否存在 2、卡号是否上机，上机记录表

'3、计算消费金额:1、小于（ 最少上机时间和准备时间）2、大于（ 最少上机时间和准备时间）小于递增时间 （临时和固定）

'4、更新上机记录表，卡表


If txtCardNo.Text = "" Then

MsgBox("请输入卡号")

Return

End If

Dim table1 As New DataTable

Dim Card As New Entity.EntityCard

Dim line As New Entity.LineLogEntity

Dim facade As New Facade.OffLineFacade

Dim table2 As New DataTable

Dim basic As New Entity.EntityBasicDataSet


Card.CardNo = txtCardNo.Text()


'查询卡表获取卡类型等

table1 = facade.selectOffF(Card)



'查询基础数据表

table2 = facade.selectBasicF(basic)



Card.type = table1.Rows(0).Item(3)

Card.Balance = table1.Rows(0).Item(2)

line.OnDate = table1.Rows(0).Item(1)

line.OffDate = Format(Now, "yyyy-MM-dd HH:mm:ss")

basic.LeastTime = table2.Rows(0).Item(5)

basic.UnitTime = table2.Rows(0).Item(4)

basic.ReadyTime = table2.Rows(0).Item(6)

basic.tmpRate = table2.Rows(0).Item(3)

basic.Rate = table2.Rows(0).Item(2)



Dim facade2 As New Facade.CashContext

'计算消费时间

line.mins = facade.ConsumeTimeF(basic, Card, line)

'选择卡类型

line.Cash = facade2.SelectType(basic, Card, line)


Card.Balance = CDec(Card.Balance) - CDec(line.Cash)




line.CardNo = Card.CardNo


Dim flag As Boolean

flag = facade.offLine(line, Card)

If flag = True Then

MsgBox("下机成功")

txtCardNo.Text = line.CardNo

txtBalance.Text = Card.Balance

txtType.Text = Card.type

txtStudentNo.Text = table1.Rows(0).Item(5)

txtStudentName.Text = table1.Rows(0).Item(6)

txtDepartment.Text = table1.Rows(0).Item(8)

txtSex.Text = table1.Rows(0).Item(7)

txtOnDate.Text = line.OnDate

txtOffDate.Text = line.OffDate

txtmins.Text = line.mins

txtCash.Text = line.Cash


Else

MsgBox("下机失败")

End If


End Sub

三、外观层

 

1、职责连查看消费时间

Public Function ConsumeTimeF(ByVal basic As Entity.EntityBasicDataSet, ByVal card As Entity.EntityCard, ByVal line As Entity.LineLogEntity) As Integer

Dim preparetime As New BLL.PrepareTimeBLL(basic)

Dim leasttime As New BLL.LeastTimeBLL(basic)

Dim unittime As New BLL.UintTimeBLL


preparetime.setsuccessor(leasttime)

leasttime.setsuccessor(unittime)


Dim time As Integer

time = DateDiff("n", line.OnDate, line.OffDate)

Return preparetime.TimeRequest(time)


End Function

2、策略模式选择卡类型

Public Class CashContext

Dim cashsuper As CashSuper

'根据策略 不同，采用不同的计费方式

Public Function SelectType(ByVal basic As Entity.EntityBasicDataSet, ByVal card As Entity.EntityCard, ByVal line As Entity.LineLogEntity) As Single

Select Case card.type.Trim()

Case "固定用户"

cashsuper = New FixedUserBLL() '实例化固定用户策略


Case "临时用户"

cashsuper = New TmpUserBLL()

End Select

Return cashsuper.GetConsumMoney(basic, card, line)


End Function




四、BLL层

1、职责连查看消费时间

（1）时间基类




Public MustInherit Class TimeBLL

Property successor As TimeBLL

Public Sub setsuccessor(ByVal successor As TimeBLL) '设置继承类

Me.successor = successor

End Sub

'请求处理的抽象方法

Public MustOverride Function TimeRequest(ByVal time As Integer) As Integer




End Class

（2）LeastTimeBLL类

Public Class LeastTimeBLL : Inherits TimeBLL

Protected leastTime As Integer


Public Sub New(ByVal basic As Entity.EntityBasicDataSet)

Me.leastTime = CInt(basic.LeastTime) '将至少上机时间赋值为leastTime

End Sub


Public Overrides Function TimeRequest(time As Integer) As Integer

If time <= leastTime Then '如果上机时间小于至少上机时间，返回至少上机时间

Return leastTime

Else

Return successor.TimeRequest(time)

End If

End Function

End Class

（3）PreparetimeBLL类 

Public Class PrepareTimeBLL : Inherits TimeBLL

Dim preparetime As Integer

' Public Sub New是VB.net默认的构造函数 form_load是Form类在调用New构造函数后加载窗体绘图后才调用的方法

Public Sub New(ByVal basic As Entity.EntityBasicDataSet)

Me.preparetime = CInt(basic.ReadyTime) '传入准备时间

End Sub



Public Overrides Function TimeRequest(time As Integer) As Integer

If time <= preparetime Then '如果上机时间小于准备时间，返回0

Return 0

Else

Return successor.TimeRequest(time)

End If


End Function

End Class

（4）Unittime类​​​​​​​

Public Class UintTimeBLL : Inherits TimeBLL


'正常消费

Public Overrides Function TimeRequest(time As Integer) As Integer

Return time

End Function

End Class

2、策略模式选择卡类型：

 

（1）固定用户

Public Class FixedUserBLL : Inherits CashSuper

'固定用户

Dim fixedRate As Single

Public Overrides Function GetConsumMoney(ByVal basic As Entity.EntityBasicDataSet, ByVal card As Entity.EntityCard, ByVal line As Entity.LineLogEntity) As Single

fixedRate = Trim(Int(basic.Rate))

Dim consumMoney As Single

consumMoney = Trim(CSng(fixedRate) * CSng(line.mins * 1.0 / 60.0))

If consumMoney < Trim(Int(basic.Rate)) Then

consumMoney = Int(basic.Rate)

End If

Return consumMoney


End Function

End Class

（2）临时用户

Public Class TmpUserBLL : Inherits CashSuper '临时用户


Dim TmpRate As Single

Public Overrides Function GetConsumMoney(basic As Entity.EntityBasicDataSet, card As Entity.EntityCard, line As Entity.LineLogEntity) As Single

TmpRate = basic.tmpRate

Dim consumMoney As Single

consumMoney = Trim(CSng(TmpRate) * CSng(line.mins * 1.0 / 60.0))

If consumMoney < Int(basic.tmpRate) Then

consumMoney = Int(basic.tmpRate)

End If

Return consumMoney

End Function

End Class

五、DAL层

Public Class AdcountDAL : Implements IDAL.IAdcount




Public Function update(adcount As EntityAdCount) As Integer Implements IAdcount.update

Dim sql As String

Dim sqlhelper As New SQLHelper.sqlhelper

Dim flag As Integer


Dim paras As SqlParameter() = {New SqlParameter("@UserID", adcount.UserID),

New SqlParameter("@CancelCash", adcount.CancelCash),

New SqlParameter("@CheckCash", adcount.CheckCash),

New SqlParameter("@RechCash", adcount.RechCash),

New SqlParameter("@Checkdate", adcount.Checkdate)}



sql = "proc_Account"


flag = sqlhelper.ExecAddDelUpdate(sql, CommandType.StoredProcedure, paras)



Return flag


End Function

End Class

 

1. 存储过程：

   ALTER PROCEDURE [dbo].[pro_Offline]
   
   @CardNO varchar(20),
   
   @OffDate datetime,
   
   @mins int,
   
   @Cash numeric(10, 2),
   
   @state varchar(20),
   
   @Balance numeric(10, 2)
   
   AS
   
   BEGIN
   
   
   update Y_LineLog_Info set OffDate=@OffDate ,mins =@mins ,Cash=@Cash ,state=@state where CardNo =@CardNO
   
   update Y_Card_Info set Balance=Balance where CardNo =@CardNO
   
   
   
   END
   
   

    

1. 总结：

 

下机用到了两个设计模式，其实设计到哪部分特别复杂就该考虑用设计模式去解耦合，设计模式还需要我们继续去研究。