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

阿新 • • 發佈：2018-12-13

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

Private Sub cmdquery_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim cmrc As ADODB.Recordset
    Dim ctxtSQL As String
    Dim cMsgText As String

    
    myflexgrid.Clear
    myflexgrid.Rows = 1
    
    '條件一查詢
    If Not testtxt(comb12.Text) And Not testtxt(comb123.Text) Then
    
        If Not testtxt(combf1.Text) Then                      '判斷欄位一是否有內容
            MsgBox "請輸入欄位！", vbOKOnly, "溫馨提示："
            combf1.SetFocus
            Exit Sub
        End If
    
        If Not testtxt(combop1.Text) Then                     '判斷操作符一是否有內容
            MsgBox "請輸入操作符！", vbOKOnly, "溫馨提示："
            combop1.SetFocus
            Exit Sub
        End If
    
        If Not testtxt(txtquery1.Text) Then                   '判斷文字框一是否有內容
            MsgBox "請輸入查詢內容！", vbOKOnly, "溫馨提示："
            txtquery1.SetFocus
            Exit Sub
        End If
        
        If testtxt(combf2.Text) And Not testtxt(comb12.Text) Then    '當欄位二有內容時，判斷組合一是否有內容
            MsgBox "請輸入查詢條件！", vbOKOnly, "溫馨提示："
            comb12.SetFocus
            Exit Sub
        End If
        

        '從資料庫上下機資訊表中查詢符合欄位一的內容
        txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' and status='正常下機'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
    
            If mrc.EOF Then             '如果無查詢結果，則說明資料不存在
            myflexgrid.Clear
            myflexgrid.Rows = 1
            MsgBox "該條件的資料不存在！", vbOKOnly, "溫馨提示："
            Exit Sub
            End If
     
            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) = "備註"
                
                Do While Not mrc.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8))
                    .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(9))
                    .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                    mrc.MoveNext
                Loop
            End With
            mrc.Close
       End If
        
       '條件二查詢
        '判斷欄位三有內容時，組合二是否有內容，如果沒有則組合二獲得焦點輸入組合條件
        If testtxt(combf3.Text) And Not testtxt(comb123.Text) Then
            MsgBox "請輸入查詢條件！", vbOKOnly, "溫馨提示："
            comb123.SetFocus
            Exit Sub
        End If
        
        If testtxt(comb12.Text) Then                    '如果組合一有內容，那麼判斷對應的文字框是否為空
            If Not testtxt(combf1.Text) Then        '判斷欄位一是否為空
                MsgBox "請輸入欄位！", vbOKOnly, "溫馨提示："
                combf1.SetFocus
                Exit Sub
            End If
    
            If Not testtxt(combop1.Text) Then      '判斷操作符一是否為空
                MsgBox "請輸入操作符！", vbOKOnly, "溫馨提示："
                combop1.SetFocus
                Exit Sub
            End If
    
            If Not testtxt(txtquery1.Text) Then    '判斷查詢一是否為空
                MsgBox "請輸入查詢內容！", vbOKOnly, "溫馨提示："
                txtquery1.SetFocus
                Exit Sub
            End If
            If Not testtxt(combf2.Text) Then       '判斷欄位二是否為空
                MsgBox "請輸入欄位名！", vbOKOnly, "溫馨提示："
                combf2.SetFocus
                Exit Sub
            End If
            If Not testtxt(combop2.Text) Then      '判斷操作符二是否為空
                MsgBox "請輸入操作符！", vbOKOnly, "溫馨提示："
                combop2.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery2.Text) Then    '判斷查詢二是否為空
                MsgBox "請輸入查詢內容！", vbOKOnly, "溫馨提示："
                txtquery2.SetFocus
                Exit Sub
            End If
            
            '從資料庫上下機表中查詢對應條件的結果
            txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "'  and status='正常下機'" & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下機'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
    
            If mrc.EOF Then
                myflexgrid.Clear
                myflexgrid.Rows = 1
                MsgBox "該條件的資料不存在！", vbOKOnly, "溫馨提示："
            Exit Sub
            End If
    
            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) = "備註"
                Do While Not mrc.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8))
                    .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(9))
                    .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                    mrc.MoveNext
                Loop
            End With
     End If
        If testtxt(comb123.Text) Then           '如果組合二有內容，判斷一三是否為空
            
            If Not testtxt(combf1.Text) Then    '判斷欄位一是否為空
                MsgBox "請輸入欄位！", vbOKOnly, "溫馨提示："
                combf1.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(combop1.Text) Then    '判斷操作符一是否為空
                MsgBox "請輸入操作符！", vbOKOnly, "溫馨提示："
                combop1.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery1.Text) Then   '判斷查詢一是否為空
                MsgBox "請輸入查詢內容！", vbOKOnly, "溫馨提示："
                txtquery1.SetFocus
                Exit Sub
            End If
            If Not testtxt(combf3.Text) Then      '判斷欄位三是否為空
                MsgBox "請輸入欄位！", vbOKOnly, "溫馨提示："
                combf3.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(combop3.Text) Then     '判斷操作符三是否為空
                MsgBox "請輸入操作符！", vbOKOnly, "溫馨提示："
                combop3.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery3.Text) Then   '判斷查詢三是否為空
                MsgBox "請輸入查詢內容！", vbOKOnly, "溫馨提示："
                txtquery3.SetFocus
                Exit Sub
            End If
            
            If comb12.Text = "" Then              '組合一為空的查詢

                txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' " & fieldname(comb123.Text) & "  " & fieldname(combf3.Text) & "" & combop3.Text & " '" & Trim(txtquery3.Text) & "' and status='正常下機'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
            End If
            
            If testtxt(comb12.Text) Then          '組合一 不為空的查詢
                If comb123.Text = "與" Then
                txtSQL = "select * from Line_Info where (" & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' and status='正常下機' " & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下機')and " & fieldname(combf3.Text) & "" & combop3.Text & "'" & Trim(txtquery3.Text) & "' and status='正常下機'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                 End If
                If comb123.Text = "或" Then
                txtSQL = "select * from Line_Info where( " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & " ' and status='正常下機' " & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下機') or " & fieldname(combf3.Text) & "" & combop3.Text & "'" & Trim(txtquery3.Text) & "' and status='正常下機'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                End If
                Else
                txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' " & fieldname(comb123.Text) & "  " & fieldname(combf3.Text) & "" & combop3.Text & " '" & Trim(txtquery3.Text) & "' and status='正常下機'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
            End If
                
                   
                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) = "備註"
                    Do While Not mrc.EOF
                        .Rows = .Rows + 1
                        .CellAlignment = 4
                        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1))
                        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
                        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6))
                        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7))
                        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8))
                        .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(9))
                        .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(11))
                        .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                        .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                        mrc.MoveNext
                    Loop
                End With
                mrc.Close
    End If

