机房收费系统-结账

原创 于 2018-10-22 20:34:46 发布 · 318 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文探讨了机房收费系统中的结账功能，包括计算一天的收入，涉及充值、消费和退卡金额的处理。结账逻辑是：今日充值加上今日消费，再减去今日退卡。在实际操作中，重复结账会覆盖前一次记录，但不影响其他日期数据。退卡和充值金额的计算利用了SQL的SUM()和IsNull()函数。随着三大难点的解决，系统已准备好初步验收。

前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。

结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账表中，完成结账。若今天重复结账，则以最新的一次覆盖上一次，但不会覆盖其他日期的数据。

其中略微复杂的就是对收费合计的计算。计算公式：今日充值+今日消费-今日退卡

流程图：
在这里插入图片描述

代码部分：

Option Explicit
Dim mru As ADODB.Recordset
Dim mrcs As ADODB.Recordset
Dim mrcsb As ADODB.Recordset
Dim mrcc As ADODB.Recordset
Dim mrcc1 As ADODB.Recordset
Dim mrcr As ADODB.Recordset
Dim mrcd As ADODB.Recordset
Dim mrcsum As ADODB.Recordset
Dim mrcst As ADODB.Recordset
Dim mrbd As ADODB.Recordset
Dim txtSQL$
Dim MsgText$

