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

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

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

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


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小神
|
7月前
|
域名解析 关系型数据库 MySQL
怎样用自己电脑搭建网络服务器！不花一分钱
怎样用自己电脑搭建网络服务器！不花一分钱
1024小神
212 1
呆呆敲代码的小Y
|
编解码 安全 网络协议
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
呆呆敲代码的小Y
1323 1
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
陌陌谣
|
6月前
|
监控 安全 BI
专注工作无干扰的上网行为管理软件推荐
在多干扰的网络环境中，WorkWin和StayFocusd、Cold Turkey等上网行为管理软件成为提升效率的利器。WorkWin提供远程控制、USB管理、权限控制及实时监控，确保企业高效安全运营；StayFocusd通过网页过滤助个人专注，生成工作报表优化时间；Cold Turkey则以强制限制功能和时间管理帮助用户抵制分心。这些工具旨在屏蔽干扰，提升工作和学习效果。
陌陌谣
72 0
君兮_
|
网络协议 应用服务中间件 数据库
当你出差在外时，怎样轻松访问远程访问企业局域网象过河ERP系统？
当你出差在外时，怎样轻松访问远程访问企业局域网象过河ERP系统？
君兮_
109 0
唐城子
|
关系型数据库 MySQL 数据库
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
唐城子
97 1
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 下
唐城子
|
存储 关系型数据库 MySQL
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
唐城子
105 0
竟现场打开电脑配置起了mysql数据库权限，令经理目瞪口呆 上
阿提说说No.1
|
定位技术 SEO
【号外】-网站时光机
有些东西也只能留在时光机中了
阿提说说No.1
1102 0
【号外】-网站时光机
gnlyce7nos3ko
|
Windows
对学生机使用的浅浅反馈
我是来自某学校新媒体小白张同学，我是大二的学生。老师推荐了使用阿里云学生机，并且教我们在阿里云的esc云服务器搭建了windows系统。首先阿里云推出的飞天加速计划以一个十分优惠的价格帮助我们高校学子以低价格获得了宝贵的使用云服务器的机会，为我们的新媒体学习搭建了宝贵的平台。
gnlyce7nos3ko
186 0
狼人2007
|
Linux
麻省理工学生令计算机系统升级不需重启
一个来自美国麻省理工学院的毕业生团体刚刚获得了10万美元创业竞赛奖金，他们名叫Ksplice的项目看上去非常有意思，可以让计算机用户安装软件更新，但继续保持系统运行而无需可怕的重新启动。以上所指软件更新甚至包括Linux的内核，Ksplice计划向软件供应商许可其技术。
狼人2007
735 0
技术小能手
你被这些网络迷题难倒过吗？
技术小能手
1303 0

热门文章

最新文章

  • 1
    使用MaxCompute访问TableStore（OTS） 简明手册
  • 2
    从超模转职成为程序媛是一种怎样的体验
  • 3
    阿里巴巴NACOS（6）- 在k8s上部署Nacos
  • 4
    将任意应用窗口置顶显示，这个工具太强了。
  • 5
    Wi-Fi物联网设备配网的N种方式
  • 6
    WCF分布式安全开发实践(8):消息安全模式之用户名身份验证:Message_UserName_WSHttpBinding
  • 7
    TechED2010与我（二）—— Windows Phone 7 Develop
  • 8
    华尔街认为Twitter出售毫无悬念 只是不会在今年发生
  • 9
    迂者趣事之——下错楼层
  • 10
    Unix Regex
  • 1
    检测指定TCP端口开放状态免费API接口教程
    22
  • 2
    Python 语言：强大、灵活与高效的编程之选
    27
  • 3
    发现一肉鸡接口，快来围攻啦~
    28
  • 4
    深入解析PID控制算法：从理论到实践的完整指南
    26
  • 5
    《C++ 模型训练之早停法：有效预防过拟合的关键策略》
    24
  • 6
    C++构建 GAN 模型：生成器与判别器平衡训练的关键秘籍
    22
  • 7
    通过matlab分别对比PSO,反向学习PSO,多策略改进反向学习PSO三种优化算法
    24
  • 8
    【C语言】宏定义详解
    22
  • 9
    【C语言】进程和线程详解
    17
  • 10
    【C语言】宏定义详解
    20

    • 相关课程

    更多
  • 线上Linux服务器优化经验
  • 网络安全攻防 - Web渗透测试
  • 阿里小蜜中的机器阅读技术
  • 软件用户使用服务及供应商进阶管理
  • 场景实践 -新手玩转云计算制作一个浪漫的表白网页

    • 相关电子书

    更多
  • 一起来试验保险箱的脆弱面
  • 一起来试验 保险箱的脆弱面
  • 移动虚拟化：360分身大师那些事

    • 相关实验场景

    更多
  • 基于函数计算一键部署掌上游戏机
  • 收银台的场景化界面实践
  • 重温童年的“五子棋”，赢取专属阿里云Serverless证书
  • 搭建简易多人在线视频会议系统
    • 下一篇
    阿里云无影云电脑免费试用，最长可试用3个月