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

在完成机房收费之后，再回头看它，一路坎坷啊！

因为学生管理系统的数据库是直接从文件中打开的，所以在开始机房之后，就遇到了：

   问题一：附加数据库。

数据库是跟着资料一起下发的，为了了解机房收费的轮廓，就开始连接它的数据库。在倩倩的帮助下，知道如何附加数据库，但是有一个问题出现了：

问题二：权限问题

附加完数据库，总是出现这样的画面：

因为没有遇到过这样的问题，于是从网上找到了答案：

在连接上数据库之后，在敲窗体的时候遇到了：

问题三：导出Excel表格

网上的资料良莠不齐，淘了半天，找到了一个还算满意的：

<pre name="code" class="html">    Dim xlsApp As Excel.Application 'Excel应用对象
    Dim xlsBook As Excel.Workbook   'Excel工作薄对象
    Dim xlsSheet As Excel.Worksheet 'Excel工作表对象
    
    '实例化
    Set xlsApp = New Excel.Application
    Set xlsBook = xlsApp.Workbooks.Add
    Set xlsSheet = xlsBook.Worksheets(1)
    
    Dim i As Integer
    Dim j As Integer
    
    '将myflexgrid中的数据转换到Excel中
    For i = 0 To myflexgrid.Rows - 1
        For j = 0 To myflexgrid.Cols - 1
            xlsSheet.Cells(i + 1, j + 1) = myflexgrid.TextMatrix(i, j)
        Next
    Next
    
    '应用对象可视化
    xlsApp.Visible = True
    '释放应用对象
    Set xlsApp = Nothing
           

  很多窗体都运用到了Excel导出，像组合查询一样：

问题四：组合查询

在这块我花的时间还算较多，主要针对如果分情况讨论，像做数学题一样。但是因为涉及的条件较多，所以必须从不同的角度分析。开始想的是从头到尾那样来，但是可能情况大概有八种甚至更多，在盖盖的帮助下，找到了比较简单的途径：

番茄时间到，详细内容，请看下回分解！