机房收费系统——上机和下机

最新推荐文章于 2021-02-24 07:50:13 发布
最新推荐文章于 2021-02-24 07:50:13 发布
阅读量1.2k 收藏 1
点赞数
分类专栏： C/S
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/xh921/article/details/12979409
版权

机房收费系统的难点之一就是上机和下机的部分，不仅要考虑基本的功能实现，还有下机的用户消费情况的分析，我仅提供我自己简单编写的代码和思路图，希望可以等到大家的指导。

上机：


附代码：'上机操作主要有显示上机信息（获取时间），更新数据库中的上机表中的信息


Private Sub CmdOk_Click()


    Dim StrSQL As String
    Dim strSQL2 As String
    Dim strSQL3 As String
    Dim strSQL4 As String
    Dim strSQL5 As String
    Dim StrSQL6 As String
    
    Dim strMsgText As String
    Dim strMsgText2 As String
    Dim strMsgText3 As String
    Dim strMsgText4 As String
    Dim strMsgText5 As String
    Dim strMsgText6 As String
    
    Dim objRst As ADODB.Recordset
    Dim objRst2 As ADODB.Recordset
    Dim objRst3 As ADODB.Recordset
    Dim objRst4 As ADODB.Recordset
    Dim objRst5 As ADODB.Recordset
    Dim objRst6 As ADODB.Recordset
    
    '判断卡号是否为空
 
    If Trim(txtCardNo.Text) = "" Then
        MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告!"
        txtCardNo.SetFocus
        Exit Sub
    Else
        If IsNumeric(txtCardNo.Text) = False Then
            MsgBox "卡号输入必须为数字", vbOKOnly + vbExclamation, "警告!"
            txtCardNo.Text = ""
            txtCardNo.SetFocus
            Exit Sub
        End If
     '查询数据库里学生基本信息表
 
        StrSQL = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"
        Set objRst = ExecuteSQL(StrSQL, strMsgText)
        
    '判读该卡号是否注册
             
        If objRst.BOF And objRst.EOF Then
            MsgBox "该卡号未注册，请先注册信息！", vbOKOnly + vbExclamation, "警告!"
            txtCardNo.Text = ""
            txtCardNo.SetFocus
            Exit Sub
        Else
        
    '判断卡号是否正在上机


            strSQL2 = "select * from online_Info where cardno='" & Trim(txtCardNo.Text) & "'and status= '上机'"
            Set objRst2 = ExecuteSQL(strSQL2, strMsgText2)
            
            If objRst2.EOF = False Then
                Label20.Caption = "该卡正在上机,不能重复上机！"
                txtCardNo.Text = ""
                txtCardNo.SetFocus
                Exit Sub
            End If
            
                strSQL3 = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"
                Set objRst3 = ExecuteSQL(strSQL3, strMsgText3)
                           
                strSQL4 = "select * from basicdata_Info "
                Set objRst4 = ExecuteSQL(strSQL4, strMsgText4)
                
                If objRst3.Fields(14) < objRst4.Fields(5) Then
                    MsgBox "金额不足，请充值！", vbOKOnly + vbExclamation, "提示"
                    txtCardNo.Text = ""
                    txtCardNo.SetFocus
                    
                    Exit Sub


                Else
    '显示该卡号的一些基本信息
 
                  txtSID.Text = objRst3.Fields(1)
                  txtdepartment.Text = objRst3.Fields(4)
                  txtType.Text = objRst3.Fields(8)
                  txtname.Text = objRst3.Fields(3)
                  txtsex.Text = objRst3.Fields(2)
                  txtloginondate.Text = Date
                  txtloginontime.Text = Time
                  
    '将上机前的余额提出来，用于下机时计算余额
 
                  txtbalance.Text = objRst3.Fields(14)
            
                  ontime = Time
                  
                  Label20.Caption = "欢迎光临！"
            
    '将该卡上机的信息填入到online_Info表里


                strSQL5 = "select * from online_Info "
                Set objRst5 = ExecuteSQL(strSQL5, strMsgText5)


                objRst5.AddNew
                
                objRst5.Fields(0) = txtCardNo.Text
                objRst5.Fields(1) = txtSID.Text
                objRst5.Fields(2) = txtname.Text
                objRst5.Fields(3) = Trim(txtType.Text)
                objRst5.Fields(4) = txtdepartment.Text
                objRst5.Fields(5) = txtsex.Text
                objRst5.Fields(6) = Date
                objRst5.Fields(7) = Time
                objRst5.Fields(8) = UserName
                objRst5.Fields(9) = txtbalance.Text
                objRst5.Fields(10) = "上机"
                
                objRst5.Update
                
    '查询此时正在上机的人数
               
                StrSQL6 = "select * from online_Info where status='上机'"
                Set objRst6 = ExecuteSQL(StrSQL6, strMsgText6)
                
                If objRst6.EOF = True Then
                    Label18.Caption = 0
                Else
                    Label18.Caption = objRst6.RecordCount
                End If
            End If
           
        End If

