机房收费系统之上下机

           机房收费系统上下机是难点，我们首先要理清思路，确定好上机和下机的步骤，才能更好的实现功能。

          上机：1.判断卡号是否为空

                      2.判断卡号是否注册

                      3.卡号是否正在上机

                     4.此卡余额是否足够

            之后，从student_Info中查找相应数据记录，向Line_Info中添加记录，在OnLine_Info中添加相应记录，上机成功。

         下机：1.判断卡号是否为空

                     2.判断卡号是否注册

                     3.卡号是否正在上机

                     4.计算消费金额：先判断是否小于准备时间，小于金额为0，然后判断是否小于至少上机时间，小于金额为0，否则，分为固定用户和临时用户。固定用户按固定用            户的消费标准来计算，临时用户按临时用户的消费标准来计算，再来算卡内余额，余额等于上机前卡内剩余金额减去消费金额。之后，显示下机信息，更新student_Info,           表更新Line_Info表，删除OnLine_Info表，下机成功。

Dim mrc As ADODB.Recordset '定义数据集对象
Dim txtSQL As String '定义字符串变量，表示查询语句
Dim Msgtext As String '定义字符串变量，返回查询语句
Dim cash As Double '余额
Dim Mrc1 As ADODB.Recordset '定义数据集对象
Dim onpeople As String '显示登录人数
    txtSQL = "select * from BasicData_Info"
    Set Mrc1 = ExecuteSQL(txtSQL, Msgtext)
    
    If txtCard.Text = "" Then
        MsgBox "请输入准备上机的卡号！", vbOKOnly + vbExclamation, "警告"                   '判断要上机的卡号是否为空
        Exit Sub
        txtCard.SetFocus
       txtCard.Text = ""
    End If
    txtSQL = "select * from student_Info where cardno = '" & txtCard.Text & "' "
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    '   判断student_Info表中是否存在该卡号
    If mrc.BOF And mrc.EOF Then                                                                         '如果不存在该卡号
        MsgBox "此卡号没有注册，请重新输入！", vbOKOnly + vbExclamation, "警告"
    Else
        cash = Trim(mrc.Fields(7))                                                         '获取上机卡号的余额
        txtSQL = "select * from Online_Info where cardno = '" & txtCard.Text & "' "        '判断该卡号是否在上机
        Set mrc = ExecuteSQL(txtSQL, Msgtext)
        If mrc.EOF Then
            If cash < Trim(Mrc1.Fields(5)) Then                                                                '判断余额是否足够
                MsgBox "卡内余额不足，请充值后登陆！", vbOKOnly + vbExclamation, "警告"
                txtCard.Text = ""
                Exit Sub
            Else
                txtSQL = "select * from student_Info where cardno = '" & txtCard.Text & "' "   '没有上机，去表student_Info 查找相应的数据记录
                Set mrc = ExecuteSQL(txtSQL, Msgtext)
                txtStyle.Text = Trim(mrc.Fields(14))
                txtStudentno.Text = Trim(mrc.Fields(1))
                txtUserName.Text = Trim(mrc.Fields(2))
                txtXiBie.Text = Trim(mrc.Fields(4))
                txtsex.Text = Trim(mrc.Fields(3))
                txtBalance.Text = Trim(mrc.Fields(7))
                txtSQL = "insert into Online_Info values('" & txtCard.Text & "', '" & txtStyle.Text & "','" & txtStudentno.Text & "','" & txtUserName.Text & "','" & txtXiBie.Text & "','" & txtsex.Text & "','" & Date & "','" & Time & "','" & Trim(Winsock1.LocalHostName) & "','" & Now & "')"
                Set mrc = ExecuteSQL(txtSQL, Msgtext)
                '添加到Online_info 表中
                Label7.Caption = onpeople
                txtShangdate.Text = Date
                txtShangTime.Text = Time
                
            End If
        Else
            MsgBox "此卡正在上机中！", vbOKOnly + vbExclamation, "警告"        '该卡号正在上机，给出提示
        End If
        
    End If
                
                txtStyle.Enabled = False
                txtStudentno.Enabled = False
                txtUserName.Enabled = False
                txtXiBie.Enabled = False
                txtsex.Enabled = False
                txtBalance.Enabled = False
                txtShangdate.Enabled = False
                txtShangTime.Enabled = False
                txtOutdate.Enabled = False
                txtOuttime.Enabled = False
                txtConsumeMoney.Enabled = False
                txtConsumeMoney.Enabled = False

 

 

