第一次机房收费系统之上下机

于 2019-10-27 10:34:55 发布
阅读量242 收藏 1
点赞数
分类专栏： 第一次机房收费系统 文章标签： 第一次机房
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/sunzheng176/article/details/102763619
版权

前言： 首先，学生上机需要在主界面上显示学生的信息，然后在online表和line表中添加记录，下机需要计算好上机时间和消费金额，更新line表和student表，删除online表中对应的记录。
流程图如下：
在这里插入图片描述
学生下机
上机：

Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    txtdowntime.Text = ""
    txtdowndate.Text = ""
    txtpaytime.Text = ""
    txtpay.Text = ""
    '判断是否输入卡号
    If Not Testtxt(txtcardid.Text) Then
        Label1.Visible = True
        Label1.Caption = "请输入卡号！"
        Exit Sub
    End If
    If Not IsNumeric(txtcardid.Text) Then
        Label1.Visible = True
        txtcardid.Text = ""
        txtcardid.SetFocus
        Label1.Caption = "卡号请输入数字！"
        Exit Sub
    End If
    '查询卡号
    txtsql = "select * from student_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.RecordCount = 0 Then
        Label1.Visible = True
        txtcardid.Text = ""
        txtcardid.SetFocus
        Label1.Caption = "卡号不存在！"
        Exit Sub
    Else
        If Trim(mrc!Status) = "不使用" Then             '查询是否注册
            Label1.Visible = True
            Label1.Caption = "此卡尚未注册！"
            Exit Sub
        End If
    End If
    mrc.Close
    '查询是否上机
    txtsql = "select * from online_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.RecordCount = 1 Then
        Label1.Visible = True
        Label1.Caption = "此卡正在上机!"
        txttype.Text = Trim(mrc.Fields(1))
        txtsid.Text = Trim(mrc.Fields(2))
        txtname.Text = Trim(mrc.Fields(3))
        txtdepartment.Text = Trim(mrc.Fields(4))
        txtsex.Text = Trim(mrc.Fields(5))
        txtupdate.Text = Trim(mrc.Fields(6))
        txtuptime.Text = Trim(mrc.Fields(7))
        Exit Sub
    End If
    mrc.Close
    '查询余额
    txtsql = "select * from student_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtsql = "select * from basicdata_info"
    Set mrc1 = ExecuteSQL(txtsql, msgtext)
    If Val(Trim(mrc!cash)) < Val(Trim(mrc1!limitcash)) Then
        Label1.Visible = True
        Label1.Caption = "余额不足，请充值！"
        Exit Sub
    End If
    mrc.Close
    mrc1.Close
    '显示学生信息
    txtsql = "select * from student_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtname.Text = Trim(mrc.Fields(2))
    txtsex.Text = Trim(mrc.Fields(3))
    txtsid.Text = Trim(mrc.Fields(1))
    txtdepartment.Text = Trim(mrc.Fields(4))
    txttype.Text = Trim(mrc.Fields(14))
    txtcash.Text = Trim(mrc.Fields(7))
    txtuptime.Text = time
    txtupdate.Text = Date
    mrc.Close
    '向online表中添加数据
    txtsql = "select * from online_info "
    Set mrc = ExecuteSQL(txtsql, msgtext)
    mrc.AddNew
    mrc.Fields(0) = txtcardid.Text
    mrc.Fields(1) = txttype.Text
    mrc.Fields(2) = txtsid.Text
    mrc.Fields(3) = txtname.Text
    mrc.Fields(4) = txtdepartment.Text
    mrc.Fields(5) = txtsex.Text
    mrc.Fields(6) = txtupdate.Text
    mrc.Fields(7) = txtuptime.Text
    mrc.Fields(8) = GetThisComputerName
    mrc.Fields(9) = Now
    mrc.Update
    lblshangji.Caption = mrc.RecordCount
    mrc.Close
    '向line表中添加数据
    txtsql = "select * from line_info"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    mrc.AddNew
    mrc.Fields(1) = txtcardid.Text
    mrc.Fields(2) = txtsid.Text
    mrc.Fields(3) = txtname.Text
    mrc.Fields(4) = txtdepartment.Text
    mrc.Fields(5) = txtsex.Text
    mrc.Fields(6) = txtupdate.Text
    mrc.Fields(7) = txtuptime.Text
    mrc.Fields(14) = GetThisComputerName
    mrc.Fields(13) = "正常上机"
    mrc.Fields(12) = txtcash.Text
    mrc.Update
    mrc.Close
    MsgBox "成功上机", vbOKOnly + vbExclamation, "提示"
    Label1.Visible = False

