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

前言：

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

内容：

    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

后记：

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