机房收费系统总结之上下机

2024-08-26 23:08

本文主要是介绍机房收费系统总结之上下机,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!


一:上机:
 条件:1:卡号是否为空   2:卡号是否注册  3:卡号是否状态为正在使用(退卡的              学生不能再次上机的)4:余额不能为0,思路就是这样的,比较简单
             整体过程: 满足条件——添加online记录——更新student记录
 代码:

If kahao.Text = "" ThenMsgBox "请输入卡号"Exit Subkahao.SetFocuskahao.Text = ""
End Iftxtsql2 = "select * from online_info "Set mrc2 = ExecuteSQL(txtsql2, msgtext2)
If mrc2.EOF = False Thenv = Trim(mrc2!cardno)If v = Trim(kahao.Text) ThenMsgBox "该卡号已经上机", vbOKOnly + vbExclamation, "提示"Exit Subkahao.Text = ""kahao.SetFocusEnd If
End Iftxtsql = "select * from student_Info where cardno='" & kahao.Text & "'and status='正在使用'and cash<>0"Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.EOF = False Thenkahao.Text = mrc.Fields(0)txtstudentname.Text = mrc.Fields(2)txtsex.Text = mrc.Fields(4)txtdepartment.Text = mrc.Fields(3)txttype.Text = mrc.Fields(14)txtstudentno.Text = mrc.Fields(1)txtondate.Text = Datetxtontime.Text = Timemrc.Closetxtsql1 = "select * from Online_info "
'strInSQL = "insert into OnLine_Info values('" & kahao.Text & "','" & leixing.Text & "'," & xuehao.Text & "," & xingming.Text & "," & xibie.Text & ",'" & xingbie.Text & "','" & Date & "','" & Time & "','" & Winsock1.LocalHostName & "','" & Now & "')"
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)mrc1.AddNewmrc1.Fields(0) = Trim(kahao.Text)mrc1.Fields(1) = Trim(txttype.Text)mrc1.Fields(2) = Trim(txtstudentno.Text)mrc1.Fields(3) = Trim(txtstudentname.Text)mrc1.Fields(4) = Trim(txtdepartment.Text)mrc1.Fields(5) = Trim(txtsex.Text)mrc1.Fields(6) = Trim(Date)mrc1.Fields(7) = Trim(Time)mrc1.Fields(8) = Trim(Winsock1.LocalHostName)mrc1.Fields(9) = Trim(Now)mrc1.Updateshangjirenshu.Caption = mrc1.RecordCountmrc1.Close
ElseMsgBox "卡号不正确或者此卡已经退卡或者余额不足,请查看", vbOKOnly + vbExclamation, "上机"
End If


二:下机:
    (1)满足条件:1:卡号是否为空 2:卡号是否注册和是否正在上机
    (2)整体过程:满足条件——计算消费时间——计算消费金额——更新student表,更新online表,更新line表
    (3)消费时间和消费金额的计算:
  a=准备时间  b=至少上机时间  c=消费时间长于准备时间和至少上机时间
                   
    在准备时间里,是不收费的,也就是消费额是为0;在至少上机时间里面,收取消费金额是固定的,设为1;多余准备时间和至少上机时间里面,收取的金额是按照每小时消费60分钟来增加的,同时,在这个时间段里面,需要区分固定用户和临时用户。
    设消费时间为x,消费金额为y,则可以用下面的图来表示

      (4)代码:
