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

在学生信息管理系统中我们用到了组合查询，就是通过用check项，将SQL 语句一点点完善， 最后在数据库中查询。  机房收费系统中同样用到了组合查询，差别是提供字段让我们选择，还有就是用到了“and”和“or ”来组合  
 这里我们引入了comboBox.Tag 属性。用comboBox.Tag来代替选择的字段名。 代码如下： 第一步：将选择的字段名用数据库中的字段代替。 Private Sub Combo1_Change()If cmbField1.Text = "教师" Then cmbField1.Tag = "UserID"If cmbField1.Text = "注册日期" Then cmbField1.Tag = "LoginDate"If cmbField1.Text = "注册时间" Then cmbField1.Tag = "LoginTime"If cmbField1.Text = "注销日期" Then cmbField1.Tag = "LogoutDate"If cmbField1.Text = "注销时间 " Then cmbField1.Tag = "LogoutTime"If cmbField1.Text = "机器号" Then cmbField1.Tag = "computer"End Sub
Private Sub cmbMode2_Click()If cmbMode2.Text = "与" Then cmbMode2.Tag = "and"If cmbMode2.Text = "或" Then cmbMode2.Tag = "or "End Sub 第二部：编写SQL查询代码，一点点完善 例如：（select * from worklog_Info where ****order by serial） Private Sub cmdInquiry_Click()Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.Recordset    txtSQL = "select * from worklog_Info where (" & cmbField1.Tag & cmbSign1.Text & " '" & txtInquire1.Text & "'"     If cmbMode2.Text <> "" Then         If cmbField2.Text = "" Then            MsgBox "请选择字段名！", vbOKOnly + vbExclamation, "警告"            cmbField2.SetFocus            Exit Sub         End If         If cmbSign2.Text = "" Then             MsgBox "请选择操作符！", vbOKOnly + vbExclamation, "警告"             cmbSign2.SetFocus             Exit Sub         End If         If txtInquire2.Text = "" Then             MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation, "警告"             txtInquire2.SetFocus             Exit Sub         End If      txtSQL = txtSQL & " " & cmbMode2.Tag & " " & cmbField2.Tag & cmbSign2.Text & " '" & txtInquire2.Text & "'"   End If      If cmbMode3.Text <> "" Then         If cmbField3.Text = "" Then            MsgBox "请输入字段名！", vbOKOnly + vbExclamation, "警告"            cmbField3.SetFocus            Exit Sub         End If         If cmbSign3.Text = "" Then            MsgBox "a请输入操作符！", vbOKOnly + vbExclamation, "警告"            cmbSign3.SetFocus            Exit Sub         End If         If txtInquire3.Text = "" Then            MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation, "警告"            txtInquire3.SetFocus            Exit Sub         End If      txtSQL = txtSQL & " " & cmbMode3.Tag & " " & cmbField3.Tag & cmbSign3.Text & " ' " & txtInquire3.Text & " '"   End If      txtSQL = txtSQL & ") order by serial"      Set mrc = ExecuteSQL(txtSQL, MsgText)    If mrc.RecordCount = 0 Then         myFlexGrid.Clear          MsgBox "结果集为空！", vbOKOnly + vbExclamation, "警告"          Exit Sub       End If