机房收费系统-结账

最新推荐文章于 2020-08-18 13:55:02 发布
最新推荐文章于 2020-08-18 13:55:02 发布
阅读量621 收藏
点赞数 2
分类专栏： ----【机房收费系统】
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weienjun/article/details/52074454
版权

前言：

     敲着敲着，就到了最后的结账。一段时间与代码的碰撞，发现早已褪去了起初的畏惧和怀疑，反而越来越自信和自如了。这就是所谓的增加了代码的亲切感吧！突然发现生活开始越来越离不开代码，有时候就连做梦都是这个功能怎么实现，怎样让代码变得有准又精。好了，接下来给大家说说这最后的功能，结账吧！


内容：

     一、注意点：

     所谓结账，就是将该操作员或管理员将他所操作的购卡、充值、退卡以及临时用户的消费结账，将应得的钱结出来，形成收入，方便接下来的运行。其中比较重要的是汇总。我是这样计算的：

    1、售卡张数就是学生（student）表中UserID为登录名，未结账且在使用状态的卡的张数。

    2、退卡张数退卡表（cancelCard）中userID为登录名，未结账状态的卡的张数。

    3、总售卡数 = 售卡张数 - 退卡张数

    4、退卡金额为条件为2的退卡金额的总和。

    5、充值金额为充值表中UserID为登录名，未结账的充值金额的总和。

    6、应收金额 = 充值金额 - 退卡金额

          PS：这里需要注意的是注册时的充值金额在注册时就要更新到充值表中，切记不能忘记注册时的充值金额，不                    然会数据混乱。

    7、临时用户退卡就等于结账。

    最后当点击结账按钮时，我们要把student表、cancelcard表以及recharge表的ischeck属性改为“结账“！

    二、给大家展示一下部分代码吧，大家可以借鉴一下：

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim i As Integer, j As Integer, t As Integer
If SSTab1.Tab = 0 Then                              '当点击购卡时

  With MSFlexGrid1
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
  
  '选择student表中用户名为combo、未结账且为使用状态的数据
  txtsql = "select * from student_Info where UserID='" & Trim(ComboUserID.Text) & "'and Ischeck='" & "未结账" & "'and status='" & "使用" & "'"
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  
  Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1) & "")
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(0) & "")
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(12) & "")
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(13) & "")
        mrc.MoveNext
  Loop
  End With
End If



If SSTab1.Tab = 1 Then                                         '当点击充值时

  With MSFlexGrid2
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "充值金额"
        .TextMatrix(0, 3) = "日期"
        .TextMatrix(0, 4) = "时间"
  
   '选择charge表中用户名为combo、未结账的数据
  txtsql = "select * from Recharge_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  
  Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1) & "")
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(2) & "")
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(3) & "")
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(4) & "")
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(5) & "")
        mrc.MoveNext
  Loop
  End With
End If


If SSTab1.Tab = 2 Then                                              '当点击退卡时

  With MSFlexGrid3
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "退卡金额"
        .TextMatrix(0, 3) = "日期"
        .TextMatrix(0, 4) = "时间"
  
   '选择cancelcard表中用户名为combo、未结账的数据
  txtsql = "select * from CancelCard_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  
  Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0) & "")
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1) & "")
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2) & "")
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3) & "")
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4) & "")
        mrc.MoveNext
  Loop
  End With
End If


If SSTab1.Tab = 3 Then                                          '当点击临时用户时

  With MSFlexGrid4
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "学号"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "日期"
        .TextMatrix(0, 3) = "时间"
  
  '选择学生表中用户名为comboid,类型为临时用户，且未结账的用户
  txtsql = "select * from student_Info where UserID='" & Trim(ComboUserID.Text) & "'and type='" & "临时用户" & "'and Ischeck='" & "未结账" & "'"
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  
  Do While Not mrc.EOF
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1) & "")
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(0) & "")
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(12) & "")
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(13) & "")
        mrc.MoveNext
  Loop
  End With