Dim mrc As ADODB.Recordset '定义数据集对象
    Dim mrc1 As ADODB.Recordset '定义数据集对象
    Dim mrc2 As ADODB.Recordset '定义数据集对象
    Dim mrc3 As ADODB.Recordset '定义数据集对象
    Dim txtSQL As String String定义字符串变量，表示查询语句
    Dim Msgtext As String '定义字符串变量，返回查询语句

    Dim onlinetime As Integer         '在线时间
    Dim consume As Single           '花费钱的时间
    Dim balance As Single           '用户的余额
    Dim Fixeduser As Single            '固定用户的单位金额
    Dim temporaryuser As Single           '临时用户的单位金额


    
    '判断卡号框是否为空
    If txtCard.Text = "" Then
        MsgBox "请输入卡号！", vbOKOnly, "警告"
        txtCard.SetFocus
        Exit Sub
    Else
        '判断卡号输入的是否是数字
        If Not IsNumeric(txtCard.Text) Then
            MsgBox "卡号请输入数字！", vbOKOnly, "警告"
            txtCard.Text = ""
            txtCard.SetFocus
            Exit Sub
        Else
           '判断此卡号是否存在
           txtSQL = "select * from student_Info where cardno = '" & Trim(txtCard.Text) & "'"
           Set mrc1 = ExecuteSQL(txtSQL, Msgtext)
           If mrc1.EOF Then
               MsgBox "该卡号尚未注册！请重新输入！", vbOKOnly, "警告"
               txtCard.SetFocus
               Exit Sub
           Else
               '判断该卡号是否可以使用（是否已被退卡）
               If mrc1.Fields(10) = "不使用" Then
                  MsgBox "该卡号已经退卡，不能下机！", vbOKOnly, "警告"
                  txtCard.SetFocus
                  Exit Sub
               Else
                   '判断该卡号是否正在上机
                   TxtSQL = "select * from Online_Info where cardno = '" & Trim(txtCard.Text) & "'"
                   Set mrc = ExecuteSQL(TxtSQL, Msgtext)
'
                    If mrc.EOF Then
                       MsgBox "该卡号没有上机！", vbOKOnly, "警告"
                       Exit Sub
                       txtCard.SetFocus
                    End If
                End If
            End If
         End If
    End If
                   
                   
                   
    '查询基本数据表，获得设定的基本数据
    TxtSQL = "select * from BasicData_Info "
    Set mrc2 = ExecuteSQL(TxtSQL, Msgtext)
    
    
    
    '计算消费时间
    
    '实际在线时间
    onlinetime = (Date - DateValue(mrc!Ondate)) * 1440 + (Hour(Time) - _
                 Hour(TimeValue(mrc!OnTime))) * 60 + (Minute(Time) - _
                 Minute(TimeValue(mrc!OnTime)))
     '把固定用户、临时用单位时间的费用分别赋给费用
     Fixeduser = Val(mrc2.Fields(0))     '把固定用户的金额赋给变量
     temporaryuser = Val(mrc2.Fields(1))     '把临时用户的金额赋给变量
     '判断实际在线时间是否小于准备时间,若小于则消费时间为0
     
     If onlinetime <= Val(Trim(mrc2.Fields(4))) Then
        txtConsumeMoney.Text = 0
     Else
        '判断实际在线时间是否小于最低消费时间，若小于消费为0
        If onlinetime <= Val(Trim(mrc2.Fields(3))) Then
            txtConsumeMoney.Text = 0
        
       Else
         '实际在线时间大于最低消费时间则按单位时间算，分固定用户和临时用户
         If onlinetime >= Val(Trim(mrc2!leasttime)) And onlinetime < Val(Trim(mrc2!UnitTime)) And Trim(mrc1.Fields(14)) = "固定用户" Then
            txtConsumeMoney.Text = Fixeduser
        Else
            If onlinetime >= Val(Trim(mrc2!leasttime)) And onlinetime < Val(Trim(mrc2!UnitTime)) And Trim(mrc1.Fields(14)) = "临时用户" Then
               txtConsumeMoney.Text = temporaryuser
            Else  '当实际在线时间大于单位时间，就按有几个单位时间算，分固定用户和临时用户
                If onlinetime > Val(Trim(mrc2!leasttime)) And Trim(mrc1.Fields(14)) = "固定用户" Then
                   consume = onlinetime / Val(Trim(mrc2!UnitTime))
                   txtConsumeMoney.Text = Val(consume) * Val(Fixeduser)
                Else
                    If onlinetime > Val(Trim(mrc2!leasttime)) And Trim(mrc1.Fields(14)) = "临时用户" Then
                       consume = onlinetime / Val(Trim(mrc2!UnitTime))
                       txtConsumeMoney.Text = Val(consume) * Val(temporaryuser)
                    End If
                End If
            End If
        End If
    End If
