2. 程式人生 > >【機房收費系統】——組合查詢

【機房收費系統】——組合查詢

阿新 • • 發佈：2019-01-02

在機房收費系統中，其中的組合查詢僅僅在剛開始的時候構思了一點自己的想
法，但是並沒用付諸於行動，去嘗試自己的是否正確，而是選擇了去看之前看
到的一篇關於組合查詢的部落格，說起來有些愧疚的啊。還好的是當我理清思路
之後剩下的組合查詢都是自己的寫的了。
在這分享一下自己的思路，共分為三步。（以學生基本資訊維護為例）
1.首先窗體的建立，加入需要控制元件等來補充介面。
2.當執行之時需要新增資訊，也就是供使用者選擇的訊息。

Dim a, b, c
    '對於控制元件陣列簡單的新增方法！！！
    For a = 0 To 2
        With Combo1(a)
            .AddItem "卡號"
 

            .AddItem "學號"
            .AddItem "姓名"
            .AddItem "性別"
            .AddItem "系別"
            .AddItem "年紀"
            .AddItem "班級"
        End With
    Next a

    For b = 0 To 2
        With Combo2(b)
            .AddItem "="
            .AddItem "<"
            .AddItem ">"
 

            .AddItem "<>"
         End With
    Next b

    For c = 0 To 1
        With Combo3(c)
            .AddItem "與"
            .AddItem "或"
        End With
    Next c
3.有了控制元件和訊息之後就到了查詢和顯示了。
大家都知道一般的sql查詢語句為
`txtsql='select * from student_info where status='使用' _
 and username='" & txtuserno.text & "'"`
我們先來分析一下這個語句，其中前半句
前半句`txtsql='select * from student_info where`
無論放到哪，查什麼的東西都是一樣的。主要的是後面，後面內容主要分為四部分
1.欄位名（status）                 2.操作符（=）
3.要查詢的內容，即限制條件（'使用'）   4.組合關係（and）
知道了這四部分，我們就可以簡單的寫出sql語句了。
(1)由於combo1中新增的資訊為漢語，不能夠在sql語句中直接使用
所以我首先定義了一個過程，來進行轉換。

 
Private Function tName(Englishname As String) As String
    '定義一個過程，進而在進行判斷的時候，可以省略
    Select Case Englishname
        Case "卡號"
            tName = "cardno"
        Case "學號"
            tName = "studentno"
        Case "姓名"
            tName = "studentname"
        Case "性別"
            tName = "sex"
        Case "系別"
            tName = "department"
        Case "年級"
            tName = "grade"
        Case "班級"
            tName = "class"
    End Select

End Function
(2)接下來就是查詢語句了。

Private Sub cmdquery_Click()
    Dim a（組合關係)

'我將每一行的查詢都分開了，這樣的話可以使整體上看上去更加簡潔，規範。
'調錯等也比較方便。除此之外，他們的txtsql可以繼承上面的！放很多。

 '第一行查詢。。。。。。。。。。。。。。。。。。。。。
    If Not texttxt(Combo1(0).Text) Then
        MsgBox "請輸入第一行欄位名", vbOKOnly + vbExclamation, "提示"
        Combo1(0).SetFocus
        Exit Sub
    ElseIf Not texttxt(Combo2(0).Text) Then
        MsgBox "請輸入第一行操作符", vbOKOnly + vbExclamation, "提示"
        Combo2(0).SetFocus
        Exit Sub
    ElseIf Not texttxt(Text1(0).Text) Then
        MsgBox "請在第一行輸入要查詢的內容", vbOKOnly + vbExclamation, "提示"
        Text1(0).SetFocus
        Exit Sub
    Else

        txtsql = "select * from student_info where " &          tName(Combo1(0).Text) & Combo2(0).Text & "'" & Text1(0).Text & "'"
        Set mrc = ExecuteSQl(txtsql, msgTxt)
