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

一、没有点击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