机房收费系统之结账

最新推荐文章于 2016-03-27 17:22:37 发布
最新推荐文章于 2016-03-27 17:22:37 发布
阅读量678 收藏
点赞数
分类专栏： 机房收费系统 文章标签： 机房收费系统
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/y18333610782/article/details/47906097
版权

【前言】

        对于机房收费系统的管理员下结账功能这一部分，重要的需要理清楚逻辑思路，逻辑很重要。具体的部分在下面作出具体解释。

【正文】

       整体思路：

       一、对于SSTab1中需要显示信息的购卡、充值、退卡、临时用户这四部分中，不受操作员用户名限制的基本信息可以先在窗体Load事件中实现。同时在窗体加载过程中，对于操作员的用户名和真实姓名的信息也是在窗体加载时显示出来。具体如下：

'在combobox框中显示数据库中关于操作员的信息
  txtSQL = "select * from user_info where level='" & "操作员" & "'"
  Set mrc = ExecuteSQL(txtSQL, Msgtext)
  Do While mrc.EOF = False
    comboUserID.AddItem mrc.Fields(0)
    mrc.MoveNext
  Loop
  
  '购卡基本信息
  MfgBuyCard.TextMatrix(0, 0) = "学号"
  MfgBuyCard.TextMatrix(0, 1) = "卡号"
  MfgBuyCard.TextMatrix(0, 2) = "日期"
  MfgBuyCard.TextMatrix(0, 3) = "时间"
  
  '充值基本信息
  MfgRecharge.TextMatrix(0, 0) = "学号"
  MfgRecharge.TextMatrix(0, 1) = "卡号"
  MfgRecharge.TextMatrix(0, 2) = "充值金额"
  MfgRecharge.TextMatrix(0, 3) = "日期"
  MfgRecharge.TextMatrix(0, 4) = "时间"
  
  '退卡基本信息
  MfgCancelCard.TextMatrix(0, 0) = "学号"
  MfgCancelCard.TextMatrix(0, 1) = "卡号"
  MfgCancelCard.TextMatrix(0, 2) = "日期"
  MfgCancelCard.TextMatrix(0, 3) = "时间"
  MfgCancelCard.TextMatrix(0, 4) = "退卡金额"
  
  '临时用户基本信息
  MfgTemporary.TextMatrix(0, 0) = "学号"
  MfgTemporary.TextMatrix(0, 1) = "卡号"
  MfgTemporary.TextMatrix(0, 2) = "日期"
  MfgTemporary.TextMatrix(0, 3) = "时间"

    

     二、在购卡、充值、退卡、临时用户这四部分中信息的基本内容就收到操作员的影响，不同的操作员在这四部分中显示的信息是不同的，因此，对于这一部分，我定义了一个过程：

     

