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

一、没有点击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 & "条记录"