机房收费系统之上下机

          上下机这块儿，主要是算法，很容易乱，不过有第一次 的经验，现在也有些头绪，下面和大家分享一下：

       U层： 

    ''' <summary>
    ''' 上机
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnLoginIn_Click(sender As Object, e As EventArgs) Handles btnLoginIn.Click
        Try
            If txtCardNo.Text = "" Then
                MessageBox.Show("卡号不能为空！", "提示")
                txtCardNo.Focus()
            End If
            Dim enCardNo As New CardInfoEntity
            enCardNo.CardNo = txtCardNo.Text.Trim()
            '第一步判断该卡是否存在
            Dim bllfrmMain As New frmMainBLL
            Dim dtCard As New DataTable
            dtCard = bllfrmMain.IsCardExists(enCardNo)
            If dtCard.Rows.Count > 0 Then
                '第二步判断该卡是否正在上机
                Dim dtLine As DataTable
                dtLine = bllfrmMain.isOnline(enCardNo)
                If dtLine.Rows.Count = 0 Then
                    '第三步上机并更新T_LineInfo
                    txtCash.Text = dtCard.Rows(0).Item("Cash").ToString().Trim
                    txtDepartment.Text = dtCard.Rows(0).Item("Department")
                    txtType.Text = "固定用户"
                    txtSex.Text = dtCard.Rows(0).Item("Sex")
                    txtStudentName.Text = dtCard.Rows(0).Item("StudentName")
                    txtStudentNo.Text = dtCard.Rows(0).Item("StudentNo")
                    txtOnDate.Text = DateTime.Today.ToString("yyyy-MM-dd")
                    txtOnTime.Text = DateTime.Now.ToString("HH:mm ")

                    Dim enLine As New LineInfoEntity
                    Dim intResult As Integer
                    enLine.CardNo = txtCardNo.Text.Trim()
                    enLine.StudentName = dtCard.Rows(0).Item("StudentName")
                    enLine.Computer = pubshare.strComputer
                    enLine.OnDate = txtOnDate.Text.Trim()
                    enLine.OnTime = txtOnTime.Text.Trim()
                    intResult = bllfrmMain.AddOnline(enLine)
                    If intResult <= 0 Then
                        Throw New Exception("添加上机信息失败")
                    Else
                        Label24.Visible = True
                        Label24.Text = "欢  迎  光   临  ！"
                    End If
                End If
            Else
                Throw New Exception("该卡不存在")
            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
        End Try
    End Sub

  ''' <summary>
    ''' 下机
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnLogOut_Click(sender As Object, e As EventArgs) Handles btnLogOut.Click


        If txtCardNo.Text.Trim = "" Then
            MessageBox.Show("卡号不能为空！")
            txtCardNo.Focus()
        Else
            Call OffLine()
        End If


    End Sub

 Public Sub OffLine()
        Dim enOnLine As New Entity.LineInfoEntity
        Dim bllAllOffLine As New QueryOnStatusBLL
        Dim enLine As New LineInfoEntity '更新上机信息
        Dim dtOnLine As DataTable
        '判断DataGridView中是否存在数据
        Try
            '第一步，判断该用户是否正在上机
            enOnLine.CardNo = txtCardNo.Text.Trim
            dtOnLine = bllAllOffLine.SelectOnLine(enOnLine)
            If dtOnLine.Rows.Count <= 0 Then
                Throw New Exception("该卡尚未上机")
            Else
                '第二步，获取收费信息
                Dim dtBasicData As New DataTable

                Dim enBasicData As New BasicDataEntity
                Dim bllBasicData As New BasicDataBLL
                dtBasicData = bllBasicData.SelectBasicData()
                enBasicData.Rate = dtBasicData.Rows(0).Item("Rate")
                enBasicData.PrepareTime = dtBasicData.Rows(0).Item("PrepareTime")
                enBasicData.UnitTime = dtBasicData.Rows(0).Item("UnitTime")

                '第三步，获取上机信息
                Dim bllQueryOnStatus As New QueryOnStatusBLL
                Dim dtOnlineinfo As New DataTable
                Dim enOnlineinfo As New LineInfoEntity
                enOnlineinfo.CardNo = txtCardNo.Text.Trim
                dtOnlineinfo = bllQueryOnStatus.SelectOnLine(enOnlineinfo)
                If dtOnlineinfo.Rows.Count <= 0 Then
                    Throw New Exception("获取上机信息失败")
                End If
                '第四步，获取卡余额信息
                Dim bllCard As New CardBLL
                Dim dtCard As New DataTable
                Dim enCard As New CardInfoEntity
                enCard.CardNo = txtCardNo.Text.Trim
                dtCard = bllCard.SelectCash(enCard)
                If dtCard.Rows.Count <= 0 Then
                    Throw New Exception("获取卡余额信息失败")
                End If
                '第五步，计算消费时间和消费金额
                Dim consumeTime As Integer
                Dim intResult As Integer

                enLine.OffDate = DateTime.Today.ToString("yyyy-MM-dd")
                enLine.OffTime = DateTime.Now.ToString("HH:mm")
                enOnLine.OnDate = dtOnlineinfo.Rows(0).Item("OnDate")
                enOnLine.OnTime = dtOnlineinfo.Rows(0).Item("OnTime")
                enLine.Note = "正常下机"
                'Dim a As Date = CDate(enOnLine.OffDate)
                consumeTime = Val(DateDiff("n", Format(CDate(enOnLine.OnDate)), CDate(enLine.OffDate)) + DateDiff("n", CDate(enOnLine.OnTime), CDate(enLine.OffTime))) - enBasicData.PrepareTime

                '如果消费时间小于0
                If consumeTime < 0 Then
                    consumeTime = 0
                    enLine.ConsumeCash = Val("0")
                    enLine.Cash = dtCard.Rows(0).Item("Cash")
                    intResult = bllAllOffLine.AllOffLine(enLine)
                Else
                    Dim intCard As Integer
                    Dim enCardInfo As New CardInfoEntity
                    Dim bllCardInfo As New CardBLL
                    enLine.CardNo = txtCardNo.Text.Trim
                    '如果消费时间不是30的倍数
                    If consumeTime Mod 30 > enBasicData.UnitTime Then
                        enLine.ConsumeCash = Int(consumeTime / 30) * Val(enBasicData.Rate) + Val(enBasicData.Rate)
                        enLine.Cash = Val(dtCard.Rows(0).Item("Cash")) - Val(enLine.ConsumeCash)
                        '更新LineInfo
                        intResult = bllAllOffLine.AllOffLine(enLine)
                        '更新卡表
                        enCardInfo.Cash = enLine.Cash
                        enCardInfo.CardNo = txtCardNo.Text.Trim
                        intCard = bllCardInfo.UpdCard(enCardInfo)
                        '将上下机信息返回到主界面
                        Dim enCardNO As New CardInfoEntity
                        Dim dtLine As New DataTable
                        Dim bllfrmMain As New frmMainBLL
                        enCardNO.CardNo = txtCardNo.Text.Trim
                        dtLine = bllfrmMain.LineInfo(enCardNO)
                        txtCash.Text = dtLine.Rows(0).Item("Cash")
                        txtConsumeCash.Text = dtLine.Rows(0).Item("ConsumeCash")
                        txtConsumeTime.Text = Format(consumeTime / 60, "0.00")
                        txtDepartment.Text = dtLine.Rows(0).Item("Department")
                        txtOffDate.Text = dtLine.Rows(0).Item("OffDate").ToString
                        txtOffTime.Text = dtLine.Rows(0).Item("OffTime").ToString
                        txtOnDate.Text = dtLine.Rows(0).Item("OnDate").ToString
                        txtOnTime.Text = dtLine.Rows(0).Item("OnTime").ToString
                        txtSex.Text = dtLine.Rows(0).Item("Sex")
                        txtStudentName.Text = dtLine.Rows(0).Item("StudentName")
                        txtStudentNo.Text = dtLine.Rows(0).Item("StudentNo")
                        txtType.Text = dtLine.Rows(0).Item("Type")
                        Label24.Text = "欢迎下次再来！"
                    Else
                        enLine.ConsumeCash = Int(consumeTime / 30) * Val(enBasicData.Rate)
                        enLine.Cash = Val(dtCard.Rows(0).Item("Cash")) - Val(enLine.ConsumeCash)
                        '更新T_LineInfo
                        intResult = bllAllOffLine.AllOffLine(enLine)
                        '更新卡表
                        enCardInfo.Cash = enLine.Cash
                        enCardInfo.CardNo = txtCardNo.Text.Trim
                        intCard = bllCardInfo.UpdCard(enCardInfo)
                        '将上下机信息返回到主界面
                        Dim enCardNO As New CardInfoEntity
                        Dim dtLine As New DataTable
                        Dim bllfrmMain As New frmMainBLL
                        enCardNO.CardNo = txtCardNo.Text.Trim
                        dtLine = bllfrmMain.LineInfo(enCardNO)
                        txtCash.Text = dtLine.Rows(0).Item("Cash")
                        txtConsumeCash.Text = dtLine.Rows(0).Item("ConsumeCash")
                        txtConsumeTime.Text = Format(consumeTime / 60, "0.00")
                        txtDepartment.Text = dtLine.Rows(0).Item("Department")
                        txtOffDate.Text = dtLine.Rows(0).Item("OffDate").ToString
                        txtOffTime.Text = dtLine.Rows(0).Item("OffTime").ToString
                        txtOnDate.Text = dtLine.Rows(0).Item("OnDate").ToString
                        txtOnTime.Text = dtLine.Rows(0).Item("OnTime").ToString
                        txtSex.Text = dtLine.Rows(0).Item("Sex")
                        txtStudentName.Text = dtLine.Rows(0).Item("StudentName")
                        txtStudentNo.Text = dtLine.Rows(0).Item("StudentNo")
                        txtType.Text = dtLine.Rows(0).Item("Type")
                    End If
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "提示")
        End Try
    End Sub