第一次机房收费系统之结账

2024-02-22 20:48
文章标签 系统 第一次 收费 机房 结账

本文主要是介绍第一次机房收费系统之结账，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

前言：
机房收费系统的结账窗体主要是先想清楚功能的逻辑思路。
1.结账是结谁的帐？
结账是管理员的权限，是管理员给操作员结账，操作员工作期间售卡以及充值的金额还有退卡时应退给学生的金额。所以结账是操作员工作期间机房的收入。
2.怎么结账？
在SSTab控件中有购卡，充值，退卡，临时用户几个选项卡，临时用户和购卡的收费金额已经结算到充值中，所以现在清楚结账就是：应收金额=充值金额-退卡金额
部分代码：
单击选项卡：

Private Sub SSTab_Click(PreviousTab As Integer)Dim Smrc As ADODB.RecordsetDim Rmrc As ADODB.RecordsetDim Cmrc As ADODB.RecordsetDim SLmrc As ADODB.RecordsetDim StxtSQL As StringDim RtxtSQL As StringDim CtxtSQL As StringDim SLtxtSQL As StringDim Smsgtext As StringDim Rmsgtext As StringDim Cmsgtext As StringDim SLmsgtext As StringDim i As IntegerDim ReChargeSum As Single                   '定义充值金额Dim j As IntegerDim BackCardMoneySum As Single              '定义退卡金额'连接student_info表StxtSQL = "select * from student_info where userid ='" & Trim(cboOpUserID.Text) & "' and ischeck='未结账'"Set Smrc = ExecuteSQL(StxtSQL, Smsgtext)'连接recharge_info表RtxtSQL = "select * from recharge_info where userid='" & Trim(cboOpUserID.Text) & "' and status='未结账'"Set Rmrc = ExecuteSQL(RtxtSQL, Rmsgtext)'连接cancelcard_info表CtxtSQL = "select * from cancelcard_info where userid='" & Trim(cboOpUserID.Text) & "' and status='未结账' "Set Cmrc = ExecuteSQL(CtxtSQL, Cmsgtext)'连接student_info表SLtxtSQL = "select * from student_info where userid ='" & Trim(cboOpUserID.Text) & "' and ischeck='未结账' and type='临时用户'"Set SLmrc = ExecuteSQL(SLtxtSQL, SLmsgtext)Select Case SSTab.Tab'选择购卡Case 0'显示数据With MSHFlexGrid1.rows = 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "日期".TextMatrix(0, 3) = "时间"Do While Not Smrc.EOF.rows = .rows + 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(.rows - 1, 0) = Smrc.Fields(1).TextMatrix(.rows - 1, 1) = Smrc.Fields(0).TextMatrix(.rows - 1, 2) = Smrc.Fields(12).TextMatrix(.rows - 1, 3) = Smrc.Fields(13)Smrc.MoveNextLoopAdjustColWidth Me, MSHFlexGrid1End With'选择充值Case 1'显示数据With MSHFlexGrid2.rows = 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "充值金额".TextMatrix(0, 3) = "日期".TextMatrix(0, 4) = "时间"Do While Not Rmrc.EOF.rows = .rows + 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(.rows - 1, 0) = Rmrc.Fields(1).TextMatrix(.rows - 1, 1) = Rmrc.Fields(2).TextMatrix(.rows - 1, 2) = Rmrc.Fields(3).TextMatrix(.rows - 1, 3) = Rmrc.Fields(4).TextMatrix(.rows - 1, 4) = Rmrc.Fields(5)Rmrc.MoveNextLoopAdjustColWidth Me, MSHFlexGrid1End With'选择退卡Case 2'显示数据With MSHFlexGrid3.rows = 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "日期".TextMatrix(0, 3) = "时间".TextMatrix(0, 4) = "退卡金额"Do While Not Cmrc.EOF.rows = .rows + 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(.rows - 1, 0) = Cmrc.Fields(0).TextMatrix(.rows - 1, 1) = Cmrc.Fields(1).TextMatrix(.rows - 1, 2) = Cmrc.Fields(3).TextMatrix(.rows - 1, 3) = Cmrc.Fields(4).TextMatrix(.rows - 1, 4) = Cmrc.Fields(2)Cmrc.MoveNextLoopAdjustColWidth Me, MSHFlexGrid1End With'选择临时用户Case 3'显示数据With MSHFlexGrid4.rows = 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "日期".TextMatrix(0, 3) = "时间"Do While Not SLmrc.EOF.rows = .rows + 1.CellAlignment = 4.ColAlignment = 4.TextMatrix(.rows - 1, 0) = SLmrc.Fields(1).TextMatrix(.rows - 1, 1) = SLmrc.Fields(0).TextMatrix(.rows - 1, 2) = SLmrc.Fields(12).TextMatrix(.rows - 1, 3) = Trim(SLmrc.Fields(13))SLmrc.MoveNextLoopAdjustColWidth Me, MSHFlexGrid1End With'选择汇总Case 4'计算售卡张数txtSellCardSum.Text = Smrc.RecordCount'计算退卡张数txtBackCardSum.Text = Cmrc.RecordCount'计算总售卡张数txtSellCardActual.Text = Smrc.RecordCount - Cmrc.RecordCount'计算充值金额For i = 0 To Rmrc.RecordCount - 1ReChargeSum = ReChargeSum + Val(Rmrc.Fields(3))Rmrc.MoveNextNext itxtRecharge.Text = ReChargeSum'计算退卡金额For j = 0 To Cmrc.RecordCount - 1BackCardMoneySum = BackCardMoneySum + Val(Cmrc.Fields(2))Cmrc.MoveNextNext jtxtBackCardMoney.Text = BackCardMoneySum'计算应收金额txtCollectMoney.Text = txtRecharge.Text - txtBackCardMoney.TextCase 5Unload MeEnd SelectSmrc.CloseRmrc.CloseCmrc.CloseSLmrc.Close
End Sub

