机房收费系统---上、下机

最新推荐文章于 2018-11-10 10:20:56 发布
最新推荐文章于 2018-11-10 10:20:56 发布
阅读量634 收藏 1
点赞数
文章标签： 机房收费系统 上机 下机
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/tgbyn/article/details/53055989
版权

前言：

       今天无意之中不小心点了一下，竟然出来的是机房收费系统。然后又仔细一想，自己的机房收费系统都没怎么好好总结过，只是单纯的把项目过了，然而想着总结，结果拖延症犯了，越拖越久，然后就忘记这么一回事了。

内容：

上机：

（1）上机思路：

 


 Dim txtSQL As String
    Dim mrc As ADODB.Recordset   'mrc是一个字符串数组,student表。
    Dim MsgText As String
    Dim mrc1 As ADODB.Recordset    'BasicData表
    Dim mrc2 As ADODB.Recordset    'Online表
    Dim mrc3 As ADODB.Recordset    'line表

    If Trim(txtCardNo.Text) = "" Then
         MsgBox "请输入卡号!", vbOKOnly + vbExclamation, "警告"
         txtCardNo.SetFocus
         Exit Sub
    Else
    
    If Not IsNumeric(Trim(txtCardNo)) Then
      MsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"
      txtCardNo.SetFocus
      txtCardNo.Text = ""
      Exit Sub
    Else
    
     txtSQL = "select * from student_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
     Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
        MsgBox "卡号不存在或未被注册！", vbOKOnly + vbExclamation, "警告"
        txtCardNo.SetFocus
        txtCardNo.Text = ""
        Exit Sub
    Else
      txtSQL = "select * from BasicData_Info "
      Set mrc1 = ExecuteSQL(txtSQL, MsgText)
      If Val(mrc.Fields(7)) < Val(mrc1.Fields(5)) Then
         MsgBox "余额只有" & mrc.Fields(7) & ",少于最低金额，请先充值！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
   
      txtSQL = "select * from Online_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
      Set mrc2 = ExecuteSQL(txtSQL, MsgText)
        
    If mrc2.EOF = False And mrc2.BOF = False Then
      MsgBox "此卡正在上机，不能重复上机！!", vbOKOnly + vbExclamation, "警告"
      txtCardNo.SetFocus
      
      Exit Sub
    Else
    
    lblType.Text = Trim(mrc.Fields(14))
    lblSID.Text = Trim(mrc.Fields(1))
    lblName.Text = Trim(mrc.Fields(2))
    lblDept.Text = Trim(mrc.Fields(4))
    lblSex.Text = Trim(mrc.Fields(3))
    lblOnDate.Text = Date
    lblOnTime.Text = Time
    
    '将上机前的余额，提取出来，用于下机的计算
    lblBaLance.Text = Trim(mrc.Fields(7))
    
    txtSQL = "select * from OnLine_Info "
    Set mrc2 = ExecuteSQL(txtSQL, MsgText)
    
    mrc2.AddNew
    mrc2.Fields(0) = Trim(txtCardNo.Text)
    mrc2.Fields(1) = Trim(lblType.Text)
    mrc2.Fields(2) = Trim(lblSID.Text)
    mrc2.Fields(3) = Trim(lblName.Text)
    mrc2.Fields(4) = Trim(lblDept.Text)
    mrc2.Fields(5) = Trim(lblSex.Text)
    mrc2.Fields(6) = Date
    mrc2.Fields(7) = Time
    mrc2.Fields(8) = Environ("USERNAME")
    mrc2.Fields(9) = Date + Time
    mrc2.Update
    mrc2.Close
    
    '将上机记录写进line表
    txtSQL = "select * from Line_Info "
    Set mrc3 = ExecuteSQL(txtSQL, MsgText)
    
    mrc3.AddNew
    mrc3.Fields(1) = Trim(txtCardNo.Text)
    mrc3.Fields(2) = Trim(lblSID.Text)
    mrc3.Fields(3) = Trim(lblName.Text)
    mrc3.Fields(4) = Trim(lblDept.Text)
    mrc3.Fields(5) = Trim(lblSex.Text)
    mrc3.Fields(6) = Date
    mrc3.Fields(7) = Time