Private Sub comboUserName_Click()
    txtSQL = "select * from user_info where userid='" & Trim(comboUserName.Text) & "'"
    Set mru = ExecuteSQL(txtSQL, MsgText)
    
    '点击时txtUserName随着comboUserName变化
    txtUserName.Text = mru!UserName
    
    '计算购卡张数
    txtSQL = "select * from student_info where userid='" & Trim(comboUserName.Text) & "' and ischeck='" & "未结账" & "' and date='" & Date & "'"
    Set mrcs = ExecuteSQL(txtSQL, MsgText)
    
        If mrcs.EOF Then
            txtBuyCard.Text = 0
        Else
            txtBuyCard.Text = mrcs.RecordCount
        End If
        
    '计算上期余额
    txtSQL = "select allcash from checkday_info where date='" & Date - 1 & "'"
    Set mrcc1 = ExecuteSQL(txtSQL, MsgText)
    
        If mrcc1.EOF Then
            txtYesCash.Text = 0
        Else
            txtYesCash.Text = mrcc1.Fields(0)
        End If
    
    '计算退卡张数
    txtSQL = "select * from cancelcard_info where userid='" & Trim(comboUserName.Text) & "' and status='" & "未结账" & "' and date='" & Date & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    
        If mrcc.EOF Then
            txtCancelCard.Text = 0
        Else
            txtCancelCard.Text = mrcc.RecordCount
        End If
    
    '计算充值余额
    txtSQL = "select sum(addmoney) from recharge_info where userid='" & Trim(comboUserName.Text) & "' and status='" & "未结账" & "' and date='" & Date & "'"
    Set mrcr = ExecuteSQL(txtSQL, MsgText)        
    If IsNull(mrcr.fields(0)) Then
            txtRechargeCash.Text = 0
        Else
            txtRechargeCash.Text = mrcr.Fields(0)
        End If
        
    '计算退卡余额
    txtSQL = "select sum(cancelcash) from cancelcard_info where userid='" & Trim(comboUserName.Text) & "' and status='" & "未结账" & "' and date='" & Date & "'"
    Set mrcc1 = ExecuteSQL(txtSQL, MsgText)
        
    If IsNull(mrcc1.fields(0)) Then
         txtCancelCardCash.Text = 0
    Else
         txtCancelCardCash.Text = mrcc1.Fields(0)
    End If
    
    '计算总卡数
    txtSumBuyCard.Text = Val(txtBuyCard.Text) - Val(txtCancelCard.Text)
    
    txtSQL = "select * from basicdata_info "
    Set mrbd = ExecuteSQL(txtSQL, MsgText)
    
    '计算用户上机计时收费
    txtSQL = "select sum(consume) as sum_info from line_info where ondate='" & Date & "'"
    Set mrcst = ExecuteSQL(txtSQL, MsgText)
    
            If mrcst.Fields(0) = Null Then
                txtUnTmpCash.Text = 0
            Else
                txtUnTmpCash.Text = mrcst.Fields(0)
            End If
            
    '计算应收费
    txtEarnCash.Text = Val(txtUnTmpCash.Text) + Val(txtRechargeCash.Text) - Val(txtCancelCardCash.Text)
    
    '购卡
    txtSQL = "select * from student_info where userid='" & Trim(comboUserName.Text) & "'"
    Set mrcs = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid1
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "学号"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "时间"
        
        Do While Not mrcs.EOF
        
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcs!cardno)
            .TextMatrix(.Rows - 1, 1) = Trim(mrcs!studentno)
            .TextMatrix(.Rows - 1, 2) = Trim(mrcs!Date)
            .TextMatrix(.Rows - 1, 3) = Trim(mrcs!Time)            mrcs.MoveNext
            
        Loop
        End With
    
    '充值
    txtSQL = "select * from recharge_info where userid='" & Trim(comboUserName.Text) & "'"
    Set mrcr = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid2
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "学号"
            .TextMatrix(0, 2) = "充值金额"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "时间"
        
        Do While Not mrcr.EOF
        
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcr!cardno)
            .TextMatrix(.Rows - 1, 1) = Trim(mrcr!studentno)
            .TextMatrix(.Rows - 1, 2) = Trim(mrcr!addmoney)
            .TextMatrix(.Rows - 1, 3) = Trim(mrcr!Date)
            .TextMatrix(.Rows - 1, 4) = Trim(mrcr!Time)            mrcr.MoveNext
            
        Loop
        End With
    '退卡
    txtSQL = "select * from cancelcard_info where userid='" & Trim(comboUserName.Text) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid3
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "学号"
            .TextMatrix(0, 2) = "退还金额"
            .TextMatrix(0, 3) = "日期"
            .TextMatrix(0, 4) = "时间"
        
        Do While Not mrcc.EOF
        
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcc!cardno)
            .TextMatrix(.Rows - 1, 1) = Trim(mrcc!studentno)
            .TextMatrix(.Rows - 1, 2) = Trim(mrcc!cancelcash)
            .TextMatrix(.Rows - 1, 3) = Trim(mrcc!Date)
            .TextMatrix(.Rows - 1, 4) = Trim(mrcc!Time)            mrcc.MoveNext
            
        Loop
        End With
         
    '临时用户
    txtSQL = "select * from student_info where userid='" & Trim(comboUserName.Text) & "' and type='" & "临时用户" & "'"
    Set mrcs = ExecuteSQL(txtSQL, MsgText)
    
    With MSHFlexGrid4
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "卡号"
            .TextMatrix(0, 1) = "学号"
            .TextMatrix(0, 2) = "日期"
            .TextMatrix(0, 3) = "时间"
        
        Do While Not mrcs.EOF
        
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = Trim(mrcs!cardno)
            .TextMatrix(.Rows - 1, 1) = Trim(mrcs!studentno)
            .TextMatrix(.Rows - 1, 2) = Trim(mrcs!Date)
            .TextMatrix(.Rows - 1, 3) = Trim(mrcs!Time)            mrcs.MoveNext
            
        Loop
        End With
End Sub

