2. 程式人生 > >機房收費系統（三）-組合查詢

機房收費系統（三）-組合查詢

阿新 • • 發佈：2018-11-29

【前言】
一拖再拖，組合查詢終於做完了，並且弄明白了其中的含義。下面就以操作員的工作記錄窗體為例，來總結一下組合查詢吧！
【內容】
組合查詢：
第一行（可單獨查詢）即為第一個條件，第二行為第二個條件，第三行為第三個條件。利用“組合關係”控制元件將條件連線起來，進行組合查詢。

導圖
在這裡插入圖片描述
這張導圖是我看了好多大佬的部落格，和自己的思考之後畫出來的，可能某個地方還不是理解的很透徹，望指點！

查詢程式碼

Private Sub cmdInquiry_Click()

Dim txtSQL1 As String
Dim txtSQL2 As String
Dim txtSQL3 As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
Dim a, b, c As String
    
    '給變數a賦值（當欄位1選擇日期、時間或非日期、非時間）
    If comboField1.Text = "日期" Or comboField1.Text = "時間" Then
        a = DTPicker1.Value
    Else
        a = txtInquiry1.Text
    End If
 
    '給變數b賦值（當欄位2選擇日期、時間或非日期、非時間）
    If comboField2.Text = "日期" Or comboField2.Text = "時間" Then
        b = DTPicker2.Value
    Else
        b = txtInquiry2.Text
    End If
    
    '給變數c賦值（當欄位3選擇日期、時間或非日期、非時間）
    If comboField3.Text = "日期" Or comboField3.Text = "時間" Then
        c = DTPicker3.Value
    Else
        c = txtInquiry3.Text
    End If
    
    '第一行內容是否輸入完整
    If comboField1.Text = "" Then    '判斷欄位名是否為空
        MsgBox "請選擇欄位名！", 48, "警告"
        comboField1.SetFocus
        Exit Sub
    End If
    If comboOptSign1.Text = "" Then  '判斷操作符是否為空
        MsgBox "請選擇操作符！", 48, "警告"
        comboOptSign1.SetFocus
        Exit Sub
    End If
    If txtInquiry1.Text = "" Then    '判斷要查詢的內容是否為空
        MsgBox "請輸入要查詢的內容！", 48, "警告"
        txtInquiry1.SetFocus
        Exit Sub
    End If
    
    '第一個組合關係存在
    txtSQL1 = "select * from worklog_Info where " & field(comboField1.Text) _
            & " " & comboOptSign1.Text & " '" & Trim(a) & " '"
    Set mrc = ExecuteSQL(txtSQL1, MsgText)
    
    If Trim(comboGroup1.Text) <> "" Then
        If Trim(comboField2.Text) = "" Or Trim(comboOptSign2.Text) = "" Or Trim(b = "") Then
            MsgBox "請將第二行內容補充完整！", 48, "警告"
            Exit Sub
        Else
            txtSQL2 = txtSQL1 & " " & fieldname(comboGroup1.Text) & " " & field(comboField2.Text) _
                    & comboOptSign2.Text & "'" & Trim(b) & "'"
            Set mrc = ExecuteSQL(txtSQL2, MsgText)
        End If
    End If
    
    '第二個組合關係存在
    If Trim(comboGroup2.Text) <> "" Then
        If Trim(comboField3.Text) = "" Or Trim(comboOptSign3.Text) = "" Or Trim(c = "") Then
            MsgBox "請將第三行內容補充完整！", 48, "警告"
            Exit Sub
        Else
            txtSQL3 = txtSQL2 & " " & fieldname(comboGroup2.Text) & " " & _
                    field(comboField3.Text) & comboOptSign3.Text & "'" & Trim(c) & "'"
            Set mrc = ExecuteSQL(txtSQL3, MsgText)
        End If
    End If
    
    '判斷要查詢的內容是否存在
    If mrc.EOF Then
        MsgBox "沒有您要查詢的內容，請重新查詢！", vbOKOnly + vbExclamation, "提示"
        MSFlexGrid1.Clear
        Exit Sub
    Else
        With MSFlexGrid1
            .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) = "狀態"
        End With
        
        Do While Not mrc.EOF
            With MSFlexGrid1
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
                .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
                .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2))
                .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3))
                .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4))
                .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(5)) & ""
                .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(6)) & ""
                .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(7)) & ""
                .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(8)) & ""
            End With
            mrc.MoveNext
        Loop
    End If
    mrc.Close
End Sub

在做的過程中必有的思考：在選擇欄位時，當選擇了日期或者時間的時候，是不是用DTPicker1更好一點呢？想到這裡了，就要動手去實踐一下，這部分我也是試過多次，看了許多部落格，才弄明白該如何去寫程式碼。

思考：當欄位選擇了時間或日期，“要查詢的內容”控制元件變為DTPicker1，否則還是用原來的文字框。
程式碼實現：變數
1.使用變數來代替文字框或DTPicker1；

