机房收费系统-结账

最新推荐文章于 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、理清思路：
java基于ssm+jsp一家运动鞋店的产品推广网站系统源码 带毕业论文
09-18
1、开发环境：ssm框架；内含Mysql数据库；JSP技术 2、需要项目部署的可以私信 3、项目代码都经过严格调试，代码没有任何bug！ 4、该资源包括项目的全部源码，下载可以直接使用！ 5、本项目适合作为计算机、数学、电子信息等专业的课程设计、期末大作业和毕设项目，作为参考资料学习借鉴。 6、本资源作为“参考资料”如果需要实现其他功能，需要能看懂代码，并且热爱钻研，自行调试。
51单片机Proteus仿真LCD1602+DS18B20的温度读取显示编程.rar
最新发布
09-18
51单片机Proteus仿真LCD1602+DS18B20的温度读取显示编程 定时器实现1秒更新一次温度数据,内含完整仿真文件和代码
暴风电视 50F1 配屏V500HJ1-PE8(C3) 机编600000MWV00 屏参30162503 风UI1.0 本地升级
09-18
务必确认机身编号与文件名机编一致，如不一致，请勿下载 机身编号一般在机子背面的贴纸上 本地升级： 1、将本地升级软件包“update”拷贝至U盘里，插入电视USB端口，打开电视进入系统设置选择本地升级。 2、选择本地升级，遥控点击确认，主板检测到U盘里面的软件进行升级，如下图所示。 3、首先效验软件，若软件不对或者软件未完整下载会导致效验失败，效验成功后如下图所示。 4、升级过程中会擦除以前的数据烧录新的软件后重启系统，整个过程大约3-5分钟，切勿断电或拔掉U盘。 升级完成后可以在系统设置——本机信息——查询软件版本更新状态 注意： 1、U盘要求使用FAT32格式，建议4G-8G的品牌U盘，刷机成功率会高 2、升级到结束，大约需要8-30分钟，中途绝对不能断电 3、升级重启第一次进入系统，请等完全正常进入开机桌面之后，才能拨下U盘
餐饮结账管理系统设计与实现
"这篇文档是关于餐饮结账管理系统的C语言程序设计课程设计报告，主要涵盖了系统设计的任务、要求、方案以及相关函数的说明。设计目的是实现结账信息的录入、查询、排序、统计等功能，并强调了程序的模块化设计和规范...
评论 21
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值