机房收费系统——组合查询
机房收费系统敲到这，算是遇到真正的难题了。用了我整整一下午的时间，晚饭都没顾上吃才攻克了。
这个窗体难点就在组合查询，很考验人的思维能力，要想实现这个窗体必须要有清晰地思路。
首先判断各种情况：
1、 只使用第一行查询条件
2、 只不使用第一行查询条件即选择第二、三行查询条件
3、 只使用第二种查询条件（这里没有只不选择第二行查询条件，因为第一行跟第三行中间没有关系符号）
4、 只使用第三行查询条件
5、 只不使用第三行查询条件即选择第一、二行查询条件
6、 三行查询条件都使用
我个人觉得这样分析条理性比较好，只是代码量写的会比较大，但是各种情况之间代码变化不大，所以下面只写出第一二种情况的代码，其他情况可以都可以照着写出来。
If (Ok1 = False And Ok2 = False And Ok3 = False) Then
MsgBox "请输入查询条件", vbOKOnly + vbInformation, "提示"
combofield1(0).SetFocus
End If
If (Ok1 = True And Ok2 = False And Ok3 = False) Then '只选择第一行查询条件
Txtsql = "select * from online_info where " & FieldName & " " & Trim(Combosign1(0).Text) & "'" & Trim(Txtcontent1.Text) & "'"
Set mrc = ExecuteSQL(Txtsql, Msgtext)
If mrc.EOF Then
MsgBox "搜索到的记录为空", vbOKOnly + vbInformation, "提示"
Exit Sub
Else
With MYFlexGrid
.Cols = 5
.Rows = 1 '防止空白行
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "姓名"
.TextMatrix(0, 2) = "上机日期"
.TextMatrix(0, 3) = "上机时间"
.TextMatrix(0, 4) = "机房号"
For i = 1 To mrc.RecordCount
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(6)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
.TextMatrix(.Rows - 1, 4) = mrc.Fields(8)
mrc.MoveNext
Next i
mrc.Close
End With
End If
ElseIf (Ok1 = False And Ok2 = True And Ok3 = True) Then ''只有第一行查询条件不被选择，即选择第二、三行查询条件
If Trim(Comborelation1(1)) = "" Then
MsgBox "请选择第二个组合关系", vbOKOnly + vbInformation, "提示"
Comborelation1(1).SetFocus
Exit Sub
Else
Txtsql = "select * from online_info where " & FieldName & " " & Trim(Combosign1(1).Text) & "'" & Trim(Txtcontent2.Text) & "'"
Txtsql = Txtsql & Strrelation & " " & FieldName & " " & Trim(Combosign1(2).Text) & "'" & Trim(Txtcontent3.Text) & "'"
Set mrc = ExecuteSQL(Txtsql, Msgtext)
If mrc.EOF Then
MsgBox "搜索到的记录为空", vbOKOnly + vbInformation, "提示"
Exit Sub
Else
With MYFlexGrid
.Cols = 5
.Rows = 1 '防止空白行
.TextMatrix(0, 0) = "卡号"
.TextMatrix(0, 1) = "姓名"
.TextMatrix(0, 2) = "上机日期"
.TextMatrix(0, 3) = "上机时间"
.TextMatrix(0, 4) = "机房号"
For i = 1 To mrc.RecordCount
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(6)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
.TextMatrix(.Rows - 1, 4) = mrc.Fields(8)
mrc.MoveNext
Next i
mrc.Close
End With
End If
End If
End If