结账:

Private Sub cmdAccount_Click()Dim Smrc, Rmrc, Cmrc As ADODB.RecordsetDim StxtSQL, RtxtSQL, CtxtSQL As StringDim Smsgtext, Cmsgtext, Rmsgtext As StringIf Not Testtxt(cboOpUserID.Text) ThenMsgBox "请先选择操作员后结账！", vbOKOnly + vbExclamation, "提示"Exit SubEnd If'更新student_Info表的更新状态StxtSQL = "update student_Info set Ischeck ='已结账' where userid= '" & cboOpUserID & "'"Call ExecuteSQL(StxtSQL, Smsgtext)'更新recharge_Info表的更新状态RtxtSQL = "update recharge_Info set status ='已结账' where userid= '" & cboOpUserID & "'"Call ExecuteSQL(RtxtSQL, Rmsgtext)'更新cancelcard_Info表的更新状态CtxtSQL = "update cancelcard_Info set status ='已结账' where userid= '" & cboOpUserID & "'"Call ExecuteSQL(CtxtSQL, Cmsgtext)MsgBox "结账成功！", vbOKOnly + vbExclamation, "提示"End Sub

这篇关于第一次机房收费系统之结账的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/736455。

相关文章

什么是cron? Linux系统下Cron定时任务使用指南

什么是cron? Linux系统下Cron定时任务使用指南

《什么是cron?Linux系统下Cron定时任务使用指南》在日常的Linux系统管理和维护中，定时执行任务是非常常见的需求，你可能需要每天执行备份任务、清理系统日志或运行特定的脚本，而不想每天... 在管理 linux 服务器的过程中，总有一些任务需要我们定期或重复执行。就比如备份任务，通常会选在服务器资
阅读更多...
TP-LINK/水星和hasivo交换机怎么选? 三款网管交换机系统功能对比

TP-LINK/水星和hasivo交换机怎么选? 三款网管交换机系统功能对比

《TP-LINK/水星和hasivo交换机怎么选?三款网管交换机系统功能对比》今天选了三款都是”8+1″的2.5G网管交换机，分别是TP-LINK水星和hasivo交换机，该怎么选呢？这些交换机功... TP-LINK、水星和hasivo这三台交换机都是”8+1″的2.5G网管交换机，我手里的China编程has
阅读更多...
基于Qt实现系统主题感知功能

基于Qt实现系统主题感知功能

《基于Qt实现系统主题感知功能》在现代桌面应用程序开发中,系统主题感知是一项重要的功能,它使得应用程序能够根据用户的系统主题设置（如深色模式或浅色模式）自动调整其外观,Qt作为一个跨平台的C++图形用... 目录【正文开始】一、使用效果二、系统主题感知助手类（SystemThemeHelper）三、实现细节
阅读更多...
CentOS系统使用yum命令报错问题及解决

