机房收费系统之结帐

2024-08-26 19:58
文章标签 系统 收费 机房 结帐

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

      现在回想起来机房收费系统的结账部分也是很简单的,但是自己当时敲得时候似乎用了好久。我的理解是结账是管理员给操作员结的帐,对于管理员就不用给结了,这是自己的想法,当然每个人都可以有自己的想法。现在说一下大致思路。
      (1)实现两个combox的同步功能,实现选择了操作员用户名之后,显示操作员的真实姓名。   
Private Sub Form_Load()  
txtsql = "select * from User_Info where Level <>'一般用户'" '选择用户级别  Set mrc = ExecuteSQL(txtsql, msgtext)  Do While mrc.EOF = False  Combo1.AddItem Trim(mrc.Fields(0))    '通过循环进行添加  mrc.MoveNext  Loop  mrc.Close  
End Sub  
      combo1的单击事件:   
txtsql1 = "select * from User_Info where userID='" & Trim(Combo1.Text) & "'" '选择用户级别  
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)  
Combo2.Text = Trim(mrc1.Fields(3))

      (2)购卡调用的是数据库student_Info,充值调用的是recharge_Info, 退卡调用的是cancel_Info, 临时用户调用的也是student_Info,需要注意的是这几个都需要满足status的状态是“未结账”,这些要select case语句实现各个选项卡的信息的变幻。
      (3) 汇总中的一些信息可以通过我们选项卡中的购卡,退卡的信息来确定。售卡张数是我们购卡中的行数,退卡张数是我们退卡中的行数,可以通过recordcount来实现。总售卡数=售卡数-退卡数。临时收费金额是临时用户充的钱。应收金额=注册充值金额-退卡金额。
        代码中income代表的是总共金额,outcome是退卡支出,tempmoney是临时用户充值金额。       
Private Sub SSTab1_Click(PreviousTab As Integer)Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsetSelect Case SSTab1.TabCase 0txtSQL = "select * from student_Info where UserID = '" & Trim(comboUserId.Text) & "' and Ischeck = '未结账'"Set mrc = ExecuteSQL(txtSQL, MsgText)SellCard = mrc.RecordCount  '售卡数With myFlexgrid1.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "购卡日期".TextMatrix(0, 3) = "购卡时间"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.MoveNextLoopmrc.CloseEnd WithCase 1txtSQL = "select * from Recharge_Info where status = '未结账' and UserID = '" & Trim(comboUserId.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)With myFlexgrid2.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "充值金额".TextMatrix(0, 3) = "充值日期".TextMatrix(0, 4) = "充值时间"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))Income = Income + Val(mrc.Fields(3)).TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(4)).TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(5))mrc.MoveNextLoopmrc.CloseEnd WithCase 2txtSQL = "select * from CancelCard_Info where status = '未结账' and UserID = '" & Trim(comboUserId.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)CancelCard = mrc.RecordCount  '退卡数With myFlexgrid3.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "退卡日期".TextMatrix(0, 3) = "退卡时间".TextMatrix(0, 4) = "退卡金额"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(3)).TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(4)).TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(2))OutCome = OutCome + Val(mrc.Fields(2))mrc.MoveNextLoopmrc.CloseEnd WithCase 3txtSQL = "select * from student_Info where type = '临时用户' and UserID = '" & Trim(comboUserId.Text) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)With myFlexgrid4.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "日期".TextMatrix(0, 3) = "时间"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))tempmoney = tempmoney + Val(mrc.Fields(7))mrc.MoveNextLoopmrc.CloseEnd WithCase 4txtSellnumber.Text = SellCardtxtReturnnumber.Text = CancelCardtxtRecharge.Text = IncometxtReturnMoney.Text = OutCometxtTotalnumber.Text = Val(txtSellnumber.Text) - Val(txtReturnnumber.Text)txtShouldmoney = Val(txtRecharge.Text) - Val(txtReturnMoney.Text)txtTempmoney.Text = tempmoneyCase 5Unload MeEnd Select   
End Sub
       结账感觉是整个系统最难理解的部分, 现在理解了,但是不知道为什么冥冥之中感觉没有这么简单一样,如果我理解的有什么问题还望大家指正。                                                               

