机房收费——组合查询之逻辑结构

刚涉及做系统，对简单的查询还可以理清关系，在刚完成的机房收费系统中，组合查询可是着实让我思考了一番。

看一下组合查询窗体吧：

 

在这个系统中，这样的组合查询窗体有4个。而涉及到的查询字段次数有26次，而我们每次查询都是只是用一个SQL语句。如果全部分情况，按字段，逐一写SQL语句的话，那就得写N条了。写的麻烦不用说，关键大部分都是重复的代码，没有多少价值。所以我们可以把这些重复的代码进行提取，整合。当然这里的逻辑结构很重要，提取不好的话，查询逻辑上就有错误了。

 

逻辑结构

 

这里解释两个自定义函数。

第一个是字段判断函数FieldName：这里有字段的查询用到26次，但是其实只有14个字段。我们可以把字段的判断提取到一个函数中。在查询语句中只需调用字段判断函数值即可。

第二个是判断组合查询函数ComboInquire:这个函数依据组合框是否是空来判断是否组合查询。

 

查询特点：三个条件可以任意组合，不必一定是第一条和第二条组合，或者第一条，第二条，第三条组合；

在模板中定义了判断是否是组合查询的函数，和判断字段值的函数，其他窗体可以调用。

代码如下：

 

StrSql = "select * from Consumeinfo where "        '定义公共查询语句在先

'判断各个文本框是否为空
If TxtIsEmpty(comboField1.Text) Or TxtIsEmpty(comboOperator1.Text) Or TxtIsEmpty(txtFieldValue1.Text) Then
    MsgBox "请把选项填完整再查询", vbOKOnly + vbCritical, "查询提示"
    GoTo proc_exit
Else
    StrSql = StrSql & FieldName(comboField1.Text) & comboOperator1.Text & "'" & txtFieldValue1.Text & "'"
End If

'利用模版函数查看是否是组合查询
If ComboInquire(comboCombo1.Text) Then
'是组合查询
    If TxtIsEmpty(comboField2.Text) Or TxtIsEmpty(comboOperator2.Text) Or TxtIsEmpty(txtFieldValue2.Text) Then
        MsgBox "请把组合查询选项填完整再查询", vbOKOnly + vbCritical, "查询提示"
        GoTo proc_exit
    Else
       Select Case comboCombo1.Text
       Case "与"
        StrSql = StrSql & " And " & FieldName(comboField2.Text) & comboOperator2.Text & "'" & txtFieldValue2.Text & "'"
       Case "或"
        StrSql = StrSql & " Or " & FieldName(comboField2.Text) & comboOperator2.Text & "'" & txtFieldValue2.Text & "'"
        End Select
    End If
End If

'再次判断第三个条件，看是否是组合查询
If ComboInquire(comboCombo2.Text) Then
    '组合查询
    If TxtIsEmpty(comboField3.Text) Or TxtIsEmpty(comboOperator3.Text) Or TxtIsEmpty(txtFieldValue3.Text) Then
        MsgBox "请把组合查询选项填完整再查询", vbOKOnly + vbCritical, "查询提示"
        GoTo proc_exit
    Else
        Select Case comboCombo2.Text
        Case "与"
        StrSql = StrSql & " And " & FieldName(comboField3.Text) & comboOperator3.Text & "'" & txtFieldValue3.Text & "'"
        Case "或"
        StrSql = StrSql & " Or " & FieldName(comboField3.Text) & comboOperator3.Text & "'" & txtFieldValue3.Text & "'"
        End Select
    End If
End If

'开始进行查找
Set objrs = ExecuteSQL(StrSql, StrMsg)
objrs.Update

If objrs.RecordCount = 0 Then
    MsgBox "没有您要查找的学生上机记录！", vbOKOnly + vbCritical, "查询提示"
    comboField1.SetFocus
    MSFlexGrid1.Rows = 1
    GoTo proc_exit
    
'存在上机记录查询成功，填充到表格
Else
    Dim Intindex As Integer
    MSFlexGrid1.Rows = 1
    Do While Not objrs.EOF
        
    With MSFlexGrid1
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = Intindex + 1
        .TextMatrix(.Rows - 1, 1) = objrs!CID
        .TextMatrix(.Rows - 1, 2) = objrs!SName
        .TextMatrix(.Rows - 1, 3) = objrs!OnDate
        .TextMatrix(.Rows - 1, 4) = objrs!OnTime
        .TextMatrix(.Rows - 1, 5) = objrs!OffDate
        .TextMatrix(.Rows - 1, 6) = objrs!OffTime
        .TextMatrix(.Rows - 1, 7) = objrs!Cash
        .TextMatrix(.Rows - 1, 8) = objrs!Consumemoney
        
    End With
        Intindex = Intindex + 1
        objrs.MoveNext
    Loop
End If

proc_exit:
    Set objrs = Nothing
    Exit Sub
’下面是模板函数***************************
'定义组合查询的字段选择函数
Public Function FieldName(StrFiledName As String) As String
Select Case StrFiledName
    Case "卡号"
        FieldName = "CID"
    Case "姓名"
        FieldName = " SName"
    Case "上机日期"
        FieldName = "OnDate"
    Case "上机时间"
        FieldName = "OnTime"
    Case "下机日期"
        FieldName = "OffDate"
    Case "下机时间"
        FieldName = "OffTime"
    Case "教师姓名"
        FieldName = "TeacherName"
    Case "级别"
        FieldName = "TeacherType"
    Case "性别"
        FieldName = "Sex"
    Case "机器名"
        FieldName = "MachineName"
    Case "专业"
        FieldName = "Sdept"
    Case "班级"
        FieldName = "Sclass"
    Case "年级"
        FieldName = "Sgrade"
    Case "学院"
        FieldName = "SAccademy"
    Case "学号"
        FieldName = "SID"
    
    End Select
End Function

'定义函数：判断是否是组合查询
Public Function ComboInquire(StrCombo As String) As Boolean
If StrCombo = "" Then
    ComboInquire = False
Else
    ComboInquire = True
End If
End Function

有好的建议，欢迎大家一起交流。