机房收费系统问题集（6）——上、下机

最新推荐文章于 2021-07-13 16:18:03 发布
最新推荐文章于 2021-07-13 16:18:03 发布
阅读量1.5k 收藏 1
点赞数
分类专栏： 我的成长路の计算机 ----------【C/S】 VB与数据库 文章标签： 设计 数据库 控件
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/helijie92902/article/details/38756645
版权

    哈哈，机房收费系统基本上敲完了，现在分享一下上下机的知识吧！！！

    刚开始敲上下机的时候，思维有点混乱，其实弄明白表与表之间的关系，心里有”卡号“这一条主线，就会清晰好多......

首先是上机：

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub shangji_Click()
    Dim txtsql1 As String
    Dim txtsql2 As String
    Dim txtsql3 As String
    Dim txtsql4 As String
    
    Dim msgtext1 As String
    Dim msgtext2 As String
    Dim msgtext3 As String
    Dim msgtext4 As String
    
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    Dim mrc4 As ADODB.Recordset
    
    Dim leastmoney As Long
    
    txtoffdate.Text = ""
    txtofftime.Text = ""
    txtconsume.Text = ""
    txtconsumetime.Text = ""
    
    '判断卡号是否为空
    If testtxt(txtcardno.Text) = False Then
       MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"
       txtcardno.SetFocus
       Exit Sub
    End If
    Set mrc1 = New ADODB.Recordset
    txtsql1 = "select * from student_Info where cardno='" & txtcardno.Text & "'"
    Set mrc1 = executesql(txtsql1, msgtext1)
    '判断该卡是否存在
    If mrc1.EOF And mrc1.BOF Then
       MsgBox "该卡号未注册！", vbOKOnly + vbExclamation, "提示"
       txtcardno.Text = ""
       txtcardno.SetFocus
       Exit Sub
    Else
    '判断余额是否充足
       Set mrc4 = New ADODB.Recordset
       txtsql4 = "select * from BasicData_Info "
       Set mrc4 = executesql(txtsql4, msgtext4)
       leastmoney = mrc4.Fields(5)
       If mrc1.Fields(7) < leastmoney Then
          MsgBox "余额只有" & mrc1.Fields(7) & "，少于最少金额，请充值后再上机！", vbOKOnly, "提示"
          Exit Sub
          mrc4.Close
       Else
    '判断该卡号是否正在上机
         Set mrc2 = New ADODB.Recordset
         txtsql2 = "select * from OnLine_Info where cardno='" & txtcardno.Text & "'"
         Set mrc2 = executesql(txtsql2, msgtext2)
        If Not (mrc2.EOF And mrc2.BOF) Then
           MsgBox "该卡正在上机！", vbOKOnly, "提示"
           txtcardno.Text = ""
           txtcardno.SetFocus
           Exit Sub
        Else
           txtcardno.Text = Trim(mrc1.Fields(0))
           txtstudentno.Text = Trim(mrc1.Fields(1))
           txtstudentname.Text = Trim(mrc1.Fields(2))
           txttype.Text = Trim(mrc1.Fields(14))
           txtsex.Text = Trim(mrc1.Fields(3))
           txtdepartment.Text = Trim(mrc1.Fields(4))
           txtondate.Text = Date
           txtontime.Text = Time
           txtcash.Text = Trim(mrc1.Fields(7))
           
           '将上机的信息添加到OnLine_Info表中
           Set mrc3 = New ADODB.Recordset
           txtsql3 = "select * from OnLine_Info "
           Set mrc3 = executesql(txtsql3, msgtext3)
           mrc3.AddNew
           mrc3.Fields(0) = Trim(txtcardno.Text)
           mrc3.Fields(1) = Trim(txttype.Text)
           mrc3.Fields(2) = Trim(txtstudentno.Text)
           mrc3.Fields(3) = Trim(txtstudentname.Text)
           mrc3.Fields(4) = Trim(txtdepartment.Text)
           mrc3.Fields(5) = Trim(txtsex.Text)
           mrc3.Fields(6) = Trim(txtondate.Text)
           mrc3.Fields(7) = Trim(txtontime.Text)
           mrc3.Fields(8) = Trim(Winsock1.LocalHostName)
           mrc3.Update
           '显示此时上机的人数
           Label13.Caption = mrc3.RecordCount
           
           mrc3.Close
           mrc2.Close
        End If
    End If
