传参轻松实现组合查询---机房个人版

       传递参数，在整个系统中应该说是支柱了，利用三层编码，靠实体传递参数来实现这些功能，在机房收费系统中组合查询应该是比较麻烦的一部分吧！ 

像上图中的选择条件，组合起来的情况多种多样了，假如我一个一个去判断，可以想象情况有很多种，组合关系选择什么，查询条件是什么等等，但是对于每种查询条件都有共有的特性，那就是我们选择条件后都要去数据库进行查询，于是我想把查询条件保存到字符串中，靠传递查询字符串去更改D层内不断变化的查询语句 

而对于字段名字，操作符 组合关系下的选项都是汉字，首先我要先将这些字段转换为相应的对应数据库的字段英文名字 

 

'将选择的中文字符转变成字段名，方便在数据库中查询该信息
    Public Function getFileName(ByVal GFN As String) As String
        Select Case GFN
            Case "卡号"
                Return "C_number"
            Case "上机日期"
                Return "L_onDate"
            Case "上机时间"
                Return "L_onTime"
            Case "机房号"
                Return "L_computer"
            Case "姓名"
                Return "L_name"
            Case "与"
                Return " and "
            Case "或"
                Return " or "
            Case Else
                Return ""
        End Select

    End Function

注释：对于上述代码还需要注意一点那就是and 和or  我在运行时，每次组合关系选择and  或or  都会出错，于是我在and 和or 的前后加了空格就好了，原因是： 我在运行时，or 和and 连接 两个不同的查询条件 在我没有加入空格时，例如我想查两个卡号条件下的内容  查询字符串就会是C_numberandC_number   ，很明显的看出，没有空格时根本无法判断出条件是and ，因此会报错。

将这些字段转换成功后，我是利用组合关系框的选择或者是不选择进行判断的，分为几种情况，同时在不同的情况下判断字段名。操作符。查询内容是否为空  ，然后将获得的查询条件保存到定义好的变量中，进行传递！ 这样看似很麻烦的查询也就变的简单了，我们只需要选择，至于选择的内容等不必管也可以查询出来， 我的代码如下：

  Dim b1 As BLL.inquireOnLineState = New BLL.inquireOnLineState '实例化B层查询上机状态的类
        '判断第一行文操作符，字段名，以及输入内容  是否为空
        If comFileName1.Text = "" Then
            MsgBox("请选择要查询的字段名！", , "提示")
            comFileName1.Focus()
            Exit Sub
        End If

        '判断操作符输入是否为空
        If comOperate1.Text = "" Then
            MsgBox("请选择操作符", , "提示")
            comOperate1.Focus()
            Exit Sub
        End If

        '判断查询内容是否为空
        If txtContent1.Text = "" Then
            MsgBox("请输入要查询的内容", , "提示")
            txtContent1.Focus()
            Exit Sub
        End If
        Dim sqlString As String = Nothing  '定义变量用来存放查询语句

        '第二个组合关系为空不为空 下，的情况
        If comRelation2.Text = "" Then
            If comRelation1.Text = "" Then
                sqlString = getFileName(comFileName1.Text) & " " & comOperate1.Text & " '" & txtContent1.Text & "'"
            Else  '不为空时两种情况，第二行为空，不为空
                If comFileName2.Text = "" And comOperate2.Text = "" And txtContent2.Text = "" Then
                    sqlString = getFileName(comFileName1.Text) & "" & comOperate1.Text & "'" & txtContent1.Text & "'"
                Else
                    '检测第二行的字段名不能为空 
                    If comFileName2.Text = "" Then
                        MsgBox("请选择第二行字段名！", , "提示")
                        comFileName2.Focus() '字段获得焦点
                        Exit Sub
                    End If
                    '检测第二行操作符是否选择
                    If comOperate2.Text = "" Then
                        MsgBox("请选择第二行操作符", , "提示")
                        comOperate2.Focus() '获取焦点
                        Exit Sub
                    End If
                    '检测查询的内容是否输入 
                    If txtContent2.Text = "" Then
                        MsgBox("请输入第二行要查询的内容", , "提示")
                        txtContent2.Focus() '获取焦点
                        Exit Sub
                    End If
                    sqlString = getFileName(comFileName1.Text) & " " & comOperate1.Text & "'" & txtContent1.Text & "'" & getFileName(comRelation1.Text) & " " & getFileName(comFileName2.Text) & " " & comOperate2.Text & "'" & txtContent2.Text & "'"
                End If
            End If
        Else
            If comFileName3.Text = "" And comOperate3.Text = "" And txtContent3.Text = "" Then
                '两行条件
                sqlString = getFileName(comFileName1.Text) & " " & comOperate1.Text & "'" & txtContent1.Text & "'" & getFileName(comRelation1.Text) & " " & getFileName(comFileName2.Text) & " " & comOperate2.Text & "'" & txtContent2.Text & "'"

            Else
                '检测第三行的字段名不能为空 
                If comFileName3.Text = "" Then
                    MsgBox("请选择第三行字段名！", , "提示")
                    comFileName3.Focus() '字段获得焦点
                    Exit Sub
                End If
                '检测第3行操作符是否选择
                If comOperate3.Text = "" Then
                    MsgBox("请选择第三行操作符", , "提示")
                    comOperate3.Focus() '获取焦点
                    Exit Sub
                End If
                '检测查询的内容是否输入 
                If txtContent3.Text = "" Then
                    MsgBox("请输入第三行要查询的内容", , "提示")
                    txtContent3.Focus() '获取焦点
                    Exit Sub
                End If
                '三行条件
                sqlString = getFileName(comFileName1.Text) & " " & comOperate1.Text & "'" & txtContent1.Text & "'" & getFileName(comRelation1.Text) & " " & getFileName(comFileName2.Text) & " " & comOperate2.Text & "'" & txtContent2.Text & "'" & getFileName(comRelation2.Text) & " " & getFileName(comFileName3.Text) & "" & comOperate3.Text & "'" & txtContent3.Text & "'"
            End If
        End If
        '定义表来接受B层传递回来的数据
        Dim Utable As DataTable = b1.inquireStateInfo(sqlString)
        '绑定数据到datagridview上
        dgvOnLineInfo.DataSource = Utable
        If dgvOnLineInfo.Rows.Count < 1 Then
            MsgBox("没有您查询的信息！", , "提示")
        End If




此处对之前的代码做了修改，原因在于当我输入卡号的时候还好查询的字符串是C_number=1  我不知道这里怎么没有报错，还能执行，但是当我输入ASUS-PC时程序的错误就出现了，查询字符串传入的是L_computer=ASUS-PC  而错误提示是不存在列名ASUS  由此可以看出我在给字段赋值的时候出现了错误，正常应该是L_computer="ASUS-PC"  因此，我将字符串的格式修改后就没有报错了。