机房收费系统（二）——上下机

最新推荐文章于 2019-09-11 11:12:35 发布

诗琪小姐姐

最新推荐文章于 2019-09-11 11:12:35 发布

阅读量568

点赞数

分类专栏：数据库其他

本文链接：https://blog.csdn.net/lnazj/article/details/51917406

版权

其他同时被 2 个专栏收录

39 篇文章 0 订阅

订阅专栏

数据库

17 篇文章 0 订阅

订阅专栏

机房收费系统上下机也是一个很重要的部分，期中理清思路是很重要的，下面就是上下机部分的流程图

一：上机：

上机过程涉及到的数据表是：从student_info到online_ info，代码如下：

    
    '判断卡号是否存在，包括有卡号和在使用
    txtsql = "select * from student_info where cardno= '" & Trim(txtcid.Text) & "' And Status = '使用'"
    Set mrc = executesql(txtsql, msgtext)
    
      If mrc.EOF Then
          MsgBox "此卡尚未注册", vbOKOnly + vbExclamation, "警告"
          txtcid.SetFocus
          txtcid.Text = ""
          mrc.Close
      Else
          mrc.Close
           '判断是否在上机
          txtsql = "select * from online_info where cardno= '" & Trim(txtcid.Text) & "'"
          Set mrc = executesql(txtsql, msgtext)
    
          If mrc.EOF = False Then     '若在上机
              MsgBox "该用户已上机", vbOKOnly + vbExclamation, "警告"
              mrc.Close
              '自动添加第一次上机信息
             txtsql = "select * from student_info where cardno= '" & Trim(txtcid.Text) & "'"
             Set mrc = executesql(txtsql, msgtext)
             
             txtsid.Text = mrc.Fields(1)            '学号
             txtname.Text = mrc.Fields(2)           '姓名
             txtsex.Text = mrc.Fields(3)            '性别
             txtdepartment.Text = mrc.Fields(4)     '系别
             txtbalance.Text = mrc.Fields(7)        '余额
             txttype.Text = mrc.Fields(14)          '类型
             mrc.Close
             
             
            '上机日期时间显示
             txtsql = "select * from online_info where cardno= '" & Trim(txtcid.Text) & "'"
             Set mrc = executesql(txtsql, msgtext)
             txtondate.Text = mrc.Fields(6)
             txtontime.Text = mrc.Fields(7)
              Timer1.Enabled = True
          Else
              mrc.Close
           '判断是否有余额，不足提示余额不足请充值后上机，只要有钱就可以
           '查看余额
           txtsql = "select cash from student_info where cardno= '" & Trim(txtcid.Text) & "'"
           Set mrc = executesql(txtsql, msgtext)
      
            If mrc.Fields(0) <= 0 Then
               MsgBox "余额不足请充值后上机", vbOKOnly + vbExclamation, "警告"
               mrc.Close
            Else
              mrc.Close
             '然后就可以上机了，自动添加信息
             txtsql = "select * from student_info where cardno= '" & Trim(txtcid.Text) & "'"
             Set mrc = executesql(txtsql, msgtext)
             
             txtsid.Text = mrc.Fields(1)            '学号
             txtname.Text = mrc.Fields(2)           '姓名
             txtsex.Text = mrc.Fields(3)            '性别
             txtdepartment.Text = mrc.Fields(4)     '系别
             txtbalance.Text = mrc.Fields(7)        '余额
             txttype.Text = mrc.Fields(14)          '类型
             txtoffdate.Text = ""
             txtofftime.Text = ""
             txtspend.Text = ""
             txtcost.Text = ""
             mrc.Close
             
            '上机日期时间显示
             txtondate.Text = Date
             startdate = txtondate.Text
              txtontime.Text = Time
             starttime = txtontime.Text
             Timer1.Enabled = True
             
             '更新数据库online_info里的信息
           txtsql = "select * from online_info "
           Set mrc = executesql(txtsql, msgtext)
          
          mrc.AddNew
          mrc.Fields(0) = txtcid.Text
          mrc.Fields(1) = txttype.Text
          mrc.Fields(2) = txtsid.Text
          mrc.Fields(3) = txtname.Text
          mrc.Fields(4) = txtdepartment.Text
          mrc.Fields(5) = txtsex.Text
          mrc.Fields(6) = txtondate.Text
          mrc.Fields(7) = txtontime.Text
          mrc.Fields(8) = "JTB-PC"
          mrc.Update
          mrc.Close
          
    
            End If
         End If
       
      End If
    End If
            '显示当前上机人数
             txtsql = "select * from online_info"
             Set mrc = executesql(txtsql, msgtext)
             If mrc.EOF Then
                lbloncount.Caption = 0
             Else
                lbloncount.Caption = mrc.RecordCount
             End If

二：下机：

下机过程比较不好搞的是：余额的计算，计算公式：余额=上机前的金额-上机时间*单位时间价格

计算过程中涉及到的数据：

数据来源：student_info(金额)

basicdata_info（基本数据设定）

online_info（上机日期，时间）

数据录入到：student_info(上完机之后的金额)

line_info(下机日期，时间)

下面主要是金额计算及把最后余额更新到student_info表中的代码展示：

1.消费时间的计算，用到了datediff函数，返回两个日期之间的时间差，有三个参数，第一个是时间差的形式（年，月天，分钟），第二个是开始时间，第二个是结束时间。

'计算消费时间，用到了函数
    txtspend.Text = DateDiff("n", Trim(starttime), Trim(endtime))
    costtime = txtspend.Text

2.不同用户单位时间的金额不一样，所以当使用单位时间金额时，数据应从basicdate_info 表中根据不同的用户条件获取。

'查看每小时的的价格，分为"固定用户"和"一般用户"
     stutxtsql = "select * from student_info where cardno= '" & Trim(txtcid.Text) & "'"
     Set stumrc = executesql(stutxtsql, msgtext)
     
     bastxtsql = "select top 1 * from basicdata_info "
     Set basmrc = executesql(bastxtsql, msgtext)
     
      If stumrc.Fields(14) = "固定用户" Then
         strrate = Val(Trim(basmrc.Fields(0)))
      Else
         strrate = Val(Trim(basmrc.Fields(1)))        '固定用户的单位价格
      End If
      
      stumrc.Close
      basmrc.Close

3.消费金额计算的时候，一定要看上机时间是否小于设置的最小时间，并且一般用户，和固定用户的单位时间消费不一样。

'计算消费金额，分情况
    txtsql = "select top 1 * from basicdata_info "
    Set basmrc = executesql(txtsql, msgtext)
    
    If costtime < Val(basmrc.Fields(3)) Then               '小于leastime，不收钱
       txtcost.Text = 0
       txtspend.Text = 0
       
       basmrc.Close
    Else
       txtcost.Text = costtime / 60 * Val(strrate)
       basmrc.Close

4，获取上机前的金额，计算上机消费，并且将余额更行到student_info 表中

'获取上机前的金额,同时将剩余金额更新student 表中cash
      txtsql = "select * from student_info where cardno= '" & Trim(txtcid.Text) & "'"
      Set stumrc = executesql(txtsql, msgtext)
    
      '余额
      txtbalance.Text = Val(stumrc.Fields(7) - Val(txtcost.Text))
    
      '把余额更新到表中
      stumrc.Fields(7) = Val(Trim(txtbalance.Text))
      stumrc.Update
      stumrc.Close

总结：

写代码之前一定要理清思路，并且要知道都是用到了那个表里的数据，需要更新哪个表里的数据，先从全局出发，再细化代码，这样就可以做到不断完善。