AI 助理
备案控制台
开发者社区 数据库 文章 正文

第一次机房收费系统之下机

2023-07-26 94
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 第一次机房收费系统之下机

做下机的时候刚开始是一点思路都没有的，只是知道一个大概的框架，但是里面的细节比如说更新哪个表、删除哪个表，什么时候删除等，这些还是不是太明白。但是把想法体现在流程图上就会清晰很多。


96a65af9152412d1fcfd274bfc28df19_watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NTMwOTE1NQ==,size_16,color_FFFFFF,t_70.png


在这个窗体中涉及到的表有basicdata(进行单价对比)、lin表、online表、student表。


代码展示


在下机的过程中，首先判断卡号是否为空，是否已经上机


If txtCardNum.Text = "" Then '判断卡号是否为空
        MsgBox "请输入卡号上机", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    End If
    txtSQL = "select * from OnLine_info where cardno='" & txtCardNum.Text & "'"'连接上机表，判断段是否已经上机
    Set OnLine = ExecuteSQL(txtSQL, Msgtext)
    txtSQL = "select * from BasicData_info "
    Set bas = ExecuteSQL(txtSQL, Msgtext)
    txtSQL = "select * from student_info "
    Set stu = ExecuteSQL(txtSQL, Msgtext)
    If OnLine.EOF = True Then '?判断是否上机
        MsgBox "此卡号未上机", vbOKOnly + vbExclamation, "提示"

如果以上条件都满足的话，就开始正常下机了，在这个还要判断消费时间是否2分钟以上，在这里需要注意的是，比较时间的时候一定要直接连接数据库，不要直接写数字，如果数据库的值变了，相应的消费时间也会改变

a = MsgBox("确认要下机？", vbOKOnly + vbExclamation, "提示")
       If a = vbOK Then
            consumtime = DateDiff("n", Trim(OnLine!Date), Now) '计算消费时间
            txttime.Text = Val(consumtime)’消费时间的值赋给消费时间文本框
            If consumtime <= Val(bas!PrepareTime) Then '?判断有没有达到最低上机时间
                consum = 0
                consumptionAmount.Text = Val(consum)
                MsgBox "没有达到上机准备时间，不收取费用", vbOKOnly + vbExclamation, "提示"


更新数据库（online表、line 表）

txtSQL = "select * from Line_Info "
                Set line = ExecuteSQL(txtSQL, Msgtext)
                line.AddNew
                line.Fields(1) = Trim(txtCardNum.Text)
                line.Fields(2) = Trim(stu.Fields(1))
                line.Fields(3) = Trim(stu.Fields(2))
                line.Fields(4) = Trim(stu.Fields(4))
                line.Fields(5) = Trim(stu.Fields(3))
                line.Fields(6) = Trim(OnLine.Fields(6))
                line.Fields(7) = Trim(OnLine.Fields(7))
                line.Fields(8) = Format(Now(), "yyyy-MM-dd")
                line.Fields(9) = Format(Now(), "HH:mm:ss")
                line.Fields(10) = txttime.Text
                line.Fields(11) = consume
                line.Fields(12) = txtCash
                line.Fields(13) = "正常下机"
                line.Fields(14) = Environ("computername")
            line.Update
            txtSQL = "delete from Online_Info where cardno='" & txtCardNum.Text & "'"
            Set OnLine = ExecuteSQL(txtSQL, Msgtext)
            txtSQL = "select * from OnLine_info"
            Set OnLine = ExecuteSQL(txtSQL, Msgtext)
                OnlinePerson.Caption = OnLine.RecordCount  '显示上机人数
                OffDate.Text = Date
                OffTime.Text = Time
                MsgBox "下机完成", vbOKOnly + vbExclamation, "提示"


以上所有代码是上机未达到最低消费时间的，那么达到消费时间后需要判断是固定用户还是临时用户，在这里首先还是判断消费时间

