学生管理系统（四）---查询窗体

前言：

  有了信息之后，就是对这些信息进行查询了！

内容：

    1、设置查询方式

        If Not (dd(0) Or dd(1) Or dd(2)) Then
                MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
                Exit Sub
        
        End If

    2、查询内容不为空

 '判断是否选择姓名查询方式
        If Check1(1).Value Then
        
             '判断是否输入姓名
             If Trim(txtName.Text) = "" Then
              
                  sMeg = "姓名不能为空"
                  MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
                  txtName.SetFocus
                  Exit Sub
                  
             Else
             
                   dd(1) = True
                   If dd(0) Then
                          
                          '组合查询语句
                          txtSQL = txtSQL & "and student_Name= '" & txtName.Text & "'"
                   Else
                           
                          txtSQL = txtSQL & "student_Name= '" & txtName.Text & "'"
                   End If
            End If
        
        End If

    3、查询满足的内容并显示

       '查询所有满足条件的内容
        txtSQL = txtSQL & "order by student_ID "
        
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, MsgText)
         
         If mrc.BOF = True Then
                MsgBox "无查询记录！", vbOKOnly + vbExclamation, "警告"
                Exit Sub
                
         End If
        '将查询语句显示在表格控件中
        With myFlexgrid
        
              .Rows = 2
              .CellAlignment = 4
              .TextMatrix(1, 0) = "学号"
  
              .TextMatrix(1, 1) = "姓名"
              
              .TextMatrix(1, 2) = "性别"
              
              .TextMatrix(1, 3) = "出生日期"
              
              .TextMatrix(1, 4) = "班号"
              
              .TextMatrix(1, 5) = "联系电话"
              
              .TextMatrix(1, 6) = "入校日期"
              
              .TextMatrix(1, 7) = "家庭住址"
        

   4、如果复选框没有被选中，后面的文本框不可以输入

 If Check1(0).Value = Unchecked Then
   
      txtSID.Enabled = False
      txtSID.Text = ""
      
      Else
      
      txtSID.Enabled = True
      txtSID.SetFocus
      
  End If

后记：

  其实查询窗体的逻辑顺序就是：设置查询的方式，输入查询的内容，可以复合查询，最后将查询的内容显示出来即可。