Private Sub cmdFinCash_Click() 
    Dim mrcd1 As ADODB.Recordset    
    If comboUserName.Text = "" Then
        Label12.Caption = "请选择用户！"
        comboUserName.SetFocus
        Exit Sub
    End If
    
    '将统计的数据放入日结账单表中
    txtSQL = "select * from checkday_info where date='" & Date & "'"
    Set mrcd = ExecuteSQL(txtSQL, MsgText)
    
    '若有重复记录，覆盖添加新的记录
    If mrcd.EOF = False Then
        With mrcd
            !remaincash = Trim(txtYesCash.Text)
            !rechargecash = Trim(txtRechargeCash.Text)
            !consumecash = txtUnTmpCash.Text
            !cancelcash = Trim(txtCancelCardCash.Text)
            !allcash = Trim(txtEarnCash.Text)
            !Date = Date
        End With
        mrcd.Update
        
     '如果没结过账就添加新记录
    Else
        txtSQL = "select * from checkday_info "
        Set mrcd1 = ExecuteSQL(txtSQL, MsgText)
        
        mrcd.AddNew
        mrcd!remaincash = Trim(txtYesCash.Text)
        mrcd!rechargecash = Trim(txtRechargeCash.Text)
        mrcd!consumecash = Trim(txtUnTmpCash.Text)
        mrcd!cancelcash = Trim(txtCancelCardCash.Text)
        mrcd!allcash = Trim(txtEarnCash.Text)
        mrcd!Date = Date
        mrcd.Update
        mrcd.Close    End If    MsgBox "结账完成！"
    Unload MeEnd SubPrivate Sub Form_Activate()
    Dim str As String
    
    txtSQL = "select * from user_info"
    Set mru = ExecuteSQL(txtSQL, MsgText)
    
    '判断表内是否有记录
    If mru.EOF Then
        MsgBox "没有记录了，是否前往添加？", vbOKCancel, "提示"
        '若选择是
        If str$ = vbOK Then
            frmAddUser.Show
            frmFinCas.Hide
        Else
            Exit Sub
            Unload Me
        End If
    End If
End Sub 

Private Sub Form_Load()
    Label3.ForeColor = vbRed
    txtUserName.Enabled = False
    
    Dim i As Integer

    txtSQL = "select * from user_info "
    Set mru = ExecuteSQL(txtSQL, MsgText)
    
    '显示表内所有用户
    For i = 1 To mru.RecordCount
        comboUserName.AddItem mru!UserID
        mru.MoveNext
    Next i
    mru.Close
    
End Sub

PS：在结账部分中，有一个很重要的步骤：即对退卡金额、充值金额的计算。该部分的计算与判断空值需要涉及两个较重要的SQL语法：SUM（）与IsNull（）。前者功能为将该列中数据的加和；而后者则是用于判断是否有空值。在之后的优化部分，我会对这两方面做出详细讲解。

结语：三大困难都已经解决，可以做第一遍验收了