Private Sub viewdata()
    Dim mrcBC As ADODB.Recordset
    Dim mrcRC As ADODB.Recordset
    Dim mrccc As ADODB.Recordset
    
    '购卡具体信息
    txtSQL = "select * from student_Info where Ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
    Set mrcBC = ExecuteSQL(txtSQL, Msgtext)
    With MfgBuyCard
        While mrcBC.EOF = False
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = mrcBC.Fields(1)
        .TextMatrix(.Rows - 1, 1) = mrcBC.Fields(0)
        .TextMatrix(.Rows - 1, 2) = mrcBC.Fields(12)
        .TextMatrix(.Rows - 1, 3) = mrcBC.Fields(13)
        mrcBC.MoveNext
        Wend
    End With
    
    '充值基本信息
    txtSQL = "select studentno,cardno,addmoney,date,time from recharge_Info where status ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
    Set mrcRC = ExecuteSQL(txtSQL, Msgtext)
    With MfgRecharge
        While mrcRC.EOF = False
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = mrcRC.Fields(0)
            .TextMatrix(.Rows - 1, 1) = mrcRC.Fields(1)
            .TextMatrix(.Rows - 1, 2) = mrcRC.Fields(2)
            .TextMatrix(.Rows - 1, 3) = mrcRC.Fields(3)
            .TextMatrix(.Rows - 1, 4) = mrcRC.Fields(4)
            mrcRC.MoveNext
        Wend
    End With
    
    '退卡基本信息
    txtSQL = "select studentno,cardno,date,time,cancelcash from cancelcard_info where status='未结账' and userid ='" & Trim(comboUserID.Text) & "'"
    Set mrccc = ExecuteSQL(txtSQL, Msgtext)
    With MfgCancelCard
        While mrcRC.EOF = False
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = mrcRC.Fields(0)
            .TextMatrix(.Rows - 1, 1) = mrcRC.Fields(1)
            .TextMatrix(.Rows - 1, 2) = mrcRC.Fields(2)
            .TextMatrix(.Rows - 1, 3) = mrcRC.Fields(3)
            .TextMatrix(.Rows - 1, 4) = mrcRC.Fields(4)
            mrccc.MoveNext
        Wend
    End With
    
    '临时用户基本信息
    'txtSQL = "select * from student_Info where Ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"   '注意与下列语句的区别
    txtSQL = "select studentno,cardno,date,time from student_Info where ischeck ='未结账' and type ='临时用户' and userid='" & Trim(comboUserID.Text) & "'"
   Set mrcBC = ExecuteSQL(txtSQL, Msgtext)
    With MfgTemporary
        While mrcBC.EOF = False
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = mrcBC.Fields(0)
        .TextMatrix(.Rows - 1, 1) = mrcBC.Fields(1)
        .TextMatrix(.Rows - 1, 2) = mrcBC.Fields(2)
        .TextMatrix(.Rows - 1, 3) = mrcBC.Fields(3)
        mrcBC.MoveNext
        Wend
    End With

     具体信息在该过程中实现后，在选出不同的操作员的时候直接调用该过程就可以，减少了代码的重复性：

     

Private Sub comboName_click()
  txtSQL = "select * from user_info where username='" & Trim(comboName.Text) & "'"
  Set mrc = ExecuteSQL(txtSQL, Msgtext)
  comboUserID.Text = mrc.Fields(0)
  Call viewdata
End Sub

Private Sub comboUserID_click()
    txtSQL = "select * from user_info where userid='" & Trim(comboUserID.Text) & "'"
  Set mrc = ExecuteSQL(txtSQL, Msgtext)
  comboName.Text = mrc.Fields(3)
  Call viewdata
End Sub

    

     具体结账部分的思路：

     在SSTab1中的结账部分，显示的内容也不算难，重要的就是理清思路，理解每一个文本框中需要显示的内容一切也都不是问题。其内容主要有售卡张数、退卡张数、充值金额、临时收费金额、退卡金额、总售卡数、应收金额，对于总售卡数来说，即为售卡张数减去退卡张数；应收金额等于充值金额减去退卡金额，刚开始认为临时用户的收费金额应当算到应收金额中，但是后来想了想，临时收费金额在充值金额中已经被算上了，因此在这里不用再次算入其中。（希望大家可以提出不同的见解，我们一起进行讨论）

      