End Sub

以上是自己的程式碼思路，看著冗餘的程式碼忽然感覺自己的腦子不會轉彎(⊙o⊙)…

當然我也看了很多小夥伴們的程式碼，簡單的幾段程式碼就解決了問題，我覺著由繁到簡的推導過程自己去感受一下也是不錯的體驗，當然後面我會站在巨人的肩膀上前行，簡化組合查詢，下一站繼續走起^_^。

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

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

VB.net版機房收費系統——結賬功能實現（程式碼部分）

　　實現結賬功能的時候，被選項卡控制元件整的有點鬱悶，瞬間腦袋就凌亂了，聽上去自己好像很可笑的樣子……於是，便去爬巨人的肩膀了~ 　　看了歡哥的部落格，發現她的結賬部落格是按照“索引”思想寫的，在結賬實體中添加了新的屬性過程（我新增的叫CheckDetail）結賬表中並沒有

機房收費系統之組合查詢

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

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

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

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

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

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

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

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

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

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

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

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

宣告：以下內容只對在學生上機記錄查詢（組合查詢）只查詢已下機記錄，操作員工作記錄（組合查詢）只查詢已登出記錄的同學適用！說是BUG，其實這也不是一個BUG，只是一個不小心容易犯的錯誤，

機房收費系統之細化篇（跨日期下機，MDI窗體的運用，MDI主窗體與子窗體的互動）