End If

End Sub


下机：


附代码：

'下机的操作主要有，获取下机信息，更新注册表、上机表中的相关字段
'添加下机表中信息，计算上机时间和上机费用、余额等并添加到相应的数据表中


Private Sub cmdOff_Click()
    Dim StrSQL As String
    Dim StrSQL1 As String
    Dim strSQL2 As String
    Dim strSQL3 As String
    Dim strSQL4 As String
    Dim strSQL5 As String
    Dim StrSQL6 As String
    
    Dim strMsgText As String
    Dim strMsgText1 As String
    Dim strMsgText2 As String
    Dim strMsgText3 As String
    Dim strMsgText4 As String
    Dim strMsgText5 As String
    Dim strMsgText6 As String
    
    Dim objRst As ADODB.Recordset
    Dim objRst1 As ADODB.Recordset
    Dim objRst2 As ADODB.Recordset
    Dim objRst3 As ADODB.Recordset
    Dim objRst4 As ADODB.Recordset
    Dim objRst5 As ADODB.Recordset
    Dim objRst6 As ADODB.Recordset
    
    Dim intTime As Single
    Dim intTime1 As Single
    Dim fixedRate As Single
    Dim pay As Currency
    Dim returncash As Currency
    Dim temporary As Single
    
    '判断卡号的输入情况
    
    If Trim(txtCardNo.Text) = "" Then
        MsgBox "请输入卡号！", vbOKOnly, "警告!"
        txtCardNo.SetFocus
        Exit Sub
    Else
        If IsNumeric(txtCardNo.Text) = False Then
            MsgBox "卡号输入必须为数字", vbOKOnly + vbExclamation, "警告!"
            txtCardNo.Text = ""
            txtCardNo.SetFocus
            Exit Sub
        End If
    End If
    
    '判读该卡号是否注册
    
    StrSQL = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"
    Set objRst = ExecuteSQL(StrSQL, strMsgText)
    
    If objRst.BOF And objRst.EOF Then
        MsgBox "该卡号未注册，请先注册信息！", vbOKOnly, "警告!"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
          
    End If


    '判断该卡是否正在上机
    
    StrSQL1 = "select * from online_Info where status='上机'"
    Set objRst1 = ExecuteSQL(StrSQL1, strMsgText1)


    If objRst1.EOF And objRst1.BOF = True Then
        Label20.Caption = "该卡没有上机，不能进行下机处理！"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
    Else
 '显示下机的一些信息
'        strSQL2 = "select * from online_Info where cardno='" & txtCardNo.Text & "'"
'        Set objRst2 = ExecuteSQL(strSQL2, strMsgText2)
        
        txtloginoffdate.Text = Date
        outtime = Time
        outdate = Date
        txtloginofftime.Text = Time
        
        Dim loginontime As String
        Dim loginondate As String
        loginondate = objRst1.Fields("loginondate")
        loginontime = objRst1.Fields("loginontime")
        ontime = CDate(objRst1.Fields("loginontime"))
        ondate = CDate(objRst1.Fields("loginondate"))
