机房收费系统之组合查询

最新推荐文章于 2018-02-01 20:05:09 发布

iteye_17686

最新推荐文章于 2018-02-01 20:05:09 发布

阅读量142

点赞数

本文介绍了一种简化数据库查询的方法，通过设置默认查询条件为“1=1”，并根据实际选择覆盖默认值，从而避免复杂的SQL语句组合。这种方法不仅减少了代码的复杂度，也提高了查询的灵活性。

做机房收费系统时，要用到组合查询，其界面如下：我开始想的特别的复杂，可以这三个里随便选一个查询条件查询，也可在这三个中任选两个，也可三个都选，特别地麻烦，为什么不让他选第二个查询条件时必须选第一个呢，这样就简单了很多。

我开始想的一种方法，代码如下：

    Dim strSQL As String
 Dim strA As String, strB As String, strC As String
 
 strSQL = "select * from student where "
 
    '判断“字段名”，“操作符”，“要查询内容”是否都选了
 If Not Trim(cmbField(0).Text = "") Then
 
 If Trim(cmbOperator(0).Text = "") Then
 MsgBox "请选择操作符！", vbOKOnly, "警告!"
 cmbOperator(0).SetFocus
 Exit Sub
 Else
 If Trim(txtInquire(0).Text = "") Then
 MsgBox "请输入查询内容!", vbOKOnly, "警告!"
 txtInquire(0).SetFocus
 Exit Sub
 End If
 End If
 blnMark(0) = True
 
 
 End If
 
 
 '判断“字段名”，“操作符”，“要查询内容”是否都选了
 If Not Trim(cmbField(1).Text = "") Then
 
 If Trim(cmbOperator(1).Text = "") Then
 MsgBox "请选择操作符！", vbOKOnly, "警告!"
 cmbOperator(1).SetFocus
 Exit Sub
 Else
 If Trim(txtInquire(1).Text = "") Then
 MsgBox "请输入查询内容!", vbOKOnly, "警告!"
 txtInquire(1).SetFocus
 Exit Sub
 End If
 End If
 blnMark(1) = True
  
 End If

 'GetStringA,B是自定义的一个函数，将汉字替代为对应的字符，“Card--卡号”
 strA = GetStringA(cmbField(0).Text) & Trim(cmbOperator(0).Text) & Trim(txtInquire(0).Text)
 strB = GetStringB(cmbCombination(0).Text) & GetStringA(cmbField(1).Text) & Trim(cmbOperator(1).Text) & Trim(txtInquire(1).Text)
 strC = GetStringB(cmbCombination(1).Text) & GetStringA(cmbField(2).Text) & Trim(cmbOperator(2).Text) & Trim(txtInquire(2).Text)
 '看选择了什么查询条件
 If blnMark(0) = False Then
 MsgBox "请选择查询条件！", vbOKOnly, "警告!"
 Exit Sub
 Else
 strSQL = strSQL & strA
 If blnMark(1) = True Then
 strSQL = strSQL & strB
 If blnMark(2) = True Then
 strSQL = strSQL & strC
          End If
 End If
 End If    


 还有一种方法，不用逻辑考虑，“select * from 表名 wherecardNo=1001 ”和“select * from 表名 where cardNo=1001 and 1=1 and1=1”是一样的效果，所以我们就不用选择了什么查询条件了，让查询条件默认是“1=1”，如果选择了什么查询条件就将“1=1”替换为查询条件即可，这样就简单了很多。
Dim strSQL As String
    Dim blnMark(4) As Boolean
    
    Dim strFieldA As String
    Dim strFieldB As String
    Dim strFieldC As String
   
    Dim strOperatorA As String
    Dim strOperatorB As String
    Dim strOperatorC As String
    
    Dim strValueA As String
    Dim strValueB As String
    Dim strValueC As String
   
    Dim strRelationA As String
    Dim strRelationB As String
    
    strRelationA = "and"
    strRelationB = "and"
  
    '给定默认值
    strFieldB = "1"
    strOperatorB = "="
    strValueB = "1"
    
    strFieldC = "1"
    strOperatorC = "="
    strValueC = "1"
    
    
    '判断“字段名”，“操作符”，“要查询内容”是否都选了
    If Not Trim(cmbField(0).Text = "") Then
        
        If Trim(cmbOperator(0).Text = "") Then
            MsgBox "请选择操作符！", vbOKOnly, "警告!"
            cmbOperator(0).SetFocus
            Exit Sub
        Else
            If Trim(txtInquire(0).Text = "") Then
                MsgBox "请输入查询内容!", vbOKOnly, "警告!"
                txtInquire(0).SetFocus
                Exit Sub
            End If
        End If
        blnMark(0) = True
        
        '将默认值替换为查询条件
        strFieldA = GetStringA(cmbField(0).Text)
        strOperatorA = Trim(cmbOperator(0).Text)
        strValueA = Trim(txtInquire(0).Text)
        
    End If
    
    
    '判断“字段名”，“操作符”，“要查询内容”是否都选了
    If Not Trim(cmbField(1).Text = "") Then
        
        If Trim(cmbOperator(1).Text = "") Then
            MsgBox "请选择操作符！", vbOKOnly, "警告!"
            cmbOperator(1).SetFocus
            Exit Sub
        Else
            If Trim(txtInquire(1).Text = "") Then
                MsgBox "请输入查询内容!", vbOKOnly, "警告!"
                txtInquire(1).SetFocus
                Exit Sub
            End If
        End If
        blnMark(1) = True
        
        '将默认值替换为查询条件
        strRelationA = GetStringB(cmbCombination(0).Text)
        strFieldB = GetStringA(cmbField(1).Text)
        strOperatorB = Trim(cmbOperator(1).Text)
        strValueB = Trim(txtInquire(1).Text)
        
    End If
    
    
    '判断“字段名”，“操作符”，“要查询内容”是否都选了
    If Not Trim(cmbField(2).Text = "") Then
        
        If Trim(cmbOperator(2).Text = "") Then
            MsgBox "请选择操作符！", vbOKOnly, "警告!"
            cmbOperator(2).SetFocus
            Exit Sub
        Else
            If Trim(txtInquire(2).Text = "") Then
                MsgBox "请输入查询内容!", vbOKOnly, "警告!"
                txtInquire(2).SetFocus
                Exit Sub
            End If
        End If
        blnMark(2) = True
        
        '将默认值替换为查询条件
        strRelationB = GetStringB(cmbCombination(1).Text)
        strFieldC = GetStringA(cmbField(2).Text)
        strOperatorC = Trim(cmbOperator(2).Text)
        strValueC = Trim(txtInquire(2).Text)
        
    End If
    
    '判断是否选择了查询条件
    If blnMark(0) = False Then
        MsgBox "请选择查询条件！", vbOKOnly, "警告!"
        Exit Sub
    End If
    
    strSQL = "select * from student_Info where  " + strFieldA + strOperatorA + Add(strValueA) + " " + strRelationA + " " + strFieldB + strOperatorB + Add(strValueB) + " " + strRelationB + " " + strFieldC + strOperatorC + Add(strValueC)

原本要复杂的拼凑SQL语句，现在只要一条SQL语句就搞定，不用拼凑了，选择了查询语句就替换掉他的默认值，没有就将让他为默认值“1=1”。