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

机房收费系统已经结束了，正在整理和完善自己的代码，优化代码，在整个过程中遇到了几个比较棘手的部分，也是整个机房收费的核心学习点。

（一）：机房收费系统——组合查询

一、界面设计:

二、运行结果：

三、功能解析：窗体加载时显示控件信息以及MSHFlexGrid1中显示的表头。

                 查询时：按照不同的条件查询，单组查询和多组查询结合，关键是编写多组查询的代码，查询条件的设定。

'检查输入的内容是否满足要求，是否已经输入内容等。下面以文本框中的输入内容为例

If txtContent1.Text = "" Then

        MsgBox "请输入查询内容！", vbOKOnly + vbExclamation, "提示"

        txtContent1.SetFocus

        Exit Sub

End If

 

 '如果只有一个查询条件

 

    If cboRelation(0).Text = "" AndcboRelation(1).Text = "" Then

        strSQL = "select * fromstudent_Info where " & strFields(0) & cboOperator(0).Text &"'" &Trim(txtContent1.Text) & "'"

        Set objrst = ExecuteSQL(strSQL,msgtext)

    End If

 

'如果为一二组合查询

    If cboRelation(0).Text <>"" And cboRelation(1).Text = "" Then

        If txtContent2.Text = "" Then

            MsgBox "请输入查询内容！", vbOKOnly + vbExclamation, "提示"

            txtContent2.SetFocus

            Exit Sub

        End If

        strSQL = "select * fromstudent_Info where " & strFields(0) & cboOperator(0).Text &"'" &Trim(txtContent1.Text) & "'" _

                                         &" " & strRelation(0) & " " & strFields(1) &cboOperator(1).Text & "'" &Trim(txtContent2.Text) &"'"

        Set objrst = ExecuteSQL(strSQL, msgtext)

    End If

 

'

'    '如果为一二三组合查询

    If cboRelation(0).Text <>"" And cboRelation(1).Text <> "" Then

        If txtContent2.Text = "" Then

            MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation, "提示"

            txtContent2.SetFocus

            Exit Sub

        End If

        If txtContent3.Text = "" Then

            MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation, "提示"

            txtContent3.SetFocus

            Exit Sub

        End If

 

        strSQL = "select * fromstudent_Info where " & strFields(0) & cboOperator(0).Text &"'" &Trim(txtContent1.Text) & "'" _

                        & " "& strRelation(0) & " " & strFields(1) &cboOperator(1).Text & "'" & Trim(txtContent2.Text)&"'" _

                        & " "& strRelation(1) & " " & strFields(2) &cboOperator(2).Text & "'" & Trim(txtContent3.Text)&"'"

        Set objrst = ExecuteSQL(strSQL,msgtext)

    End If

 

   '如果用户选择了组合关系2没选组合关系1，提示用户

 

    If cboRelation(0).Text = "" AndcboRelation(1).Text <> "" Then

        MsgBox "请选择合适的组合关系！", vbOKOnly + vbExclamation, "提示"

        cboRelation(0).SetFocus

        Exit Sub

End If

在查询时我们首先考虑如何让查询的条件和数据库中的表字段结合起来，采取的方法就是，用select case 语句分别设置字段和索引相符合。'通过索引选择条件，将条件与表中的字段对应

    For intindex = 0 To 2

        Select Case cbofields(intindex).Text

            Case "卡号"

                strFields(intindex) ="cardno"

            Case "学号"

                strFields(intindex) ="studentno"

            Case "姓名"

                strFields(intindex) ="studentname"

            Case "性别"

                strFields(intindex) ="sex"

            Case "系别"

                strFields(intindex) ="department"

            Case "年级"

                strFields(intindex) ="grade"

            Case "班号"

                strFields(intindex) ="class"

        End Select

    Next intindex

   

    For intindex = 0 To 1

        Select Case cboRelation(intindex).Text

            Case "与"

                strRelation(intindex) ="and"

            Case "或"

                strRelation(intindex) ="or"

        End Select

Next intindex

对于组合查询，只要明白程序如何运行，如何进行的对条件的查询，编写代码很容易，易错点就是在strSQL=”select * from 表 where 条件”中的条件如何编写，细节的符号等。