这篇关于机房收费系统之结帐的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1109533

相关文章

Linux系统之authconfig命令的使用解读

《Linux系统之authconfig命令的使用解读》authconfig是一个用于配置Linux系统身份验证和账户管理设置的命令行工具,主要用于RedHat系列的Linux发行版,它提供了一系列选项... 目录linux authconfig命令的使用基本语法常用选项示例总结Linux authconfi

Nginx配置系统服务&设置环境变量方式

《Nginx配置系统服务&设置环境变量方式》本文介绍了如何将Nginx配置为系统服务并设置环境变量,以便更方便地对Nginx进行操作,通过配置系统服务,可以使用系统命令来启动、停止或重新加载Nginx... 目录1.Nginx操作问题2.配置系统服android务3.设置环境变量总结1.Nginx操作问题

CSS3 最强二维布局系统之Grid 网格布局

《CSS3最强二维布局系统之Grid网格布局》CS3的Grid网格布局是目前最强的二维布局系统,可以同时对列和行进行处理,将网页划分成一个个网格,可以任意组合不同的网格,做出各种各样的布局,本文介... 深入学习 css3 目前最强大的布局系统 Grid 网格布局Grid 网格布局的基本认识Grid 网

在不同系统间迁移Python程序的方法与教程

《在不同系统间迁移Python程序的方法与教程》本文介绍了几种将Windows上编写的Python程序迁移到Linux服务器上的方法,包括使用虚拟环境和依赖冻结、容器化技术(如Docker)、使用An... 目录使用虚拟环境和依赖冻结1. 创建虚拟环境2. 冻结依赖使用容器化技术(如 docker)1. 创

CentOS系统Maven安装教程分享

《CentOS系统Maven安装教程分享》本文介绍了如何在CentOS系统中安装Maven,并提供了一个简单的实际应用案例,安装Maven需要先安装Java和设置环境变量,Maven可以自动管理项目的... 目录准备工作下载并安装Maven常见问题及解决方法实际应用案例总结Maven是一个流行的项目管理工具

C#实现系统信息监控与获取功能

《C#实现系统信息监控与获取功能》在C#开发的众多应用场景中,获取系统信息以及监控用户操作有着广泛的用途,比如在系统性能优化工具中,需要实时读取CPU、GPU资源信息,本文将详细介绍如何使用C#来实现... 目录前言一、C# 监控键盘1. 原理与实现思路2. 代码实现二、读取 CPU、GPU 资源信息1.

在C#中获取端口号与系统信息的高效实践

《在C#中获取端口号与系统信息的高效实践》在现代软件开发中,尤其是系统管理、运维、监控和性能优化等场景中,了解计算机硬件和网络的状态至关重要,C#作为一种广泛应用的编程语言,提供了丰富的API来帮助开... 目录引言1. 获取端口号信息1.1 获取活动的 TCP 和 UDP 连接说明:应用场景:2. 获取硬

JAVA系统中Spring Boot应用程序的配置文件application.yml使用详解

《JAVA系统中SpringBoot应用程序的配置文件application.yml使用详解》:本文主要介绍JAVA系统中SpringBoot应用程序的配置文件application.yml的... 目录文件路径文件内容解释1. Server 配置2. Spring 配置3. Logging 配置4. Ma

2.1/5.1和7.1声道系统有什么区别? 音频声道的专业知识科普

《2.1/5.1和7.1声道系统有什么区别?音频声道的专业知识科普》当设置环绕声系统时,会遇到2.1、5.1、7.1、7.1.2、9.1等数字,当一遍又一遍地看到它们时,可能想知道它们是什... 想要把智能电视自带的音响升级成专业级的家庭影院系统吗?那么你将面临一个重要的选择——使用 2.1、5.1 还是

高效管理你的Linux系统: Debian操作系统常用命令指南

《高效管理你的Linux系统:Debian操作系统常用命令指南》在Debian操作系统中,了解和掌握常用命令对于提高工作效率和系统管理至关重要,本文将详细介绍Debian的常用命令,帮助读者更好地使... Debian是一个流行的linux发行版,它以其稳定性、强大的软件包管理和丰富的社区资源而闻名。在使用