机房收费——上下机

最新推荐文章于 2018-09-28 17:31:47 发布
最新推荐文章于 2018-09-28 17:31:47 发布
阅读量538 收藏
点赞数
分类专栏： 第三章 重构机房 文章标签： 机房收费
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hutuxiaomei/article/details/45598905
版权
上下机是机房的最主要的功能，在开始之前要先进行详尽的分析。
 上机：    
1、检查卡号的情况，包括输入是否正确、是否注册、是否正在上机等 
2、查看卡内余额是否还能满足学生上机的要求
3、上机后显示的基本信息和添加数据库中的上机信息
4、更改上机人数
  1. '#################################################################  
  2. '上机，将上机记录写入到上机记录表里  
  3. '#################################################################  
  4. Private Sub cmdOn_Click()  
  5.     Dim strSQL As String, strSQL2 As String, strSQL3 As String  
  6.     Dim strMsgText As String, strMsgText2 As String, strMsgText3 As String  
  7.     Dim objRst As ADODB.Recordset, objRst2 As ADODB.Recordset, objRst3 As ADODB.Recordset  
  8.       
  9.     '让下机日期和时间，消费时间和金额为空  
  10.     txtOutDate.Text = ""  
  11.     txtOutTime.Text = ""  
  12.     txtPayTime.Text = ""  
  13.     txtPayMoney.Text = ""  
  14.       
  15.     If txtCardNo.Text = "" Then  
  16.         '判断卡号是否为空  
  17.         MsgBox "请输入卡号！", vbOKOnly, "警告!"  
  18.         txtCardNo.SetFocus  
  19.         Exit Sub  
  20.     Else  
  21.         If Len(txtCardNo.Text) > 10 Then  
  22.             '判断输入卡号是否超过设定的长度，防止出错  
  23.             MsgBox "卡号过长，请输入长度<10的卡号", vbOKOnly, "警告!"  
  24.             txtCardNo.SetFocus  
  25.             Exit Sub  
  26.         End If  
  27.         '查询数据库里学生基本信息表  
  28.         Set objRst = New ADODB.Recordset  
  29.         strSQL = "select * from student_Info where cardNo='" & Trim(txtCardNo.Text) & "'"  
  30.         Set objRst = ExecuteSQL(strSQL, strMsgText)  
  31.         If objRst.BOF And objRst.EOF Then  
  32.             '判读该卡号是否存在  
  33.             MsgBox "该卡号未注册!", vbOKOnly, "警告!"  
  34.             txtCardNo.Text = ""  
  35.             txtCardNo.SetFocus  
  36.             Exit Sub  
  37.         Else  
  38.             '判断余额是否充足  
  39.             If objRst.Fields(3) < GetLeastMoney() Then  
  40.                 MsgBox "余额只有" & objRst.Fields(3) & ",少于最少金额，请先充值！", vbOKOnly, "警告!"  
  41.                 Exit Sub  
  42.             Else  
  43.               
  44.                 '判断该卡号是否正在上机  
  45.                 Set objRst3 = New ADODB.Recordset  
  46.                 strSQL3 = "select * from online_Info where cardNo='" & Trim(txtCardNo.Text) & "' and outDate is null"  
  47.                 Set objRst3 = ExecuteSQL(strSQL3, strMsgText3)  
  48.                 If Not (objRst3.BOF And objRst3.EOF) Then  
  49.                     Label1.Caption = "该卡正在上机!"  
  50.                     txtCardNo.SetFocus  
  51.                     Exit Sub  
  52.                 Else  
  53.                   
  54.                     '显示该卡号的一些基本信息  
  55.                     txtStudentNo.Text = checkField(objRst.Fields(0))  
  56.                     txtDepartment.Text = checkField(objRst.Fields(4))  
  57.                     txtType.Text = checkField(objRst.Fields(14))  
  58.                     txtStudentName.Text = checkField(objRst.Fields(1))  
  59.                     txtSex.Text = checkField(objRst.Fields(7))  
  60.                     txtOnDate.Text = Date  
  61.                     'onTime = Time  
  62.                     txtOnTime.Text = Time  
  63.                     txtAllCash.Text = checkField(objRst.Fields(3))  
  64.               
  65.                     '将上机前的余额提出来，用于下机时计算余额  
  66.                     'curAllCash = checkField(objRst.Fields(3))  
  67.                     Label1.Caption = "欢迎光临！"  
  68.               
  69.                     '将该卡上机的信息填入到online_Info表里  
  70.                     Set objRst2 = New ADODB.Recordset  
  71.                     strSQL2 = "select * from online_Info "  
  72.                     Set objRst2 = ExecuteSQL(strSQL2, strMsgText2)  
  73.                     'objRst2.MoveLast  
  74.                     objRst2.AddNew  
  75.                     objRst2.Fields(0) = txtCardNo.Text  
  76.                     objRst2.Fields(1) = txtStudentName.Text  
  77.                     objRst2.Fields(2) = Date  
  78.                     objRst2.Fields(3) = Time  
  79.                     objRst2.Fields(4) = Null  
  80.                     objRst2.Fields(5) = Null  
  81.                     objRst2.Update  
  82.                     '查询此时正在上机的人数。（可以直接加1）  
  83.                     lblPeopleCount.Caption = GetPeopleCount()  
  84.                     PeopleCount = GetPeopleCount()   '保存正在上机的人数  
  85.                     objRst2.Close  
  86.               
  87.                     objRst.Close  
  88.                 End If  
  89.             End If  
  90.         End If  
  91.     End If  
  92.       
  93.               
  94.           
  95. End Sub  