机房收费系统
康
09-27 4071
机房收费系统VB版，是我们第一个不参照代码做出来的系统。写一下做这个系统的历程，第一次完完全全自己的系统，值得记录！  一、功能分析 首先进行功能分析： 机房收费系统总体上分三个级别：一般用户、操作员、管理员。每个权限有每个权限的特定功能。先看一般用户功能：                                     一般用户权限是最低的，仅仅能查看数据库中的记录；能
机房收费管理系统
最新发布
weixin_62881069的博客
08-22 1486
为期一学期一周两节课的C语言实训课已经到了尾声，给我的影响非常大，通过这次实训，使我明白C语言这门课程光仅仅听课是远远不够的，上机训练也不容忽视。通过上机训练，我明白自己知识的不足，经历这次实训，使我更加深刻的理解C语言中的知识点。通过实训，我找到许多知识漏点，学到了很多以前不懂的知识，使知识更加牢固、深刻。遇到自己当时不懂如何编写的题目时，经过自己的学习和同学的交流后，试遍、改代码、更正，最后也是很不容易的编写出来，虽然过程很艰辛，但带来的成就感也是增加对C语言的兴趣和学好C语言的信心。
【机房收费系统】结账
学习使用
09-09 950
我在进行结账窗体的时候，真的是被困了很长时间，好多逻辑性的东西以及一些常识性的东西都没有考虑到，花了整整1天时间才算是初步整理清楚，下面就将一些我遇到的问题以及应该考虑到的问题写下来，希望可以帮助到有需要的读者。 首先，在窗体加载的时候应该让它自动查询管理员和操作员的信息并且在下拉控件中显示；其次，当选中用户的时候应该显示用户真实姓名；然后，在SSTab控件中显示该用户的相应操作信息；最后，结账
机房收费系统---详细设计说明书
杨楠
12-23 6536
详细设计说明书 1引言 1.1编写目的 说明编写这份详细设计说明书的目的，指出预期的读者。 该文档是在概要设计的基础上，进一步的细化系统结构，展示了软件结构的图表，物理设计，数据结构设计，以及算法设计，详细的介绍了系统各个模块是如何实现的，包括涉及到的算法，逻辑流程等，为下一步系统的实现和测试做准备。   预期读者：编码人员，项目负责人 1.2背景 A．软件名称：机房收费系统 B
机房收费管理系统课程设计（C语言）
06-20
### 机房收费管理系统课程设计（C语言） #### 课程设计背景与意义 机房收费管理系统作为一门课程设计项目，其主要目的是让学生通过实践来掌握C语言编程的基础知识及其应用能力。通过本项目的开发，不仅可以加深对...
VB机房收费系统09——日结账单和周结账单
我能在河边钓一整天的鱼
01-09 826
前言 这是我整个机房项目中最后一个难点，这两个账单我卡了3天，敲完了后，我把收获分享在这里，希望对大家有所帮助。 正文 这窗体不是敲出来，是调用和显示出来的！ 这里我们就用到了报表，报表下个生成器然后自己画也可以，直接选择给的机房素材也可以。 以我亲身经历来说，画报表没有调试报表代码难，调试报表代码没有找到报表控件难！ 画报表 画报表参考博客：http
机房收费系统之结账
刘亚男
02-27 412
流程图 部分代码 Private Sub SSTab1_Click(PreviousTab As Integer) Dim mrcCan As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Dim mrcReC As ADODB.Recordset Dim mrcStu ...
VB【E咖吧收费系统】报表（日结、周结账单）
Jun5203
09-02 950
前言  做机房的三大难点之一——“报表”即将“问世”，不知你准备好了吗？说实话，一开始我刚看到原系统日结、周结账单的时候真不知道它是个啥东西，自己天真的以为Text文本框里边加的内容，经站在巨人的肩膀上之后我终于懂得了其中的道理，原来它是一个软件和VB进行了交互。虽说网上步骤千万遍，但是自己总结一下也是很不错的呢！ 步骤 1、安装Grid++Report报表设计器； 2、插入页眉、页脚...
vb版机房收费系统
09-13
vb版，机房收费系统
机房收费系统——结账
李光 未来科技
12-10 1123
前言：机房收费系统的结账花了我四天的时间，终于将其整明白了，从中有非常多的心得体会，下来分享给大家！1、流程图流程图是特别关键的一步，它代表了你整体的思路！（期中checkweek与checkday整体都差不多，所以整篇文章以日结账单为说明）2、汇总思路 售卡张数=购卡选项卡的记录总数 退卡张数=退卡选项卡的记录总数 总售卡数=售卡张数-退卡张数 退卡金额=要结账的操作员在CancelC
【机房收费系统】——结账
张兴军的博客
07-05 428
【前言】 机房收费系统快要完成了，结账部分是这机房收费系统中相对需要好好理清思路的一部分内容，在结账过程中有每个人都会有不同的见解去计算各种金额，理清楚几个金额之间的关系就非常好做了。 【计算分析】 售卡张数：student_info表中该用户未结账的记录条数 退卡张数：cancelcard_info表中该用户未结账的记录条数 充值金额：recharge_info表中该用户未结账的金...
机房收费系统—结账
赵小叔
10-11 1569
接踵而至的是结账，在这一部分中重要的清晰的思路，理清钱的来龙去脉。琢磨清楚结账的钱是哪个操作员结的，结的是哪个用户的帐。在这个系统中有着不同的权限，管理员、操作员、一般用户。在这里来个比喻：机房如思雨网吧，管理员就是思雨的大boss，而操作员就是平常在那里的干活的人，而对于一般用户就是那些在哪做兼职的网管，就是做一些最基本的操作，如查询余额、开个账号等。    清楚他们的具体操作权限，现在就晓得
JSP机房收费系统完整开发项目下载
系统需要记录用户的登录信息、计费时长、收费标准以及结账流程。对于机房管理来说，这样的系统可以有效提高管理效率，简化收费流程，确保收费的准确性和透明性。 4. **系统功能需求**: - **用户认证**: 系统需要...
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值