2. 程式人生 > >第一次機房收費系統—組合查詢

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

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

  今天總結組合查詢，組合查詢無非涉及到兩個語句！敲機房給我的一點想法就是，有的程式碼自己還不確定是否在這個世界上時候存在，其實它是存在的，恐於自己怕浪費時間，功能還沒有實現。還是太將就了，所以小夥伴們做得時候有想法一定要大膽嘗試哦！找到每個窗體後面最基本最簡單的那個道理。加油！

組合查詢：

先放兩張有代表性的組合查詢的圖片：

1.學生資訊管理系統：（組合查詢）

       

2.機房收費系統：（組合查詢）

             

比較：

  1.學生資訊管理系統：

     大家可以明顯的看出學生組合查詢的條件有三個，分別是學號查詢、姓名查詢、班號查詢。這三個條件任意組合，三者之間的關係只能為“與”。

  2.部分程式碼展示：

Private Sub cmdInquire_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim sMeg As String
    Dim dd(4) As Boolean
    Dim mrc As ADODB.Recordset
    
    '組合 SQL 語句
    txtSQL = "select * from student_Info where"
    ' 判斷是否選擇學號查詢方式
    If Check1.Value Then
        If Trim(txtSID.Text) = "" Then
         sMeg = "學號不能為空"
         MsgBox sMeg, 48, "警告"
         txtSID.SetFocus
         Exit Sub
    Else
        '判斷輸入學號是否為數字
        If Not IsNumeric(Trim(txtSID.Text)) Then
             MsgBox "請輸入數字！", 48, "警告"
             Exit Sub
             txtSID.SetFocus
        End If
        dd(0) = True
        '組合查詢語句
        txtSQL = txtSQL & " student_ID='" & Trim(txtSID.Text) & "'"
        End If
    End If
         
    '判斷是否選擇姓名查詢方式
    If Check2.Value Then
       '判斷是否輸入姓名
       If Trim(txtName.Text) = "" Then
            sMeg = "使用者未輸入姓名！"
            MsgBox sMeg, 48, "警告"
            txtName.SetFocus
            Exit Sub
        Else
            dd(1) = True
            If dd(0) Then
               '組合查詢語句
              txtSQL = txtSQL & "and student_Name='" & txtName.Text & "'"
            Else
              txtSQL = txtSQL & " student_Name='" & txtName.Text & "'"
            End If
        End If
    End If
    
        '判斷是否選擇班號查詢方式
    If Check3.Value Then
        '判斷是否輸入班號
        If Trim(txtClassno.Text) = "" Then
            sMeg = "未輸入班號！"
            MsgBox sMeg, 48, "警告"
            txtClassno.SetFocus
            Exit Sub
        Else
            dd(2) = True
            If dd(0) Or dd(1) Then
                 '組合查詢語句
               txtSQL = txtSQL & " and class_No='" & txtClassno.Text & "'"
 

            Else
               txtSQL = txtSQL & " class_No='" & txtClassno.Text & "'"
            End If
        End If
    End If
    
  '判斷是否設定查詢方式
    If Not (dd(0) Or dd(1) Or dd(3)) Then
       MsgBox "請選擇查詢方式！", 48, "警告"
       Exit Sub
    End If
 
  ' 查詢所有滿足條件的內容
  txtSQL = txtSQL & " order by student_ID"
  ' 執行查詢語句
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  '將查詢內容顯示在表格控制元件中
  With myFlexgrid
     .rows = 2
     .CellAlignment = 4
     .TextMatrix(1, 0) = "性別"
     .TextMatrix(1, 1) = "班號"
     .TextMatrix(1, 2) = "學號"
     .TextMatrix(1, 3) = "姓名"
     .TextMatrix(1, 4) = "出生日期"
     .TextMatrix(1, 5) = "聯絡電話"
     .TextMatrix(1, 6) = "入校時間"
     .TextMatrix(1, 7) = "家庭住址"
    ' 判斷是否移動到資料集物件的最後一條
     MsgBox txtSQL
     MsgBox MsgText
     Do While Not mrc.EOF
          .rows = .rows + 1
          .CellAlignment = 4
          .TextMatrix(.rows - 1, 0) = mrc.Fields(2)
          .TextMatrix(.rows - 1, 1) = mrc.Fields(4)
          .TextMatrix(.rows - 1, 2) = mrc.Fields(0)
          .TextMatrix(.rows - 1, 3) = mrc.Fields(1)
          .TextMatrix(.rows - 1, 4) = Format(mrc.Fields(3), "yyyy-mm-dd")
          .TextMatrix(.rows - 1, 5) = mrc.Fields(5)
          .TextMatrix(.rows - 1, 6) = Format(mrc.Fields(6), "yyyy-mm-dd")
          .TextMatrix(.rows - 1, 7) = mrc.Fields(7)
          '移動到下一條記錄
          mrc.MoveNext
     Loop
  End With
  mrc.Close