最近在細化機房收費系統時，發現在下機窗體出現了很多消費時間為負值的情況，有時還會彈出Bug，仔細一看原來是跨日期的消費時間問題，那麼如何設定跨日期的下機呢？在機房收費系統中的MDI 窗體如何運用呢？下面就這兩個問題進行梳理分享。一、跨日期的下機核

機房收費系統之手動下機（獲取時間差、更新資料庫資料、判斷時間差）

下機窗體的梳理著實耗費了不少時間，的確是一個費腦細胞的活兒，不過過程也是挺享受的，那個專注力、那個廢寢忘食的勁頭兒少有吖^_^ 一、下機窗體的流程圖（如有不對的地方還望各位大神給予指導^_^）：二、錯誤集（本窗體中的大錯誤並不是很多，都是以前遇到

機房收費系統之實現圖（元件圖、部署圖）

在軟體建模中，使用用例圖可以推斷系統希望的行為；使用類圖可以描述系統的詞彙；使用時序圖、元件圖、狀態圖和活動圖可以說明這些詞彙中的事物如何相互作用以完成某些行為。在完成系統的邏輯之後，下一步要定義設計的物理實現，如何可以執行檔案、庫、表、檔案和文件等。對面向物件系統的物理

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

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

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

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

機房收費系統之餘額查詢

機房收費系統中有幾個窗體用到查詢。查詢需要解決2個問題： 1、卡號已註冊，即存在該怎樣做 2、卡號未註冊，即不存在該怎樣做

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

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

機房收費系統之靜態圖（類圖、物件圖）

類圖的內容一、類圖的用途類圖是系統靜態圖的一部分，它主要用來描述軟體系統的靜態結構，當系統分析師以支援軟體系統的需求為目的設計靜態圖是通常以下述3中方法之一使用類圖。 1.對系統詞彙建模描述系統的邊界，也就是說用來決定那些抽象是用來建模系統中的一部分，那些抽象是

機房收費系統之巨集觀聯絡（各窗體與資料表的聯絡）

剛開始的機房收費系統並不是上來就敲程式碼，而是執行已有的exe小程式，看每個表格與資料庫的關係，對整個機房的邏輯進行了梳理，以下是梳理出來的巨集觀聯絡，還算不是標準的流程圖，只是用於自己的邏輯梳理，還希望巨人們可以多多給予指導^_^

機房收費系統之八（組合查詢）

1.組合查詢：涉及的窗體有：學生基本資訊維護，學生上機統計資訊，操作員工作記錄。初次見到組合查詢介面，有種似曾相識的感覺。沒錯，我們在學生資訊管理系統裡面見過類似的。也可以說我們已經接觸過組合查詢了。不

機房收費系統之收取金額查詢（TPicker控制元件時間段取值、SQL語句中單引號與雙引號區別）

收取金額查詢窗體較組合查詢而言就是小菜一碟，但即便是內容較少也有其精華之處，現在分享一下我的學習過程吧^_^ 一、收取金額查詢窗體的流程圖：二、問題集這是什麼錯誤呢，為什麼會出現這個型別的錯誤？產生此問題的程式碼部分是什麼樣子的呢？以

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

以上是自己的程式碼思路，看著冗餘的程式碼忽然感覺自己的腦子不會轉彎(⊙o⊙)…

當然我也看了很多小夥伴們的程式碼，簡單的幾段程式碼就解決了問題， 我覺著由繁到簡的推導過程自己去感受一下也是不錯的體驗，當然後面我會站在巨人的肩膀上前行，簡化組合查詢，下一站繼續走起^_^。

相關推薦

當然我也看了很多小夥伴們的程式碼，簡單的幾段程式碼就解決了問題，我覺著由繁到簡的推導過程自己去感受一下也是不錯的體驗，當然後面我會站在巨人的肩膀上前行，簡化組合查詢，下一站繼續走起^_^。