End If
End Sub
</strong></span></strong></span>
其次是下机： 

<span style="font-family:KaiTi_GB2312;font-size:18px;"><strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub xiaji_Click()
    Dim txtsql1 As String
    Dim txtsql2 As String
    Dim txtsql3 As String
    Dim txtsql4 As String
    
    Dim msgtext1 As String
    Dim msgtext2 As String
    Dim msgtext3 As String
    Dim msgtext4 As String
    
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    Dim mrc4 As ADODB.Recordset
    
    Dim leasttime As String
    Dim OldCash As String
    Dim NewCash As String
    Dim StrType As String
    Dim StartTime As String
    Dim EndTime As String
    Dim Inttime As Integer
    Dim StrRate As Integer
    Dim consume As Integer
    
    If testtxt(txtcardno.Text) = False Then
       MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"
       txtcardno.Text = ""
       txtcardno.SetFocus
       Exit Sub
    End If
   '判断该卡号是否注册
   Set mrc1 = New ADODB.Recordset
   txtsql1 = "select * from student_Info where cardno='" & txtcardno.Text & "'"
   Set mrc1 = executesql(txtsql1, msgtext1)
   If mrc1.EOF And mrc1.BOF Then
      MsgBox "该卡号未注册！", vbOKOnly + vbExclamation, "提示"
      txtcardno.Text = ""
      txtcardno.SetFocus
      Exit Sub
   Else
  '判断该卡号是否上机
      Set mrc2 = New ADODB.Recordset
      txtsql2 = "select * from OnLine_Info where cardno='" & txtcardno.Text & "'"
      Set mrc2 = executesql(txtsql2, msgtext2)
      If mrc2.EOF And mrc2.BOF Then
         MsgBox "该卡号没有上机！", vbOKOnly + vbExclamation, "提示"
         txtcardno.Text = ""
         txtcardno.SetFocus
         Exit Sub
      Else
         txtcardno.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 = Date
         txtofftime.Text = Time
      
      '计算消费时间
      StartTime = Format(mrc2.Fields(7), "hh:mm:ss")
      EndTime = 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))
      
      Select Case StrType
      Case "固定用户"
         StrRate = Val(Trim(mrc3.Fields(0)))
      Case "临时用户"
         StrRate = Val(Trim(mrc3.Fields(1)))
      End Select
     
      
      If Val(Trim(txtconsumetime.Text)) < leasttime Then
         NewCash = OldCash
         txtconsume.Text = "0.0"
        
      Else
         If Val(Trim(txtconsumetime.Text)) < 60 And Val(Trim(txtconsumetime.Text)) > leasttime Then
            NewCash = Val(OldCash) - Val(StrRate) * 1
            consume = StrRate
         Else
            Inttime = Int(Val(txtconsumetime.Text) / 60)
            
            NewCash = Val(OldCash) - StrRate * Inttime
            consume = StrRate * Inttime
         End If
            txtconsume.Text = Val(consume) & ".0"
            txtcash.Text = Val(NewCash)
      End If
  End If
'更新student表
txtsql1 = "update student_Info set cash=" & NewCash & " where cardno='" & txtcardno.Text & "'"
Call executesql(txtsql1, msgtext1)

'更新OnLine表
txtsql2 = "delete OnLine_Info where cardno='" & txtcardno.Text & "'"
Call executesql(txtsql2, msgtext2)
txtsql2 = "select * from OnLine_Info "
Set mrc2 = executesql(txtsql2, msgtext2)
Label13.Caption = mrc2.RecordCount '获取新的上机人数

