机房收费系统之观察者模式

  这次合作机房收费系统时，经过思考，在上下机那儿觉得既可以用状态模式还可以用观察者模式。

 

  观察者模式：（有时又被称为发布-订阅模式、模型-视图模式、源-收听者模式或从属者模式）他定义一种一对多的依赖关系，让多个观察者对象同时监听某一个主题对象。这个主题对象在状态发生变化时，会通知所有观察者对象，使它们能够自动更新自己。

UML图：

  抽象被观察者提供一个借口让观察者进行添加和删除观察者。

    添加（Attach)：新增观察者，一追踪目标对象的变化。

    删除（Detach）：将已有的观察者删除。

    通知（Notify）：利用观察者提供的更新函数来通知此目标已经产生变化。

  抽象观察者有一个虚拟的更新（Update）方法，每天具体的观察者要实现自己的更新方法。当目标对象改变时，会呼叫自己的通知函数来通知给每一个观察者，观察者实现自己的更新方法。

  机房合作时上机、下机和强制下机可以用观察者模式。上机、下机和强制下机时具体的被观察者，判断卡是否存在，卡余额是否足够，卡是否正在上机等都是具体的观察者。这里为了练习，上机我用了宁外一个模式。下机、强制下机用观察者模式的UML图：

  具体被观察者下机类的代码：

  

'观察者列表    ''Private ilist As IList(Of ObserverBLL)    Private ilist As IList(Of ObserverBLL) = New List(Of ObserverBLL)    ''' <summary>    ''' 添加观察者    ''' </summary>    ''' <param name="observer">抽象观察者类</param>    Public Overrides Sub Attach(ByVal observer As ObserverBLL)        ilist.Add(observer)    End Sub    ''' <summary>    ''' 去除观察者    ''' </summary>    ''' <param name="observer">抽象观察者类</param>    Public Overrides Sub Detach(ByVal observer As ObserverBLL)        ilist.Remove(observer)    End Sub    ''' <summary>    ''' 通知观察者    ''' </summary>    Public Overrides Sub Notify(ByVal encard As cardentity)        For Each observer As ObserverBLL In ilist            observer.Update(encard)        Next    End Sub

  具体观察者代码：

  卡是否存在：

''' <summary>    ''' 更新，查看卡是否存在    ''' </summary>    ''' <param name="enCard">卡号</param>    Public Overrides Sub Update(ByVal enCard As CardEntity)        Dim dataAccess As Factory.FactoryReflex                     '定义一个工厂对象        dataAccess = Factory.FactoryReflex.GetInstance()            '实例化工厂对象        Dim icard As ICard                                          '定义一个接口        icard = dataAccess.CreateICard()                            '创建接口        Dim dtCard As New DataTable                                 '定义一个datatable对象        dtCard = icard.SelectCardUse(enCard)                      '调用D层中查询卡的方法        '判断该卡是否存在        If dtCard.Rows.Count = 0 Then            Throw New Exception("该卡不存在！")        End If    End Sub

  是否正在上机：

''' <summary>    ''' （卡号），将enCard实体的卡号赋值个他    ''' </summary>    Private enLineRecord As New LineRecordEntity    ''' <summary>    ''' 更新，查询该卡是否正在上机    ''' </summary>    ''' <param name="enCard">卡号</param>    Public Overrides Sub Update(ByVal enCard As CardEntity)        Dim dataAccess As Factory.FactoryReflex                     '定义一个工厂对象        dataAccess = Factory.FactoryReflex.GetInstance()            '实例化工厂对象        Dim ilineRecord As ILineRecord                              '定义一个接口        ilineRecord = dataAccess.CreateILine()                      '创建接口        Dim dtLineRecord As New DataTable        'Dim enLineRecord As New LineRecordEntity        enLineRecord.ProCardId = enCard.ProCardId        dtLineRecord = ilineRecord.SelectIsOnLine(enLineRecord)                   '查询该卡是否正在上机        '判断该卡是否正在上机        If dtLineRecord.Rows.Count = 0 Then            Throw New Exception("该卡没有上机！")        End If    End Sub

  更新上机记录： 

''' <summary>    ''' 更新，将上机记录更新到表T_LineRecord    ''' </summary>    ''' <param name="enCard">卡号</param>    Public Overrides Sub Update(ByVal enCard As CardEntity)        Dim dataAccess As Factory.FactoryReflex                     '定义一个工厂对象        dataAccess = Factory.FactoryReflex.GetInstance()            '实例化工厂对象        Dim ilineRecord As ILineRecord                              '定义一个接口        ilineRecord = dataAccess.CreateILine()                      '创建接口        Dim dtLineRecord As New DataTable        enLineRecord.ProCardId = enCard.ProCardId        dtLineRecord = ilineRecord.SelectIsOnLine(enLineRecord)     '查询上机记录        Dim offDate As Date = CDate(Format(Now(), "yyyy/M/d"))       '下机日期        Dim offTime As String = Format(Now(), "HH:mm")             '下机时间        Dim spentTime As Integer        spentTime = CInt(DateDiff(DateInterval.Minute, CDate(dtLineRecord.Rows(0).Item("上机时间").ToString), CDate(offTime)))        '读取用户类型        Dim type As String                                         '存放用户类型        Dim icard As ICard                                          '定义一个接口        icard = dataAccess.CreateICard()                            '创建接口        Dim dtCard As New DataTable                                 '定义一个datatable对象        dtCard = icard.SelectCardUse(enCard)                      '调用D层中查询卡的方法        type = dtCard.Rows(0).Item("卡类型").ToString             '用户类型        '调用计算上机消费的方法        Dim cashContext As New CashContextBLL(spentTime, type)        cashContext.ProStrTime = spentTime        cashContext.ProType = type        spentCash = cashContext.GetResult()        leaveCash = CSng(dtCard.Rows(0).Item("卡内余额").ToString) - spentCash        '给上机记录实体赋值        enLineRecord.ProOffDate = offDate        enLineRecord.ProOffTime = offTime        enLineRecord.ProConsumeTime = spentTime        enLineRecord.ProConsumeCash = spentCash        enLineRecord.ProOnDate = CDate(dtLineRecord.Rows(0).Item("上机日期").ToString)        enLineRecord.ProOnTime = dtLineRecord.Rows(0).Item("上机时间").ToString        enLineRecord.ProLeaveCash = leaveCash        '将记录更新到数据库上机记录表里        Dim bln As Boolean        bln = ilineRecord.UpdateOnLine(enLineRecord)    End Sub

  更新卡余额：

''' <summary>    ''' 更新,更新卡的余额，余额从类ModifyLineRecordBLL中读取    ''' </summary>    ''' <param name="enCard">卡号</param>    Public Overrides Sub Update(ByVal enCard As CardEntity)        Dim dataAccess As Factory.FactoryReflex                     '定义一个工厂对象        dataAccess = Factory.FactoryReflex.GetInstance()            '实例化工厂对象        Dim icard As ICard                                          '定义一个接口        icard = dataAccess.CreateICard()                            '创建接口        Dim bln As Boolean        enCard.ProCash = ModifyLineRecordBLL.leaveCash        bln = icard.UpdateCardCash(enCard)    End Sub

  在计算上机消费时加上了策略模式，这里就不介绍了。