下机：

Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim umrc As ADODB.Recordset
    '判断是否输入卡号
    If Not Testtxt(txtcardid.Text) Then
        Label1.Visible = True
        Label1.Caption = "请输入卡号！"
        Exit Sub
    End If
    If Not IsNumeric(txtcardid.Text) Then
        Label1.Visible = True
        Label1.Caption = "卡号请输入数字！"
        txtcardid.Text = ""
        txtcardid.SetFocus
        Exit Sub
    End If
    '查询卡号
    txtsql = "select * from student_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.RecordCount = 0 Then
        Label1.Visible = True
        Label1.Caption = "卡号不存在！"
        txtcardid.Text = ""
        txtcardid.SetFocus
        Exit Sub
    Else
        If Trim(mrc!Status) = "不使用" Then             '查询是否注册
            Label1.Visible = True
            Label1.Caption = "此卡尚未注册！"
            Exit Sub
        End If
    End If
    mrc.Close
    '查询是否上机
    txtsql = "select * from online_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.RecordCount = 0 Then
        Label1.Visible = True
        Label1.Caption = "此卡没有上机!"
        Exit Sub
    End If
    mrc.Close
    '显示数据
    txtdowntime.Text = time
    txtdowndate.Text = Date
    txtsql = "select * from online_info where cardno='" & txtcardid.Text & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtcardid.Text = Trim(mrc.Fields(0))
    txttype.Text = Trim(mrc.Fields(1))
    txtsid.Text = Trim(mrc.Fields(2))
    txtname.Text = Trim(mrc.Fields(3))
    txtdepartment.Text = Trim(mrc.Fields(4))
    txtsex.Text = Trim(mrc.Fields(5))
    txtupdate.Text = Trim(mrc.Fields(6))
    txtuptime.Text = Trim(mrc.Fields(7))
    '计算上机时间
    txtpaytime.Text = DateDiff("n", txtupdate, txtdowndate) + DateDiff("n", txtuptime, txtdowntime)
    mrc.Close
    '计算消费金额
    txtsql = "select * from student_info where cardno='" & Trim(txtcardid.Text) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtsql = "select * from basicdata_info "
    Set mrc1 = ExecuteSQL(txtsql, msgtext)
    If Val(txtpaytime.Text) < Trim(mrc1!LeastTime) Then
        txtpay.Text = 0
        txtcash.Text = Trim(mrc.Fields(7))
    Else
        If Trim(mrc!Type) = "固定用户" Then
            txtpay.Text = Round(Val(txtpaytime.Text) / Trim(mrc1!unittime) * Trim(mrc1!Rate))
            txtcash.Text = Trim(mrc!cash - txtpay.Text)
        Else
            txtpay.Text = Round(Val(txtpaytime.Text) / Trim(mrc1!unittime) * Trim(mrc1!TmpRate))
            txtcash.Text = Trim(mrc!cash - txtpay.Text)
        End If
    End If
    mrc.Close
    mrc1.Close
    '更新两个表
    txtsql = "select * from online_info where cardno='" & txtcardid.Text & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    txtsql = "select * from line_info where cardno='" & txtcardid.Text & "'and ondate='" & Trim(mrc!ondate) & "'and ontime='" & Trim(mrc!OnTime) & "'"
    Set mrc1 = ExecuteSQL(txtsql, msgtext)
    mrc1.Fields(8) = Date
    mrc1.Fields(9) = time
    mrc1.Fields(10) = Trim(txtpaytime.Text)
    mrc1.Fields(11) = Trim(txtpay.Text)
    mrc1.Fields(12) = Trim(txtcash.Text)
    mrc1.Fields(13) = "正常下机"
    mrc1.Update
    mrc.Delete
    mrc.Close
    mrc1.Close
    txtsql = "select * from online_info "
    Set mrc = ExecuteSQL(txtsql, msgtext)
    lblshangji.Caption = mrc.RecordCount
    mrc.Close
    txtsql = "select * from student_info where cardno='" & txtcardid.Text & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    mrc.Fields(7) = Trim(txtcash.Text)
    mrc.Update
    mrc.Close