'
        txtname.Text = objRst1.Fields(2)
        txtloginondate.Text = objRst1.Fields(6)
        txtloginontime.Text = objRst1.Fields(7)
        objRst1.Fields(10) = "下机"
        
        strSQL2 = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"
        Set objRst2 = ExecuteSQL(strSQL2, strMsgText2)
        
        txtSID.Text = objRst2.Fields(1)
        txtdepartment.Text = objRst2.Fields(4)
        txtsex.Text = objRst2.Fields(2)
        txtType.Text = objRst2.Fields(8)
        
        strSQL4 = "select * from online_Info where cardno='" & Trim(txtCardNo.Text) & "' "
        Set objRst4 = ExecuteSQL(strSQL4, strMsgText4)
              
        objRst4.Fields(10) = "正常下机"


        strSQL3 = "select * from line_Info "
        Set objRst3 = ExecuteSQL(strSQL3, strMsgText3)


        
        objRst3.AddNew
        
        objRst3.Fields(0) = txtCardNo.Text
        objRst3.Fields(1) = txtSID.Text
        objRst3.Fields(2) = txtname.Text
        objRst3.Fields(3) = Trim(txtType.Text)
        objRst3.Fields(4) = Trim(txtdepartment.Text)
        objRst3.Fields(5) = txtsex.Text
        objRst3.Fields(6) = objRst1.Fields(6)
        objRst3.Fields(7) = objRst1.Fields(7)
        objRst3.Fields(8) = Date
        objRst3.Fields(9) = Time
        objRst3.Fields(13) = objRst4.Fields(10)
        objRst3.Fields(14) = UserName
  
     
 '计算上机的时间
        
        txtloginoffdate.Text = Date
        txtloginofftime.Text = Time
        
        txtdate = DateDiff("n", ondate, outdate)
        txttime = DateDiff("n", ontime, outtime)
        txttime.Text = Int(txttime) + Int(txtdate)
        intTime = txttime.Text
        
         objRst3.Fields(10) = Trim(txttime.Text)
         
         
 '计算上机的费用
  
         strSQL5 = "select * from basicdata_Info "
         Set objRst5 = ExecuteSQL(strSQL5, strMsgText5)
         
     '查询固定用户30分钟的费用
     
         fixedRate = Val(objRst5.Fields(0))
         
    '判断上机时间是否超过了准备时间，没超过则花费为0
    
        If intTime < (objRst5.Fields(4)) Then
            
            txtmoney.Text = 0
            
            objRst3.Fields(11) = txtmoney.Text
            returncash = Trim(txtbalance.Text) - Trim(txtmoney.Text)
            objRst3.Fields(12) = returncash
            objRst3.Update
            objRst4.Fields(9) = objRst3.Fields(12)
            objRst4.Update
            objRst2.Fields(14) = objRst3.Fields(12)
            objRst2.Update
            
            Exit Sub
            
        Else


    '判断上机时间是否超过至少上机时间，没有则当成已经上了30分钟
    
            If intTime <= objRst5.Fields(3) Then
            
                txtmoney.Text = fixedRate
                objRst3.Fields(11) = txtmoney.Text
                returncash = Trim(txtbalance.Text) - Trim(txtmoney.Text)
                objRst3.Fields(12) = returncash
                objRst3.Update
                objRst4.Fields(9) = objRst3.Fields(12)
                objRst4.Update
                objRst2.Fields(14) = objRst3.Fields(12)
                objRst2.Update
                Exit Sub
                
            Else
    '判断消耗的时间能否正好是30的倍数，判断是不是有超出不满足30分钟的部分，这部分仍然按照30分钟收费
                
                If Val(intTime) Mod 30 = 0 Then
                    txtmoney.Text = Val(Val(intTime) \ 30) * fixedRate
                    objRst3.Fields(11) = txtmoney.Text
                    returncash = Trim(txtbalance.Text) - Trim(txtmoney.Text)
                    objRst3.Fields(12) = returncash
                    objRst3.Update
                    objRst4.Fields(9) = objRst3.Fields(12)
                    objRst4.Update
                    objRst2.Fields(14) = objRst3.Fields(12)
                    objRst2.Update
                Else
                    txtmoney.Text = Val(Val(intTime) \ 30 + 1) * fixedRate
                    objRst3.Fields(11) = txtmoney.Text
                    returncash = Trim(txtbalance.Text) - Trim(txtmoney.Text)
                    objRst3.Fields(12) = returncash
                    objRst3.Update
                    objRst4.Fields(9) = objRst3.Fields(12)
                    objRst4.Update
                    objRst2.Fields(14) = objRst3.Fields(12)
                    objRst2.Update
                End If
                
            End If
           
        End If
  
          
          StrSQL6 = "select * from online_Info where status='上机'"
          Set objRst6 = ExecuteSQL(StrSQL6, strMsgText6)
          
          If objRst6.EOF = True Then
            
                Label18.Caption = objRst6.RecordCount
          End If
          
          Label20.Caption = "欢迎下次再来！"
End If
          
End Sub

因为当时创建的数据库中有上机表和上机记录表，所以每次在更新数据的时候都需要分别对两个表进行修改，我们可以用一张表同时存储两部分信息，减少数据的冗余，并且可以节省程序运行的时间，加快查询速度。代码仍然在优化，继续、、、

