【机房收费系统】---上下机

最新推荐文章于 2019-09-14 10:37:07 发布
最新推荐文章于 2019-09-14 10:37:07 发布
阅读量373 收藏
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Xumuyang_/article/details/78944561
版权

一、前提

当用户登录之后，注册一个卡号，可以进行上下机操作。


二、上机
上机代码： 
Private Sub cmdOnline_Click()
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset    'OnLine_Info
    Dim mrc2 As ADODB.Recordset    'Line_Info
    Dim mrc3 As ADODB.Recordset    'Basicdata_Info
    Dim miCount As Integer
    
    txtType.Text = ""
    txtStudentno.Text = ""
    txtName.Text = ""
    txtDepartment.Text = ""
    comboSex.Text = ""
    txtOnlinedate.Text = ""
    txtOnlinetime.Text = ""
    txtOfflinedate.Text = ""
    txtOfflinetime.Text = ""
    txtTime.Text = ""
    txtRemaincash.Text = ""
    txtUsedcash.Text = ""
    
    '卡号是否为空
    If txtCardno = "" Then
        MsgBox "请输入卡号!", vbOKOnly, "提示"
        txtCardno.SetFocus
        txtCardno = ""
        Exit Sub
    End If
    
    '卡号是否注册
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
        MsgBox "该卡号尚未注册，请重新输入！", vbOKOnly, "提示"
        txtCardno.SetFocus
        txtCardno = ""
        Exit Sub
    End If
    
    '卡号是否在上机
    txtSQL = "select * from OnLine_Info where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    If mrc1.EOF = False Then
        MsgBox "该卡号正在上机！", vbOKOnly, "提示"
        txtCardno = ""
        txtCardno.SetFocus
        txtType.Text = ""
        txtStudentno.Text = ""
        txtName.Text = ""
        txtDepartment.Text = ""
        comboSex.Text = ""
        txtOnlinedate.Text = ""
        txtOnlinetime.Text = ""
        txtOfflinedate.Text = ""
        txtOfflinetime.Text = ""
        txtTime.Text = ""
        txtRemaincash.Text = ""
        txtUsedcash.Text = ""
        Exit Sub
        
    End If
    
    '卡号是否余额不足
    If mrc.Fields(7) <= 5 Then
        If MsgBox("该卡号余额不足，是否充值？", vbOKCancel, "提示") = vbOK Then
            frmrecharge.Show , Me
        End If
        Exit Sub
    End If

    
    '卡号使用状态
    If mrc.Fields(10) = "未使用" Then
        If MsgBox("该卡尚未激活，是否修改学生信息？", vbOKCancel, "提示") = vbOK Then
            frmmodifysinfo.Show , Me
        End If
        Exit Sub
    End If

    '是否设定基础数据
    txtSQL = "select * from basicdata_Info"
    Set mrc3 = ExecuteSQL(txtSQL, MsgText)
    If mrc3.EOF Then
        If MsgBox("该卡尚未设定基础数据，无法登录，是否设定？", vbOKCancel, "提示") = vbOK Then
            frmsetbasicdata.Show , Me
        End If
        Exit Sub
    End If
    
    '上机成功，更新上机界面信息
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    '显示数据
    txtStudentno.Text = Trim(mrc.Fields(1))
    txtDepartment.Text = Trim(mrc.Fields(4))
    txtType.Text = Trim(mrc.Fields(14))
    txtName.Text = Trim(mrc.Fields(2))
    comboSex.Text = Trim(mrc.Fields(3))
    txtOnlinedate.Text = Trim(Date)
    txtOnlinetime.Text = Trim(Time)
    txtRemaincash.Text = Val(Trim(mrc.Fields(7)))
    
    '更新上机表信息
    txtSQL = "select * from OnLine_Info"
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    
    mrc1.AddNew
    mrc1.Fields(0) = Trim(txtCardno.Text)
    mrc1.Fields(1) = Trim(txtType.Text)
    mrc1.Fields(2) = Trim(txtStudentno.Text)
    mrc1.Fields(3) = Trim(txtName.Text)
    mrc1.Fields(4) = Trim(txtDepartment.Text)
    mrc1.Fields(5) = Trim(comboSex.Text)
    mrc1.Fields(6) = Trim(txtOnlinedate.Text)
    mrc1.Fields(7) = Trim(txtOnlinetime.Text)
    mrc1.Fields(8) = Trim("ZOEY")
    mrc1.Fields(9) = Trim(Date)
    mrc1.Update
    lblOnlineNum.Caption = mrc1.RecordCount
    '显示当前上机人数
    mrc1.Close
    
    '增加上机记录
    txtSQL = "select * from Line_Info"
    Set mrc2 = ExecuteSQL(txtSQL, MsgText)
    mrc2.AddNew
    mrc2.Fields(1) = Trim(txtCardno.Text)
    mrc2.Fields(2) = Trim(txtStudentno.Text)
    mrc2.Fields(3) = Trim(txtName.Text)
    mrc2.Fields(4) = Trim(txtDepartment.Text)
    mrc2.Fields(5) = Trim(comboSex.Text)
    mrc2.Fields(6) = Trim(txtOnlinedate.Text)
    mrc2.Fields(7) = Trim(txtOnlinetime.Text)
    mrc2.Fields(13) = Trim("正常上机")
    mrc2.Fields(14) = Trim("ZOEY")
    mrc2.Update
    mrc2.Close
    
    '更新上机人数
    txtSQL = "select count(*) from OnLine_Info "
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    
    Label15.Caption = mrc1.RecordCount + 1
    