下机：
1、检查输入卡号的情况（输入是否正确、是否注册、是否正在上机）
2、显示下机信息，将下机信息添加到数据库中
3、计算下机时间、下机消耗的金额
4、更新数据库中的相关信息
  1. 下机,计算余额，将余额写入学生信息表里，和上机信息表里  
  2. '#####################################################################  
  3. Private Sub cmdOff_Click()  
  4.   
  5.     Dim strSQL As String, strSQL2 As String, strSQL3 As String  
  6.     Dim strMsgText As String, strMsgText2 As String, strMsgText3 As String  
  7.     Dim objRst As ADODB.Recordset, objRst2 As ADODB.Recordset, objRst3 As ADODB.Recordset  
  8.     Dim intTime As Single  
  9.     Dim fixedRate As Single  
  10.     Dim AllMoney As Currency  
  11.     Dim pay As Currency  
  12.   
  13.   
  14.     If txtCardNo.Text = "" Then  
  15.         '判断卡号是否为空  
  16.         MsgBox "请输入卡号！", vbOKOnly, "警告!"  
  17.         txtCardNo.SetFocus  
  18.         Exit Sub  
  19.     Else  
  20.         If Len(txtCardNo.Text) > 10 Then  
  21.             '判断输入卡号是否超过设定的长度，防止出错  
  22.             MsgBox "卡号过长，请输入长度<10的卡号", vbOKOnly, "警告!"  
  23.             txtCardNo.SetFocus  
  24.             Exit Sub  
  25.         End If  
  26.     End If  
  27.     Set objRst = New ADODB.Recordset  
  28.     strSQL = "select * from student_Info where cardNo='" & Trim(txtCardNo.Text) & "'"  
  29.     Set objRst = ExecuteSQL(strSQL, strMsgText)  
  30.     If objRst.BOF And objRst.EOF Then  
  31.         '判读该卡号是否存在  
  32.         MsgBox "该卡号未注册!", vbOKOnly, "警告!"  
  33.         txtCardNo.Text = ""  
  34.         txtCardNo.SetFocus  
  35.         Exit Sub  
  36.           
  37.     End If  
  38.     objRst.Close  
  39.     strSQL = ""  
  40.     strMsgText = ""  
  41.       
  42.       
  43.       
  44.     Set objRst = New ADODB.Recordset  
  45.     strSQL = "select * from online_Info where cardno='" & Trim(txtCardNo.Text) & "' and outDate is null "  
  46.     Set objRst = ExecuteSQL(strSQL, strMsgText)  
  47.     If objRst.BOF And objRst.EOF Then  
  48.         '判断该卡是否正在上机  
  49.         Label1.Caption = "该卡没有上机！"  
  50.         txtCardNo.SetFocus  
  51.         Exit Sub  
  52.     Else  
  53.         '显示下机的一些信息  
  54.         txtOutDate.Text = Date  
  55.         outTime = Time  
  56.         txtOutTime.Text = outTime  
  57.           
  58.         onTime = CDate(Format(objRst.Fields("onTime"), "hh:mm:ss"))  
  59.       
  60.         txtCardNo.Text = checkField(objRst.Fields("cardNo"))  
  61.         txtStudentName.Text = checkField(objRst.Fields("studentName"))  
  62.         txtOnDate.Text = checkField(objRst.Fields("onDate"))  
  63.         txtOnTime.Text = checkField(objRst.Fields("onTime"))  
  64.           
  65.         Set objRst3 = New ADODB.Recordset  
  66.         strSQL3 = "select * from student_Info where cardNo='" & txtCardNo.Text & "'"  
  67.         Set objRst3 = ExecuteSQL(strSQL3, strMsgText3)  
  68.         txtStudentNo.Text = objRst3.Fields("studentNo")  
  69.         txtDepartment.Text = objRst3.Fields("department")  
  70.         txtSex.Text = objRst3.Fields("sex")  
  71.         txtType.Text = "固定用户"  
  72.           
  73.         '删除该记录，将此时信息填入online_Info表里  
  74.         objRst.Delete  
  75.         objRst.AddNew  
  76.         objRst.Fields(0) = txtCardNo.Text  
  77.         objRst.Fields(1) = txtStudentName.Text  
  78.         objRst.Fields(2) = txtOnDate.Text  
  79.         objRst.Fields("onTime") = txtOnTime.Text  
  80.         objRst.Fields(4) = txtOutDate.Text  
  81.         objRst.Fields("outTime") = txtOutTime.Text  
  82.         objRst.Fields(9) = "正常下机"  
  83.         'intTime = Val(txtOutTime.Text - txtOnTime.Text)  
  84.           
  85.         '计算上机的时间  
  86.         intTime = (outTime - onTime) * 24 * 2  
  87.                   
  88.          Set objRst2 = New ADODB.Recordset  
  89.          strSQL2 = "select * from basicDate_Info "  
  90.          Set objRst2 = ExecuteSQL(strSQL2, strMsgText2)  
  91.          '查询固定用户30分钟的费用  
  92.          fixedRate = Val(objRst2.Fields(0))  
  93.          If intTime < (GetPreparTime() / 30) Then  
  94.              '判断上机时间是否超过了准备时间，没超过则花费为0  
  95.              objRst.Fields("pay") = 0  
  96.              objRst.Fields("allCash") = GetAllMoney(txtCardNo.Text)  
  97.          Else  
  98.              If intTime <= (GetLeastTime() / 30) Then  
  99.                  '判断上机时间是否超过半个小时，没则当成已经上了30分钟  
  100.                  objRst.Fields("pay") = fixedRate  
  101.                  AllMoney = GetAllMoney(txtCardNo.Text) - fixedRate  
  102.                  objRst.Fields("allCash") = AllMoney     '将余额写入上机记录表里  
  103.                  WriteAllMoney txtCardNo.Text, AllMoney  '将余额写入学生基本信息表里  
  104.              Else  
  105.                  If intTime > Int(intTime) Then  
  106.                      intTime = Int(intTime) + 1  
  107.                  Else  
  108.                      intTime = Int(intTime)  
  109.                  End If  
  110.                  pay = fixedRate * intTime  
  111.                  objRst.Fields("pay") = pay  
  112.                  AllMoney = GetAllMoney(txtCardNo.Text) - pay  
  113.                  objRst.Fields("allCash") = AllMoney    '将余额写入上机记录表里  
  114.                  WriteAllMoney txtCardNo.Text, AllMoney  '将余额写入学生基本信息表里  
  115.              End If  
  116.          End If  
  117.            
  118.          '显示消费的时间金额，和余额  
  119.          txtPayTime.Text = Format(outTime - onTime, "hh-mm-ss")  
  120.          txtPayMoney.Text = objRst.Fields(6)  
  121.          txtAllCash.Text = GetAllMoney(txtCardNo.Text)     '- objRst.Fields(6)  
  122.          Label1.Caption = "欢迎下次再来!"  
  123.            
  124.          objRst.Fields(7) = txtAllCash.Text    '将余额写到online_Info表里  
  125.            
  126.          lblPeopleCount.Caption = GetPeopleCount()  '显示正在上机人数  
  127.          PeopleCount = GetPeopleCount()  
  128.          objRst.Update  
  129.           
  130.          objRst.Close  
  131.          objRst2.Close  
  132.          objRst3.Close  
  133.            
  134.     End If  
  135.       
  136.           
  137. End Sub  
