机房收费系统难点总结（2）

3，组合查询：设计到“操作员”的三个权限，也就是实现三个窗体功能，做出一个来剩下两个粘贴复制再修改一下就ＯＫ了。一开始觉得很简单就按着自己的想法做，但是试了又试怎么也实现不了。后来了解到，要想实现这个组合查询，需要一个重要属性——Ｔａｇ

 

三个组合查询分别是：学生基本信息维护；学生上机统计信息查询；操作员工作记录。

 

它们的窗体设计一样，如下图

 

以学生基本信息维护为例：

字段名：　　　　

 

操作符：

 

 

组合关系：

 

例如：第一个字段名选择“卡号”，第一个操作符选择“＝”，查询内容为“１”（即查询卡号为“１”的学生的信息），第一个关系组合框选择“与”；第二个字段选择“学号”，第二个操作符选择“＞”，查询内容为“２”（即查询学号为“２”的学生的信息），第二个关系组合框不做选择。

综上，查询条件为：卡号＝１　与　学号＞２的所有学生的信息。

 

所有学生的信息都存在，Ｓｔｕｄｅｎｔ＿ｉｎｆｏ表中。

 

在写Ｓｑｌ查询语句时，如何将字段名组合框中所选内容表示为表中的字段名，将关系组合框中所选内容表示为逻辑运算符（Ａｎｄ，Ｏｒ）。这时候就用到了，容器Ｔａｇ。先将：表中字段名、操作符、逻辑运算符存储，等到Ｓｑｌ查询时，释放。当然，存储时也要一一对应（例如：当窗体字段名选择为“卡号”时，则容器Ｔａｇ存储“ＣａｒｄＮｏ”；关系组合框选择“或”时，容器Ｔａｇ存储“Ｏｒ”）

 

具体实现，以查询第一个条件为例：

'判断第一个查询条件

     If comboField1.Text = "卡号"Then          '判断第一个字段名的选择，并存储

       comboField1.Tag = "cardno"

     End If

                   

     If comboField1.Text = "学号" Then

       comboField1.Tag = "studentno"

     End If

                   

     If comboField1.Text = "姓名" Then

       comboField1.Tag ="studentname"

     End If

                   

     If comboField1.Text = "性别" Then

       comboField1.Tag = "sex"

     End If

                   

     If comboField1.Text = "系" Then

       comboField1.Tag ="department"

     End If

                   

     If comboField1.Text = "年级" Then

       comboField1.Tag = "grade"

     End If

   

     If comboField1.Text = "班级" Then

       comboField1.Tag = "class"

     End If

   

     If comboOperate1.Text = "="Then     '判断第一个操作符的选择，并存储

       comboOperate1.Tag = "="

     End If

    

     If comboOperate1.Text = "<"Then

       comboOperate1.Tag = "<"

     End If

    

     If comboOperate1.Text = ">"Then

       comboOperate1.Tag = ">"

       

     End If

    

     If comboOperate1.Text ="<>" Then

       comboOperate1.Tag ="<>"

     End If

    

     If comboAnd1.Text = "与"Then        '判断第一个关系符的选择，并存储

       comboAnd1.Tag = "And"

       

     End If

    

     If comboAnd1.Text = "或" Then

       comboAnd1.Tag = "Or"

     End If

 

查询语句为：

txtSQL ="select * from student_info where " & comboField1.Tag &comboOperate1.Tag & "'" & Trim(txtCheck1.Text) & "'" & "order by cardno"

 

 Set mrc = ExecuteSQL(txtSQL, msgText)

 

（注：我这里的“order by cardno”的作用是：将查询出的信息按卡号排序）