'更新Line表
txtsql4 = "select * from Line_Info"
Set mrc4 = executesql(txtsql4, msgtext4)
mrc4.Fields(1) = Trim(txtcardno.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(NewCash)
mrc4.Fields(13) = "正常下机"
mrc4.Fields(14) = Trim(Winsock1.LocalHostName)'获取机器号
mrc4.Update
mrc4.Close

End If
End Sub
</strong></span></strong></span>

我的代码很多，有木有？理解着来就会发现其实也挺简单的。在代码中有一句获取机器号的代码

这个也很简单，首先添加控件：

工程|部件|Microsoft Winsock Control 6.0


添加后是这个按钮：，漂亮吧吐舌头，和timer控件相似，只有这么大，small baby ，嘿嘿......

然后添加一句代码就OK了！

mrc4.Fields(14) = Trim(Winsock1.LocalHostName)


    上下机就这样被我“无情”的解决掉了，嘿嘿，神清气爽，有木有？小伙伴们，可要加油啦！！！

Reka
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 35
    评论
专栏目录
机房收费系统（四）——上机
王华春_Jason
05-30 352
概述 当我们敲完了登录界面后，需要解决的一个问题就是上机和下机，相比较而言上机简单很多，所用的知识几乎都是之前所学到的，判断语句以及调用数据库，稍微复杂点的就是判断余额问题。下面我就来解决这个问题。 思路 一、上机界面：（思路的来源及代码的编写都是依据与此 二、流程图：（代码编写的思路来源） 三、思考 首先要想实现功能，必须先判断卡号是否为空，只有判断完它才能进行下一步的工作；...
机房收费系统 Part Four——树全局观，上下机So Easy
周洲 （Julie）
06-17 2029
前几天敲完了机房收费系统的上下机过程，认为很有必要总结一下。心态也好，经验也好，代码也好，我都很想拿出来跟大家分享一下。
机房收费系统（三）——登录界面
王华春_Jason
05-29 974
概述 机房收费系统其实和学生信息管理系统差不多，难度么有增加多少。关键在于需要我们在敲代码之前把思路搞清楚，代码并不是什么大事。这里我就采用了画流程图的形式，把要实现的功能都画出来，然后进行代码的编辑。下面就来分享我的思路和部分代码。 流程图 代码 Private Sub cmdOK_Click() Dim txtSQL As String Dim txtsql...
机房收费系统总结之3——SqlHelper
张连海
08-22 1670
刚一开始着手机房收费系统时，涉及数据库连接，每个D层类的方法都要单独访问一次数据库。正所谓无知者无谓，不厌其烦的去弄，精神可嘉。再看别人博客时，才发现还有SqlHelper这么强的“思想”。高人啊。         SqlHelper是一个基于.NET Framework的数据库操作组件。组件中包含数据库操作方法。SqlHelper用于简化你重复的去写那些数据库连接（SqlConnection）
第一次机房收费——问题合集（一）
杨思默
07-13 177
站在巨人的肩膀上（通过师哥师姐的博客），遇到的问题都迎刃而解，太棒了！ 1.子窗体被覆盖问题 （1）使用API函数：SetParent，在模块中声明这个函数，声明代码： Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long （2）在MDIform窗体中的窗体点击事件中写入： 例：Private Sub Stu...
机房收费系统【VB版】——选择下机
follow your heart
03-18 372
前言： 今天实现机房收费系统——一般用户——学生上机状态查看——选中全部/部分下机部分收获很多！多亏了看光哥的博客，写的很清楚机房收费系统——上机状态查询之下机 过程： 要显示的表格式写查询，就会出来这样子 Private Sub 显示全部_Click() Dim txtSQL As String Dim MsgText As String Dim mrc ...
【机房收费系统】——上下机
海棠不惜胭脂色，独立蒙蒙细雨中
08-28 665
用户登录系统后消费，上下机是首要的操作，这一部分我花了很长时间才完成，中间遇到的问题不计其数，但最终还是解决了，心里的石头总算落下了。先来看图说说思路吧。 一、知识网                         二、代码解释 （一）上机： Private Sub cmdonLine_Click() '从student中查询cardno txtSQL = "
第一次机房收费系统——修改学生信息
你只有踏出第一步，下一步才会跟着来，否则你将永远停留在原地。
07-28 499
机房收费系统修改学生信息这一窗体的代码就是在学生基本信息维护的这一窗体之后的操作，就是先查询一个学生的信息单击修改按钮打开一个修改学生信息的窗体进行修改。 当然也有不让修改的文本框Enabled属性设置为false，然后在以卡号为主键查询这行数据的信息。 代码如下 Private Sub cmdCancel_Click() '取消修改 Dim txtSQL As Stri...
机房收费系统总结之5——抽象工厂+反射+配置文件
张连海
09-14 1546
起初，机房收费系统用纯三层在做，三层结构已把高内聚，低耦合的思想发挥的淋漓尽致。因为一直听说“抽象工厂”，也开始尝试去应用，经过了一番尝试，也OK了。其中当然会用到反射和配置文件，而接口的引入也是顺理成章的。接口对B层和D层又完成了进一步解耦。         形象起风，先上一张图：         有了图也就类似于有了思想，有了宏观的把控。可以看到，这个包图，是从最经典的
机房收费系统——总结
齐天佑
09-11 554
明确要做什么 要学习一个东西或者说要做一个东西首先得知道ta是个啥，首先，先分析一下机房收费系统是干什么的。从基本的功能界面可以看出，这个系统主要完成的功能是对机房中电脑的收费，上机下机，充值卡等数据进行管理。开发这个系统的目的在简化机房收费流程，使其简单快速。方便用户操作，及简化管理层人员的工作量，从而使系统高效率达成用户要求。 整体结构设计 知道了大概的需求，就需要将具体的功能进行明确...
机房收费系统重构（6）——上机
Reka's blog ^_^
05-31 1277
背景：机房收费系统个人版敲到了现在，已经快接近尾声了，激动，兴奋......都难以言表心中的滋味，这个历程真的是很艰难呀，平时的专业课，再加上最近的论文实验，周一到周五的大部分时间都在实验室“泡着”，周六周天还有各种会议要开，这段时间过来，整个人都变得不好了。最大的感触就是：不是时间管理的不好，而是根本没有时间来让自己管理，唉......说起来都是“辛酸泪”呀，还好一直坚持着，最后的最后，终于快要
VB机房收费系统09——日结账单和周结账单
我能在河边钓一整天的鱼
01-09 764
前言 这是我整个机房项目中最后一个难点，这两个账单我卡了3天，敲完了后，我把收获分享在这里，希望对大家有所帮助。 正文 这窗体不是敲出来，是调用和显示出来的！ 这里我们就用到了报表，报表下个生成器然后自己画也可以，直接选择给的机房素材也可以。 以我亲身经历来说，画报表没有调试报表代码难，调试报表代码没有找到报表控件难！ 画报表 画报表参考博客：http
机房收费系统——经典代码总结
齐天佑
09-11 1209
机房收费系统完成之后，发现其中有很多经典的代码，这些代码在未来的开发中很可能会使用到。针对这么代码进行一个归纳总结，方便日后使用 数据库传递参数SQL传递查询语句，记录查询结果 '传递参数SQL传递查询语句，Msgstring传递查询信息 '自身以一个数据集对象的形式返回 Public Function ExecuteSQL(ByVal SQL As String, MsgSt...
【VB.net】机房收费系统——充值+存储过程+事务
王璐
06-19 1846
前言                 机房收费系统里，一个功能的实现，有时会涉及到数据库里的很多张表。如果把这些都写进7层的代码会非常的繁琐，而且不易修改。存储过程，就恰好解决了这个难题。那么什么是存储过程呢？   存储过程（Stored Procedure）              是在大型数据库系统中，一组为了完成特定功能的SQL语句集。通俗一点，就是为了完成某一功能的SQ
机房收费系统问题集（5）——报表（日结，周结账单）
Reka's blog ^_^
08-22 2792
和导出Excel一样，这个也是实现
学生信息管理系统错误集（3）
Reka's blog ^_^
07-29 2486
2014年7月26日，我的SQL Server 程序突然就打不开了，无论我怎么捣鼓，电脑都无情的弹出下面的框框   正当我绝望透顶，转移阵地的时候，马康同学路过，帮我解决了一下，嘿嘿......没想到问题没有了，好开心 解决方法如图所示： （1）开始——>程序——> Microsoft   SQL Server 2008——>配置工具——>SQL  Server  
机房收费系统问题集（4）——指定时间段数据查询+组合查询
Reka's blog ^_^
08-16 1717
最近一直处在“攻坚”阶段，做梦的时候都
学生信息管理系统错误集（1）
Reka's blog ^_^
07-24 1684
学生信息管理系统敲了也有一段时间了，遇到的问题比我敲“百例”多得不是一点半点，时常是为了一个问题解决一下午，甚至一天的都有，不过米老师说了“走过了所有失败的路就是成功”，我现在也算是“成功”的人了吧，嘿嘿。。。。。。 分析一下我遇到的问题吧 1、当前范围内的声明重复（粗心所致）      2、对应所需名称或序数的集合中，未找到项目（在敲的过程中缺少
机房收费与管理系统设计与实现
6. **系统优化**：通过自动化收费和管理流程，提高了机房的利用率，降低了管理成本，使机房管理更加规范，符合教育信息化的发展趋势。 机房收费管理系统是教育信息化领域的一个实例，它整合了多项信息技术，如...
评论 35
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值