End Sub

 
Private Sub Check1_Click()

    If Check1.Value = 1 Then
    txtSID.Enabled = True
    txtSID.Visible = True
    Else
    txtSID.Text = ""
    txtSID.Enabled = False
    txtSID.Visible = False
    End If
    
    '檢查其他的複選框是否選中
    
    If Check2.Value = 0 Then
    txtName.Text = ""
    txtName.Enabled = False
    txtName.Visible = False
    End If
    
    If Check3.Value = 0 Then
    txtClassno.Text = ""
    txtClassno.Enabled = False
    txtClassno.Visible = False
    End If 
End Sub

 機房收費系統

  

  1.從上圖可以看出

  一組查詢包含三個控制元件的查詢內容，組合關係分別為“與”“或”。如果第一個組合關係選中，第二行必須有查詢條件，同樣第二組組合查詢選中，第三行必須有組合查詢條件。

2.思路圖：


3.部分程式碼展示

Private Sub CmdFind_Click()
Dim txtSql As String
Dim msgText As String
Dim mrc As ADODB.Recordset

txtSql = "select * from line_Info where "
'在line_Info這張表中獲得整行記錄。其中*表示整行記錄，也可以換成你需要查詢的具體記錄。
      
If Trim(Combo1.Text) = "" Or Trim(Combo4.Text) = "" Or Trim(Text1.Text) = "" Then
   MsgBox "請將選項內容填寫完整！", vbOKOnly, "提示"
   Exit Sub
Else
   
   txtSql = txtSql & " " & field(Combo1.Text) & " " & Combo4.Text & "'" & Trim(Text1.Text) & "'"
          
   If Combo7.Text <> "" Then
   '判斷第一個組合關係是否選中
       
       If Trim(Combo2.Text) = "" Or Trim(Combo5.Text) = "" Or Trim(Text2.Text) = "" Then
       '如果選中,判斷第二行內容是否填寫完整，且符合要求
           MsgBox "請將第二行選項內容填寫完整！", vbOKOnly, "提示"
           Exit Sub
       Else
           txtSql = txtSql & " " & field(Combo7.Text) & " " & field(Combo2.Text) & " " & Combo5.Text & "'" & Trim(Text2.Text) & "'"
           '將前兩行的條件聯絡起來，完成SQL語句
            If Combo8.Text <> "" Then
            '判斷第二個組合關係是否選中
                 If Combo3.Text = "" Or Combo6.Text = "" Or Text3.Text = "" Then
                 '如果選中，判斷第二行內容是否填寫完整，且符合要求
                     MsgBox "請將第三行選項內容填寫完整！", vbOKOnly, "提示"
                     Exit Sub
                 Else
                     txtSql = txtSql & " " & field(Combo8.Text) & " " & field(Combo3.Text) & " " & Trim(Combo6.Text) & "'" & Trim(Text3.Text) & "'"
                     '將三行的條件聯絡起來，完成SQL語句

                 End If
            End If
        End If
   End If
End If

總結：找到組合查詢最簡單做基本的那個語句。然後按照你的思路進行程式碼描述，進行資訊的輸入與輸出。

