机房收费系统（六）-结账

结账是机房三大难点之一，这个主要是考验逻辑思维，结账简单的说就是把一样的钱汇总一下，但是汇总的时候要想把每一部分的钱整明白，还是需要好好考虑考虑的。
结账就是数据表中操作员的那些未结账。然后管理员对操作员的工作情况进行查看。
在做的过程中，思路很重要，思路通了，整个代码也就基本上做出来了。
下面就来分析一下这个界面的功能。
1.通过选择不同的操作员，下面就呈现不同的操作员的工作记录。
2.购卡账单，显示购买卡学生的信息。
3.退卡账单显示退卡学生信息
4.充值卡显示充值学生信息。
5.结账界面，就是整个操作的汇总。
思路：
首先，从user_Info这张表调出与操作员用户名匹配的操作员真实姓名（username）来直接显示到 combo框中。
然后，通过select case语句来显示sstab中的tab的内容。（显示的内容为未结账）
最后，当点击汇总中的“结账”的时候把信息写入到checkday，checkweek这两张表中，这样做的目的是为了“日结账单”和“周结账单”能够调出结账的信息。
*部分代码展示：
1.把他的所有信息，未结账的显示出来
购卡

txtsql = "select * from student_Info where UserID='" & comLevel.Text & "' and Ischeck='未结账'"Set mrcSD = ExecuteSQL(txtsql, msgtext)MfgBugCard.Rows = mrcSD.RecordCount + 1With MfgBugCard.Rows = 1.CellAlignment = 4      '居中.TextMatrix(0, 0) = "学号"  'studentid.TextMatrix(0, 1) = "卡号"  'cardid.TextMatrix(0, 2) = "日期"  'date.TextMatrix(0, 3) = "时间"  'time.TextMatrix(0, 4) = "使用状态".TextMatrix(0, 5) = "结账情况"While mrcSD.EOF = False.Rows = .Rows + 1.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = Trim(mrcSD.Fields(1)) 'studentno.TextMatrix(.Rows - 1, 1) = Trim(mrcSD.Fields(0)) 'cardno.TextMatrix(.Rows - 1, 2) = Trim(mrcSD.Fields(12)) 'date.TextMatrix(.Rows - 1, 3) = Trim(mrcSD.Fields(13)) 'time.TextMatrix(.Rows - 1, 4) = Trim(mrcSD.Fields(10)).TextMatrix(.Rows - 1, 5) = Trim(mrcSD.Fields(11))mrcSD.MoveNextWendEnd With

**2.把该操作员的所有未结账的充值信息汇总到表格
充值结账**

 txtsql = "select * from Recharge_Info where status='未结账' and UserID='" & comLevel.Text & "'"Set mrcRC = ExecuteSQL(txtsql, msgtext)RechargeCash = 0With MfgRecharge.Rows = 1.CellAlignment = 4      '居中.TextMatrix(0, 0) = "学号"  'studentid.TextMatrix(0, 1) = "卡号"  'cardid.TextMatrix(0, 2) = "充值金额"  'cash.TextMatrix(0, 3) = "日期"  'date.TextMatrix(0, 4) = "时间".TextMatrix(0, 5) = "用户名".TextMatrix(0, 6) = "状态"While Not mrcRC.EOF.Rows = .Rows + 1.TextMatrix(.Rows - 1, 0) = Trim(mrcRC.Fields(1)) 'studentno.TextMatrix(.Rows - 1, 1) = Trim(mrcRC.Fields(2)) 'cardno.TextMatrix(.Rows - 1, 2) = Trim(mrcRC.Fields(3)) 'rechargecash.TextMatrix(.Rows - 1, 3) = Trim(mrcRC.Fields(4)) 'date.TextMatrix(.Rows - 1, 4) = Trim(mrcRC.Fields(5)) 'time.TextMatrix(.Rows - 1, 5) = Trim(mrcRC.Fields(6)).TextMatrix(.Rows - 1, 6) = Trim(mrcRC.Fields(7))mrcRC.MoveNextWendEnd With

3.**把所有信息汇总到表格
退卡**

 txtsql = "select * from CancelCard_Info where status='未结账'and UserID='" & comLevel.Text & "'"Set mrcCC = ExecuteSQL(txtsql, msgtext)CancelCash = 0With MfgCancelCard.Rows = 1.CellAlignment = 4      '居中.TextMatrix(0, 0) = "学号"  'studentid.TextMatrix(0, 1) = "卡号"  'cardid.TextMatrix(0, 2) = "日期"  'cash.TextMatrix(0, 3) = "时间"  'date.TextMatrix(0, 4) = "退卡金额".TextMatrix(0, 5) = "结账情况"While Not mrcCC.EOF.Rows = .Rows + 1.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = Trim(mrcCC.Fields(0))  'studentno.TextMatrix(.Rows - 1, 1) = Trim(mrcCC.Fields(1))   'cardno.TextMatrix(.Rows - 1, 2) = Trim(mrcCC.Fields(3))   'date.TextMatrix(.Rows - 1, 3) = Trim(mrcCC.Fields(4))   'time.TextMatrix(.Rows - 1, 4) = Trim(mrcCC.Fields(2))   'cancelcash.TextMatrix(.Rows - 1, 5) = Trim(mrcCC.Fields(6))   'cancelcashCancelCash = CancelCash + mrcCC.Fields(2)mrcCC.MoveNextWendEnd With