If Testtxt(kahao.Text) = False ThenMsgBox "请输入卡号!", vbOKOnly + vbExclamation, "提示"kahao.Text = ""kahao.SetFocusExit Sub
End If'判断该卡号是否注册和状态是否正在使用Set mrc1 = New ADODB.Recordsettxtsql1 = "select * from student_Info where cardno='" & kahao.Text & "'and status='正在使用'"Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
If mrc1.EOF And mrc1.BOF ThenMsgBox "该卡号未注册!", vbOKOnly + vbExclamation, "提示"kahao.Text = ""kahao.SetFocusExit Sub
End If'判断该卡号是否上机Set mrc2 = New ADODB.Recordsettxtsql2 = "select * from OnLine_Info where cardno='" & kahao.Text & "'"Set mrc2 = ExecuteSQL(txtsql2, msgtext2)If mrc2.EOF And mrc2.BOF ThenMsgBox "该卡号没有上机!", vbOKOnly + vbExclamation, "提示"kahao.Text = ""kahao.SetFocusExit SubElsekahao.Text = Trim(mrc2.Fields(0))txttype.Text = Trim(mrc2.Fields(1))txtstudentno.Text = Trim(mrc2.Fields(2))txtstudentname.Text = Trim(mrc2.Fields(3))txtdepartment.Text = Trim(mrc2.Fields(4))txtsex.Text = Trim(mrc2.Fields(5))txtondate.Text = Trim(mrc2.Fields(6))txtontime.Text = Trim(mrc2.Fields(7))txtoffdate.Text = Datetxtofftime.Text = Time'计算消费时间StartTime = Format(mrc2.Fields(7), "hh:mm:ss")EndTime = Format(Time, "hh:mm:ss")txtconsumetime.Text = Format(Time, "hh:mm:ss")txtconsumetime.Text = DateDiff("n", Trim(StartTime), Trim(EndTime))'计算消费金额StrType = Trim(mrc1.Fields(14)) '获取用户类型,用于判断单位价格OldCash = Val(mrc1.Fields(7)) '获取用户余额'在basicdata表中获取基本数据txtsql3 = "select * from BasicData_Info "Set mrc3 = ExecuteSQL(txtsql3, msgtext3)leasttime = Trim(mrc3.Fields(3))preparetime = Trim(mrc3.Fields(4))If Val(Trim(txtconsumetime.Text)) < preparetime Thentxtcash = OldCashtxtconsume.Text = "0.0"End IfIf Val(Trim(txtconsumetime.Text)) <= (leasttime + preparetime) Thentxtconsume.Text = "1.0"txtcash.Text = OldCash - 1
ElseSelect Case StrTypeCase "固定用户"StrRate = Val(Trim(mrc3.Fields(0)))txtconsume.Text = 1 + Round(txtconsumetime.Text - leasttime - preparetime) / 60 * StrRatetxtcash.Text = OldCash - txtconsume.TextCase "临时用户"StrRate = Val(Trim(mrc3.Fields(1)))txtconsume.Text = 1 + Round((txtconsumetime.Text - leasttime - preparetime) / 60) * StrRatetxtcash.Text = OldCash - txtconsume.TextEnd SelectEnd If'更新student表
txtsql1 = "update student_Info set cash=" & txtcah & " where cardno='" & kahao.Text & "'"
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)'更新OnLine表
txtsql2 = "delete OnLine_Info where cardno='" & kahao.Text & "'"
Set mrc2 = ExecuteSQL(txtsql2, msgtext2)txtsql2 = "select * from OnLine_Info "
Set mrc2 = ExecuteSQL(txtsql2, msgtext2)
shangjirenshu.Caption = mrc2.RecordCount '获取新的上机人数
mrc2.Close'更新Line表
txtsql4 = "select * from Line_Info"
Set mrc4 = ExecuteSQL(txtsql4, msgtext4)
mrc4.AddNew
mrc4.Fields(1) = Trim(kahao.Text)
mrc4.Fields(2) = Trim(txtstudentno.Text)
mrc4.Fields(3) = Trim(txtstudentname.Text)
mrc4.Fields(4) = Trim(txtdepartment.Text)
mrc4.Fields(5) = Trim(txtsex.Text)
mrc4.Fields(6) = Trim(txtondate.Text)
mrc4.Fields(7) = Trim(txtontime.Text)
mrc4.Fields(8) = Trim(txtoffdate.Text)
mrc4.Fields(9) = Trim(txtofftime.Text)
mrc4.Fields(10) = Trim(txtconsumetime.Text)
mrc4.Fields(11) = Trim(txtconsume.Text)
mrc4.Fields(12) = Trim(Val(NewCash))
mrc4.Fields(13) = "正常下机"
mrc4.Fields(14) = Trim(Winsock1.LocalHostName)
mrc4.Update
mrc4.CloseMsgBox "下机成功", vbOKOnly + vbExclamation, "提示"Exit Sub
End IfEnd Sub


     就这样,上下机的问题解决啦!!!
     欢迎纠错!!!!!
  
   
 
        
 

这篇关于机房收费系统总结之上下机的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1109948

相关文章

HarmonyOS学习(七)——UI(五)常用布局总结

自适应布局 1.1、线性布局(LinearLayout) 通过线性容器Row和Column实现线性布局。Column容器内的子组件按照垂直方向排列,Row组件中的子组件按照水平方向排列。 属性说明space通过space参数设置主轴上子组件的间距,达到各子组件在排列上的等间距效果alignItems设置子组件在交叉轴上的对齐方式,且在各类尺寸屏幕上表现一致,其中交叉轴为垂直时,取值为Vert

不懂推荐算法也能设计推荐系统