txtSQL = "select * from 表名稱 where"  
txtSQL = txtSQL & " " & field(組合關係) & " " & field(某行條件中運算子前的內容) & " " & 該行條件中的運算子號 & "'" & 運算子後的內容 & "'"
注意：我們看機房組合查詢欄位名，由於個別欄位名的特殊原因，操作符是有限制的，假如欄位名裡面有性別、卡號、姓名、備註之類的欄位名，操作符只能是“= <>”。欄位名為日期和時間時，查詢的內容需要有合適要求。當然程式碼可以進行限制。特別值得注意，未來的我們不能在這上面有任何一點馬虎。 解決程式碼： 
Select Case Combo1.Text
        Case "姓名", "卡號", "備註", "性別"
        
            Combo4.Clear
            Combo4.AddItem "="
            Combo4.AddItem "<>"
        Case "上機日期", "下機日期", "上機時間", "下機時間", "餘額", "消費金額"
            Combo4.Clear
            Combo4.AddItem "="
            Combo4.AddItem "<>"
            Combo4.AddItem "<"
            Combo4.AddItem ">"
    End Select
技巧： 1.快速清除所有文字框、combox、以及MSFlexGrid1 內容 
Dim ctl As Control   '定義一個變數，把控制元件裝載到裡面
   For Each ctl In Controls
    '刪除所有text文字框內容
   If TypeOf ctl Is TextBox Then ctl.Text = ""
       Next ctl
   '刪除所有combobox文字框內容
   For Each ctl In Controls
       If TypeOf ctl Is ComboBox Then ctl.Text = ""
   Next ctl
  MSFlexGrid1.Clear
2.當選擇的條件為日期時，日期和時間有格式要求，但是如果在Text控制元件中輸入時間的具體格式，此時比較麻煩。這時用到DTPicker控制元件。可以和Text控制元件進行互動使用。
If Combo3.Text = "上機日期" Or Combo3.Text = "下機日期" Then
        DTPicker3.Format = dtpCustom
        DTPicker3.CustomFormat = Format("yyyy-MM-dd")
        DTPicker3.Visible = True
        Text3.Visible = False
        Text3.Text = DTPicker1.Value
    Else
     If Combo3.Text = "上機時間" Or Combo3.Text = "下機時間" Then
            DTPicker3.Format = dtpTime
            DTPicker3.Visible = True
            Text3.Visible = False
            Text3.Text = DTPicker1.Value
     Else
            DTPicker3.Visible = False
            Text3.Visible = True
    End If
  End If
最近看小夥伴的部落格，收穫頗多，最後三點的技巧就是來自李光小夥伴。讓我的第一次機房收費系統顯得不要不要的！站在巨人的肩膀上，這個世界原來是這個樣子的。

相關推薦

[第一次機房收費系統]組合查詢

當設計好組合查詢介面之後，並沒有覺得有多難，接著往下把一些基本的程式碼寫好之後真的是有點懵了。 當前三個文字都不為空時，查詢上機OnLine表，但是需要判斷欄位名是學號、卡號、姓名、性別、學院、年級還是班級？需要判斷操作符是<>、=、<、

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

  今天總結組合查詢，組合查詢無非涉及到兩個語句！敲機房給我的一點想法就是，有的程式碼自己還不確定是否在這個世界上時候存在，其實它是存在的，恐於自己怕浪費時間，功能還沒有實現。還是太將就了，所以小夥伴

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

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

第一次機房收費系統 ( 安裝配置 )

這次寫部落格來總結下配置機房所需要的步驟和問題的解決方法：qian 機房配置有三個步驟：                 &n

機房收費系統——組合查詢窗體

組合查詢 這部分也是機房收費系統中的重難點，它的難點在於查詢語句和它的邏輯思路： 我們以上機記錄查詢窗體為例來看一下：首先我們會發現這個窗體的欄位名中不光有卡號、姓名，而且還有上機日期，上機時間，下機日期和下機時間，所以這個時候我們就需要用一個時間控制元件來減輕使用者的負擔！ 為了便於和

第一次機房收費系統——註冊

思考： 因為註冊的時候，需要輸入初始的金額，但是上下機的時候，需要根據上網時間長短來改變學生表中的金額，所以導致最後的結賬很麻煩，最後我將註冊的內容也寫入到充值中，流程圖如下: 流程圖 程式碼 Private Sub cmdSave_Clic

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

前言：組合查詢的實現用了三天時間，剛開始看這個窗體確實有點難度，開始鑽研原版的系統多點點會發現規律，與學生的查詢思路相似，所以多去實踐，錯了也沒有關係 以學生基本資訊維護為例 邏輯思路：組合查詢即為多條件查詢（查詢語句where後即為條件，全部在此做文章）窗體中最多是