Dim a, b, c As String
    '給變數a賦值（當欄位1選擇日期、時間或非日期、非時間）
    If comboField1.Text = "日期" Or comboField1.Text = "時間" Then
        a = DTPicker1.Value
    Else
        a = txtInquiry1.Text
    End If
    '給變數b賦值（當欄位2選擇日期、時間或非日期、非時間）
    If comboField2.Text = "日期" Or comboField2.Text = "時間" Then
        b = DTPicker2.Value
    Else
        b = txtInquiry2.Text
    End If
    '給變數c賦值（當欄位3選擇日期、時間或非日期、非時間）
    If comboField3.Text = "日期" Or comboField3.Text = "時間" Then
        c = DTPicker3.Value
    Else
        c = txtInquiry3.Text
    End If

2.查詢語句中將“要查詢的內容”欄位用變數來代替；

txtSQL1 = "select * from worklog_Info where " & field(comboField1.Text) _
            & " " & comboOptSign1.Text & " '" & Trim(a) & " '"
    Set mrc = ExecuteSQL(txtSQL1, MsgText)
txtSQL2 = txtSQL1 & " " & fieldname(comboGroup1.Text) & " " & field(comboField2.Text) _
                    & comboOptSign2.Text & "'" & Trim(b) & "'"
            Set mrc = ExecuteSQL(txtSQL2, MsgText)
txtSQL3 = txtSQL2 & " " & fieldname(comboGroup2.Text) & " " & _
                    field(comboField3.Text) & comboOptSign3.Text & "'" & Trim(c) & "'"
            Set mrc = ExecuteSQL(txtSQL3, MsgText)

3.當選擇了時間或日期，將DTPicker1欄位顯示，文字框隱藏。

If comboField1.Text = "註冊日期" Then
        DTPicker1.Format = dtpShortDate
        txtInquiry1.Visible = False
        txtInquiry1.Enabled = False
        DTPicker1.Visible = True
        DTPicker1.Enabled = True
        
    ElseIf comboField1.Text = "註冊時間" Then
        DTPicker1.Format = dtpShortTime
        txtInquiry1.Visible = False
        txtInquiry1.Enabled = False
        DTPicker1.Visible = True
        DTPicker1.Enabled = True
    ElseIf comboField1.Text = "登出日期" Then
        DTPicker1.Format = dtpShortDate
        txtInquiry1.Visible = False
        txtInquiry1.Enabled = False
        DTPicker1.Visible = True
        DTPicker1.Enabled = True
        
    ElseIf comboField1.Text = "登出時間" Then
        DTPicker1.Format = dtpShortTime
        txtInquiry1.Visible = False
        txtInquiry1.Enabled = False
        DTPicker1.Visible = True
        DTPicker1.Enabled = True
         
    ElseIf comboField1.Text <> "註冊時間" And comboField1.Text <> "註冊日期" _
           And comboField1.Text <> "登出日期" _
           And comboField1.Text <> "登出時間" Then
        DTPicker1.Visible = False
        DTPicker1.Enabled = False
        txtInquiry1.Visible = True
        txtInquiry1.Enabled = True
    End If

相關推薦

機房收費系統（三）-組合查詢

【前言】 一拖再拖，組合查詢終於做完了，並且弄明白了其中的含義。下面就以操作員的工作記錄窗體為例，來總結一下組合查詢吧！ 【內容】 組合查詢： 第一行（可單獨查詢）即為第一個條件，第二行為第二個條件，第三行為第三個條件。利用“組合關係”控制元件將條件連線起來，進行組合查詢。 導圖 這張

機房收費系統（一）——組合查詢

對於敲完機房收費系統的我們對於組合查詢應該都不在陌生了吧。想想當時我在敲之前聽別人說它比較麻煩的時候，我足足停了兩天才開始對這部分下手。一下手就感覺我之前在學生資訊管理系統裡面見過啊（根據姓名、班級、

機房收費系統（四）---組合查詢

  涉及的窗體有學生基本資訊維護，學生上機記錄查詢，學生上機統計查詢初次見到組合查詢介面，有種似曾相識的感覺。沒錯，我們在學生資訊管理系統裡面見過類似的。也可以說我們已經接觸過組合查詢了。不同的是這次的組合查詢要多一點，相對來講複雜一點。今天我就用學生基本資訊維

機房收費系統（三）—再看組合查詢

寫在前面： 組合查詢顧名思義是多條件查詢，關鍵就是確定在一定的條件下需要查詢與這個條件想對應的內容，確定好查詢內容之後，每一次查詢都是在上一個條件基礎上加一個條件的查詢。 下面就看一下機房中複合查詢

機房收費系統（三）——登入介面

概述 機房收費系統其實和學生資訊管理系統差不多，難度麼有增加多少。關鍵在於需要我們在敲程式碼之前把思路搞清楚，程式碼並不是什麼大事。這裡我就採用了畫流程圖的形式，把要實現的功能都畫出來，然後進行程式碼的編輯。下面就來分享我的思路和部分程式碼。 流程圖

機房收費系統（二）項目開發計劃

