机房收费系统——结账

最新推荐文章于 2018-09-05 17:01:34 发布
最新推荐文章于 2018-09-05 17:01:34 发布
阅读量1k 收藏 1
点赞数 9
分类专栏： # 机房收费系统VB版
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jerry11112/article/details/78759788
版权

前言：

机房收费系统的结账花了我四天的时间，终于将其整明白了，从中有非常多的心得体会，下来分享给大家！

1、流程图

流程图是特别关键的一步，它代表了你整体的思路！（期中checkweek与checkday整体都差不多，所以整篇文章以日结账单为说明）

这里写图片描述

2、汇总思路

这里写图片描述

售卡张数=购卡选项卡的记录总数
退卡张数=退卡选项卡的记录总数
总售卡数=售卡张数-退卡张数
退卡金额=要结账的操作员在CancelCard_Info表中的金额累加
充值金额=要结账的操作员在ReCharge_Info表中金额累加
临时收费金额=临时用户在此网吧的花费（）
应收金额=充值金额—退卡金额（这个要好好的解释下，我是把在注册卡的时候的充值的钱同时在ReCharge_Info表中更新，这样只要是往自己的卡里充钱，不管是注册，还是充钱，最后的结果都是充钱，这样做的目的是因为，在自己的studnet_info表中的学生的余额是一直随着上机时间的变化而变化的；临时用户注册卡充值的金额也是这样，但是临时用户退的卡，也是在退卡金额中，所以，此算法和临时收费金额，没有任何的关系！）

3、代码的思想

这里我想分享一个n+1的实践！大家都学了sql sever了吧，可是在需要同时调用多个表的时候，有多少人是利用好了以前学过的知识select语句的知识呢，下来小编给大家展示一下！

在我的临时收费金额里，需要调用两个表，一个是表student_info，一个是表recharge_info 如下列代码！

txtsql = "select sum(addmoney)as sum from student_info ,ReCharge_Info where student_info.cardno=recharge_info.cardno and student_info.cardno = '" & Trim(comUserId.Text) & "'  and ischeck = '未结账' and type = '临时用户'"

Set mrc3 = ExecuteSQL(txtsql, MsgText)
   If IsNull(mrc3.Fields(0)) Then       '无记录
        txtTemReceiveMoney.Text = "0"
   Else
        txtTemReceiveMoney.Text = mrc3.Fields(0)
   End If


其中的 txtTemReceiveMoney.Text = mrc3.Fields(0)为什么是fields（0），后边会有解释！
在这里大家可能看着一脸懵逼，因为这是在vb环境中，翻译的SQL语句，vb用& 和“”将SQL语句写到了vb的环境中，vb只认识双引号，而SQL只认识单引号！大家来看看SQL环境中的语句吧！

select sum(addmoney)as sum 
from student_info ,ReCharge_Info 
where student_info.userid=recharge_info.userid and student_info.userid = '13' and ischeck = '未结账' and type = '临时用户'


下面是SQL中的查询结果！，根据查询的结果就可以写查询的代码了，是不是太简单了！ 现在就回明白txtTemReceiveMoney.Text = mrc3.Fields(0)为什么是fields（0）了吧！

这里写图片描述

看到上边的代码是不是很熟悉，sum为求和函数，在SQL中被称作为聚合函数，还有count（计算个数）、avg（求平均值）、max（最大值）、min（最小值），此时完全就可以不用再vb中添加其他的复杂的循环体了！

4、比较难的代码展示

（1）更新表中数据的部分
Option Explicit
Dim txtsql As String
Dim txtsql1 As String
Dim MsgText As String
Dim mrc As ADODB.Recordset    '代表学生表（student_info）
Dim mrc1 As ADODB.Recordset   '代表充值表（recharge_info）
Dim mrc2 As ADODB.Recordset   '代表退卡表（cancelcard_info）
Dim mrc3 As ADODB.Recordset   '代表日结账单（checkday_info）
Dim mrc4 As ADODB.Recordset   '代表日结账单中有条件的查询，这里没有也可以，主要是为了区分
Dim mrc5 As ADODB.Recordset   '代表line表
Dim mrc6 As ADODB.Recordset   '代表日结账单表中有条件的查询（也是为了区分）

Private Sub CmdCheck_Click()
Dim remaincash As String
Dim rechargecash As String
Dim consumecash As String
Dim cancelcash As String
Dim allcash As String

    If comUserId.Text = "" Then
        MsgBox "请选择操作员后再结账！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
    End If