机房收费系统——上机操作
自律即是最自由
12-03 513
前言开始机房收费系统已经有一段时间了，它给我最大的感触就是逻辑性的重要性！接下来就来简单的总结一下机房收费系统的上机操作！一、逻辑理解为什么要把逻辑理解放在第一步呢？因为小编之前没有讲究这些“繁文缛节”，上来就是干，所以也就出现了不少麻烦，解决办法呢？很简单，就是流程图！ 简单的画了一下，虽然画的不专业，但是清晰能看懂！二、数据库上机操作不同于之前的登录操作，所以在执行上机操作的时候还需要屡一
机房收费系统——功能描述
齐天佑
09-11 410
系统分为三个权限：一般用户（学生）；操作员；管理员； 一般用户（学生）：上机，修改密码，查询余额和上机记录； 查询余额：输入：卡号 返回：学号，班级，姓名，状态，性别，备注，系别，年级，余额 上机记录：输入：卡号 返回：卡号，姓名，上机日期，上机时间，下机日期，下机时间，余额，备注 充值记录：输入...
机房收费系统——动态查询自动下机
Nikita
10-26 582
前言 在机房系统中，强制下机是非常必要的，当用户余额用完时自动下机。做这个功能还是比较坎坷的，用时2天才完成。最开始的思路是在timer中使用循环，当上机时间每大于5分钟时进行扣费，更新表里余额，写好代码运行，发现上机时间大于5分钟后，每次执行timer都要扣一次费，也就是只要上机时间到了5分钟，用不了1s卡里的钱都被扣光。这时，需要定义一个时间变量，上机时长大于5分钟后，上机时长要+5分钟，以防...
机房收费系统的数据库设计
javasogo
11-08 230
这次机房收费系统的数据库设计与上一次有很大不同,之所以会引起不同,是因为遵循了数据库设计第三范式。 什么是数据库设计第三范式在我以前的文章中有所体现，《数据库设计第三范式》我们先来看看前后的不同之处： 第一次共有10张表：结账信息，基本数据，上下机记录，退卡信息，正在上机信息，正在工作老师信息， 充值记录，学生信息，用户信息，工作记录。 而第二次，精简到了9张表： 合并正在上机信息表和上...
第一次机房收费系统之上下机
前端爱好者
09-01 419
【学习思路】 先根据给出的程序和相关的博客整理出上下机的思路和逻辑，知道它都是做什么，要解决哪些问题，会用到哪些表，然后画出流程图。 【分析】 界面：很简单，只有两个简单的Command命令按钮掌控着上下机。 功能：上机时，窗体显示该学生的基本信息；下机时，更新学生卡里的余额。计算消费情况。上下机时及时更新上机人数。 需求：用到的数据库为：student表；online表；line...
机房收费系统之上机
Aran
01-01 336
经过长时间的奋斗，我也终于把自己的机房第一遍即将结束，看了看大部分的思维和知识都在上下机和结账中体现的淋漓尽致，我也来总结总额然后分享给大家。 相信上下机这种事情我们仔细想想，尤其是男生是吧，每次去网吧，都要做，无非就开会员，冲值，上机—结账—下机，就这些总在用的步骤。 给大家一个机房收费系统上机的流程图：     就和我们去上机，要输入卡号，没注册就不能玩，当然没钱也不
机房收费系统——附加数据库
weixin_34326558的博客
11-05 89
在附加数据库的时候，出现错误“附加数据库时出错，有关具体信息，请单击“消息”列中的超链接。” 点击“确定”，打开消息列中的超链接，弹出错误框“执行Transact-SQL语句或批处理时发生了异常。无法升级到数据库‘charge_sys’，由于它是仅仅读的，或者仅仅有仅仅读文件。请将数据库或文件设为可写，然后又一次执行恢复操作。” 错误原因：这是NTFS的权限问题（磁盘分区格...
机房收费系统——上下机操作
人生苦短，我用Python
08-20 1015
按照顺序来讲到网吧的顾客，分为两种一是办卡充钱的会员，一种是交钱上网的临时用户。充完钱之后，一般用户（网管）就需要对顾客进行上机来记录时间，下机时进行收费。 上机：上机过程比较简单，涉及数据库中的三张表：online_info 、student_info、basicdata_info       上机的判断过程如下：1.从student表中判断卡号是否存在、此卡状态是否使用
机房收费系统——可行性研究报告
YNO
11-19 1455
可行性研究报告 ■1 引言 所谓可行性就是要决定“做还是不做”较为客观，当今世界发生着巨大革新，信息时代已经成为推动社会前进的关键性因素地位不可撼动，工业4.0已然在路上。大数据时代获取知识的成本骤减，各种网络公开课和学习资料在度娘和谷歌等一系列搜索引擎的强大攻势下变的唾手可得，可谓是没有搜不到的，只有不会搜的。 当然作为在外人看来相当神秘的IT行业更是被赋予了更加神秘的色彩，但与此
机房收费系统——初画UML图 & 总结（4）
搬砖工
09-05 1437
对于UML的学习到此告一段落了，这篇博文主要写写这段时间对UML学习的一些认识及在画十种图过程中的感受。 认识 其实，UML在学习《软件工程》的时候就有接触过，那时只是一掠而过，到后来跟着刘慧老师进行系统地学习，在看视频的时候只是单纯地看视频，做了总结之后到自己真正动手去画的时候确实有好多困难，自己又去图书馆找了几本关于UML建模的书，大概翻看了一下，在画的过程中哪些有不会的就去书本上找相应的
大型机房计费管理系统源代码
03-07
大型机房计费管理系统源代码 大型 机房计费 管理 系统 vb源代码
基于Java写的一款机房收费管理系统
03-20
在学校没事写的一个机房收费管理系统，带有使用说明视频，测试完美可用。
机房收费系统之上机、下机
Dream it Possible
08-11 1472
还记得，从八月一日开始做机房收费系统，到今天已经是
代码之上机时间的计算
走在奋斗的路上
12-15 1674
当时敲上机时间计算那个窗体时,真的感觉非常难,问别人吧,但是大家都是计算的一天之内的上网时间,也就是上网时间在24之外,计算的结果就不正确了. 下面这段代码就解决上网时间超过24小时的问题 ‘窗体级别定义，整个窗体调用 Dim onboard As Date Dim offboard As Date Private Sub CmdOn_Click() '记录上机时间 TxtOnD
机房收费系统——数据库基本操作
致力于顶级java全栈工程师
11-17 866
上一个阶段学习了《耿建玲视频》，就是关于数据库的各方面的知识，只是当初看视频似懂非懂的，对知识的理解不深奥，不明白，也没有过多的思考知识，导致《机房》的开始，自己很迷茫，深感欠下的债早晚都要还的。敲机房的过程中对数据库的操作一开始不知道怎么下手，后来敲系统顺手之后，那种感觉才没有了。现在《机房》结束了，整个学习过程最大的感触就是《机房收费》比起《学生信息》更多的是增加了对于数据库的增删改查的功能，
第一遍机房收费系统-----数据库的附加
暂七师师长常乃超
09-06 1949
在开始敲机房收费系统的时候，纠结于数据库是自己建好呢还是先用给的数据库呢？毕竟自己创建数据库的话，担心在类似于权限设置、功能设置上出现问题，最终导致系统因当初设计的小问题而出现“堆栈现象”，于是我先想着用一下TGB下发的那个’charge_sys’数据库。          谁成想，当我开始附加’charge_sys’数据库的时候，问题便来了。这是我做机房开始的第一个问题，我想必须要把它撂倒。
数据库—初识机房收费系统
一直在奋起，一直在路上
08-07 1328
数据库视频终于快看完了，将这几天遇到的问题和大家分享一下!
机房收费之上机、结账分析
z-xiaoyao
07-27 972
在机房收费系统中上、下机、结账可以说是整个系统的核心。可以这么说，只要解决了这些问题，机房收费系统就已经完成一半了。这块最主要的问题就是思路理不清，只要整理好思路，很多问题就可以迎刃而解。我整理了一下思路，我们一起来分析一下。 首先要说的是上机： 思路整理如下： 这里要说一下的是对”使用“的判断，”使用“判断的是该卡是否已经退卡，如果已经退卡，则该卡的状态为”不使用“，状态为”不
基于java的机房收费系统_机房收费系统之模版方法使用
weixin_30402009的博客
02-24 285
模版方法:定义一个操作中的算法骨架,而将一些步骤延迟到子类中.模版方法使得子类可以不改变一个算法的结构即可重定义该算法的某些特定步骤.1.使用意图我们经常会遇到这样的问题：知道一个算法需要的步骤和顺序，但是每个算法的具体实现不同，比如在机房收费系统中，组合查询有四个窗体类，每个窗体类的算法结构相同，具体实现不同，此时我们可以使用模版方法。模版方法模式把我们不知道具体实现的步骤封装成抽象方法，提供一...
PB软件开发的机房管理系统实现学生上机流程管理
此外，标签中提及的“系统分析、机房收费、上下机操作”等，分别对应于机房管理系统的不同功能模块及其业务流程。系统分析通常指的是对机房管理业务的需求分析、流程设计等，而机房收费则是具体的收费模块设计，上下...
评论 18
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值