CentOS系统使用yum命令报错问题及解决

《CentOS系统使用yum命令报错问题及解决》文章主要讲述了在CentOS系统中使用yum命令时遇到的错误,并提供了个人解决方法,希望对大家有所帮助,并鼓励大家支持脚本之家... 目录Centos系统使用yum命令报错找到文件替换源文件为总结CentOS系统使用yum命令报错http://www.cppc
阅读更多...
不懂推荐算法也能设计推荐系统

不懂推荐算法也能设计推荐系统

本文以商业化应用推荐为例，告诉我们不懂推荐算法的产品，也能从产品侧出发， 设计出一款不错的推荐系统。 相信很多新手产品，看到算法二字，多是懵圈的。 什么排序算法、最短路径等都是相对传统的算法（注：传统是指科班出身的产品都会接触过）。但对于推荐算法，多数产品对着网上搜到的资源，都会无从下手。特别当某些推荐算法 和 “AI”扯上关系后，更是加大了理解的难度。 但，不了解推荐算法，就无法做推荐系
阅读更多...
基于人工智能的图像分类系统

基于人工智能的图像分类系统

目录 引言项目背景环境准备 硬件要求软件安装与配置系统设计 系统架构关键技术代码示例 数据预处理模型训练模型预测应用场景结论 1. 引言 图像分类是计算机视觉中的一个重要任务，目标是自动识别图像中的对象类别。通过卷积神经网络（CNN）等深度学习技术，我们可以构建高效的图像分类系统，广泛应用于自动驾驶、医疗影像诊断、监控分析等领域。本文将介绍如何构建一个基于人工智能的图像分类系统，包括环境
阅读更多...
水位雨量在线监测系统概述及应用介绍

水位雨量在线监测系统概述及应用介绍

在当今社会，随着科技的飞速发展，各种智能监测系统已成为保障公共安全、促进资源管理和环境保护的重要工具。其中，水位雨量在线监测系统作为自然灾害预警、水资源管理及水利工程运行的关键技术，其重要性不言而喻。 一、水位雨量在线监测系统的基本原理 水位雨量在线监测系统主要由数据采集单元、数据传输网络、数据处理中心及用户终端四大部分构成，形成了一个完整的闭环系统。 数据采集单元：这是系统的“眼睛”，
阅读更多...
嵌入式QT开发：构建高效智能的嵌入式系统

嵌入式QT开发：构建高效智能的嵌入式系统

摘要： 本文深入探讨了嵌入式 QT 相关的各个方面。从 QT 框架的基础架构和核心概念出发，详细阐述了其在嵌入式环境中的优势与特点。文中分析了嵌入式 QT 的开发环境搭建过程，包括交叉编译工具链的配置等关键步骤。进一步探讨了嵌入式 QT 的界面设计与开发，涵盖了从基本控件的使用到复杂界面布局的构建。同时也深入研究了信号与槽机制在嵌入式系统中的应用，以及嵌入式 QT 与硬件设备的交互，包括输入输出设
阅读更多...
JAVA智听未来一站式有声阅读平台听书系统小程序源码

JAVA智听未来一站式有声阅读平台听书系统小程序源码

智听未来，一站式有声阅读平台听书系统 🌟 开篇：遇见未来，从“智听”开始 在这个快节奏的时代，你是否渴望在忙碌的间隙，找到一片属于自己的宁静角落？是否梦想着能随时随地，沉浸在知识的海洋，或是故事的奇幻世界里？今天，就让我带你一起探索“智听未来”——这一站式有声阅读平台听书系统，它正悄悄改变着我们的阅读方式，让未来触手可及！ 📚 第一站：海量资源，应有尽有 走进“智听
阅读更多...
【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

伴随着区块链技术的不断完善，其在教育信息化中的应用也在持续发展。利用区块链数据共识、不可篡改的特性， 将与教育相关的数据要素在区块链上进行存证确权，在确保数据可信的前提下，促进教育的公平、透明、开放，为教育教学质量提升赋能，实现教育数据的安全共享、高等教育体系的智慧治理。 可信教育区块链治理系统的顶层治理架构由教育部、高校、企业、学生等多方角色共同参与建设、维护，支撑教育资源共享、教学质量评估、
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2