'    mrc3.Fields(8) = ""
'    mrc3.Fields(9) = ""
'    mrc3.Fields(10) = ""
    
    mrc3.Fields(11) = "0.0"
    mrc3.Fields(12) = Trim(lblBaLance.Text)
    mrc3.Fields(13) = "正常上机"
    mrc3.Fields(14) = Environ("USERNAME")      '获取电脑名字
    
    mrc3.Update
    mrc3.Close
    
    
    
    End If
   End If
  End If
 End If
End If
（2）获取上机人数： 

Private Sub Timer1_Timer()
Text1 = Time$   '返回自 Unix 纪元（January 1 1970 00:00:00 GMT）起的当前时间的秒数的函数。
Dim txtSQL As String
Dim MsgText As String
Dim mrc2 As ADODB.Recordset
txtSQL = "select * from Online_Info "
 Set mrc2 = ExecuteSQL(txtSQL, MsgText)


Label16.Caption = mrc2.RecordCount
mrc2.Close
End Sub

下机：

下机思路：


其中涉及到临时用户和固定用户，需要仔细考虑清楚。

代码展示：

Private Sub cmdOffLine_Click()
      Dim txtSQL As String
      Dim mrc As ADODB.Recordset   'mrc是一个字符串数组,student表。
      Dim MsgText As String
      Dim mrc1 As ADODB.Recordset    'BasicData表
      Dim mrc2 As ADODB.Recordset    'Online表
      Dim mrc3 As ADODB.Recordset     'line表
      Dim Unitcash As Single
      Dim UnitNumber As Integer
  
  If Trim(txtCardNo.Text) = "" Then
         MsgBox "请输入卡号!", vbOKOnly + vbExclamation, "警告"
         txtCardNo.SetFocus
         Exit Sub
  Else
    
  If Not IsNumeric(Trim(txtCardNo)) Then
        MsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"
        txtCardNo.SetFocus
        txtCardNo.Text = ""
        Exit Sub
  Else
  
        txtSQL = "select * from student_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
  If mrc.EOF = True Then            '判断此卡是否注册,使用
        MsgBox "卡号不存在或未被注册！", vbOKOnly + vbExclamation, "警告"
        txtCardNo.SetFocus
        txtCardNo.Text = ""
        Exit Sub
  Else
  
        txtSQL = "select * from Online_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
        Set mrc2 = ExecuteSQL(txtSQL, MsgText)
        
  If mrc2.EOF = True Then           '判断此卡是否上机
        MsgBox "此卡没有上机或者已下机！", vbOKOnly + vbExclamation, "警告"
        txtCardNo.SetFocus
        txtCardNo.Text = ""
        Exit Sub
  Else
        
        lblType.Text = Trim(mrc.Fields(14))
        lblSID.Text = Trim(mrc.Fields(1))
        lblName.Text = Trim(mrc.Fields(2))
        lblDept.Text = Trim(mrc.Fields(4))
        lblSex.Text = Trim(mrc.Fields(3))
        lblOnDate.Text = Trim(mrc.Fields(6))
        lblOnTime.Text = Trim(mrc.Fields(7))
        
        lblOffDate.Text = Date
        lblOffTime.Text = Time
         
       
       ' lblCTime.Text = Abs(Val(DateDiff("n", Time, Trim(lblOnTime.Text)))) '计算消费时间
       
        lblCTime.Text = Date * 1440 - DateValue(mrc2!ondate) * 1440 + Hour(Time) * 60 - Hour(TimeValue(mrc2!OnTime)) * 60 + Minute(Time) - Minute(TimeValue(mrc2!OnTime))
        '连接基本表
        txtSQL = "select * from BasicData_Info "
        Set mrc1 = ExecuteSQL(txtSQL, MsgText)
   '第一种情况，判断是否大于准备时间
  If Val(lblCTime.Text) <= Val(mrc1.Fields(4)) Then   '小于准备时间，金额为0
        lblCMoney.Text = 0

  End If
    '第二种情况，判断消费时间是否大于最少上机时间
  If Val(lblCTime.Text) <= Val(mrc1.Fields(3)) Then  '小于最少时间，消费金额为1元
        lblCMoney.Text = 1

  Else
  'Unitcash = Format((Val(mrc1.Fields(2)) / 30) * Unittime, "0.0")
    '第三种情况：消费时间大于最少时间，分为固定用户和临时用户
   ' lblCTime.Text = Val(lblCTime.Text) - Val(mrc1.Fields(4))  '实际消费时间
    UnitNumber = Val(lblCTime.Text) Mod Val(mrc1.Fields(2))    '个数
    
  If UnitNumber = 0 Then
        UnitNumber = Int(Trim(lblCTime.Text) / mrc1!Unittime)
        
  Else
        UnitNumber = Trim(Int(Trim(lblCTime.Text) / mrc1!Unittime) + 1)
  End If
      ' Usecash = Format(UnitNumber * Unitcash, "0.0")
    
  If Val(lblCTime.Text) >= Val(mrc1.Fields(3)) And Trim(mrc.Fields(14)) = "固定用户" Then
  
      lblCMoney.Text = Format(UnitNumber * Val(mrc1.Fields(0)), "0.0")
     
  Else
  
  If Val(lblCTime.Text) >= Val(mrc1.Fields(3)) And Trim(mrc.Fields(14)) = "临时用户" Then
  
      lblCMoney.Text = Format(UnitNumber * Val(mrc1.Fields(1)), "0.0")
      
        
        
        
        
        
  End If
 End If
 End If
 End If
 End If
 End If
 End If
 
 
 
 
 
     txtSQL = "select * from student_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
     Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        
      '计算消费金额得到余额
        
     lblBaLance.Text = Val(mrc.Fields(7)) - Val(Trim(lblCMoney.Text))
     
    lblType.Text = Trim(mrc2.Fields(1))
    lblSID.Text = Trim(mrc2.Fields(2))
    lblName.Text = Trim(mrc2.Fields(3))
    lblDept.Text = Trim(mrc2.Fields(4))
    lblSex.Text = Trim(mrc2.Fields(5))
    lblOnDate.Text = Trim(mrc2.Fields(6))
    lblOnTime.Text = Trim(mrc2.Fields(7))
     
     
     
     
   
     
     mrc.Fields(7) = Trim(lblBaLance.Text)
     
     MsgBox "下机成功"
    
    txtSQL = "select * from Line_Info where cardno = '" & Trim(txtCardNo.Text) & "'"
    Set mrc3 = ExecuteSQL(txtSQL, MsgText)

     mrc3.Fields(8) = Date
     mrc3.Fields(9) = Time
     mrc3.Fields(10) = Trim(lblCTime.Text)
     mrc3.Fields(11) = Trim(lblCMoney.Text)
     mrc3.Fields(12) = Trim(lblBaLance.Text)
     mrc3.Fields(13) = "正常下机"
     mrc3.Fields(14) = Environ("USERNAME")
     mrc3.Update
     mrc3.Close
     
     mrc.Update
     mrc.Close

     mrc1.Close
     mrc2.Delete
     mrc2.Update
     mrc2.Close
     
     
    
     