以上就是我对机房上下机的理解，望大神指教哦！
u013046591
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
专栏目录
机房收费系统——上下机操作
人生苦短，我用Python
08-20 943
按照顺序来讲到网吧的顾客，分为两种一是办卡充钱的会员，一种是交钱上网的临时用户。充完钱之后，一般用户（网管）就需要对顾客进行上机来记录时间，下机时进行收费。 上机：上机过程比较简单，涉及数据库中的三张表：online_info 、student_info、basicdata_info       上机的判断过程如下：1.从student表中判断卡号是否存在、此卡状态是否使用
VB机房收费系统06——上下机
我能在河边钓一整天的鱼
01-08 436
上机 上机流程图 这里个人觉得就是数据表的增删改查，没有思路的看官可以参考我的全码 '上机 Private Sub cmdonline_Click(Index As Integer)     Dim mrc As adodb.Recordset     Dim txtsql As String     Dim msgtext As String            
机房收费系统——下机
Nikita
09-21 427
前言 下机在机房中是比较难的，也不能说难，在搞懂逻辑之前只能说迷糊，搞懂以后你绝对就不说难了。其中也遇到了很多问题，比如时间格式的转化，这么多表到底该删除哪个，更新哪个。不过已经被我一一的解决了，流程图真的是个好工具！其中，对于上机表的删除和下机表的更新可以使用触发器实现，在优化中在继续研究！ 代码片段 Private Sub cmdOffline_Click() Dim txtSQL ...
机房收费系统——上下机
好学若饥，谦卑若愚
08-10 1469
自学生管理系统以后，进入了机房收费系统，开始自己真的很抵触这个东西，因为没有源码，只能靠自己了。对代码没有亲和力的我，只能硬着头皮硬闯。下面看看就讲讲我的上下机的辛酸路吧！ 【分析】    界面：很简单，只有两个简单的Command命令按钮掌控着上下机。    功能：上机时，窗体显示该学生的基本信息；下机时，更新学生卡里的余额。计算消费情况。上下机时及时更新上机人数。    需求：用到的数
第一次机房收费系统——上下机
好吃的爆米花
09-28 488
前言：上下机的核心操作：上机就是将数据从student表中写入到online表中，然后并在line表中写上一部分的内容，而下机的时候就是计算好时间和消费金额，然后写入到line表中，删除online的内容，并且将金额同步到student表中， 主要流程 注意：我在下机表中添加了日期和Userid这一列，为了在结账的时候更方便计算。 上机 注意： 因为我一开始没有领悟那么深，所以我在下机的时候...
机房收费系统VB版（四）——上下机
幸运的梦之星
09-18 1567
在敲系统的过程中，觉得有点困难的是上下机和结账。当理不清关系，没有头绪的时候，我们先画画图吧，把逻辑理清了，思路自然就有了，不会的再去查就可以了。今天我们就先来分析一下所谓的上下机。     一、上机     上机流程图：     解释说明：    （1）判断文本框的内容是否为空，是否为数字，“否”则弹出提示框；    （2）若文本框为数字，判断卡号是否注册，“否”则弹出提示框
机房收费——数据库
韩丽萍
04-10 819
数据库让我头疼了好几天，主要是项目开始前没有规划好想要怎么弄。之前的想法是，结账是让固定用户充值的钱减去固定用户退卡的钱，加上临时用户消费的钱。这个算法的前提是临时用户不能充值和退卡。临时用户下机等于退卡，把卡表里的记录删掉。但是问题来了，算临时用户消费的钱的时候要联合卡表和上下机表，这两张表是有主外键约束的，卡表的记录删掉的话，就会报错。理思路到底要怎么算钱？不让临时用户充值和退卡好像不太合理？临
机房收费——“上下机”还原生活
程序媛一枚
09-07 757
机房收费系统是做来给机房用的，对于结账这一块，根据师傅给我验收时提出的几个问题，再加上自己对系统的认识，来一个总结。
机房重构——上下机算法巧用抽象模式
你看到的逆袭，只不过是一场预备很久，草蛇灰线，伏笔千里的反攻
03-20 904
遇到算法的时候我们理应想到的是策略模式，但是如果在根据具体的情况加以分析，可能会有更适合的模式。 从策略模式想到抽象工厂用的时间不长，但是如何策划类与类之间的关系，之间如何进行传参数，我用了很长的时间，看来对于设计模式而言，不仅仅是适用的场景，我们也要更加注重设计模式类之间的关系！
概要设计说明书——机房收费系统
12-18
《机房收费系统概要设计说明书》是一份关键的技术文档，它在软件开发过程中起着承上启下的作用，连接了需求分析与详细设计阶段。本文将深入解析这份设计说明书中的核心内容，以便理解机房收费系统的设计思路和架构。...
VB机房收费系统
07-19
VB机房收费系统是一款基于Visual Basic (VB)编程语言开发的计算机机房管理软件，主要用于对学校、网吧等场所的计费管理。该系统旨在提高机房管理效率，实现自动化计时计费，减少人为错误，并提供详尽的消费记录和...
vb版机房收费系统
09-13
【VB版机房收费系统】是一款基于Visual Basic（VB）编程语言开发的计算机机房管理软件，主要用于管理和计费在机房中使用计算机资源的活动。这个系统旨在提高机房运营效率，确保公平、准确地计算用户的使用时间，并...
C语言Windows程序设计 机房收费管理系统源码
02-01
在VS2013环境下，编写的C语言Windows程序设计，机房收费管理系统。代码仅仅使用C语言调用Windows API函数和MYSQL数据库专用库文件编写。有C语言基础的，简单易懂。代码没有优化，思路很清晰。没有省略的代码，我都...
JSP+SQL机房收费管理系统
04-09
《JSP+SQL机房收费管理系统详解》 在信息技术飞速发展的今天，机房的管理已经成为教育机构不可或缺的一部分。为了高效、精准地进行机房资源的分配与计费，一个完善的机房收费管理系统显得尤为重要。本文将深入探讨...
无法直接启动带有“类库输出类型”的项目
u013046591的博客
04-29 5049
无法直接启动带有“类库输出类型”的项目 其实说白了，就是你启动项没了，在UI层右击，设置未启动项就可以了。
无法打开模块文件“C:\.NETFramework,Version=v4.5.AssemblyAttributes.vb”: 系统找不到指定的文件。
u013046591的博客
03-27 4607
今天打开vs决定敲会代码，结果问题出现了。错误 1 无法打开模块文件“C:\Users\chun\AppData\Local\Temp\.NETFramework,Version=v4.5.AssemblyAttributes.vb”: 系统找不到指定的文件。 有问题就解决呗，脑洞大开，分析中。 1、代码是没问题的，因为我昨天敲完还运行了。 2、找我的内部模块少没少，别是那个没给我加载
机房收费——配置文件
u013046591的博客
05-01 1420
敲完了三层，好不容易适应了一个模式，就又改了七层，带着三层的习惯，伴着七层的热情，我就开始敲啊。 那么， 问题来了，三层时我的数据库连接，写在D层，那么我七层怎么办，总不能个个写吧？ 想不通就问吧，可能大家都比较忙，人爱搭不惜理的说：该配置文件啊。 啊，配置文件，这是嘛？咱不知道啊！可脸皮薄也不好意思问，就差把。 配置文件是什么？ 用户配置文件就是在用户登录电脑时，或是用户在使用软件时，
机房收费系统——三层
u013046591的博客
04-07 610
这是一个终将过去的坎，看看代码，找找感觉，过去也不是那么的难。
评论 8
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值