4.临时用户

txtsql = "select * from student_Info where status='使用' and UserID='" & comLevel.Text & "'and type='临时用户'and Ischeck='未结账'"Set mrcTmp = ExecuteSQL(txtsql, msgtext)TmpCash = 0With MSHFlexGrid4.Rows = 1.CellAlignment = 4      '居中.TextMatrix(0, 0) = "学号"  'studentid.TextMatrix(0, 1) = "卡号"  'cardid.TextMatrix(0, 2) = "日期"  'date.TextMatrix(0, 3) = "时间"  'time.TextMatrix(0, 4) = "结账情况"  'timeWhile mrcTmp.EOF = False.Rows = .Rows + 1.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = Trim(mrcTmp.Fields(1))  'studentno.TextMatrix(.Rows - 1, 1) = Trim(mrcTmp.Fields(0))   'cardno.TextMatrix(.Rows - 1, 2) = Trim(mrcTmp.Fields(12))    'date.TextMatrix(.Rows - 1, 3) = Trim(mrcTmp.Fields(13))   'time.TextMatrix(.Rows - 1, 4) = Trim(mrcTmp.Fields(11))TmpCash = mrcTmp.Fields(7)mrcTmp.MoveNextWendEnd With

机房收费系统（六）-结账相关推荐

机房收费系统之结账BUG
声明:以下内容只对将卡表和退卡表放在同一张表的同学适用! 最近大家都已经开始做VB.NET机房收费系统重构版,在这里跟大家聊聊我在机房收费系统中发现的漏洞. 在机房收费系统中有这样一个窗体--结账.个 ...
【VB与数据库】——机房收费系统之结账
到现在机房收费基本完成,相对之前的学生管理系统,有了一些小难度,个人感觉尤其在结账部分,由于涉及的表比较多,这更需要我们理清思路,保持清晰的思路,才是我们尽快完成王道! 在这一部分内容中涉及到一个之前 ...
【机房收费系统】---结账
一.查看某操作员的工作数据信息代码: Private Sub comboUserName_Click()Dim txtSQL As StringDim MsgText As StringDim mr ...
【VB】机房收费系统（结账）
结账,我觉得他的作用就是能让管理员能对这一天每一位操作员的收支有一个一目了然的了解. 汇总的小知识: 售卡张数=购卡选项卡的记录总数退卡张数=退卡选项卡的记录总数 ...
机房收费系统之纵观全局
验收项目的时候,师父们从四方面进行了审核:界面.功能.代码.业务.之后师父布置了三项任务:用自己的理解将一般用户.操作员还有管理员的主要职能搞清楚:将本系统的主要功能化成流程图:"谈钱不伤系 ...
机房收费系统——报表（2）
二.代码部分跟之前写的excel相比,我觉得报表还是有点相同的.大体思路是这样的: 先定义. (报表:Dim Withevents 对象变量 As 类名这种用法是加载该类的事件,Withevent ...
VB.net版机房收费系统——结账功能实现（调错与优化）
调错部分上一篇博客<VB.net版机房收费系统--结账功能实现(代码部分>说的是结账功能的实现,亮出了代码.是在为这篇博客做铺垫.尽管结账功能代码是借鉴的巨人的博客.可是自己比着葫芦画瓢 ...
机房收费系统的退卡和结账
在做机房收费系统的时候为了保证核心功能的实现,我将计费时间调成了秒.这样就可以迅速,快捷地看到了收费的结果. 在这种环境下,我的机房收费系统不负众望,终于一次又一次将金额搞错,经过n次实验,将测试的结 ...
VB.net版机房收费系统——结账功能实现（代码部分）
实现结账功能的时候,被选项卡控件整的有点郁闷,瞬间脑袋就凌乱了,听上去自己好像很可笑的样子--于是,便去爬巨人的肩膀了~ 看了欢哥的博客,发现她的结账博客是按照"索引"思想写的,在 ...
【机房收费系统】之结账
机房收费系统中遇到的第二个难题就是结账的部分了.还是那句话,首先最重要的一点就是要有思路.不知道结账是谁结,不知道给谁结,那肯定也就无从谈起结账.下面是我对机房结账的一点理解. ...

机房收费系统（六）-结账

机房收费系统（六）-结账相关推荐

最新文章

热门文章