End If


If SSTab1.Tab = 5 Then                                             '当点击退出时
  Unload Me
End If


If SSTab1.Tab = 4 Then
  txtsql = "select * from student_Info where UserID='" & Trim(ComboUserID.Text) & "'and Ischeck='" & "未结账" & "'and status='" & "使用" & "'"       '计算售出卡的数量
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  txtSaleCard.Text = Val(mrc.RecordCount)                 '售卡数量
  
  txtsql = "select * from CancelCard_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"   '计算退卡数量
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  txtRtnNum.Text = Val(mrc.RecordCount)                   '退卡数量
  
  txtSaleCardNumber.Text = Val(txtSaleCard.Text) - Val(txtRtnNum.Text)           '售卡总数=售卡数量-退卡数量
  
  
  txtsql = "select * from CancelCard_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"   '退卡金额等于该操作员操作的所有用户退卡金额的总和
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  For i = 1 To mrc.RecordCount
    txtRtnSum.Text = Val(txtRtnSum.Text) + Val(mrc.Fields(2))
    mrc.MoveNext
  Next i

  txtsql = "select * from Recharge_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"       '充值时的金额
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  t = 0
  For i = 1 To mrc.RecordCount
    t = t + Val(mrc.Fields(3))
    mrc.MoveNext
  Next i
  txtRechargeSum = Val(t)                  '得出退卡金额
  
  
  txtsql = "select * from student_Info where UserID='" & Trim(ComboUserID.Text) & "'and type='" & "临时用户" & "'and Ischeck='" & "未结账" & "'and status='" & "使用" & "'"         '临时收费金额等于注册时的金额加上充值时的金额
  Set mrc = ExecuteSQL(txtsql, Msgtext)                         '注册时的金额
  i = 0: t = 0
  If Not mrc.EOF Then
    For i = 1 To mrc.RecordCount
      j = j + Val(mrc.Fields(7))
      mrc.MoveNext
    Next i
  End If
  txtsql = "select * from Recharge_Info where UserID='" & Trim(ComboUserID.Text) & "'and status='" & "未结账" & "'"
  Set mrc = ExecuteSQL(txtsql, Msgtext)
  i = 0: t = 0
  If Not mrc.EOF Then
    For i = 1 To mrc.RecordCount
      t = t + Val(mrc.Fields(3))
      mrc.MoveNext
    Next i
  End If
  txtTemporarySum = Val(j) + Val(t)                  '将两项相加得出退卡金额
  
  txtSum.Text = Val(txtRechargeSum.Text) + Val(txtTemporarySum.Text) - Val(txtRtnSum.Text)         '应收金额等于充值金额+临时收费金额-退卡金额
  
End If
End Sub

总结：

     最后到了结账，也就意味着机房收费系统到了尾声。当然，最重要的就是颗粒归仓。很多同学都说要形成自己的代码库，这点我非常的赞同，相信通过几年的积累，代码库一定会形成，而且会又精又准。