孙正嗯大正
关注
专栏目录
VB【E咖吧收费系统】下机
Jun5203
09-01 387
前言  不知上篇的上机大家懂了没？反正小编又要发干货，欢迎大家“抢购”，下机其实和上机大同小异，唯一的区别就是你得计算消费者消费了多长时间，花了多少钱，最后还剩多少钱。这和我们平时去网吧的套路差不多，只不过现在你变成了程序的缔造者，加油啊！ 代码分享 Private Sub cmdOffline_Click() txtSQL = &quot;select * from student_...
机房收费系统——上下机操作
人生苦短，我用Python
08-20 953
按照顺序来讲到网吧的顾客，分为两种一是办卡充钱的会员，一种是交钱上网的临时用户。充完钱之后，一般用户（网管）就需要对顾客进行上机来记录时间，下机时进行收费。 上机：上机过程比较简单，涉及数据库中的三张表：online_info 、student_info、basicdata_info       上机的判断过程如下：1.从student表中判断卡号是否存在、此卡状态是否使用
【第一次机房收费系统】学生下机
Java is the best language~
01-20 408
在敲普通用户学生上机装态查看的时候，里面有几个点大家需要注意一下。 查询基本没什么问题，运用的是组合查询的相关知识。点此查看组合查询知识 显示全部前面也提到过，运用代码实现将数据库中的信息调用到MSHFlexgrid控件中。 其实最好玩的还是上机管理这部分，先不管这个功能放在这里合适不合适，反正学到了就是自己的。 这两个功能非常类似，唯一区别就是一个全部下线，一个选中下线。 还是那句话
第一次机房收费系统——上下机
好吃的爆米花
09-28 492
前言：上下机的核心操作：上机就是将数据从student表中写入到online表中，然后并在line表中写上一部分的内容，而下机的时候就是计算好时间和消费金额，然后写入到line表中，删除online的内容，并且将金额同步到student表中， 主要流程 注意：我在下机表中添加了日期和Userid这一列，为了在结账的时候更方便计算。 上机 注意： 因为我一开始没有领悟那么深，所以我在下机的时候...
第一次机房收费系统--下机
破茧成蝶
09-18 813
每当接触一个新鲜事物都会觉得很难，就像米老师说的“改变的过程是痛苦的”，但是我们不要害怕，勇往直前，小伙伴，一起加油！
机房收费系统——可行性研究报告
YNO
11-19 1387
可行性研究报告 ■1 引言 所谓可行性就是要决定“做还是不做”较为客观，当今世界发生着巨大革新，信息时代已经成为推动社会前进的关键性因素地位不可撼动，工业4.0已然在路上。大数据时代获取知识的成本骤减，各种网络公开课和学习资料在度娘和谷歌等一系列搜索引擎的强大攻势下变的唾手可得，可谓是没有搜不到的，只有不会搜的。 当然作为在外人看来相当神秘的IT行业更是被赋予了更加神秘的色彩，但与此
机房收费系统——可行性分析报告
好记性不如烂笔头--玲博小记
05-31 2923
在所有的文档中，可行性不光是第一个要写的文档，还是
机房收费系统-结账
Marshallren的博客
10-22 268
前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。 结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账...
机房收费系统之可行性研究报告
做一个会编程的人
02-19 1664
1引言... 1 1.1编写目的... 1 1.2背景... 1 1.3定义... 1 1.4参考资料... 1 2可行性研究的前提... 2 2.1要求... 2 2.2目标... 2 2.3条件、假定和限制... 3 2.4进行可行性研究的方法... 3 2.5评价尺度... 3 3对现有系统的分析... 3 3.1处理流程和数据流程... 4
机房收费系统之上下机
Phoneix的博客
07-21 251
        一、上机流程             部分代码展示 If Not Testtxt(txtCardNo.Text) Then MsgBox "请您填写您的账号信息", vbOKOnly + vbExclamation, "警告" '判断输入是否为空 txtCardNo.SetFocus Exit Sub End If txts...