'更新学生表
    txtsql = "select * from student_info where UserID = '" & Trim(comUserId.Text) & "'and ischeck = '" & "未结账" & "'"
    Set mrc = ExecuteSQL(txtsql, MsgText)
    Do While Not mrc.EOF
        mrc!ischeck = "结账"
        mrc.Update
        mrc.MoveNext
    Loop
    mrc.Close
'更新充值表
    txtsql = "select * from ReCharge_Info where UserID='" & Trim(comUserId.Text) & "' and status = '" & "未结账" & "'"
        Set mrc1 = ExecuteSQL(txtsql, MsgText)
         Do While Not mrc1.EOF
        mrc1!Status = "结账"
        mrc1.Update
        mrc1.MoveNext
    Loop
    mrc1.Close
'更新退卡表
    txtsql = "select * from cancelcard_Info where UserID='" & Trim(comUserId.Text) & "' and status = '" & "未结账" & "'"
        Set mrc2 = ExecuteSQL(txtsql, MsgText)
         Do While Not mrc2.EOF
        mrc2!Status = "结账"
        mrc2.Update
        mrc2.MoveNext
    Loop
    mrc2.Close
'更新日结账单表

    '计算上期充值卡余额（remaincash）
    txtsql = "select max(date) from checkWeek_Info"   'max（date）就是最近的一天
    Set mrc = ExecuteSQL(txtsql, MsgText)
    maxdate = mrc.Fields(0)

    txtsql = "select * from checkday_Info where date ='" & maxdate & "'"
        Set mrc4 = ExecuteSQL(txtsql, MsgText)
    If IsNull(mrc4.Fields(0)) Then
       remaincash = "0"
    Else
       remaincash = mrc4.Fields(0)
    End If

    '更新当天充值金额，充值金额是今天的值班的任意个操作员充值的金额，并且是已经结了账的，如果今天充值了某些金额，但是没有结账，则在计算日结账单时，不计入）
    txtsql = "select sum(addmoney) from recharge_info where status = '结账' and date  = '" & Date & "'" '代表今天
    Set mrc1 = ExecuteSQL(txtsql, MsgText)
    If IsNull(mrc1.Fields(0)) = True Then
        rechargecash = "0"
    Else
        rechargecash = mrc1.Fields(0)
    End If

    '从line表计算当日消费金额
    txtsql = "select sum(consume) from Line_Info where offdate='" & Date & "'"
    Set mrc5 = ExecuteSQL(txtsql, MsgText)
    If IsNull(mrc5.Fields(0)) Then
       consumecash = "0"
    Else
       consumecash = mrc5.Fields(0)
    End If

   '更新计算当天的退卡金额（cancelcash）这样没结账的操作员就不会算到这里面了

   txtsql = "select sum(cancelcash) from cancelcard_Info where date='" & Date & "'and status = '结账'"
   Set mrc2 = ExecuteSQL(txtsql, MsgText)
   If IsNull(mrc2.Fields(0)) Then
       cancelcash = "0"
   Else
       cancelcash = mrc2.Fields(0)
   End If

    '往表里更新
    txtsql = "select * from CheckDay_info "
    Set mrc3 = ExecuteSQL(txtsql, MsgText)
    '判断是不是当天已经结过帐了
    txtsql = "select * from checkday_info where date='" & Date & "'"
    Set mrc6 = ExecuteSQL(txtsql, MsgText)
    If mrc6.EOF = False Then
        mrc6!remaincash = Val(remaincash)
        mrc6!rechargecash = Val(rechargecash)
        mrc6!consumecash = Val(consumecash)
        mrc6!cancelcash = Val(cancelcash)
        mrc6!allcash = Val(remaincash) + Val(rechargecash) - Val(cancelcash) - Val(consumecash)
        mrc6!Date = Date
        mrc6.Update
        mrc6.Close
     Else
        mrc6.AddNew
        mrc6!remaincash = Val(remaincash)
        mrc6!rechargecash = Val(rechargecash)
        mrc6!consumecash = Val(consumecash)
        mrc6!cancelcash = Val(cancelcash)
        mrc6!allcash = Val(remaincash) + Val(rechargecash) - Val(cancelcash)
        mrc6!Date = Date
        mrc6.Update
        mrc6.Close
      End If
'更新周结账单(只需要删除周结账单表里的东西，然后将日结账单里所有的内容都跟新进去)
    txtsql = "delete checkweek_info"
    Set mrc = ExecuteSQL(txtsql, MsgText)

    txtsql1 = "insert into checkweek_info select * from checkday_info"
    Set mrc1 = ExecuteSQL(txtsql1, MsgText)

End Sub
（2）汇总部分

（这部分一些代码的技巧已经在上边讲过了，现在不给予解释）

