【机房收费系统】——问题总结（二）

接着上次的总结，我们继续哈！

问题五：报表

由于我的进度较慢，所以我做到这块的时候已经看到很多人的技术文章了，其中我觉得昌哥的博文最是清楚了。关于报表，我的印象最深刻的是动态数据这块。周报表中有时间段选择，具体体现在代码里就是：

    Report.ParameterByName("startime").AsDateTime = Format(startime.Value, "yyyy-mm-dd")    Report.ParameterByName("endtime").AsDateTime = Format(endtime.Value, "yyyy-mm-dd")

如果想知道当前管理员，直接在报表设计时，直接双击出现“综合文字框文本”，然后点击“插入域”，出现“选择数据库”对话框，从引用类型中选择参数，然后从参数中选择UserID就妥了！

然后是报表的一系列功能，我也觉得特别神奇，比如刷新：

GRDisplayViewer1.Refresh '刷新

还有打印

Report.[Print] (True) '打印

预览也是报表功能的一个特色

Report.PrintPreview (True) '预览

问题六：结账

结账，是我在整个机房中遇到的一大难关那！刚开始做结账的时候，真的不知道结账的原理。拿着好久都不知道怎么下手。真正开始知道结账原理，还是在第一次验收系统之后，经过师傅的点播，总算是能了解一点点。结账，是管理员给操作员和一般用户结账，说的实例化一点，就是公司老板查看财务经手的资金情况。所以一般用户和操作员应该是没有权限查看结账的，这就涉及到权限问题：一般用户的权限仅不能查看操作员和管理员记录，而操作员不能查看管理员记录，这就是规矩！

问题七：下机

下机是我的最痛！花的时间也绝对是最多的。这儿涉及到的四张表：student_Info,online_Info,line_Info，database_Info都快被我折腾疯了！下机这块，还是以图表示吧：

为什么没有理清楚下机这块，就是因为四张表的关系没有理清楚。Online表和Line表是由联系的，但是当时可能是一叶障目了吧，想的特别简单：上机就是把记录录入到Online表中，下机就把Online表中数据删除了，然后line表重新录入数据，但是没有把line表和Online表联系起来。所以总是剪不断，理还乱。

上边叙述的是主页上的下机，还有比较复杂的选择下机和全部下机。

在主页上的下机理清楚之后，全部下机就比较清楚了，一个循环解决问题：

    Do While Mrc(4).RecordCount > 0  '只有OnLine表中还有数据就进行操作        '算花费时间        strCostTime(1) = Hour(Time) * 60 + Minute(Time)        strCostTime(2) = Hour(Mrc(4).Fields(7)) * 60 + Minute(Mrc(4).Fields(7))        strCostTime(3) = strCostTime(1) - strCostTime(2)                '将数据录入line表中        Mrc(3).AddNew        Mrc(3)!cardno = Mrc(4)!cardno        Mrc(3)!studentNo = Mrc(4)!studentNo        Mrc(3)!studentName = Mrc(4)!studentName        Mrc(3)!Department = Mrc(4)!Department        Mrc(3)!sex = Mrc(4)!sex        Mrc(3)!ondate = Mrc(4)!ondate        Mrc(3)!OnTime = Mrc(4)!OnTime        Mrc(3)!offdate = Format(Date, "yyyy-mm-dd")        Mrc(3)!offtime = Time        Mrc(3)!consumeTime = strCostTime(3)        Mrc(3)!Status = "正常下机"        Mrc(3)!Computer = Mrc(4)!Computer                '判断时间是否大于一个小时，一个小时内统一按照2元收费        If strCostTime(3) < 60 Then            Mrc(3).Fields(11) = 2        Else        '否则的话根据用户类型进行分类收费            If Mrc(2).Fields(14) = "临时用户" Then                Mrc(3).Fields(11) = Int(Mrc(4).Fields(1) * Hour(txtCostTime.Text))            Else                Mrc(3).Fields(11) = Int(Mrc(4).Fields(0) * Hour(txtCostTime.Text))            End If        End If                '算所剩余额        Mrc(3).Fields(12) = Val(Mrc(1).Fields(7)) - Val(Mrc(3).Fields(11))        Mrc(1).Fields(7) = Mrc(3).Fields(12)                Mrc(4).Delete        Mrc(4).MoveNext        If Mrc(4).RecordCount = 0 Then Exit Do    Loop

再说选择下机，在盖盖的帮助下，知道怎么去将在myflexgrid中的记录与数据库的记录对应起来。

stuNo = Trim(myflexgrid.TextMatrix(myflexgrid.Row, 0))    

然后再对其进行操作：

            strCostTime(1) = Hour(Time) * 60 + Minute(Time)            strCostTime(2) = Hour(Mrc(3).Fields(7)) * 60 + Minute(Mrc(3).Fields(7))            strCostTime(3) = strcosttime1 - strcosttime2                        '更新line表            Mrc(1).AddNew            Mrc(1)!cardno = Mrc(3)!cardno            Mrc(1)!studentNo = Mrc(3)!studentNo            Mrc(1)!studentName = Mrc(3)!studentName            Mrc(1)!Department = Mrc(3)!Department            Mrc(1)!sex = Mrc(3)!sex            Mrc(1)!ondate = Mrc(3)!ondate            Mrc(1)!OnTime = Mrc(3)!OnTime            Mrc(1)!offdate = Format(Date, "yyyy-mm-dd")            Mrc(1)!offtime = Time            Mrc(1)!consumeTime = strCostTime(3)            Mrc(1)!Status = "正常下机"            Mrc(1)!Computer = Mrc(3)!Computer                        '算钱            If strCostTime(3) < 60 Then                Mrc(1).Fields(11) = 2            Else                If Mrc(2).Fields(14) = "临时用户" Then                    Mrc(1).Fields(11) = Int(Mrc(4).Fields(1) * Hour(txtCostTime.Text))                Else                    Mrc(1).Fields(11) = Int(Mrc(4).Fields(0) * Hour(txtCostTime.Text))                End If            End If            '所剩余额计算            Mrc(1).Fields(12) = Val(Mrc(2).Fields(7)) - Val(Mrc(1).Fields(11))            Mrc(2).Fields(7) = Mrc(1).Fields(12)            Mrc(2).Update            Mrc(1).Update            Mrc(3).Delete                        MsgBox "下机成功！"            '删除所选行            myflexgrid.RemoveItem Row

小结

整个机房收费系统敲下来，我的唯一感觉是：累，真心很累。花了大概一个月的时间敲机房，整个过程不说历经坎坷，也是披荆斩棘了。考验的不是一个人技术水平有多高，考研的是一个人的耐心和坚持。看到很多人跑到那那那前边去了，也仍然能心平气和的继续自己的学习。正在一点点的领悟提高班培养的不是码农，是精英······