If Val(consumtime) Mod Val(bas!unitTime) = 0 Then'如果消费时间为整小时数
                    t = Val(consumtime) / Val(bas!unitTime) '计算消费时间（单位为小时）
                Else
                    t = Val(consumtime) / Val(bas!unitTime) + 1'如果不满一小时按一小时算
                End If


判断是固定用户还是临时用户

txtSQL = "select * from student_info"
                 Set stu = ExecuteSQL(txtSQL, Msgtext)
                If Trim(stu!Type) = Trim("固定用户") Then
                    consume = t * bas.Fields(0) '计算消费金额
                    consumptionAmount.Text = Val(consume)
                 Else
                    consume = t * bas.Fields(1)
                    consumptionAmount.Text = Val(consume)
                End If
                txtCash = Val(stu!cash) - consume '计算剩余金额
                txtBalance.Text = Val(txtCash)


这些完成之后就更新数据库就好了，只不过这里需要多更新一个学生的表，其他的（line 表、online表跟上面更新的数据一样）

txtSQL = "update student_Info set cash=" & txtCash & " where cardno='" & txtCardNum.Text & "'"
                Set stu1 = ExecuteSQL(txtSQL, Msgtext)
                ‘把余额更新到学生表中


全部代码展示

Private Sub OffLine_Click() '下机
    Dim OnLine As ADODB.Recordset '
    Dim stu As ADODB.Recordset 
    Dim line As ADODB.Recordset 
    Dim bas As ADODB.Recordset
    Dim consum As String 
    Dim consumtime As String 
    Dim txtSQL As String
    Dim Msgtext As String
    Dim txtCash As Integer
    Dim stu1 As ADODB.Recordset
    If txtCardNum.Text = "" Then '判断卡号是否为空
        MsgBox "请输入卡号上机", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    End If
    txtSQL = "select * from OnLine_info where cardno='" & txtCardNum.Text & "'"
    Set OnLine = ExecuteSQL(txtSQL, Msgtext)
    txtSQL = "select * from BasicData_info "
    Set bas = ExecuteSQL(txtSQL, Msgtext)
    txtSQL = "select * from student_info "
    Set stu = ExecuteSQL(txtSQL, Msgtext)
    If OnLine.EOF = True Then '判断是否上机
        MsgBox "此卡号未上机", vbOKOnly + vbExclamation, "提示"
    Else
       a = MsgBox("确认要下机？", vbOKOnly + vbExclamation, "提示")
       If a = vbOK Then
            consumtime = DateDiff("n", Trim(OnLine!Date), Now) '计算消费时间
            txttime.Text = Val(consumtime)
            If consumtime <= Val(bas!PrepareTime) Then '判断有没有达到上机时间
                consum = 0
                consumptionAmount.Text = Val(consum)
                MsgBox "没有达到上机准备时间，不收取费用", vbOKOnly + vbExclamation, "提示"
                '更新数据库
                txtSQL = "select * from Line_Info "
                Set line = ExecuteSQL(txtSQL, Msgtext)
                line.AddNew
                line.Fields(1) = Trim(txtCardNum.Text)
                line.Fields(2) = Trim(stu.Fields(1))
                line.Fields(3) = Trim(stu.Fields(2))
                line.Fields(4) = Trim(stu.Fields(4))
                line.Fields(5) = Trim(stu.Fields(3))
                line.Fields(6) = Trim(OnLine.Fields(6))
                line.Fields(7) = Trim(OnLine.Fields(7))
                line.Fields(8) = Format(Now(), "yyyy-MM-dd")
                line.Fields(9) = Format(Now(), "HH:mm:ss")
                line.Fields(10) = txttime.Text
                line.Fields(11) = consume
                line.Fields(12) = txtCash
                line.Fields(13) = "正常下机"
                line.Fields(14) = Environ("computername")
            line.Update
            txtSQL = "delete from Online_Info where cardno='" & txtCardNum.Text & "'"
            Set OnLine = ExecuteSQL(txtSQL, Msgtext)
            txtSQL = "select * from OnLine_info"
            Set OnLine = ExecuteSQL(txtSQL, Msgtext)
                OnlinePerson.Caption = OnLine.RecordCount  '显示上机人数
                OffDate.Text = Date
                OffTime.Text = Time
                MsgBox "下机完成", vbOKOnly + vbExclamation, "???"
            Else
                If Val(consumtime) Mod Val(bas!unitTime) = 0 Then
                    t = Val(consumtime) / Val(bas!unitTime) '计算消费时间（单位为小时）
                Else
                    t = Val(consumtime) / Val(bas!unitTime) + 1
                End If
                '更新数据库
                 txtSQL = "select * from student_info"
                 Set stu = ExecuteSQL(txtSQL, Msgtext)
                If Trim(stu!Type) = Trim("固定用户") Then
                    consume = t * bas.Fields(0) '计算消费金额
                    consumptionAmount.Text = Val(consume)
                 Else
                    consume = t * bas.Fields(1)
                    consumptionAmount.Text = Val(consume)
                End If
                txtCash = Val(stu!cash) - consume '余额
                txtBalance.Text = Val(txtCash)
                '更新数据库
                txtSQL = "update student_Info set cash=" & txtCash & " where cardno='" & txtCardNum.Text & "'"
                Set stu1 = ExecuteSQL(txtSQL, Msgtext)
                txtSQL = "select * from Line_Info "
                Set line = ExecuteSQL(txtSQL, Msgtext)
                line.AddNew
                line.Fields(1) = Trim(txtCardNum.Text)
                line.Fields(2) = Trim(stu.Fields(1))
                line.Fields(3) = Trim(stu.Fields(2))
                line.Fields(4) = Trim(stu.Fields(4))
                line.Fields(5) = Trim(stu.Fields(3))
                line.Fields(6) = Trim(OnLine.Fields(6))
                line.Fields(7) = Trim(OnLine.Fields(7))
                line.Fields(8) = Format(Now(), "yyyy-MM-dd")
                line.Fields(9) = Format(Now(), "HH:mm:ss")
                line.Fields(10) = txttime.Text
                line.Fields(11) = consume
                line.Fields(12) = txtCash
                line.Fields(13) = "正常下机"
                line.Fields(14) = Environ("computername")
            line.Update
            txtSQL = "delete from Online_Info where cardno='" & txtCardNum.Text & "'"
            Set line = ExecuteSQL(txtSQL, Msgtext)
            txtSQL = "select * from OnLine_info"
            Set OnLine = ExecuteSQL(txtSQL, Msgtext)
             OnlinePerson.Caption = OnLine.RecordCount  '显示上机人数
            OffDate.Text = Date
            OffTime.Text = Time
            MsgBox "下机完成", vbOKOnly + vbExclamation, "提示"
            stu.Close
            OnLine.Close
      End If
      End If
      End If
