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小神
215 1
呆呆敲代码的小Y
|
编解码 安全 网络协议
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
呆呆敲代码的小Y
1323 1
实测：游戏情景中，远控软件实力如何？一篇告诉你ToDesk的强大之处
行者武松
|
网络安全
堡垒跳板机实现——整体架构
行者武松
2217 0
游客4lcprux5a6gri
|
4月前
|
存储 监控 安全
全国产化十二导联心电图机
十二导联心电图机是医疗设备，通过十二个电极接触患者体表，同步采集心电信号，经滤波处理获得高质量心电图。广泛应用于医院、体检中心及家庭，支持心脏疾病诊断与监测。本机具备高保真ECG采样、强抗干扰能力及24小时连续监测等功能，支持蓝牙或USB实时传输数据，内置算法辅助医生快速判断病情，重要数据可云端存储。符合多项国际安全标准，确保设备稳定可靠。
游客4lcprux5a6gri
43 0
宁在春
|
7月前
你给你的Typore配置图床了吗？没有的话，就来看Typora配置图床吧！！！放心不用付费滴！！
你给你的Typore配置图床了吗？没有的话，就来看Typora配置图床吧！！！放心不用付费滴！！
宁在春
77 2
耀骑士
|
搜索推荐 定位技术 数据安全/隐私保护
实用至上！分享5款冷门的WIN10软件
除了常见的软件，还有很多非常实用的软件，今天我要向大家推荐5款冷门但非常实用的WIN10软件。
耀骑士
148 0
实用至上！分享5款冷门的WIN10软件
羽林君
|
传感器 监控 机器人
关于现目前扫地机器中高端技术的个人思考
关于现目前扫地机器中高端技术的个人思考
羽林君
129 0
关于现目前扫地机器中高端技术的个人思考
阿提说说No.1
|
定位技术 SEO
【号外】-网站时光机
有些东西也只能留在时光机中了
阿提说说No.1
1102 0
【号外】-网站时光机
gnlyce7nos3ko
|
Windows
对学生机使用的浅浅反馈
我是来自某学校新媒体小白张同学，我是大二的学生。老师推荐了使用阿里云学生机，并且教我们在阿里云的esc云服务器搭建了windows系统。首先阿里云推出的飞天加速计划以一个十分优惠的价格帮助我们高校学子以低价格获得了宝贵的使用云服务器的机会，为我们的新媒体学习搭建了宝贵的平台。
gnlyce7nos3ko
187 0
玄学酱
|
传感器 监控 算法
不用羡慕BAT，自己手工也能搭建伪基站监控系统
本文讲的是不用羡慕BAT，自己手工也能搭建伪基站监控系统，编者按：伪基站是个很烦人的东西。基于海量移动终端用户，近两年BAT3在国内搭建了强大的伪基站监控系统，在打击犯罪上贡献不少。这篇文章中，作者将介绍一套可手工搭建的伪基站监控系统，跟着来做你也能做成。
玄学酱
2534 0

热门文章

最新文章

  • 1
    使用MaxCompute访问TableStore（OTS） 简明手册
  • 2
    阿里巴巴NACOS（6）- 在k8s上部署Nacos
  • 3
    ZooKeeper和Diamond有什么不同
  • 4
    Java || 线程 || 大一新生 || 一篇synchronized锁的知识点总结
  • 5
    MobPush精准把握用户的使用时间
  • 6
    SQL Server技术问题之视图优缺点
  • 7
    2.4 文件管理命令
  • 8
    一个用户下的表的权限给另一个用户
  • 9
    招商银行公布2017年中期业绩，定位“金融科技”是下半场“核动力”
  • 10
    Flask-Bootstrap
  • 1
    活动实践 | 自建数据库迁移到云数据库
    55
  • 2
    《C++ 与 JavaScript 携手：前端人工智能的创新融合之道》
    38
  • 3
    《以 C++为笔，绘就手势识别人机交互新画卷》
    42
  • 4
    通义灵码在金融与教育领域的应用
    42
  • 5
    jar包目录介绍
    43
  • 6
    「Mac畅玩鸿蒙与硬件37」UI互动应用篇14 - 随机颜色变化器
    50
  • 7
    简单粗暴的正则表达式笔记
    45
  • 8
    「Mac畅玩鸿蒙与硬件36」UI互动应用篇13 - 数字滚动抽奖器
    49
  • 9
    AnchorCrafter：中科院联合腾讯推出的AI虚拟主播带货视频制作技术
    70
  • 10
    MVGenMaster：复旦联合阿里等实验室推出的多视图扩散模型
    49

    • 相关课程

    更多
  • 线上Linux服务器优化经验
  • 网络安全攻防 - Web渗透测试
  • 阿里小蜜中的机器阅读技术
  • 场景实践 -新手玩转云计算制作一个浪漫的表白网页
  • 软件供应商发布服务实操
  • 跨越N次元 一键变身AI漫画人

    • 相关电子书

    更多
  • 一起来试验保险箱的脆弱面
  • 一起来试验 保险箱的脆弱面
  • PHP安全开发:从白帽角度做安全

    • 相关实验场景

    更多
  • 基于函数计算一键部署掌上游戏机
  • 一键创建和部署高分电影推荐语音技能
  • 搭建简易多人在线视频会议系统
    • 下一篇
    阿里云无影云电脑免费试用，最长可试用3个月