End If
             
    '计算余额（账户余额=原账户余额-消费金额）
    balance = mrc1!cash - Val(txtConsumeMoney.Text)
    
    '下机信息显示
     txtOutdate.Text = Date
     txtOuttime.Text = Time
     txtStudentno.Text = Trim(mrc.Fields(2))
     txtUserName.Text = Trim(mrc.Fields(3))
     txtXiBie.Text = Trim(mrc.Fields(4))
     txtStyle.Text = Trim(mrc.Fields(1))
     txtsex.Text = Trim(mrc.Fields(5))
     txtShangdate.Text = Trim(mrc.Fields(6))
     txtShangTime.Text = Trim(mrc.Fields(7))
     txtConsumeMin.Text = onlinetime
     txtBalance.Text = balance
     MsgBox "下机成功！欢迎下次再来！", vbOKOnly, "提示"
    
     '更新学生信息表的余额
     mrc1.Fields(7) = balance
     mrc1.Update
     mrc1.Close
     
     
     '更新上机记录表(line表）
     TxtSQL = "select * from Line_Info"
     Set mrc3 = ExecuteSQL(TxtSQL, Msgtext)
     mrc3.AddNew
    
     mrc3.Fields(1) = Trim(txtCard.Text)
     
     mrc3.Fields(2) = Trim(txtStudentno.Text)
     mrc3.Fields(3) = Trim(txtUserName.Text)
     mrc3.Fields(4) = Trim(txtXiBie.Text)
     mrc3.Fields(5) = Trim(txtsex.Text)
     mrc3.Fields(6) = Trim(txtShangdate.Text)
     mrc3.Fields(7) = Trim(txtShangTime.Text)
     mrc3.Fields(8) = Trim(txtOutdate.Text)
     mrc3.Fields(9) = Trim(txtOuttime.Text)
     mrc3.Fields(10) = Trim(Val(txtConsumeMin.Text))
     mrc3.Fields(11) = Trim(Val(txtConsumeMoney.Text))
     mrc3.Fields(12) = Trim(Val(txtBalance.Text))
     mrc3.Fields(13) = "正常下机"
     mrc3.Fields(14) = Trim(Winsock1.LocalHostName)
     mrc3.Update
     
    '删除在线表中的信息
    TxtSQL = "select * from online_Info where cardno = '" & Trim(txtCard.Text) & "'"
    Set mrc = ExecuteSQL(TxtSQL, Msgtext)
    mrc.Delete
    mrc.Update
    
                txtCard.Text = ""
                txtStyle.Enabled = False
                txtStudentno.Enabled = False
                txtUserName.Enabled = False
                txtXiBie.Enabled = False
                txtsex.Enabled = False
                txtBalance.Enabled = False
                txtShangdate.Enabled = False
                txtShangTime.Enabled = False
                txtOutdate.Enabled = False
                txtOuttime.Enabled = False
                txtConsumeMin.Enabled = False
                txtConsumeMoney.Enabled = False