机房收费系统之上下机

         还记得当时敲的时候上机和下机可是让我想了老长时间了，现在回想起来，当时还真是好笑，就知道着急，就没想分析分析，后来通过系统的分析，感觉还真是简单啊，现在来回顾一下我的上下机。

       下面先看看上机的流程图：

                           

     具体步骤：

        1、判断卡号不能为空

     2、判断卡号是否注册

     3、判断卡号是否已经退卡（如果退卡后把表删除不用考虑次判断）

     4、判断余额是否充足

     5、判断是否上机

     6、如果上机，把上机信息显示出来

     7、如果没上机在文本框中显示信息

     8、增加信息到online info中

     9、显示上机人数

          下机的流程图

   

    具体步骤：

   1、判断文本框是否为空

   2、判断输入的是否是数字

   3、判断此卡号是否注册

   4、判断该卡号是否可以使用（是否已被退卡）

   5、判断该卡号是否正在上机

   6、计算消费时间、金额

   7  、计算余额（账户余额=原账户余额-消费金额）

   8、显示下机信息

   9、更新学生信息表的余额

   10、更新上机记录表(line表）

   11、删除在线表中的信息

由于上机比较简单就不做代码展示了，现在看看下机的代码展示：

Dim mrcOnline As ADODB.Recordset
    Dim mrcStudent As ADODB.Recordset
    Dim mrcBasicData As ADODB.Recordset
    Dim mrcLine As ADODB.Recordset
    Dim OnlineSQL As String, studentSQL As String, BasicDataSQL As String, LineSQL As String
    Dim OnMsgtext As String, stuMsgtext As String, BMsgtext As String, LMsgtext As String
    Dim intLineTime As Integer         '用于存储实际在线时间
    Dim intConsumeTime As Integer
    Dim curConsume As Single           '用于存储真正花费钱的时间
    Dim curBalance As Single           '用于存储用户的余额
    Dim fixedunit As Single            '用于存储固定用户的单位金额
    Dim temunit As Single           '用于存储临时用户的单位金额


    
    '判断卡号框是否为空
    If txtCardno.Text = "" Then
        MsgBox "请输入卡号！", vbOKOnly, "警告"
        txtCardno.SetFocus
        Exit Sub
    Else
        '判断卡号输入的是否是数字
        If Not IsNumeric(txtCardno.Text) Then
            MsgBox "卡号请输入数字！", vbOKOnly, "警告"
            txtCardno.Text = ""
            txtCardno.SetFocus
            Exit Sub
        Else
           '判断此卡号是否存在
           studentSQL = "select * from student_Info where cardno = '" & Trim(txtCardno.Text) & "'"
           Set mrcStudent = ExecuteSQL(studentSQL, stuMsgtext)
           If mrcStudent.EOF Then
               MsgBox "该卡号尚未注册！请重新输入！", vbOKOnly, "警告"
               txtCardno.SetFocus
               Exit Sub
           Else
               '判断该卡号是否可以使用（是否已被退卡）
               If mrcStudent.Fields(10) = "不使用" Then
                  MsgBox "该卡号已经退卡，不能下机！", vbOKOnly, "警告"
                  txtCardno.SetFocus
                  Exit Sub
               Else
                   '判断该卡号是否正在上机
                   OnlineSQL = "select * from Online_Info where cardno = '" & Trim(txtCardno.Text) & "'"
                   Set mrcOnline = ExecuteSQL(OnlineSQL, OnMsgtext)
'
                    If mrcOnline.EOF Then
                       MsgBox "该卡号没有上机！", vbOKOnly, "警告"
                       Exit Sub
                       txtCardno.SetFocus
                    End If
                End If
            End If
         End If
    End If
                   
                   
                   
    '查询基本数据表，获得设定的基本数据
    BasicDataSQL = "select * from BasicData_Info "
    Set mrcBasicData = ExecuteSQL(BasicDataSQL, BMsgtext)
    
    
    
    '计算消费时间
    
    '实际在线时间
    intLineTime = (Date - DateValue(mrcOnline!onDate)) * 1440 + (Hour(Time) - _
                 Hour(TimeValue(mrcOnline!OnTime))) * 60 + (Minute(Time) - _
                 Minute(TimeValue(mrcOnline!OnTime)))
     '把固定用户、临时用单位时间的费用分别赋给费用
     fixedunit = Val(mrcBasicData.Fields(0))     '把固定用户的金额赋给变量
     temunit = Val(mrcBasicData.Fields(1))     '把临时用户的金额赋给变量
     '判断实际在线时间是否小于准备时间,若小于则消费时间为0
     
     If intLineTime <= Val(Trim(mrcBasicData.Fields(4))) Then
        txtResumeCash.Text = 0
     Else
        '判断实际在线时间是否小于最低消费时间，若小于消费为0
        If intLineTime <= Val(Trim(mrcBasicData.Fields(3))) Then
            txtResumeCash.Text = 0
        
       Else
         '实际在线时间大于最低消费时间则按单位时间算，分固定用户和临时用户
         If intLineTime >= Val(Trim(mrcBasicData!LeastTime)) And intLineTime < Val(Trim(mrcBasicData!UnitTime)) And Trim(mrcStudent.Fields(14)) = "固定用户" Then
            txtResumeCash.Text = fixedunit
        Else
            If intLineTime >= Val(Trim(mrcBasicData!LeastTime)) And intLineTime < Val(Trim(mrcBasicData!UnitTime)) And Trim(mrcStudent.Fields(14)) = "临时用户" Then
               txtcostmoney.Text = temunit
            Else  '当实际在线时间大于单位时间，就按有几个单位时间算，分固定用户和临时用户
                If intLineTime > Val(Trim(mrcBasicData!LeastTime)) And Trim(mrcStudent.Fields(14)) = "固定用户" Then
                   curConsume = intLineTime / Val(Trim(mrcBasicData!UnitTime))
                   txtResumeCash.Text = Val(curConsume) * Val(fixedunit)
                Else
                    If intLineTime > Val(Trim(mrcBasicData!LeastTime)) And Trim(mrcStudent.Fields(14)) = "临时用户" Then
                       curConsume = intLineTime / Val(Trim(mrcBasicData!UnitTime))
                       txtResumeCash.Text = Val(curConsume) * Val(temunit)
                    End If
                End If
            End If
        End If
    End If
End If
             
    '计算余额（账户余额=原账户余额-消费金额）
    curBalance = mrcStudent!cash - Val(txtResumeCash.Text)
    
    '下机信息显示
     txtoffDate.Text = Date
     txtoffTime.Text = Time
     txtStudentNo.Text = Trim(mrcOnline.Fields(2))
     txtName.Text = Trim(mrcOnline.Fields(3))
     txtDepartment.Text = Trim(mrcOnline.Fields(4))
     txtType.Text = Trim(mrcOnline.Fields(1))
     txtSex.Text = Trim(mrcOnline.Fields(5))
     txtonDate.Text = Trim(mrcOnline.Fields(6))
     txtOnTime.Text = Trim(mrcOnline.Fields(7))
     txtResumeTime.Text = intLineTime
     txtCash.Text = curBalance
     MsgBox "下机成功！欢迎下次再来！", vbOKOnly, "提示"
    
     '更新学生信息表的余额
     mrcStudent.Fields(7) = curBalance
     mrcStudent.Update
     mrcStudent.Close
     
     
     '更新上机记录表(line表）
     LineSQL = "select * from Line_Info"
     Set mrcLine = ExecuteSQL(LineSQL, LMsgtext)
     mrcLine.AddNew
    
     mrcLine.Fields(1) = Trim(txtCardno.Text)
     
     mrcLine.Fields(2) = Trim(txtStudentNo.Text)
     mrcLine.Fields(3) = Trim(txtName.Text)
     mrcLine.Fields(4) = Trim(txtDepartment.Text)
     mrcLine.Fields(5) = Trim(txtSex.Text)
     mrcLine.Fields(6) = Trim(txtonDate.Text)
     mrcLine.Fields(7) = Trim(txtOnTime.Text)
     mrcLine.Fields(8) = Trim(txtoffDate.Text)
     mrcLine.Fields(9) = Trim(txtoffTime.Text)
     mrcLine.Fields(10) = Trim(Val(txtResumeTime.Text))
     mrcLine.Fields(11) = Trim(Val(txtResumeCash.Text))
     mrcLine.Fields(12) = Trim(Val(txtCash.Text))
     mrcLine.Fields(13) = "正常下机"
     mrcLine.Fields(14) = Trim(Winsock1.LocalHostName)
     mrcLine.Update
     
    '删除在线表中的信息
    OnlineSQL = "select * from online_Info where cardno = '" & Trim(txtCardno.Text) & "'"
    Set mrcOnline = ExecuteSQL(OnlineSQL, OnMsgtext)
    mrcOnline.Delete
    mrcOnline.Update
    Label15.Caption = Str(Label15.Caption - 1)

这么一分析，上下机简直就是so easy