'其中欄位名tName(Combo1(0).Text)，操作符Combo2(0).Text，
'查詢的內容Text1(0).Text。

        If mrc.EOF Then
            MsgBox "當前沒有該內容", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
            If Combo3(0).Text = "" Then
            GoTo case1
            End If
        End If
    End If

    '第二行。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
    Select Case Combo3(0)   '判斷與或者非，並記入a（組合關係）
        Case "與"
            a = "and"
        Case "或"
            a = "or"
    End Select

    If Not texttxt(Combo1(1).Text) Then
        MsgBox "請輸入第二行欄位名", vbOKOnly + vbExclamation, "提示"
        Combo1(1).SetFocus
        Exit Sub
    ElseIf Not texttxt(Combo2(1).Text) Then
        MsgBox "請輸入第二行操作符", vbOKOnly + vbExclamation, "提示"
        Combo2(1).SetFocus
        Exit Sub
    ElseIf Not texttxt(Text1(1).Text) Then
        MsgBox "請在第二行輸入要查詢的內容", vbOKOnly + vbExclamation, "提示"
        Text1(1).SetFocus
        Exit Sub
    Else
        txtsql = txtsql & a & " " & tName(Combo1(1).Text) & Combo2(1).Text & "'" & Text1(1).Text & "'"
        Set mrc = ExecuteSQl(txtsql, msgTxt)
'該語句的第二個txtsql是對於第一行txtsql的繼承，
'後面的分別為組合關係a,欄位名tName(Combo1(1).Text)，
'操作符Combo2(1).Text，要查詢的內容Text1(1).Text。

        If mrc.EOF Then
            MsgBox "當前沒有該內容", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
            If Combo3(1).Text = "" Then
                GoTo case1
            End If
        End If
    End If

    '第三行。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
    Select Case Combo3(1)
        Case "與"
            a = "and"
        Case "或"
            a = "or"
    End Select

    If Not texttxt(Combo1(2).Text) Then
        MsgBox "請輸入第三行欄位名", vbOKOnly + vbExclamation, "提示"
        Combo1(2).SetFocus
        Exit Sub
    ElseIf Not texttxt(Combo2(2).Text) Then
        MsgBox "請輸入第三行操作符", vbOKOnly + vbExclamation, "提示"
        Combo2(2).SetFocus
        Exit Sub
    ElseIf Not texttxt(Text1(2).Text) Then
        MsgBox "請在第三行輸入要查詢的內容", vbOKOnly + vbExclamation, "提示"
        Text1(2).SetFocus
        Exit Sub
    Else
        txtsql = txtsql & a & " " & tName(Combo1(2).Text) & Combo2(2).Text & "'" & Text1(2).Text & "'"
        Set mrc = ExecuteSQl(txtsql, msgTxt)
'同上

        If mrc.EOF Then
            MsgBox "當前沒有該內容", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else
            GoTo case1
        End If
    End If

'   (3)查詢資訊的展現（這裡是運用了goto語句）
case1:
    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 mrc.EOF = False
            .Rows = .Rows + 1
            .CellAlignment = 4
            .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
            .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
            .TextMatrix(.Rows - 1, 2) = mrc.Fields(0)
            .TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
            .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
            .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
            .TextMatrix(.Rows - 1, 6) = mrc.Fields(6)
            .TextMatrix(.Rows - 1, 7) = mrc.Fields(3)
            .TextMatrix(.Rows - 1, 8) = mrc.Fields(10)
            .TextMatrix(.Rows - 1, 9) = mrc.Fields(8)
            .TextMatrix(.Rows - 1, 10) = mrc.Fields(14)
            .TextMatrix(.Rows - 1, 11) = mrc.Fields(12)
            .TextMatrix(.Rows - 1, 12) = mrc.Fields(13)
            mrc.MoveNext
        Loop
    End With
End Sub

當我剛開始的時候想到組合查詢感覺是很複雜的，但是當理清楚其中的思路之
後就感覺簡單了很多。希望大家能夠從此得到一些收穫。

