机房收费系统总结

历时两个多月，机房收费系统终于完成了，师傅验收还算满意，当然也还存在一些问题，好好总结一下吧，好歹也是两个多月的努力。

从一般用户开始，查看余额和修改密码比较简单，在学生查看充值记录和上机记录查看中涉及到了导出excel，这里在模块定义一个公共过程就可以了。

Public Sub ToExcel(Flex As MSHFlexGrid)
   
    On Error Resume Next
    Dim oExcel As Excel.Application
    Dim obook As Excel.Workbook
    Dim objExlSht As Excel.Worksheet

    Dim listrst() As Variant
    Dim lngRows As Long
    Dim lngCols As Long
    Dim intIndex1 As Integer
    Dim intIndex2 As Integer

    Set oExcel = New Excel.Application
    Set obook = oExcel.Workbooks.Add
    Set objExlSht = obook.ActiveSheet

    lngRows = Flex.Rows
    lngCols = Flex.Cols

    ReDim listrst(lngRows, lngCols)

    For intIndex1 = 0 To Flex.Rows - 1
        For intIndex2 = 0 To Flex.Cols - 1
            listrst(intIndex1, intIndex2) = Trim(Flex.TextMatrix(intIndex1, intIndex2))
        Next
    Next

    DoEvents
    With objExlSht
        oExcel.Intersect(.Range(.Rows(1), .Rows(lngRows)), .Range(.Columns(1), .Columns(lngCols))).Value = listrst

    End With
    oExcel.Visible = True
    oExcel.Interactive = True
End Sub

学生上机状态查看中上机管理的强制下机为操作员的操作，强制下机跟下机相似都需要结账，查询时用到了组合查询前面博客中写到了，在这就不重复了。操作员中也有几个窗体用到了组合查询和导出为excel，都是大同小异。管理员的日结账单和周结账单类似，用到了报表需要自己动手做。结账窗体比较复杂，要考虑到多种情况，注册的金额、充值金额、消费金额、退卡金额等。