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

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

问题五：报表

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

    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

小结

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