'计算售卡张数
        txtsql = "select * from student_info where UserID = '" & Trim(comUserId.Text) & "'and ischeck = '" & "未结账" & "'"
        Set mrc = ExecuteSQL(txtsql, MsgText)
        txtSellCardCount.Text = mrc.RecordCount
   '计算退卡张数
        txtsql = "select * from cancelcard_info where userid='" & Trim(comUserId.Text) & "' and status = '" & "未结账" & "'"
        Set mrc2 = ExecuteSQL(txtsql, MsgText)
        txtQuitCardcount.Text = mrc2.RecordCount
   '计算充值金额(不区分固定还是临时用户)
        txtsql = "select sum(addmoney) from ReCharge_Info where UserID='" & Trim(comUserId.Text) & "' and status = '" & "未结账" & "'"
        Set mrc1 = ExecuteSQL(txtsql, MsgText)

        If IsNull(mrc1.Fields(0)) Then       '无记录
            txtRechargeMoney.Text = "0"
        Else
            txtRechargeMoney.Text = mrc1.Fields(0)
        End If

   '计算退卡金额

        txtsql = "select sum(CancelCash) from CancelCard_Info where userID = '" & Trim(comUserId.Text) & "'and status = '" & "未结账" & "'"
        Set mrc2 = ExecuteSQL(txtsql, MsgText)

        If IsNull(mrc2.Fields(0)) Then       '无记录
            txtQuitCardMoney.Text = "0"
        Else
            txtQuitCardMoney.Text = mrc2.Fields(0)
        End If

   '计算临时收费金额
        txtsql = "select sum(addmoney)as sum from student_info ,ReCharge_Info where student_info.cardno=recharge_info.cardno and student_info.cardno = '" & Trim(comUserId.Text) & "'  and ischeck = '未结账' and type = '临时用户'"
        Set mrc3 = ExecuteSQL(txtsql, MsgText)

        If IsNull(mrc3.Fields(0)) Then       '无记录
            txtTemReceiveMoney.Text = "0"
        Else
            txtTemReceiveMoney.Text = mrc3.Fields(0)
        End If

    '计算应收金额
        txtShouldGainMoney.Text = Val(txtRechargeMoney.Text) - Val(txtQuitCardMoney.Text)

心得：

在结账的时候一直抱怨给的系统有太多的bug，心里充满了负面的情绪，可是既然感觉到了有bug，那么我们就应该设计出没有bug的结账系统，知道做到，这才是我们应该做的。抱怨，没办法的说辞，全都是在逃避，遇到困难，解决它！

