机房收费系统---组合查询

在机房收费系统中，在对大型的数据中进行检索的时候。通过一个字段进行检索的时候，往往得到很多没有价值的结果。这样的查询没有多大意义。所以人们往往通过添加字段的方式。逐步进行筛选。这样得到的数据，又少又有用。

通过添加字段的形式来进行组合筛选。



默认是单个查询方式。

当使用的多的话，就可以通过添加字段的形式来进行组合查询。添加字段形式如下：



因为，在text中的文本与数据库中的字段名不一致，所以 这样的SQL语句达不到要求，所以需要把 text文本中的字段转换为 数据库中所使用的字段。

所以使用了tag属性：

Private Sub cboField1_Click()           '把选择的字段转换成  sql语句中的字段
If cboField1.Text = "教师" Then cboField1.Tag = "UserId"
If cboField1.Text = "上机日期" Then cboField1.Tag = "loginDate"
If cboField1.Text = "上机时间" Then cboField1.Tag = "loginTime"
If cboField1.Text = "注销日期" Then cboField1.Tag = "logoutDate"
If cboField1.Text = "注销时间" Then cboField1.Tag = "logoutTime"
If cboField1.Text = "机器号" Then cboField1.Tag = "computer"
End Sub

Private Sub cboMode1_Click()            '把选择的 字段 组合关系 转换成SQL中的 组合关系关键字
If cboMode1.Text = "与" Then cboMode1.Tag = "and"
If cboMode1.Text = "或" Then cboMode1.Tag = "or"

cboField2.Visible = True            ’添加字段，打开一个新字段
cboSign2.Visible = True
txtInquire2.Visible = True
cboMode2.Visible = True
End Sub

在下述的查询中，依次向txtSQL中添加 sql语句，形成的SQL语句形式为：

select * from worklog_Info where (UserId='**' and loginDate='**' and ---) order by serial

然后依次添加检索字段如下：

Private Sub cmdInquire_Click()
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset

'首先写一个不完全的SQL语句，一会儿补充
txtSQL = "select * from student_Info where (" & cboField1.Tag & cboSign1.Text & "'" & txtInquire1.Text & "'"

If cboMode1.Text <> "" Then      '检验第二个组合字段的正确性
If cboField2.Text = "" Then
MsgBox "请选择字段名！", vbOKOnly + vbExclamation, "警告"
cboField2.SetFocus
Exit Sub
End If
If cboSign2.Text = "" Then
MsgBox "请输入操作符！", vbOKOnly + vbExclamation, "警告"
cboSign2.SetFocus
Exit Sub
End If
If txtInquire2.Text = "" Then
MsgBox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"
txtInquire2.SetFocus
Exit Sub
End If

'第二个组合字段正确，开始添加信息
txtSQL = txtSQL & " " & cboMode1.Tag & " " & cboField2.Tag & cboSign2.Text & "'" & txtInquire2.Text & "'"
End If

If cboMode2.Text <> "" Then     '检验第三组 组合字段的正确性
If cboField3.Text = "" Then
MsgBox "请选择字段名！", vbOKOnly + vbExclamation, "警告"
cboField3.SetFocus
Exit Sub
End If
If cboSign3.Text = "" Then
MsgBox "请输入操作符！", vbOKOnly + vbExclamation, "警告"
cboSign3.SetFocus
Exit Sub
End If
If txtInquire3.Text = "" Then
MsgBox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"
txtInquire3.SetFocus
Exit Sub
End If

'第三个组合字段正确，开始添加信息
txtSQL = txtSQL & " " & cboMode2.Tag & " " & cboField3.Tag & cboSign3.Text & "'" & txtInquire3.Text & "'"
End If

txtSQL = txtSQL & ") "   '把SQL语句补充完整
'Debug.Print txtSQL   用于调试程序使用
Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.RecordCount = 0 Then         '如果要查询的结果为空，则提醒用户
myFlexGrid.Clear
MsgBox "结果集为空!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If

With myFlexGrid         '把标题写上
.Row = 0
.TextMatrix(.Row, 0) = "学号"
.TextMatrix(.Row, 1) = "姓名"
.TextMatrix(.Row, 2) = "卡号"
.TextMatrix(.Row, 3) = "余额"
.TextMatrix(.Row, 4) = "学院"
.TextMatrix(.Row, 5) = "专业"
.TextMatrix(.Row, 6) = "年级"
.TextMatrix(.Row, 7) = "班级"
.TextMatrix(.Row, 8) = "性别"
.TextMatrix(.Row, 9) = "状态"
.TextMatrix(.Row, 10) = "备注"
End With

myFlexGrid.Rows = mrc.RecordCount + 1           '设置大小

With myFlexGrid         '对查询到的结果进行遍历，显示出来
.Row = 0
While mrc.EOF = False
.Row = .Row + 1
.TextMatrix(.Row, 0) = mrc.Fields(1)
.TextMatrix(.Row, 1) = mrc.Fields(2)
.TextMatrix(.Row, 2) = mrc.Fields(0)
.TextMatrix(.Row, 3) = mrc.Fields(8)
.TextMatrix(.Row, 4) = mrc.Fields(4)
.TextMatrix(.Row, 5) = mrc.Fields(5)
.TextMatrix(.Row, 6) = mrc.Fields(6)
.TextMatrix(.Row, 7) = mrc.Fields(7)
.TextMatrix(.Row, 8) = mrc.Fields(3)
.TextMatrix(.Row, 9) = mrc.Fields(11)
.TextMatrix(.Row, 10) =mrc.Fields(9)
mrc.MoveNext
Wend
End With
End Sub

在给控件，添加tag属性的时候，由于我使用的不是控件数组。所以，写的代码有点繁琐。

如果是控件数据，可以通过for循环来减少代码量。

参考博客：/article/1907692.html