''''''''''''''结账部分显示的内容
    '售卡张数
    txtSQL = "select * from student_info where ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"  '售卡张数
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    txtCradNumber = mrc.RecordCount
    
    '退卡张数
    txtSQL = "select * from cancelcard_info where status='未结账'and UserID='" & Trim(comboUserID.Text) & "'"   '退卡张数
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    txtBackCardNumber = mrc.RecordCount
    
    '总售卡数
    txtAllCardNumber.Text = Val(txtCradNumber.Text) - Val(txtBackCardNumber)
    
    '充值金额
    Dim recharge As Variant
    txtSQL = "select sum(addmoney)from recharge_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'"   '充值金额
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.BOF And mrc.EOF Then
                recharge = 0
            Else
                If IsNull(Trim(mrc.Fields(0))) Then
                    recharge = 0
                Else
                    recharge = mrc.Fields(0)
                End If
    End If

    txtRechargeCash.Text = recharge
    
    '退卡金额
    txtSQL = "select sum(cancelcash)from cancelcard_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'" '退卡金额
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.BOF And mrc.EOF Then
                recharge = 0
            Else
                If IsNull(Trim(mrc.Fields(0))) Then
                    recharge = 0
                Else
                    recharge = mrc.Fields(0)
                End If
    End If

    txtCancelCash.Text = recharge
    
    
    '临时收费金额
    Dim temporaryCash As Variant
    txtSQL = "select sum(cash)from student_info where ischeck ='未结账'and type ='临时用户' and UserID='" & Trim(comboUserID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.BOF And mrc.EOF Then
                temporaryCash = 0
            Else
                If IsNull(Trim(mrc.Fields(0))) Then
                    temporaryCash = 0
                Else
                    temporaryCash = mrc.Fields(0)
                End If
    End If
    txtTemporaryCash.Text = temporaryCash
    
    
    
    '应收金额

    Dim consume As Variant, cancelcash As Variant
    '''''''''充值金额
    txtSQL = "select sum(cash)from student_info where ischeck='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.BOF And mrc.EOF Then
                recharge = 0
            Else
                If IsNull(Trim(mrc.Fields(0))) Then
                    recharge = 0
                Else
                    recharge = mrc.Fields(0)
                End If
    End If

    txtAllCash.Text = recharge
    
    ''''''''''退卡金额
    
    txtSQL = "select sum(cancelcash)from cancelcard_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    If mrc.BOF And mrc.EOF Then
                cancelcash = 0
            Else
                If IsNull(Trim(mrc.Fields(0))) Then
                    cancelcash = 0
                Else
                    cancelcash = mrc.Fields(0)
                End If
    End If
    txtAllCash.Text = txtAllCash.Text - cancelcash

 

【总结】
         一、逻辑思路对于我们来说很重要，我们应该着力去培养

         二、在写代码的时候要细心，有时候一个微小的错误都会浪费很多时间

         三、自己的代码调试能力还不够，希望自己可以在以后中着重培养

12期-岳苗苗
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 24
    评论
专栏目录
机房收费系统-结账
Marshallren的博客
10-22 259
前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。 结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账...
机房收费系统 之 结账
张旭 廊坊师范学院信息技术提高班 十二期
09-05 693
结账，顾名思义就是把钱算一下。   这的结账不是给每一个卡号结账，而是给一个操作员结账，算一下这个操作员一共卖卡张数，退卡张数，实收金额，应收金额等等。 结账的界面是这个样子的，其中用到一个选项卡        这个窗体相比较而言还有有点难度的。别看一个小小的操作员用户名，它不是一般的Combo控件，对于一般的Combo控件下拉菜单中的内容， 例如使用ComboBox
机房收费系统 之结账
博学之,审问之,慎思之,明辨之,笃行之
11-19 2072
结完帐才发现，从最初敲窗体的时候，要一点点照着源码敲。而现在不知不觉间，我也能一个个的功能块的敲。虽然问题总是有，虽然总是要不断的去查一些东西。我还是能明显的感觉到自己越来越顺手了。到现在才发现，重要的不是去实现一个功能。而是，之前实现这个功能时，我们对它的分析，思路。学习的快乐就在于对一个问题从焦头烂额到豁然开朗。所以，再也不要怕。再也不要但心。只要你想，只要你做。 对所用到的表进行分析。
机房收费管理系统课程设计（C语言）
06-20
### 机房收费管理系统课程设计（C语言） #### 课程设计背景与意义 机房收费管理系统作为一门课程设计项目，其主要目的是让学生通过实践来掌握C语言编程的基础知识及其应用能力。通过本项目的开发，不仅可以加深对...
机房收费系统顶层图
11-23
机房收费系统顶层图是一种设计方法，用于描绘整个系统架构的高级视图，它强调了系统的主要组件及其相互关系，以便于理解系统的工作流程。在本文中，我们将深入探讨机房收费系统的顶层设计理念，以及其中涉及到的关键...
机房收费管理系统.doc.doc
06-22
系统流程图表明，机房收费管理系统的主要流程图包括查询事务信息、查询程序、机房使用信息、信息生成程序、信息报表、学生上机信息、文件结账事务、结账程序、费用账单等几个方面。 需求分析表明，机房收费管理系统...
机房收费管理系统课程设计.pdf
06-29
机起始时间(小时):");scanf("%d",&student[i]...}void end_money()/*结账功能*/{int money, total_hour;total_hour = (student[i-1].end.hour - student[i-1].begin.hour) + (student[i-1].end.minute >= student[i-1].
机房收费系统需求分析文档
09-28
机房收费系统需求分析文档是软件开发前期的重要文档，它旨在明确系统的目标、用户群体、功能需求和系统运行环境，确保设计出满足用户需求的软件。以下是对文档内容的详细说明： 1. **编写目的**： 文档的编写是...
VB.Net文本框提示及一次性清空
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
03-26 3767
【前言】      第二次基础机房收费系统，在很多系统优化方面有了更多的认识，对于窗体中文本框内容是否为空的提示以及一次性清空其内容，这些在第一次的机房收费系统中进行了尝试，在这次的机房收费系统个人重构的过程中，再次产生了这一方面的需求，如何减少代码的重复率，于是对该方面进行了探究。 【具体操作】      操作一：      对于判断窗体中文本框是否为空以及一次性清空文本框内容这一问题，
DataGridView显示数据之方法一
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
03-27 2631
【前言】       机房收费系统个人重构过程中使用到了DataGridView控件，该控件用来显示数据库返回的的数据，在第一版VB语言的机房收费系统中，我们使用的是MSFlexGrid控件，功能类似，初步使用DataGridView控件，在代码语句上还不知如何去使用，通过本次的机房收费系统个人重构，到目前为止，对DataGridView控件的初步使用有了一个简单的了解，今天来介绍第一种显示数据
七层登录之机房收费系统
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
03-13 855
一、概念简介      七层是在三层的基础上形成的，三层为UI层、BLL层、DAL层，在此基础上，增添了Facade层、Factory层、IDAL层、Entity层四层。UI层主要是与用户接触的界面；BLL层主要负责一些功能的业务逻辑判断；DAL层是负责与数据库接触；实体层Entity是为了和数据库表解耦，使要访问的字段都在其中；Facade层是在UI层与BLL层之间增添的一层，我们也称为外观层
机房收费系统之总结（一）
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
08-09 827
【前言】            到目前为止，机房收费系统已经进行了一半以上，这段时间出现问题那是很正常的一件事情，现在自己也是不畏惧问题，有问题就努力去思考解决问题的思路，有了思路一切也都迎刃而解，当然，在遇到问题自己独立去解决的时候心里充满了满满的成就感，下面就来分享一下这段时间的收获吧   【问题总结】 一、老生常谈的问题：
机房收费系统之常用语句
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
09-06 749
【前言】        机房收费系统在验收的时候，师父最后给我提了一个建议，希望我可以关于机房收费系统的常用语句总结一下，那些固定的语句以后也会经常会用到，总结一下对于以后的学习比较有利，自己也较有同感，因此写下这篇博客。   【正文】 一、对于数据库的增、删、改、查 ： Dim mrc As ADODB.Recordset Dim txtSQL As String
机房收费系统之组合查询
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
08-16 689
【前言】       组合查询在机房收费系统中出现的较多，同时个人认为组合查询还是对大脑的逻辑思维要求蛮高的，因此，在这篇博客里以学生基本信息查询窗体为例来总结一下机房收费系统之组合查询。   【正文】 窗体： 逻辑思路：   （一）对于窗体中的需要填写的内容设置为非空：   '***************第一行所有内容不为空 If Trim(comboFieldname
机房收费系统之准备工作
岳苗苗 廊坊师范学院信息信息技术提高班 十二期
07-26 598
【前言】      今天就来写写自画完机房收费管理系统的思维导图后的工作吧，暑假前把该系统的思路梳理了一下，返校后一直拖着没有抓紧时间开始，前几天开始进入正轨，那么这篇文章就来写写在在暑假前刚接触该系统时所做的准备工作过程中自己所遇到的问题和收获吧！   【正文】   一、MDF和LDF文件    MDF文件为数据库的数据文件，主要存放数据库的数据信息；LDF文件为数据库的日志文件，
chromedriver-mac-arm64_126.0.6474.0.zip
最新发布
07-31
chromedriver-mac-arm64_126.0.6474.0.zip
"学校机房收费管理系统设计与实现报告
机房收费管理系统的操作相对简单，主要为学生提供上网学习的便利和自助结账的功能。因此，从技术、经济和操作三个方面进行的可行性分析显示，该系统是值得开发和应用的。 在系统的需求分析和概要设计部分，小组成员...
评论 24
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值