相關推薦

【機房收費系統】——組合查詢

在機房收費系統中，其中的組合查詢僅僅在剛開始的時候構思了一點自己的想 法，但是並沒用付諸於行動，去嘗試自己的是否正確，而是選擇了去看之前看 到的一篇關於組合查詢的部落格，說起來有些愧疚的啊。還好的是當我理清思路 之後剩下的組合查詢都是自己的寫的了。

第一次【機房收費系統】——組合查詢

 機房收費系統中共有三個窗體用到了組合查詢，其也算是三大難點之一，我做的流程就是先根據源系統備好框架，然後再去網上看相關的部落格，這麼一來二往，多看幾遍也漸漸懂得了其中的一些“套路”。組合查詢，顧名思義大於等於一的行資料進行查詢，下面我以學生基本資訊維護的窗體為

【第一次機房收費系統】組合查詢

所有的偉大隻源於一個勇敢地開始。 組合查詢之前以為很難，但是真正去開始敲了，你就會發現並不難。敲完了第一個，基本上就算是敲完了。 這是機房收費系統裡面組合查詢的標準樣式，之所以叫組合查詢，是因為我們要將若干個條件選擇出來之後組合在一起來查詢。首先，組合查

【機房收費系統】之組合查詢

         在這個過程中，我明白了，在試著實現某個過程的時候，一定在理清思路的前提下，找到最好的程式碼形式，優中選優，不要在敲程式碼的過程中把自己繞住，能少用巢狀就少用巢狀，只要思路簡單，程式碼結構簡化，在後邊實現的過程中就會減少很多麻煩。這個過程中，我迷茫過，失落過，興奮過。在最後能夠執行的一刻突然感

【機房收費系統】之收取金額查詢

前言：i+1的學習 收取金額查詢主要有兩部分：查詢和匯出Excel表。 查詢還OK。之前做學生時就有過很多次查詢，基本大同小異。 本窗體難點在於如何匯出Excel表。這就是需要我們學習和掌握的+1部分了。剛開始接觸時，我還挺懵的，不知道如何下手，不過查查百度、站在“巨人

【機房收費系統】——知識點彙總

前言 經歷了兩個多月的機房收費系統算是結了，結了並不意味著不學了，在機房中還是有很多值得我們學習的知識點，值得讓我們思考的東西，有些邏輯思維還是很強的。現在將做的過程中感覺比較重要的一些知識點分享出來。 一、整體思路 在機房收費系統中有不同的級別，不同的級別有不同許可權，他們所做的事

【機房收費系統】——模組中程式碼的含義

本部落格來自轉載，對模組不太懂的可以好好看看。 前言 這篇部落格認認真真的總結了一天，不能夠理解機房還有學生中模組的程式碼的意思，決定去解決一下這部分內容，下面就是我對此部分的程式碼的理解!感覺這部分的程式碼不過如此，下來跟著我一起搞懂它吧！ Public Function Ex

機房收費系統之組合查詢（程式碼部分）

       最近的事情比較多，本該留出大塊時間整理組合查詢的程式碼部分，結果是分為一段一段的零散時間來整理的，最終整理的這些組合查詢程式碼可能還是有很多冗餘，本來不想拿出來的，但考慮到自己的不足就要展示給大家，這樣自己才能進步嘛，所以還是厚著臉皮把我冗餘的程式碼展示出來了，

【機房收費系統】之結賬

還沒開始做機房時，便聽到有人說，機房慢慢做，尤其結賬那一塊特別難。特別難，到底有多難呢？還沒開始做，心裡便有了一絲害怕。驗SQL視訊時，特意問了問師父，結賬是否真如他們所說，有那麼難。嘉穎師父誠懇地跟我說，沒事，只有你去做了，才知道做出來的成就感。有了嘉穎師父的定心丸，我心裡

機房收費系統之組合查詢

