【機房收費系統】——問題總結（一）

在完成機房收費之後，再回頭看它，一路坎坷啊！

因為學生管理系統的資料庫是直接從檔案中打開的，是以在開始機房之後，就遇到了：

   問題一：附加資料庫。

資料庫是跟着資料一起下發的，為了了解機房收費的輪廓，就開始連接配接它的資料庫。在倩倩的幫助下，知道如何附加資料庫，但是有一個問題出現了：

問題二：權限問題

附加完資料庫，總是出現這樣的畫面：

因為沒有遇到過這樣的問題，于是從網上找到了答案：

在連接配接上資料庫之後，在敲窗體的時候遇到了：

問題三：導出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導出，像組合查詢一樣：

問題四：組合查詢

在這塊我花的時間還算較多，主要針對如果分情況讨論，像做數學題一樣。但是因為涉及的條件較多，是以必須從不同的角度分析。開始想的是從頭到尾那樣來，但是可能情況大概有八種甚至更多，在蓋蓋的幫助下，找到了比較簡單的途徑：

番茄時間到，詳細内容，請看下回分解！