End Sub

总结：

         博客还有许多需要完善的地方，以后慢慢改善。







Michael-杨楠
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 15
    评论
专栏目录
C语言 机房收费管理系统
10-06
C语言课程设计 机房收费管理系统 （1）输入功能：输入30名学生的学号、班级、姓名、上机起始时间。 （2）计算功能：计算每个下机学生的上机费用，每小时1元。 （上机费用=上机时间* 1.0/h ，不足一小时按一小时计算...
JSP+SQL机房收费管理系统
04-09
管理员用户具有教师信息管理、学生信息管理、上机信息管理、下机管理等功能
机房收费系统---下机
立志欲坚不欲锐，成功在久不在速度
09-25 326
下机功能是整个机房收费系统中非常重要的一个环节，这个环节关乎到使用我们软件的商家会不会赔钱，所以，我们在做这个窗体的时候一定要把各个细节的问题都要考虑到。   首先“下机”的主要功能是： 1：使正在上机的用户停止上机 2：计算用户上机所花费的时间和金额 3：然后将卡中的余额减去花费的金钱是当前用户所剩余的钱数。 4：将这个信息全部链接到数据库的表中，有的需要添加，有的需要更新，有的需...
机房收费系统——下机
huihui1314_的博客
11-10 281
上下机是机房收费系统中比较重要的一部分，所以我们一定要把上下机的思路理清楚才可以，不然会很乱，一会儿就把自己绕进去了，现在我们一起分析一下下机的思路吧！ 代码片段： 判断上下机的情况 Private Sub cmdOffLine_Click() Dim mrconline As ADODB.Recordset Dim mrconline2 As ADODB.Recordset...
机房收费系统-上下机
不会英语的程序员不是好开拓者
07-30 1406
前言：     机房收费系统当然离不开上机和下机了，作为整个系统的核心和关键，我觉得最重要的是首先要有全局观，把控整体的流程。还有就是一定要细心，考虑到所有应该注意到的问题。实现上下机的功能我基本上一天就敲出来了，但是之后却优化了一个星期，每天基本上都需要去改动去重新捋思路，所以说一开始一定要摸清楚表与表之间的关系，理清思路，再去敲，这样效率就会提高很多很多。好了，下面我来给大家介绍一下上下机到
机房收费系统（九）——下机
王华春_Jason
07-09 585
概述 下机窗体的重要程度及难度不低于机房收费系统的任何一个窗体，可是花了我不少的时间。特别是在计算的思路上，我是费劲了脑汁。下面我将从头进行梳理。 流程图 计算 *计算消费余额：分为四种情况（注意分固定用户和临时用户） 查询基本数据表，获得设定的基本数据： 1.判断实际上机时间是否小于准备时间，若小于则消费时间为0 2.判断实际上机时间是否小于最低消费时间，若小于则消费时间为0 ...
【机房收费系统】-上下机
Arielle-L
02-18 328
前言：    一遍遍的说理清逻辑是多么的重要，刚开始的时候毫无头绪更不想开始，画出流程图梳理清晰自己的思路，上下机并没有想象中的那么难，现在就总结下上下机部分； 内容： 上机：整个上机过程总的来说就是查询数据库，进行条件限制判断，更新数据表，就过程的思路有以下流程图； 下机：下机相对而言就复杂了点，关于消费时间的计算判断，和消费金额的计算； 1、 时间转换 txtTime1 = Trim(DateDiff("n", Trim(txtOnTime.Text), Trim(Time))) txtda
机房收费系统--上下机
Smily-王婷婷
08-21 710
前言：                  敲机房开始时，一些表的逻辑还不是很清楚，开始时，只是进行一些简单的窗体实现，模仿着学生管理系统来进行，逐渐的对于一些表的逻辑有些自己的头绪了，但还是不是特别清晰。当在敲上下机时，我简单的认为，上机不就是把学生的信息添加到online表中，下机时在表中把数据删除不就罢了嘛，咋很多人还说不简单呢。我开始把自己认为的这些写上，但是哪有这么简单呀，各个表之间的联
机房收费系统-下机操作
自律即是最自由
01-01 456
下机操作是机房这的一个难点，充分的考察了我们对数据库的运用！ 对于下机操作，缕清逻辑后，就会变得很容易！思路简单的画了一下流程图还有下机时需要用到的表以及它的相关操作！ 缕清了这些接下来就是代码实现了！代码1、查询基本参数是所谓的基本参数就是在basicdate_info中的值，例如一小时需要花费多少钱等等！txtSQL4 = "select* from basicdata_info"
机房收费管理系统.zip
05-29
机房收费管理系统，包含源代码和设计报告 （1）输入功能：输入若干名学生的学号、班级、姓名、开始上机时间和结束上机时间。 （2）计算功能：计算每个学生的上机费用（计算公式：上机费用=（结束上机时间-开始上机...
JSP+MYSQL机房收费管理系统.rar
07-15
管理员用户具有教师信息管理、学生信息管理、上机信息管理、下机管理等功能 。
用AIDA模型，分析知乎、小红书和Facebook的广告效果.docx
06-02
用AIDA模型，分析知乎、小红书和Facebook的广告效果.docx
pd27.py1111111111111
最新发布
06-02
pd27.py1111111111111
234_基于微信小程序的车位预约系统的设计与实施-源码.zip
06-02
提供的源码资源涵盖了安卓应用、小程序、Python应用和Java应用等多个领域，每个领域都包含了丰富的实例和项目。这些源码都是基于各自平台的最新技术和标准编写，确保了在对应环境下能够无缝运行。同时，源码中配备了详细的注释和文档，帮助用户快速理解代码结构和实现逻辑。 适用人群： 这些源码资源特别适合大学生群体。无论你是计算机相关专业的学生，还是对其他领域编程感兴趣的学生，这些资源都能为你提供宝贵的学习和实践机会。通过学习和运行这些源码，你可以掌握各平台开发的基础知识，提升编程能力和项目实战经验。 使用场景及目标： 在学习阶段，你可以利用这些源码资源进行课程实践、课外项目或毕业设计。通过分析和运行源码，你将深入了解各平台开发的技术细节和最佳实践，逐步培养起自己的项目开发和问题解决能力。此外，在求职或创业过程中，具备跨平台开发能力的大学生将更具竞争力。 其他说明： 为了确保源码资源的可运行性和易用性，特别注意了以下几点：首先，每份源码都提供了详细的运行环境和依赖说明，确保用户能够轻松搭建起开发环境；其次，源码中的注释和文档都非常完善，方便用户快速上手和理解代码；最后，我会定期更新这些源码资源，以适应各平台技术的最新发展和市场需求。
蓝桥杯蓝桥杯蓝桥杯蓝桥杯蓝桥杯蓝桥杯蓝桥杯.txt
06-02
蓝桥杯蓝桥杯蓝桥杯蓝桥杯蓝桥杯蓝桥杯
ipython-0.13.1-py2.7.egg
06-01
Python库是一组预先编写的代码模块，旨在帮助开发者实现特定的编程任务，无需从零开始编写代码。这些库可以包括各种功能，如数学运算、文件操作、数据分析和网络编程等。Python社区提供了大量的第三方库，如NumPy、Pandas和Requests，极大地丰富了Python的应用领域，从数据科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径，而且为经验丰富的开发者提供了强大的工具，以高效率、高质量地完成复杂任务。例如，Matplotlib和Seaborn库在数据可视化领域内非常受欢迎，它们提供了广泛的工具和技术，可以创建高度定制化的图表和图形，帮助数据科学家和分析师在数据探索和结果展示中更有效地传达信息。
Gui-Guider-Setup-1.7.2-GA
06-02
Gui-Guider-Setup-1.7.2-GA 免费版
机房收费系统--层次图
11-05
引用:通过之前的学习，对机房收费系统在用例需求以及功能上做了一些总结，借助UML模型图让这些东西更加清晰明了的呈现出来，这次我们就再深入的了解一下从其他几个角度来认识机房收费系统这个软件。 机房收费系统-...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 15
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值