End Sub


三、下机


下机代码：

Private Sub cmdOffline_Click()
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset   'student_info
    Dim mrc1 As ADODB.Recordset  'bascidata_info
    Dim mrc2 As ADODB.Recordset  'line_info
    Dim mrc3 As ADODB.Recordset  'online_info
    
    '卡号是否为空
    If txtCardno = "" Then
        MsgBox "请输入卡号!", vbOKOnly, "提示"
        txtCardno.SetFocus
        txtCardno = ""
        Exit Sub
    End If
    
    '卡号是否存在
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
        MsgBox "不存在该卡号！", vbOKOnly, "提示"
        txtCardno.SetFocus
        txtCardno = ""
        Exit Sub
    End If
    
    '卡号是否正在上机
    txtSQL = "select * from OnLine_Info where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc3 = ExecuteSQL(txtSQL, MsgText)
    If mrc3.EOF Then
        MsgBox "该用户未上机！", vbOKOnly, "提示"
        txtCardno.SetFocus
        txtCardno = ""
        txtType.Text = ""
        txtStudentno.Text = ""
        txtName.Text = ""
        txtDepartment.Text = ""
        comboSex.Text = ""
        txtOnlinedate.Text = ""
        txtOnlinetime.Text = ""
        txtOfflinedate.Text = ""
        txtOfflinetime.Text = ""
        txtTime.Text = ""
        txtRemaincash.Text = ""
        txtUsedcash.Text = ""
        Exit Sub
    End If
    
    '更新界面信息
    txtType.Text = Trim(mrc3.Fields(1))
    txtStudentno.Text = Trim(mrc3.Fields(2))
    txtName.Text = Trim(mrc3.Fields(3))
    txtDepartment.Text = Trim(mrc3.Fields(4))
    comboSex.Text = Trim(mrc3.Fields(5))
    txtOnlinedate.Text = Trim(mrc3.Fields(6))
    txtOnlinetime.Text = Trim(mrc3.Fields(7))
    txtOfflinedate.Text = Trim(Date)
    txtOfflinetime.Text = Trim(Time)
    txtTime.Text = Trim(DateDiff("n", Trim(txtOnlinetime.Text), Trim(Time))) '把时间差转换为分钟
    
        
    '从基本数据表获取数据
    txtSQL = "select * from BasicData_Info "
    Set mrc1 = ExecuteSQL(txtSQL, MsgText)
    
    '计算消费金额
    Dim MinTime As Integer
    Dim AllTime As Single
    Dim Rate As Single
    Dim Money As Integer
    
    MinTime = mrc1.Fields(3)
    AllTime = txtTime.Text
    
    '上机时间小于准备时间，不算时间,不花钱
    If Trim(txtTime.Text) < MinTime Then
        txtTime.Text = 0 & ""
        Money = 0
    Else
        If AllTime > MinTime Then
            Do While AllTime > MinTime
                AllTime = AllTime - 30
                If mrc.Fields(14) = "固定用户" Then
                    Money = Money + 2
                Else
                    Money = Money + 3
                End If
            Loop
         End If
     End If
     txtUsedcash.Text = Money
        
    '计算余额
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardno.Text) & "'and status='" & "使用" & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    txtRemaincash.Text = Val(Trim(mrc.Fields(7))) - Val(Trim(txtUsedcash.Text))
    
    txtSQL = "Update student_Info set cash='" & Trim(txtUsedcash.Text) & "' where cardno='" & Trim(txtCardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    MsgBox "下机成功！", vbOKOnly, "提示"
    
    '更新Line表
    txtSQL = "select * from Line_Info "
    Set mrc2 = ExecuteSQL(txtSQL, MsgText)
    
    If Not mrc2.EOF Then
        mrc2.AddNew
        mrc2.Fields(1) = Trim(txtCardno.Text)
        mrc2.Fields(2) = Trim(txtStudentno.Text)
        mrc2.Fields(3) = Trim(txtName.Text)
        mrc2.Fields(4) = Trim(txtDepartment.Text)
        mrc2.Fields(5) = Trim(comboSex.Text)
        mrc2.Fields(6) = Trim(txtOnlinedate.Text)
        mrc2.Fields(7) = Trim(txtOnlinetime.Text)
        mrc2.Fields(8) = Trim(txtOfflinedate.Text)
        mrc2.Fields(9) = Trim(txtOfflinetime.Text)
        mrc2.Fields(10) = Trim(txtTime.Text)
        mrc2.Fields(11) = Trim(txtUsedcash.Text)
        mrc2.Fields(12) = Trim(txtRemaincash.Text)
        mrc2.Fields(13) = "正常下机"
        mrc2.Fields(14) = Trim(Environ("computername"))
        mrc2.Update
        mrc2.Close
    End If
    
    mrc3.Delete
        
    '更新上机人数
    txtSQL = "select count(*) from OnLine_Info "
    Set mrc3 = ExecuteSQL(txtSQL, MsgText)
    Label15.Caption = mrc3.RecordCount
    
End Sub

清空大脑，理清思路，考虑周全，按照自己想要的结果去执行就好了。

杨幂等
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 28
    评论
专栏目录
机房收费系统-----总体总结
企鹅不该去银河怀疑人生
08-18 498
经过漫长的时间才将这个项目完结，虽然有疫情吧，但是想了想这个并不能成为自己拖延的理由，对于自己这个项目以及以后的项目只能快马加鞭了。 个人感觉 我从这个项目得到的经验就是对于完整这个项目（或者其他的）我们应该先想出他是怎么运作的，要把他的运作逻辑想清。在进行代码编辑。就例如这个项目最大个难点，也就是数据的组合查询，只有将这个数据组合查询的难点攻克了，那么自己很快就会全部解决这个程序。 个人建议先将机房收费中的基础数据表格想清并写出来，这样学生才能上下机，才能够正常使用一般用户的功能。进而实现其他的功能
机房收费系统-结账
Marshallren的博客
10-22 259
前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。 结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账...
机房收费系统-上下机
Zachary
08-13 518
机房收费系统上下机操作
机房收费系统--上下机
Smily-王婷婷
08-21 713
前言：                  敲机房开始时，一些表的逻辑还不是很清楚，开始时，只是进行一些简单的窗体实现，模仿着学生管理系统来进行，逐渐的对于一些表的逻辑有些自己的头绪了，但还是不是特别清晰。当在敲上下机时，我简单的认为，上机不就是把学生的信息添加到online表中，下机时在表中把数据删除不就罢了嘛，咋很多人还说不简单呢。我开始把自己认为的这些写上，但是哪有这么简单呀，各个表之间的联
【机房收费系统】-上下机
Arielle-L
02-18 330
前言：    一遍遍的说理清逻辑是多么的重要，刚开始的时候毫无头绪更不想开始，画出流程图梳理清晰自己的思路，上下机并没有想象中的那么难，现在就总结下上下机部分； 内容： 上机：整个上机过程总的来说就是查询数据库，进行条件限制判断，更新数据表，就过程的思路有以下流程图； 下机：下机相对而言就复杂了点，关于消费时间的计算判断，和消费金额的计算； 1、 时间转换 txtTime1 = Trim(DateDiff("n", Trim(txtOnTime.Text), Trim(Time))) txtda
机房收费系统-报表打印
Zachary
09-03 412
机房收费系统日结报表
机房收费系统-上机管理
自律即是最自由
01-01 1196
上一篇文章总结了下机的基本操作，接下来总结一下上机管理 上机管理中有两个难点，就是所有学生下机和选中学生下机！1、所有学生下机思考前面下机操作执行的是对一个用户进行下机操作！现在要让所有上机的用户全都下机。在实际过程中，可能正在上机的有几百人，那么一一下机太过繁琐，所有人下机可以分解看每一个人都下机的累加。毫无疑问，每个人下机的过程都需要走下机操作那个过程的！所以这很强烈的意味着，需要用一个循环来
机房收费系统（四）-上下机总结
Brooks Lv
09-04 423
小感悟：     上下机是最后才完成的，之前一直感到很犯怵，不得不承认是让上下机给吓着了。原以为上下是最难处理的，完成了，才明白，和结账相比，上下机原来也不过如此。有时候，我们认为事情很难，很多时候是自己吓自己，其实事物本身并没有很难。相信自己，是最大的动力。 上机         上机涉及到三个表student表，online表，basicdate表，下面以表的先
机房收费-上下机流程图
鹏鹏2077
09-14 222
在敲完机房后自己又重新的看了看自己的上下机程序，根据代码的流程画了这两张流程图，在画完后思路就很清晰了，真的是画完流程图后就知道代码该怎么写了，但是前提也要有一些代码基础，自己在这方面还有好好学习。 还请各位多多指教。 ...
机房收费系统之上下机
你要十分努力，才能看起来毫不费力！
11-28 263
前言 上下机部分是机房收费系统的一个重要部分，需要捋清思路，逻辑要清楚。 上下机逻辑先来捋一下上下机的思路。上机：下机问题及重点代码： 上机部分：1.文本框如何锁定：locked 属性决定控件是否可以编辑；BackStyle属性指出label或shape背景样式是否透明。 2.label如何显示当前时间：通过如下代码实现 Private Sub Timer1_Timer() Label20.
C机房收费系统文档.docx
03-14
《C机房收费系统》是针对辽宁工程技术大学《C语言课程设计》的一项实践项目，旨在设计和实现一个机房收费管理软件。该系统的核心功能包括输入、计算、修改、查询和显示，全部基于Visual C++ 6.0开发。下面将详细阐述...
c语言编程机房收费管理系统.pdf
03-30
设计一个名为《机房收费管理系统》的应用，其主要任务是接收15名学生的信息，包括学号、班级、姓名和上下机时间，并根据上机时长计算费用。 **实验目的**： 1. 深入理解C语言的基本数据类型、语句、数组、函数、...
机房收费管理系统C程序设计报告.pdf
09-25
【机房收费管理系统C程序设计报告】 在计算机科学领域，机房收费管理系统是用于管理学生在机房使用电脑资源并计费的软件工具。本设计报告主要关注的是使用C++编程语言实现这样一个系统。报告中涉及到的核心知识点...
用pb软件编写机房管理系统
05-13
随着信息技术在管理上...这个机房管理系统主要结合了我校机房的实际，能够实现学生上下机登记、上机证的制作与注销、上机费用的缴纳与统计等功能。系统的人机对话界面友好、用户操作方便以及界面较多是本设计的特点。
机房管理系统数据库设计.doc
07-14
这些分析结果用于构建数据项和数据结构，如机房基本信息、计算机基本信息、学生基本信息、用户基本信息、充值基本信息、机房收费标准基本信息和上机过程基本信息。 总之，机房管理系统的数据库设计是一个复杂的过程...
pillow-10.4.0-pp39-pypy39_pp73-macosx_11_0_arm64.whl
07-27
基本介绍 名称与起源：Pillow，原名为PIL（Python Imaging Library），但PIL只支持Python 2版本。随着Python 3的普及，Pillow作为PIL的一个分支出现，兼容Python 3并提供更多的功能和改进。 主要功能：Pillow支持多种图像格式的打开、保存、显示以及基本的图像操作和处理，如裁剪、缩放、旋转、翻转、滤镜应用等。 跨平台性：Pillow库可以在不同的操作系统上运行，包括Windows、Linux和MacOS等。 主要功能模块 Pillow库包含多个功能模块，每个模块都提供了特定的图像处理功能。以下是一些常用的模块： Image：用于处理图像文件，提供打开、保存、调整大小、旋转、裁剪、滤镜等功能。 ImageDraw：提供在图像上绘制各种形状（如线条、矩形、圆形）和文本的功能。 ImageFont：用于加载和使用TrueType字体文件，以便在图像上绘制文本时设置字体样式、大小和颜色。 ImageFilter：提供各种滤镜效果，如模糊、锐化、边缘增强等，用于图像增强、特效处理和图像识别等应用。 ImageEnhance：用于调整图像的亮度、对比度、颜色饱和度等参数，使图像更加清晰、明亮或具有特定的调色效果。 高级功能 除了基本的图像处理功能外，Pillow还支持一些高级功能，如色彩空间转换、直方图均衡化等。这些功能可以帮助用户进行更复杂的图像处理和分析。
avif-0.5.0-cp35-cp35m-macosx_10_9_x86_64.whl
07-27
python库，可以直接安装使用，再也不怕自己pip下载，出现等待超时的现象。欢迎下载使用，使用过程中如有使用问题，请及时与我沟通交流，帮你解决！ python库，可以直接安装使用，再也不怕自己pip下载，出现等待超时的现象。欢迎下载使用，使用过程中如有使用问题，请及时与我沟通交流，帮你解决！ python库，可以直接安装使用，再也不怕自己pip下载，出现等待超时的现象。欢迎下载使用，使用过程中如有使用问题，请及时与我沟通交流，帮你解决！ python库，可以直接安装使用，再也不怕自己pip下载，出现等待超时的现象。欢迎下载使用，使用过程中如有使用问题，请及时与我沟通交流，帮你解决！ python库，可以直接安装使用，再也不怕自己pip下载，出现等待超时的现象。欢迎下载使用，使用过程中如有使用问题，请及时与我沟通交流，帮你解决！
pillow-10.4.0-cp39-cp39-musllinux_1_2_x86_64.whl
07-27
基本介绍 名称与起源：Pillow，原名为PIL（Python Imaging Library），但PIL只支持Python 2版本。随着Python 3的普及，Pillow作为PIL的一个分支出现，兼容Python 3并提供更多的功能和改进。 主要功能：Pillow支持多种图像格式的打开、保存、显示以及基本的图像操作和处理，如裁剪、缩放、旋转、翻转、滤镜应用等。 跨平台性：Pillow库可以在不同的操作系统上运行，包括Windows、Linux和MacOS等。 主要功能模块 Pillow库包含多个功能模块，每个模块都提供了特定的图像处理功能。以下是一些常用的模块： Image：用于处理图像文件，提供打开、保存、调整大小、旋转、裁剪、滤镜等功能。 ImageDraw：提供在图像上绘制各种形状（如线条、矩形、圆形）和文本的功能。 ImageFont：用于加载和使用TrueType字体文件，以便在图像上绘制文本时设置字体样式、大小和颜色。 ImageFilter：提供各种滤镜效果，如模糊、锐化、边缘增强等，用于图像增强、特效处理和图像识别等应用。 ImageEnhance：用于调整图像的亮度、对比度、颜色饱和度等参数，使图像更加清晰、明亮或具有特定的调色效果。 高级功能 除了基本的图像处理功能外，Pillow还支持一些高级功能，如色彩空间转换、直方图均衡化等。这些功能可以帮助用户进行更复杂的图像处理和分析。
1250KVA本体基础图11
最新发布
07-27
1250KVA本体基础图11
机房收费系统--层次图
11-05
机房收费系统的层次图是一种展示系统结构的图形化工具，它将系统分解为多个层次，每个层次都有其特定的功能和职责。通常，机房收费系统的层次图包括三个层次：表示用户界面的表示层、表示业务逻辑的业务层和表示数据...
评论 28
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

杨幂等

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值