【机房收费系统】-查询

前言：

      刚开始做的时候总会自己吓自己，组合查询这个之前学生的时候师父就告诉说是很重要，这次在做之前就有了充分的心理准备，其实开始动手之后远远没有自己想象中的那么难，提起机房总免不了提起一个词-逻辑，理清逻辑有多重要，大家也都进行了，想必是深有体会啊，接下来就总结和梳理下自己捣鼓这个时候的思路；

内容：

       在这里就以学生基本信息维护为例，总结下关于组合查询的内容，其余的两个也都是大同小异；

思考过程：

      1、第一个查询条件可单独查询，组合关系combo3(0)符合的时候txtSQL1和txtSQL2同时查询，当组合框combo3(1)选中的时候txtSQL1、txtSQL2、txtSQL3三行条件一起查询。

      2、当字段名是性别的时候操作符中的符号只能是“=”和“< >”并且提示只能输入“男” 或“女”。当字段名为时间或者是日期的时候，combo2(1)要有限制只能输入日期或者是时间，这个还需要在后续的优化中继续完善；

     3、注意：组合查询combo3(0)为空的时候txtSQL2不能点击输入，只有单击combo3(0)的时候txtSQL2才能用；

代码展示：

查询代码展示：

Private Sub cmdInquire_Click()
    
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset    
    
    '定义三个字符串，表示三种查询条件
    Dim txtSQL1 As String '第一种查询条件
    Dim txtSQL2 As String '第二种查询条件
    Dim txtSQL3 As String '第三种查询条件

    '在line_info表中获得整行记录，*表示查询的记录
    txtSQL = "select * from student_info where"
    txtSQL1 = txtSQL & " " & field(Combo1(0).Text) & " " & (Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"
    txtSQL2 = txtSQL1 & " " & field(Combo3(0).Text) & " " & field((Combo1(1).Text)) & " " & Combo2(1).Text & "'" & Trim(Text2.Text) & "'"
    txtSQL3 = txtSQL2 & " " & field(Combo3(1).Text) & " " & field(Combo1(2).Text) & " " & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"

    '第一行查询条件
    If Trim(Combo1(0).Text) = "" Or Trim(Combo2(0).Text) = "" Or Trim(Text1.Text) = "" Then
        MsgBox "请输入完整的查询条件！", vbOKOnly, "提示"
        Exit Sub
    Else
        txtSQL = txtSQL1
        Set mrc = ExecuteSQL(txtSQL, MsgText)
    End If

    '判断组合关系框是否填写,两行查询条件
    If Combo3(0).Text <> "" Then
        '判断第二行内容是否完整，且符合要求
        If Combo1(1).Text = "" Or Combo2(1).Text = "" Or Text2.Text = "" Then
            MsgBox "请将第二个查询条件内容填写完整！", vbOKOnly, "提示"
            Exit Sub
        Else
            '将前两行条件联系起来完成SQL语句
            txtSQL = txtSQL2
            Set mrc = ExecuteSQL(txtSQL, MsgText)
        End If
    End If

    '判断第二个组合关系是否选中,三行查询条件
    If Combo3(1).Text <> "" Then

        '如果选中，判断第二行内容是否填写完整，且符合要求
        If Combo1(2).Text = "" Or Combo2(2).Text = "" Or Text3.Text = "" Then
            MsgBox "请将第三行查询条件内容填写完整！", vbOKOnly, "提示"
            Exit Sub
        Else
            '将三行的条件联系起来，完成SQL语句
            txtSQL = txtSQL3
            Set mrc = ExecuteSQL(txtSQL, MsgText)
        End If
    End If
    
    If mrc.EOF Then
        MsgBox "查询无信息，请重新选择查询条件！", vbOKOnly + vbInformation, "提示信息"
        Exit Sub
    End If
    
    '获得表中数据表头
    With MSHFlexGrid1
        .ColAlignment(-1) = 4
        .Rows = 1
        .TextMatrix(0, 0) = "姓名"
        .TextMatrix(0, 1) = "卡号"
        .TextMatrix(0, 2) = "系别"
        .TextMatrix(0, 3) = "年级"
        .TextMatrix(0, 4) = "班级"
        .TextMatrix(0, 5) = "性别"
        .TextMatrix(0, 6) = "状态"
        .TextMatrix(0, 7) = "备注"
        .TextMatrix(0, 8) = "类型"
        .TextMatrix(0, 9) = "日期"
        .TextMatrix(0, 10) = "时间"
    
    '循环执行，直到最后一个记录
    Do While Not mrc.EOF
        .Rows = .Rows + 1   '防止空白行出现
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(2))
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(0))
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(5))
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(6))
        .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(3))
        .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(10))
        .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(8))
        .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(14))
        .TextMatrix(.Rows - 1, 9) = Trim(mrc.Fields(12))
        .TextMatrix(.Rows - 1, 10) = Trim(mrc.Fields(13))
        mrc.MoveNext
    Loop
    MsgBox "条件查询结束", vbOKOnly + vbExclamation, "提示！"        
    mrc.Close
End With
End Sub

注意：

      1、字段名与数据库中的列名相对应，将字段名转化为数据库语言，查询识别；

      2、借助模块和循环语句，减少代码量；

      3、代码输入过程还是要仔细，单引号双引号少一个都会出现不一样的问题；

           单引号是sql查询语句中表示一个字符串的开始结束的符号；双引号是VB语言字符串表示字符串开始结束的符号；

小结：

     做的时候还是要走心，理清思路，一步步完善；