概述

學生基本資訊維護裡面所用到的知識點有查詢類，更準確的說是組合查詢。該知識點堪稱機房收費系統三大難點之一。那麼它的難到底難在哪裡？下面我們來逐一進行分析。

流程圖

通過上面兩張圖可以清晰的看到，查詢難在哪裡：
首先、我們需要進行判斷查詢是否為組合查詢，如果為否，那麼一切都變得簡單了。
其次、我們需要在已經是組合查詢的情況下，如何查詢的問題，這裡相對複雜，也正是本窗體的難點之處，我們需要先理清邏輯關係——至少需要我們填寫一個組合關係。
最後、在前面都已經判斷好的情況下還需要進行與或非的判斷，它的選擇不同將導致查詢結果有差異。
看似簡單的圖形，但是它的內部有著嚴密的結構邏輯，每一步的判斷都需要我們小心謹慎，把條件考慮充分。否則一個不完整的邏輯結構，將會使得程式無法執行。

重點程式碼

Private Sub cmdQuery_Click()
    Dim StutxtSQL As String
    Dim StuMsgtext As String
    Dim Stumrc As ADODB.Recordset

    StutxtSQL = "select*from student_info where"
     '在student_Info這張表中獲得整行記錄。其中*表示整行記錄，也可以換成你需要查詢的具體記錄。

    If Trim(Combo1.Text) = "" Or Trim(Combo2.Text) = "" Or Trim(Text1.Text
 
) = "" Then
        MsgBox "請將選項內容填寫完整！", vbOKOnly, "提示"
    Exit Sub

    Else

        StutxtSQL = StutxtSQL & "" & field(Combo1.Text) & "" & Combo2.Text & "'" & Trim(Text1.Text) & "'"

        If Combo7.Text <> "" Then
            If Combo3.Text = "" Or Combo4.Text
 
 = "" Or Text2.Text = "" Then
                MsgBox "請將第二行選項內容填寫完整！", vbOKOnly, "提示"
                Exit Sub
            Else
                StutxtSQL = StutxtSQL & "" & field(Combo7.Text) = "" Or field(Combo3.Text) & "" & Combo4.Text & "'" & Trim(Text2.Text) & "'"
                If Combo8.Text <> "" Then
                    If Combo5.Text = "" Or Combo6.Text = "" Or Text3.Text = "" Then
                        MsgBox "請將第三行選項內容填寫完整！", vbOKOnly, "提示"
                        Exit Sub
                    Else
                        StutxtSQL = StutxtSQL & "" & field(Combo8.Text) & "" & field(bombo5.Text) & "" & Trim(Combo6.Text) & "" & Trim(Text3.Text) & "'"
                    End If
                End If
            End If
        End If

    Set Stumrc = ExecuteSQL(StutxtSQL, StuMsgtext)

        If Stumrc.EOF Then
            MsgBox "無該資料，請重新填寫！", vbInformation
            Text1.SetFocus
            Text1.Text = ""
            myflexgrid.Clear
            Exit Sub

        Else
            With myflexgrid
            .Rows = 1
            .CellAlignment = 4
            .TextMatrix(0, 0) = "學號"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "卡號"
            .TextMatrix(0, 3) = "金額"
            .TextMatrix(0, 4) = "系別"
            .TextMatrix(0, 5) = "年級"
            .TextMatrix(0, 6) = "班級"
            .TextMatrix(0, 7) = "性別"
            .TextMatrix(0, 8) = "狀態"
            .TextMatrix(0, 9) = "備註"
            .TextMatrix(0, 10) = "型別"
            .TextMatrix(0, 11) = "日期"
            .TextMatrix(0, 12) = "時間"

                Do While Not Stumrc.EOF
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(Stumrc.Fields(1))
                .TextMatrix(.Rows - 1, 1) = Trim(Stumrc.Fields(2))
                .TextMatrix(.Rows - 1, 2) = Trim(Stumrc.Fields(0))
                .TextMatrix(.Rows - 1, 3) = Trim(Stumrc.Fields(7))
                .TextMatrix(.Rows - 1, 4) = Trim(Stumrc.Fields(4))
                .TextMatrix(.Rows - 1, 5) = Trim(Stumrc.Fields(5))
                .TextMatrix(.Rows - 1, 6) = Trim(Stumrc.Fields(6))
                .TextMatrix(.Rows - 1, 7) = Trim(Stumrc.Fields(3))
                .TextMatrix(.Rows - 1, 8) = Trim(Stumrc.Fields(10))
                .TextMatrix(.Rows - 1, 9) = Trim(Stumrc.Fields(8))
                .TextMatrix(.Rows - 1, 10) = Trim(Stumrc.Fields(14))
                .TextMatrix(.Rows - 1, 11) = Trim(Stumrc.Fields(12))
                .TextMatrix(.Rows - 1, 12) = Trim(Stumrc.Fields(13))

                Stumrc.MoveNext
            Loop
        End With
        End If
    End If
End Sub

總結

其實在我們還不熟悉的情況下，做這樣的系統還是很有挑戰的。畢竟他有著嚴謹的邏輯結構，它不像一個簡單的小程式。我們走過的每一步，都將是成長路上的美好見證。