End Sub

自我觉得代码有些冗余，如果有更好的写法，请大神们指点一二！！

文章标签：
数据库
谷艳爽faye
目录
相关文章
1024小神
|
3月前
|
域名解析 关系型数据库 MySQL
怎样用自己电脑搭建网络服务器！不花一分钱
怎样用自己电脑搭建网络服务器！不花一分钱
1024小神
105 1
呆呆敲代码的小Y
|
编解码 安全 网络协议
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
呆呆敲代码的小Y
1241 1
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
陌陌谣
|
2月前
|
监控 安全 BI
专注工作无干扰的上网行为管理软件推荐
在多干扰的网络环境中，WorkWin和StayFocusd、Cold Turkey等上网行为管理软件成为提升效率的利器。WorkWin提供远程控制、USB管理、权限控制及实时监控，确保企业高效安全运营；StayFocusd通过网页过滤助个人专注，生成工作报表优化时间；Cold Turkey则以强制限制功能和时间管理帮助用户抵制分心。这些工具旨在屏蔽干扰，提升工作和学习效果。
陌陌谣
51 0
江池俊
|
12月前
|
Ubuntu 安全 机器人
将你的计算机变身为果园守护者：与本地树莓派建立连结的乐趣探索！！
将你的计算机变身为果园守护者：与本地树莓派建立连结的乐趣探索！！
江池俊
71 0
唐城子
|
关系型数据库 MySQL 数据库
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
唐城子
83 1
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
-编程工程师-
|
BI 新制造 数据中心
重归服务器主航道，超聚变“山河”依旧、再上层楼
重归服务器主航道，超聚变“山河”依旧、再上层楼
-编程工程师-
143 0
唐城子
|
存储 关系型数据库 MySQL
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
唐城子
94 0
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
阿提说说No.1
|
定位技术 SEO
【号外】-网站时光机
有些东西也只能留在时光机中了
阿提说说No.1
996 0
【号外】-网站时光机
gnlyce7nos3ko
|
Windows
对学生机使用的浅浅反馈
我是来自某学校新媒体小白张同学，我是大二的学生。老师推荐了使用阿里云学生机，并且教我们在阿里云的esc云服务器搭建了windows系统。首先阿里云推出的飞天加速计划以一个十分优惠的价格帮助我们高校学子以低价格获得了宝贵的使用云服务器的机会，为我们的新媒体学习搭建了宝贵的平台。
gnlyce7nos3ko
169 0
开发者小达人
|
物联网 程序员 测试技术
厉害了我的“猿”！程序员手工建造波音 737 模拟驾驶舱，几乎模拟全部功能
厉害了我的“猿”！程序员手工建造波音 737 模拟驾驶舱，几乎模拟全部功能
开发者小达人
242 0
厉害了我的“猿”！程序员手工建造波音 737 模拟驾驶舱，几乎模拟全部功能

