机房收费系统做的差不多了，现在回顾一下能够分为以下几点：
一、学生录入信息、上机、下机、充值、退卡、维护个人信息一系列操作
二、学生上机、下机的收费计算
三、学生信息或者机房工作人员信息查询（组合查询）
四、结账、进行报表
下面说一下第三点儿组合查询的问题。
机房收费系统中组合查询十多次使用。
比如：学生上机状态查询
学生基本信息维护
学生上机统计信息
操作员工作记录
简图如下：
下面说一下我在组合查询中的思路：
1、首先遇到的困难就是‘字段名’ 和 ‘组合关系’对应的文本和我们要查询表中的字段不是一致的（字段名=学号，对应数据表中 studentNo 但是 如何当我们输入学号让它查询是对应的studentNo中去？是一个问题）
解：定义一个函数DateView()
public Function DateView(a as string)as string
select case a
case "学号"
DateView = "studentNo"
case "姓名"
DateView = "studentname"
.
.
.
.
end select
这样就可以使窗体中的字符串和数据表中对应字段一致了
2、紧接着是查询语句，对于多条件查询也就是and / or 的问题。
比如查询student表中学号(studentno)在3—9之间的学生可以这样写：
dim txtsql as string
txtsql="select * from student where studentno>'"&"3"&"' and student<'"&"9"&"'"
3、向窗体中显示数据
使用do while语句一条一条的添加数据
现在基本代码是实现了，但是对于许多能够出现的错误要避免。下面是我在查询"学生上机统计查询"的代码：
public Function Field(a as string ) as string
select case a
case"卡号"
field="cardno"
case"姓名"
field="studentname"
case"上机日期"
field="ondate"
case"上机时间"
field="ontime"
case"下机日期"
field="offdate"
case"下机时间"
field="offtime"
case"消费金额"
field="consume"
case"余额"
field="cash"
case"备注"
field="status"
end select
End Function
Private Sub CmdInquire_Click()
Dim Mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'如果第一行输入内容有空，提示信息
If Trim(ComboField1.Text) = "" Or Trim(ComboOperator1.Text) = "" Or Trim(txtTest1.Text) = "" Then
MsgBox "请输入完整的查询条件", , "提示"
Exit Sub
End If
txtSQL = "select * from line_Info where "
txtSQL = txtSQL & Field(ComboField1.Text) & Trim(ComboOperator1.Text) & "'" & Trim(txtTest1.Text) & "'"
If Trim(ComboRelation1.Text <> "") Then
If Trim(ComboField2.Text) = "" Or Trim(ComboOperator2.Text) = "" Or Trim(txtTest2.Text) = "" Then
MsgBox "您选择了第一个组合关系，请输入第二行条件在查询", vbOKOnly, "提示"
Exit Sub
Else
txtSQL = txtSQL & Field(ComboRelation1.Text) & " " & Field(ComboField2.Text) & ComboOperator2.Text & "'" & Trim(txtTest2.Text) & "'"
End If
End If
If Trim(ComboRelation2.Text) <> "" Then
If Trim(ComboField3.Text) = "" Or Trim(ComboOperator3.Text) = "" Or Trim(txtTest3.Text) = "" Then
MsgBox "您选择了第二个组合关系，请输入第三行条件在查询", vbOKOnly, "提示"
Exit Sub
Else
txtSQL = txtSQL & Field(ComboRelation2.Text) & " " & Field(ComboField3.Text) & ComboOperator3.Text & "'" & Trim(txtTest3.Text) & "'"
End If
End If
Set Mrc = ExecuteSQL(txtSQL, MsgText)
With MyflexGrid
.Rows = 1
.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) = "备注"
Do While Not Mrc.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = Mrc!cardno
.TextMatrix(.Rows - 1, 1) = Mrc!studentname
.TextMatrix(.Rows - 1, 2) = Mrc!ondate
.TextMatrix(.Rows - 1, 3) = Mrc!ontime
.TextMatrix(.Rows - 1, 4) = Mrc!offDate
.TextMatrix(.Rows - 1, 5) = Mrc!offTime
.TextMatrix(.Rows - 1, 6) = Mrc!consume
.TextMatrix(.Rows - 1, 7) = Mrc!cash
.TextMatrix(.Rows - 1, 8) = Mrc!Status
Mrc.MoveNext
Loop
Mrc.Close
End With
End Sub
组合查询中开始的想法和最终的想法其实差不多，但是总是查不出来，总是出问题，后来利用断点调试，渐渐的明白了空格的重要性。就像上面写的一句代码：txtSQL = txtSQL & Field(ComboRelation1.Text) & " " & Field(ComboField2.Text) & ComboOperator2.Text & "'" & Trim(txtTest2.Text) & "'" 如果这段代码写成这样那必然是读不出来：txtSQL = txtSQL & Field(ComboRelation1.Text) & Field(ComboField2.Text) & ComboOperator2.Text & "'" & Trim(txtTest2.Text) & "'"