組合查詢不愧是機房三大難點之一，起初不知道如何組建查詢的關係就去找巨人去了，最後看到巨人們的總結，捋順了才明白，其實很簡單。 我們的欄位名選擇是漢字，要想在資料庫中查詢欄位，根本就不認識，這就需要我將漢字轉換為相應的字串，為了方便簡潔，定義一個函式，程式碼中的FiledNa

VB.NET+三層 機房收費系統之組合查詢

  關係組合查詢已經用去了4天的時間，每天都在痛苦中煎熬，絞盡腦汁，一句程式碼都要瞪大眼睛看好長時間，有時候，因為兩句話顛倒了，就nothing了；有時候，因為table怎樣能夠轉換成實體型別，將自己困住了，一想就是半天。狀況不斷呀，看了很多師哥師姐們的程式碼，他們分享著自

機房收費系統之組合查詢的發展過程

         下面說下我的組合查詢吧。          在組合查詢這，最早的想法是用structure，因為印象中有一種型別，是可以用int型別來訪問的，可是做的時候發現不是structure，

機房收費系統之—組合查詢

       在敲組合查詢的時候，我遇到了很多問題，比如說查詢的語法怎麼連線啊，怎麼讓控制元件中的文字資訊也就是說欄位名，組合關係對應資料庫表中的欄位哪？      也就是說我們要讓卡號=Cardno，讓姓名=StudentName ，這樣我們在查詢的時候才方便了，反成不能

VB.NET版機房收費系統之組合查詢

    之前用VB做組合查詢的時候沒有認真的思考過，這次再做機房決心不能就這麼放過，今天就來說一說組合查詢。     首先做組合查詢，我用的是窗體的繼承，簡化了不少程式碼，大家也寫了很多窗體繼承的文章

機房收費系統之組合查詢的傳參問題

         我的機房收費系統中，我研究最多的就是這個組合查詢了，因為第一次做的時候，沒有做出來這樣的組合查詢，而是省時做了點簡單的查詢。這篇我想說一下我的傳參問題。           最開始的

【機房收費系統】之登入

對於一個應用程式而言，登入窗體是使用該程式的敲門磚。如果不能準確登入，就無法談及使用其功能了。登入也是一種安全措施，只可讓擁有許可權的人登入。而機房收費系統在登入視窗上相對而言，還是比較完美的。設定了只有擁有相應許可權的人，才能使用相應的功能。所以，登入就顯得尤為重要了。 機房登入與普通的登入程

【機房收費系統】之學生基本資訊維護

學生基本資訊維護主要包括兩大功能查詢和修改。這裡的查詢比之前做的簡單查詢稍稍複雜了點，此處要用到組合查詢。要成功實現查詢這一功能，首先要找到突破點，關鍵點就是組合關係。如果沒有選擇組合關係，便是一般的簡單查詢，反之，則是組合查詢。在組合查詢中，很重要的一點是將combobox中的中文字轉換成英文。這

【機房收費系統】之總結

        機房收費系統，這是VB階段性學習的最後的一個專案，也是一個比較具有考驗的專案。為什麼這麼說呢？因為在給的學習資料中，除了給了一個該系統的還不夠完美的實現效果程式外，再沒有其他可以信手拈來的東西了。沒有程式碼，沒有文件，這意味著你將自已真真正正地

【機房收費系統】--充值

   最近在做機房收費系統，跟之前學生不同的是，每個窗體不僅查一個表，所有邏輯思維就顯得格外的重要。    看師哥師姐的部落格會發現，他們在敲一個窗體的時候會畫一張流程圖，也可以說是自己的邏輯，先判斷什麼在判斷什麼，畫圖工具是一個網站，我把連線放在下面。  

【機房收費系統】——報表（一）

簡單的說：報表就是用表格、圖表等格式來動態顯示資料，可以用公式表示為：“報表 = 多樣的格式 + 動態的資料”。 在沒有計算機以前，人們利用紙和筆來記錄資料，比如：民間常常說的豆腐帳，就是賣豆腐的每