魏恩君--Caroline
关注
专栏目录
机房收费系统之结账
刘亚男
02-27 346
流程图 部分代码 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 ...
机房收费系统--类图
铃铛
11-03 2533
类图：用来描述系统静态部分。它是最常用的UML图，可以显示出类、接口以及它们的静态结构和关系，它用于描述系统的结构化设计。        类图通常包括：类，接口，协作，关系。        类：如图所示。如果类名为斜体，表示类为抽象类；如果方法为斜体，表示此方法为抽象方法。类的属性和方法前面的图标为可见性修饰符。这里画错了，人这个类应该是抽象类。                    从
dubbo-服务消费端类图
songyang19871115的博客
08-17 660
dubbo框架源码分析之服务消费者 dubbo提供了服务提供者和消费者两种角色，他俩是相辅相成的。而且对于消费者而言也有复杂的处理逻辑。特别是集群模式下和特殊场景下如快速失败，重试啊等等。由于消费者和提供者都是invoker的一种具体示例。具体可看上文invoker类图。 本文只侧重描述消费者结合spring的配置及配置模式类图。 原图地址
机房收费系统
康
09-27 3999
机房收费系统VB版，是我们第一个不参照代码做出来的系统。写一下做这个系统的历程，第一次完完全全自己的系统，值得记录！  一、功能分析 首先进行功能分析： 机房收费系统总体上分三个级别：一般用户、操作员、管理员。每个权限有每个权限的特定功能。先看一般用户功能：                                     一般用户权限是最低的，仅仅能查看数据库中的记录；能
机房收费系统-----全部下机或者选中下机&错误30015
企鹅不该去银河怀疑人生
08-18 555
全部下机 全部下机功能的实现看下面代码 Private Sub AllOutLine_Click() '全部下机 Rem:连接Online表判断是否有上机的人员 TxtSQL = "select * from Online_info" Set mrcOnline = ExecuteSQL(TxtSQL, MsgText) Do While Not MSFlexGrid1.Rows = 1 If mrcOnline.EOF
机房收费系统---详细设计说明书
杨楠
12-23 6351
详细设计说明书 1引言 1.1编写目的 说明编写这份详细设计说明书的目的，指出预期的读者。 该文档是在概要设计的基础上，进一步的细化系统结构，展示了软件结构的图表，物理设计，数据结构设计，以及算法设计，详细的介绍了系统各个模块是如何实现的，包括涉及到的算法，逻辑流程等，为下一步系统的实现和测试做准备。   预期读者：编码人员，项目负责人 1.2背景 A．软件名称：机房收费系统 B
机房收费管理系统课程设计（C语言）
06-20
### 机房收费管理系统课程设计（C语言） #### 课程设计背景与意义 机房收费管理系统作为一门课程设计项目，其主要目的是让学生通过实践来掌握C语言编程的基础知识及其应用能力。通过本项目的开发，不仅可以加深对...
VB机房收费系统09——日结账单和周结账单
我能在河边钓一整天的鱼
01-09 764
前言 这是我整个机房项目中最后一个难点，这两个账单我卡了3天，敲完了后，我把收获分享在这里，希望对大家有所帮助。 正文 这窗体不是敲出来，是调用和显示出来的！ 这里我们就用到了报表，报表下个生成器然后自己画也可以，直接选择给的机房素材也可以。 以我亲身经历来说，画报表没有调试报表代码难，调试报表代码没有找到报表控件难！ 画报表 画报表参考博客：http
机房收费系统-上下机
不会英语的程序员不是好开拓者
07-30 1437
前言：     机房收费系统当然离不开上机和下机了，作为整个系统的核心和关键，我觉得最重要的是首先要有全局观，把控整体的流程。还有就是一定要细心，考虑到所有应该注意到的问题。实现上下机的功能我基本上一天就敲出来了，但是之后却优化了一个星期，每天基本上都需要去改动去重新捋思路，所以说一开始一定要摸清楚表与表之间的关系，理清思路，再去敲，这样效率就会提高很多很多。好了，下面我来给大家介绍一下上下机到
机房收费系统-MSFlexGrid控件的使用
不会英语的程序员不是好开拓者
07-18 1073
前言：      机房收费系统中查询窗体几乎都用到了一个控件，就是MSFlexGrid控件。百度上给的官方解释是：MSFlexGrid控件显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据。我理解的是，显示符合条件的数据的一个展示栏。说的可能比较通俗，接下来，我就来详细给大家说说MSFlexGri
机房收费系统--MDI窗体不能放控件和子窗体不能显示
不会英语的程序员不是好开拓者
07-05 845
前言：     MDI主窗体是机房收费系统必须要设置的窗体，但是中间出现了许多小问题 。首先，MDI窗体上不能放其他的控件，其次是子窗体都不能显示，这可让我有点摸不着头脑，果断在网上查了查，接下来是我对这两个问题的整理。 内容： 1、MDI窗体的设置（只能有一个MDI窗体） （1）、设置MDI窗体必须先添加一个picturebox控件，才
机房收费系统-充值
不会英语的程序员不是好开拓者
07-30 707
前言：       机房收费系统是我第一次接触的独立完成的系统，一开始还真是摸不着头脑，不过还是硬着头皮做了下去。其实，事情一般都有难的部分有易的部分，所以一开始我按照整个思路先从简单的窗体开始做，简单的窗体一般都是单一查询或者是实现一些非常简单的功能，本篇博客呢就以充值为例，向大家介绍简单窗体是如何轻松搞定。 内容：       一、理清思路：理清思路最好的方式当然是画一个导图了！
第一次机房收费系统总结
不会英语的程序员不是好开拓者
08-02 576
前言：      我们在对某件事情驾轻就熟的之前都会有青涩彷徨的第一次，机房收费系统就是我第一次接触的完整的无源代码的工程。现在想起来，当初刚做的时候是多么的畏惧和恐慌，心里一直觉得自己不可能完成。但是没有办法，还是要做下去，一晃眼，自己也完成了这个当初觉得比天还高的东西。这是一件不可思议的事情。接下来我给大家重点介绍一下我的思路以及思想总结。 内容：   一、思路：
机房收费系统-组合查询
不会英语的程序员不是好开拓者
07-30 543
前言：     上一篇是对机房收费系统的简单功能窗体的介绍，这次给大家介绍一下组合查询。刚敲组合查询的时候，别的人就会说好难好难，每每听到这些负能量的话，我就会暗自和自己说，我没有必要在没真正去做某件事之前，就去定义一件事情的难易，带着我必定会轻松解决的心理，结果真的就是轻松解决了。下面呢我就以学生上机统计信息查询为例，向大家揭开组合查询的神秘面纱！ 内容：     1、理清思路：
VB+ACCESS网吧计费系统(源代码+系统).zip
最新发布
09-18
1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证，保证能够正常运行； 2、项目问题、技术讨论，可以给博主私信或留言，博主看到后会第一时间与您进行沟通； 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用，尤其对于人工智能、计算机科学与技术等相关专业，更为适合； 4、下载使用后，可先查看README.md或论文文件（如有），本项目仅用作交流学习参考，请切勿用于商业用途。 5、资源来自互联网采集，如有侵权，私聊博主删除。 6、可私信博主看论文后选择购买源代码。
基于C#的小区物业管理系统.docx
09-18
设计一个基于C#的小区物业管理系统是一个涉及多个方面和模块的复杂项目。这样的系统通常包括用户管理、房屋管理、费用管理、报修管理、投诉管理、公告管理等功能。下面我将简要概述如何构建一个基本的小区物业管理系统，包括其主要模块和一些关键概念。 1. 系统架构设计 前端界面：可以使用WinForms或WPF来构建桌面应用程序界面，也可以使用ASP.NET Core MVC或Blazor来构建Web界面。 后端逻辑：使用C#作为后端开发语言，结合.NET Core或.NET Framework来编写业务逻辑。 数据库：可以使用SQL Server、MySQL或SQLite等数据库来存储系统数据。 架构模式：考虑使用MVC（模型-视图-控制器）或三层架构（表示层、业务逻辑层、数据访问层）来组织代码。 2. 主要功能模块 2.1 用户管理 功能：管理小区业主、租户、物业工作人员等用户的信息。 关键操作：用户注册、登录、密码找回、用户信息编辑、权限管理等。 2.2 房屋管理 功能：管理小区内所有房屋的信息，包括房屋位置、面积、户型、业主信息等。 关键操作：房屋信息录入、查询、修改、删除、房屋状态更新
4-3_Education_BLUE_2017_03-CL-20180524MTAX.potx
09-18
微软演示材料
评论 21
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值