光哥_帅
关注
专栏目录
机房收费系统-结账
Marshallren的博客
10-22 288
前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。 结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账...
机房收费系统——功能描述
齐天佑
09-11 384
系统分为三个权限：一般用户（学生）；操作员；管理员； 一般用户（学生）：上机，修改密码，查询余额和上机记录； 查询余额：输入：卡号 返回：学号，班级，姓名，状态，性别，备注，系别，年级，余额 上机记录：输入：卡号 返回：卡号，姓名，上机日期，上机时间，下机日期，下机时间，余额，备注 充值记录：输入...
机房收费系统—结账
邱慕夏 没有比脚更长的路，没有比人更高的山
12-01 2279
第一遍机房收费系统很顺利就完成了，但是并没有完善，借着建一个样板的机会，写一个相对完善的机房收费系统。首先，就是完善结账功能，很多同学都没有做这个，因为前模板就没有完善这个功能，所以我就写这篇文章，给大家消除一下恐惧感。
机房收费系统之结账总结
Phoneix的博客
09-05 550
【前言】 说到机房结账，说难不难，说简单也简单，只要捋清楚思理接着再写代码就可以了，本次是第一次机房，只是初次接触结账的，只要是账能对的上就可以，这次机房的验收光结账我就验收了三次，还是有个严格的师傅好啊，跟我讲了很多，正好另一个师傅在做机房重构，一些内容和第一的机房的区别都告诉了。 【机房结账理解】 要想把结账做好首先要知道理解它的功能，结账是给谁结的对吧！我把机房项目当作成一个网吧。 ...
第一次机房收费系统【总结】——结账
程金鹏（程利鹏）
08-10 2060
说起机房，我个人感觉最具有挑战性的就是上下机，组合查询，以及结账。下面我就来说一说结账。 结账，概括的来说，就让管理员知道每天机房的金钱收支。详细的说是把每个操作员一天收支明细列出来让管理员一目了然。 下面我们先来看看结账的界面，如下图 经过分析，我们可知道，这就是管理员看操作员一天的工作明细，即售卡，充值，退卡的情况。 1、  购卡：就是在student_info表总查询没有
机房收费系统——可行性研究报告
YNO
11-19 1412
可行性研究报告 ■1 引言 所谓可行性就是要决定“做还是不做”较为客观，当今世界发生着巨大革新，信息时代已经成为推动社会前进的关键性因素地位不可撼动，工业4.0已然在路上。大数据时代获取知识的成本骤减，各种网络公开课和学习资料在度娘和谷歌等一系列搜索引擎的强大攻势下变的唾手可得，可谓是没有搜不到的，只有不会搜的。 当然作为在外人看来相当神秘的IT行业更是被赋予了更加神秘的色彩，但与此
VB机房收费系统08——结账
我能在河边钓一整天的鱼
01-09 495
前言 结账对于笔者也是一块新知识，首先是这个控件，他显示信息是什么原理，我就看了好多博客...... 正文 如图，中间的控件叫做SSTab。SSTab控件提供了一组选项卡，每个都充当一个容器，包含了其他的控件。 本窗体的运行原理是当我们选择操作员用户名后，显示操作员真实姓名。显示此人的工作记录在下面五个栏目中：购卡、充值、退卡、临时用户、汇总。 这里有个重点，计算
VB机房收费系统09——日结账单和周结账单
我能在河边钓一整天的鱼
01-09 782
前言 这是我整个机房项目中最后一个难点，这两个账单我卡了3天，敲完了后，我把收获分享在这里，希望对大家有所帮助。 正文 这窗体不是敲出来，是调用和显示出来的！ 这里我们就用到了报表，报表下个生成器然后自己画也可以，直接选择给的机房素材也可以。 以我亲身经历来说，画报表没有调试报表代码难，调试报表代码没有找到报表控件难！ 画报表 画报表参考博客：http
机房收费系统——可行性分析报告
好记性不如烂笔头--玲博小记
05-31 2963
在所有的文档中，可行性不光是第一个要写的文档，还是
机房收费系统
12-27
自己编写的程序，内含源代码+数据库，适用可以拿！
【机房收费系统】——结账
张兴军的博客
07-05 388
【前言】 机房收费系统快要完成了，结账部分是这机房收费系统中相对需要好好理清思路的一部分内容，在结账过程中有每个人都会有不同的见解去计算各种金额，理清楚几个金额之间的关系就非常好做了。 【计算分析】 售卡张数：student_info表中该用户未结账的记录条数 退卡张数：cancelcard_info表中该用户未结账的记录条数 充值金额：recharge_info表中该用户未结账的金...
第一次机房收费系统--结账
破茧成蝶
09-25 1044
前言 初次碰到结账这个问题，心里还是有很多的抵触，觉得太难了，下机的时候就觉得有些困难，因为涉及到了算账的问题，现在开始结账了，放眼望去，慢慢的全是账，不管怎样，先学做一个会计吧！
机房收费系统之日结账单和周结账单
邢玉 傻傻的坚持，总有一天会成功！
10-09 3681
日结和周结其实逻辑是一样的，不过就是日结只结了今天的账，而周结结的是选中日期之间的账。 一、日结账单 我日结账单采取的方法是：先判断今天的账结了吗，如果已经结了，就从日结账单表中删除记录，再结一次，如果没有结，就向日结账单表中写入记录。
机房收费—结账
田成荣
06-14 977
这是第二遍写这篇博客:十天前特别高兴的写博客是因为第二天就回家了，写完放在草稿箱里回家这周在家发表。哎，周日上csdn一看就惊呆了，没了，竟然没了。怎么能这样？ 没有办法的事再写。心情真是不一样了。当时想的不多就点了点给的系统，感觉貌似是知道了，就敲了。想法： 1.这个窗体主要是上边选择结账人下边对应显示对应的此人的各个表。 2.下边显示出的表代码都是一样的，对应好数据库表名，条件都是未结账的
机房收费系统之结账
尚锦 廊坊师范学院信息技术提高班 十二期
08-15 626
机房收费系统中的结账，首先要理清思路，谁给谁结账，如何结账。理解之后就容易多了。我将机房看作是一个网吧。里边的人员都是有着不同权限，管理员，相当于网吧里负责人或者老板，这间网吧是属于他的，他不需要干活，只要查和管理就好。而操作员是给管理员打工的人，是管理人们上机下机的人，相当于网吧里的网管，一般用户就是比操作员权限更低的人，只能做一些“查”的工作。在网吧中，操作员坐在柜台的地方管理着上网的人上机、
餐饮结账管理系统设计与实现
"这篇文档是关于餐饮结账管理系统的C语言程序设计课程设计报告，主要涵盖了系统设计的任务、要求、方案以及相关函数的说明。设计目的是实现结账信息的录入、查询、排序、统计等功能，并强调了程序的模块化设计和规范...
评论 105
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值