第一次機房收費系統——結賬

前言：談到結賬，大家都覺得挺難的，當然我也是這麼覺得的，但是通過一段時間的磨練，最終還是解決了，那麼就來分享一下把！ 頁面 首先談到頁面，我將臨時收費金額改成了上網收費金額。 彙總的計算 售卡張數 就是你今天所出售的卡數 注意： 是今天售的卡數。 退卡張數

機房收費系統-組合查詢

釋出文章 前言：機房收費系統有三大難點：組合查詢、下機和報表，那麼在敲完基本窗體後，首先要面對的就是組合查詢這一道大難題，果不其然，我在這裡也卡了一段時間，經過昨天的探討與查詢，終於解決了這個問題，那麼話不多說，我們開始

機房收費系統——組合查詢優化（新增DTPicker控制元件）

乾貨 組合查詢窗體中查詢欄位有日期有時間，那這樣我們還用文字框來顯示的話是不是使用者體驗很不好，本著提升使用者體驗的想法把文字框換成DTPicker控制元件。下面看看效果和怎麼實現的。 功能是當點選需

【第一次機房收費系統】-新增和刪除使用者

一、 二、MSHflexgrid控制元件 MSHflexgrid控制元件的使用：https://blog.csdn.net/lxl51666/article/details/52663989 三、理解 這個介面就不畫思維導圖了，很好理解。 但是更新這個按鈕有點

【第一次機房收費系統】—學生檢視上機記錄

一、思維導圖 二、程式碼 Private Sub cmdInquiry_Click() Dim txtSQL As String Dim msgtext As String Dim mrc As ADODB.Recordset

【第一次機房收費系統優化】-登入窗體

一、重點 這個窗體增加了判斷使用者的類別（操作員、一般使用者、管理員）。 二、控制元件優化 label為空白：Label1.BackStyle = 0 command新增圖片：（1）將Command控制元件的Style設定為1 - Graphical （2）在C

機房收費系統組合查詢

         下面說一下我在組合查詢中的思路：     1、首先遇到的困難就是‘欄位名’ 和 ‘組合關係’對應的文字和我們要查詢表中的欄位不是一致的（欄位名=學號，對應資料表中 studentNo 但是 如何當我們輸入學號讓它查詢是對應的studentNo中去？是一個問題）     解：定義一個函式Da

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

一、引言 組合查詢這個問題是我機房收費系統遇到的第一個難題！而且困擾了我很久！ 主要有兩個問題： 第一是邏輯上的問題！ 第二是資料庫查詢上的問題！ 接下來就說說這兩個問題。 二、組合邏輯 一共有三組查詢條件，兩個組合！ 難點：使用者選擇選擇條

機房收費系統---組合查詢

     在機房收費系統中，在對大型的資料中進行檢索的時候。通過一個欄位進行檢索的時候，往往得到很多沒有價值的結果。這樣的查詢沒有多大意義。所以人們往往通過新增欄位的方式。逐步進行篩選。這樣得到的資料，又少又有用。 通過新增欄位的形式來進行組合篩選。 預設是單個查詢方

機房收費系統--組合查詢

Private Sub cmdInquiry_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset     txtSQL = "select * from worklog_Info where (" &am

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

Private Sub cmdInquire_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim Msgtext As String txtSQL = "select * from line

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

             先來說說我們普遍存在的一種心理，就是我們看到組合查詢的那個介面的時候我們當時就被自己給打死了，我們的第一反應就是這是個什麼東西，這麼多的框框，所以就給組合查詢蒙上了一層 “很難”的面紗，但是當我們仔細想想我們好像在那見過這樣的知識。仔細想想，，，，

第一次機房收費系統--結賬

前言 初次碰到結賬這個問題，心裡還是有很多的抵觸，覺得太難了，下機的時候就覺得有些困難，因為涉及到了算賬的問題，現在開始結賬了，放眼望去，慢慢的全是賬，不管怎樣，先學做一個會計吧！ 功能實現 其實結賬這裡分為兩大部分 一：從資料庫中匯出操作員使用者名稱和真實姓名 需要實現