tro 外部 程序語言 友好 知識 add sql 數據庫 名稱 項目開發計劃 1引言 1.1編寫目的 主要對開發機房收費系統的費用、時間、進度、人員組織、硬件設備的配置、開發環境和執行環境的配置進行說明。為開發的下一步做準備。預期讀者是系統分析員和開發者。

機房收費系統（二）-上下機

【前言】 開始做機房時間也不短了，也看了不少大佬的部落格，但是真的是每個人有每個人的思路，所以我也有了自己的思路。剛開始的時候沒有什麼思路，不知道如何下手，只有靜下心來，一點點往下走，才能理清自己的思路。有些地方可能還存在不足，望指點。 【內容】 上機和下機導圖 上機程式碼 Priv

機房收費系統（一）-命名規範

【前言】 命名規範至關重要，做好機房系統的第一步工作。 【內容】 1.主選單命名 一般使用者：GeneralUser 學生檢視餘額：StuInquiryBalanceMenu 學生檢視上機記錄：StuInquiryLineRecordMenu 學生充值記錄查詢：StuInquiryRec

機房收費系統（一）------登入&修改

前言 進行機房也有一段時間了，一直處於走迷宮的狀態不知從何入手。從生活中出發，我們在使用某個系統時，一般情況下最先進入該系統的登入頁面。現在輪到自己敲系統了，當然也是從登入開始啦。 正文 機房收費系統登入窗體的思路，和有原始碼的學生系統的思路是大同

機房收費系統（四）-結賬

【前言】 在寫結賬程式碼之前，我們要明白結賬的含義和思路。 含義：是誰來結賬？結的是誰的賬？這是必須弄明白的。 結賬：是管理員來結賬，管理員結的是操作員的賬。 之前總是聽別人說結賬是個難點，所以心裡有點抵觸，並且不想去做，感覺自己不會做，弄不明白。只有做過之後才

機房收費系統（七）——學生基本資訊維護

概述 學生基本資訊維護裡面所用到的知識點有查詢類，更準確的說是組合查詢。該知識點堪稱機房收費系統三大難點之一。那麼它的難到底難在哪裡？下面我們來逐一進行分析。 流程圖 通過上面兩張圖可以清晰的看到，查詢難在哪裡： 首先、我們需要進行判斷查詢是

機房收費系統（一）——退卡操作

在敲機房的時候，感覺退卡挺簡單的，很快的完成了。但是驗收的時候，它卻出問題了——該卡正在上機，可以退卡，但是卻沒有對下機進行處理。現在重新來實現這個功能，其實仍然也是很簡單的。 一、整理思路    

機房收費系統（1）-註冊控制元件

根據師哥給的機房收費系統使用說明：在cmd命令中輸入“regsvr +路徑+控制元件名稱，相信大家在操作的時候都有如下試水。 看看犯的錯誤都覺得可笑，把”+“都給人家輸上了。圖中的錯誤提示框是最後一

機房收費系統（二）之下機退卡

今天我又回顧了一下 機房管理系統，看見了我熟悉的花費了我三天才敲好的窗體（當然想了兩天），然後今天我就來總結一下下機退卡吧！  第一句話是讓子窗體在父窗體中的圖片框裡顯示！ 其他的然後就是定義函式名

（五）組合查詢-機房收費系統

前提： 組合查詢的思路需要理清，在理清思路的同時，按照先英的想法去執行 一、流程圖 思路 1.用selectcase進行文字轉換 Select Case n

VB查詢資料庫之組合查詢——機房收費總結（二）

     在機房收費系統中，組合查詢用的還是挺多的，像上機狀態查詢窗體、學生上機統計資訊窗體、操作員工記錄窗體、基本資訊維護窗體。這其中，學生基本資訊維護窗體中的東西比較多，就以它為例子，說說組合查詢吧！      學生基本資訊維護窗體如圖所示：     先把程式碼放在

機房收費系統（VB.NET）個人版總結

blog gb2 watermark ast 做到 解決 content 結果 avi 重構版個人機房收費系統大概從暑假開學開始進行。花了不到一個半月的時間才完畢。以下對我在重構過程中的一寫理解。 1、系統設計一個非常重要的目的就是重用。而要做

機房收費系統（命名篇）

主介面選單編輯器命名如下 PS：（用menu作字尾） 一般使用者   GeneralUser 學生檢視餘額 InquiryBalance學生檢視上機記錄 InquiryLineRecord學生充值記錄查詢  InquiryRechargeRec

機房收費系統（準備篇）

開始機房前，我預計先學習觀看一下11期師哥師姐打包給12期師哥師姐的機房系統，於是我安裝後點擊開始，出現錯誤： 執行錯誤’91’：未設定物件變數或with block變數 這個是因為沒有連線到資料庫，所以我需要配置ODBC，配置過程如下： 在這裡我們看到了，

機房系統（三）——【充值 & 退卡 】

前言 充值在我們的日常生活中隨處可見。新辦理的手機卡號，為保證在無WiFi的情況下，我們可以使用，不與外界失聯，手機卡號裡面要有錢，我們才能正常上網、接打電話等。註冊完卡號資訊後，為保證這個卡能為我們正常所用，卡里需要有足夠的金額。所以，就需要我們時常進行