机房收费系统——全部下机
Jessie_lxr
12-04 312
前言： 每一个窗体都不容小觑，这是第一次机房做到现在最直观的感受，而我总是一开始就“小瞧”他们，导致再进行过程中，出现了很多掩耳盗铃的搞笑乌龙。   正文： 全部下机 逻辑 查看online表中书否有数据 若有，进行全部下机操作 计算上机时间，上机费用，并更新到line表中 删除online表中数据 更新frmmain上机人数为0（考虑用模块调用） ...
机房收费系统上下机
玲珑骰子安红豆，入骨相思知不知
01-01 585
前言        机房收费系统最关键的几个部分包括上下机，组合查询，结账。上下机这部分主要还是理逻辑关系，理清各个窗体之间的关系，还有表与表之间的关系。把基本功能实现之后，自己就会发现原来需要注意和完善的地方还有很多，需要我们认真细心去对待。 主要内容         由于frmMain窗体为MDI窗体，所以不能直接添加控件，需要借助picturebox。        上机涉及到的
机房收费系统之下机
好学而不勤问非真好学者
04-04 181
下机 是一个相对有难度的窗体了，一开始我的思路很乱，不知道该怎么写，还要算时间，算金额，感觉很麻烦，然后看了好多大佬们的思路，画了个流程图 Dim msgText As String '查询信息名称 Dim mrc As ADODB.Recordset 'st...
机房收费系统之下机过程
11-24 1065
下机过程涉及到的对表的处理要比上机过程多，最重要的一点是对上机消费的计算。首先需要先计算出上机持续的时间onlinetime，然后再用基本数据表中的rate（价格）乘以onlinetime算出消费的金额，再让学生表student_info中的cash减去消费的金额，得到新的余额newcash。在此之前，需要先做一些判断。 '下机 Private Sub cmdDown_Click() o
机房收费系统-上下机
不会英语的程序员不是好开拓者
07-30 1437
前言：     机房收费系统当然离不开上机和下机了，作为整个系统的核心和关键，我觉得最重要的是首先要有全局观，把控整体的流程。还有就是一定要细心，考虑到所有应该注意到的问题。实现上下机的功能我基本上一天就敲出来了，但是之后却优化了一个星期，每天基本上都需要去改动去重新捋思路，所以说一开始一定要摸清楚表与表之间的关系，理清思路，再去敲，这样效率就会提高很多很多。好了，下面我来给大家介绍一下上下机到
机房收费系统——下机
景月娇-Kathy
02-26 391
流程图 代码展示 -下机结算 '下机结算：时间,金额(n为分钟）；显示下机数据 txtSQLS = "select * from student_Info where cardno='" &amp; Trim(txtCardNo.Text) &amp; "'" Set mrc1 = ExecuteSQL(txtSQLS, Msgtext) txtSQLB = "select * ...
机房收费系统（九）——下机
王华春_Jason
07-09 600
概述 下机窗体的重要程度及难度不低于机房收费系统的任何一个窗体，可是花了我不少的时间。特别是在计算的思路上，我是费劲了脑汁。下面我将从头进行梳理。 流程图 计算 *计算消费余额：分为四种情况（注意分固定用户和临时用户） 查询基本数据表，获得设定的基本数据： 1.判断实际上机时间是否小于准备时间，若小于则消费时间为0 2.判断实际上机时间是否小于最低消费时间，若小于则消费时间为0 ...
机房收费与管理系统设计与实现
"该资源是关于一个名为‘机房收费管理系统’的项目，由一组学生在2014年开发，旨在改善学校机房的管理效率，减轻管理员工作负担，并实现机房收费的自动化。系统包括学生信息管理、用户信息管理、收支账目管理和系统...
评论 14
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

孙正嗯大正

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值