热门文章

最新文章

  • 1
    阿里云容器服务Ingress设置原IP透传
  • 2
    SpringCloud Alibaba 2021版 nacos 配置中心教程
  • 3
    深度学习模型训练痛点及解决方法
  • 4
    阿里HotFix2.0升级详解——技术运营小二畅谈热修复领域那些事
  • 5
    在SQL Server中创建用户角色及授权(使用SQL语句)
  • 6
    SAE急速部署
  • 7
    雅虎将于3月30日关闭在线存储服务
  • 8
    [JavaScript]两个JavaScript在线调试器
  • 9
    正则表达式Regex
  • 10
    WM Define Strategy for Open Storage(十五.2)
  • 1
    Linux：当极客灵魂遇上网络热梗，一场跨界“笑”果非凡的盛宴！🎉
    12
  • 2
    源社区的兴起：从“代码隐士”到Linux引领的“全球编程嘉年华”
    15
  • 3
    人工智能（AI）和区块链（Blockchain）结合
    13
  • 4
    Linux的诞生：Linus Torvalds的“惊天一敲”与Linux内核的“首秀”
    12
  • 5
    Unix：Linux的“逗趣祖师爷”与它的不凡传承
    8
  • 6
    Bagging应用场景
    9
  • 7
    人工智能在医疗健康领域的革命性影响
    9
  • 8
    网络防御的盾牌：揭秘网络安全漏洞与加密技术的博弈
    13
  • 9
    深度学习在自然语言处理中的应用与挑战
    9
  • 10
    Hive 插入大量数据
    12

    • 相关课程

    更多
  • 线上Linux服务器优化经验
  • 软件用户使用服务及供应商进阶管理
  • 机器阅读技术与应用
  • 阿里小蜜中的机器阅读技术
  • 【新人赛】工业蒸汽量预测建模算法代码开源分享合集
  • 软件供应商进阶管理实操

    • 相关电子书

    更多
  • 一起来试验保险箱的脆弱面
  • 一起来试验 保险箱的脆弱面
  • 钉钉小程序——为工作方式插上翅膀

    • 相关实验场景

    更多
  • 收银台的场景化界面实践
  • 重温童年的“五子棋”，赢取专属阿里云Serverless证书
  • 一键创建和部署高分电影推荐语音技能
  • 基于函数计算一键部署掌上游戏机
    • 下一篇
    通义千问API入门教程