【学生】学生优化（一）查询窗体

一、没有点击check的时候，text不可以输入。

在学生信息管理系统中，有两个查询窗体，按照书上敲的，不需要点击check就可以在text控件输入，但是在查询的时候还是需要用到check控件的，所以需要限制一下。

首先设置form_load

在原代码的基础上再加上一段代码，限制text在程序一运行就不可以输入。

      txtSID.Enabled = False
      txtName.Enabled = False
      txtCourse.Enabled = False
      txtSID.Text = ""
      txtName.Text = ""
      txtCourse.Text = ""
  
 

除此之外还需要定义check_click事件

      '定义当Check 未选中时候 txt文本框不可输入内容！
      Private Sub Check1_Click(Index As Integer)
      If Check1(0).Value Then
         '当选中时候文本框可用
          txtSID.Enabled = True
      Else
         '未选中时文本框不可用
          txtSID.Enabled = False
      End If
      If Check1(1).Value Then
          txtName.Enabled = True
      Else
          txtName.Enabled = False
      End If
      If Check1(2).Value Then
          txtCourse.Enabled = True
      Else
          txtCourse.Enabled = False
      End If
      End Sub
  
 

  
 
 

二、查询结束显示查询结果。

有的时候，数据库中没有记录，点击查询之后就没有任何反应，我们会以为是没有查询，这个时候需要显示查询结果。

添加一个label来显示查询到的结果。 

          n = 0
             '判断是否移动到数据集对象的最后一条记录
             Do While Not mrc.EOF
                  .Rows = .Rows + 1
                  .CellAlignment = 4
                  .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
                  .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
                  .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
                  .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)
                  .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
                  .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
                 '移动到下一条记录
                  mrc.MoveNext
                  n = n + 1
             Loop
          Label2.Caption = "共获得" & n & "条记录"
  
 

  
 
 

文章来源: blog.csdn.net，作者：张艳伟_Laura，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/Laura__zhang/article/details/99707584