本文以商业化应用推荐为例,告诉我们不懂推荐算法的产品,也能从产品侧出发, 设计出一款不错的推荐系统。 相信很多新手产品,看到算法二字,多是懵圈的。 什么排序算法、最短路径等都是相对传统的算法(注:传统是指科班出身的产品都会接触过)。但对于推荐算法,多数产品对着网上搜到的资源,都会无从下手。特别当某些推荐算法 和 “AI”扯上关系后,更是加大了理解的难度。 但,不了解推荐算法,就无法做推荐系

基于人工智能的图像分类系统

目录 引言项目背景环境准备 硬件要求软件安装与配置系统设计 系统架构关键技术代码示例 数据预处理模型训练模型预测应用场景结论 1. 引言 图像分类是计算机视觉中的一个重要任务,目标是自动识别图像中的对象类别。通过卷积神经网络(CNN)等深度学习技术,我们可以构建高效的图像分类系统,广泛应用于自动驾驶、医疗影像诊断、监控分析等领域。本文将介绍如何构建一个基于人工智能的图像分类系统,包括环境

水位雨量在线监测系统概述及应用介绍

在当今社会,随着科技的飞速发展,各种智能监测系统已成为保障公共安全、促进资源管理和环境保护的重要工具。其中,水位雨量在线监测系统作为自然灾害预警、水资源管理及水利工程运行的关键技术,其重要性不言而喻。 一、水位雨量在线监测系统的基本原理 水位雨量在线监测系统主要由数据采集单元、数据传输网络、数据处理中心及用户终端四大部分构成,形成了一个完整的闭环系统。 数据采集单元:这是系统的“眼睛”,

学习hash总结

2014/1/29/   最近刚开始学hash,名字很陌生,但是hash的思想却很熟悉,以前早就做过此类的题,但是不知道这就是hash思想而已,说白了hash就是一个映射,往往灵活利用数组的下标来实现算法,hash的作用:1、判重;2、统计次数;

嵌入式QT开发:构建高效智能的嵌入式系统

摘要: 本文深入探讨了嵌入式 QT 相关的各个方面。从 QT 框架的基础架构和核心概念出发,详细阐述了其在嵌入式环境中的优势与特点。文中分析了嵌入式 QT 的开发环境搭建过程,包括交叉编译工具链的配置等关键步骤。进一步探讨了嵌入式 QT 的界面设计与开发,涵盖了从基本控件的使用到复杂界面布局的构建。同时也深入研究了信号与槽机制在嵌入式系统中的应用,以及嵌入式 QT 与硬件设备的交互,包括输入输出设

JAVA智听未来一站式有声阅读平台听书系统小程序源码

智听未来,一站式有声阅读平台听书系统 🌟&nbsp;开篇:遇见未来,从“智听”开始 在这个快节奏的时代,你是否渴望在忙碌的间隙,找到一片属于自己的宁静角落?是否梦想着能随时随地,沉浸在知识的海洋,或是故事的奇幻世界里?今天,就让我带你一起探索“智听未来”——这一站式有声阅读平台听书系统,它正悄悄改变着我们的阅读方式,让未来触手可及! 📚&nbsp;第一站:海量资源,应有尽有 走进“智听

【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

伴随着区块链技术的不断完善,其在教育信息化中的应用也在持续发展。利用区块链数据共识、不可篡改的特性, 将与教育相关的数据要素在区块链上进行存证确权,在确保数据可信的前提下,促进教育的公平、透明、开放,为教育教学质量提升赋能,实现教育数据的安全共享、高等教育体系的智慧治理。 可信教育区块链治理系统的顶层治理架构由教育部、高校、企业、学生等多方角色共同参与建设、维护,支撑教育资源共享、教学质量评估、

软考系统规划与管理师考试证书含金量高吗?

2024年软考系统规划与管理师考试报名时间节点: 报名时间:2024年上半年软考将于3月中旬陆续开始报名 考试时间:上半年5月25日到28日,下半年11月9日到12日 分数线:所有科目成绩均须达到45分以上(包括45分)方可通过考试 成绩查询:可在“中国计算机技术职业资格网”上查询软考成绩 出成绩时间:预计在11月左右 证书领取时间:一般在考试成绩公布后3~4个月,各地领取时间有所不同

git使用的说明总结

Git使用说明 下载安装(下载地址) macOS: Git - Downloading macOS Windows: Git - Downloading Windows Linux/Unix: Git (git-scm.com) 创建新仓库 本地创建新仓库:创建新文件夹,进入文件夹目录,执行指令 git init ,用以创建新的git 克隆仓库 执行指令用以创建一个本地仓库的