学生系统优化（一）

使查询界面能够弹出窗体提示查询到多少条记录，因为原来的学生系统要是直接点击查询的话什么都不会显示，也不提示查没有查到记录或查没有查到有几条记录，这样的话别人也不知道到底有没有记录，所以我适当的改了一下。
代码如下：

 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
     sMeg = "共获得" & n & "条查询结果"
     MsgBox sMeg, vbOKOnly + vbExclamation, "结果"

还有就是点击修改记录的时候单击文本框内，其中空格而不是直接能点击的那些字体后面，这个的话就需要用的一个见得的函数trim
trim( )的作用是去掉字符串两端的多余的空格，注意，是两端的空格，且无论两端的空格有多少个都会去掉，当然中间的那些空格不会被去掉，如：String s = " a s f g ";
举例修改代码如下

mrc.Fields(0) = Trim(txtCourseno.Text)
mrc.Fields(1) = Trim(txtCoursename.Text)
mrc.Fields(2) = Trim(comboCoursetype.Text)
mrc.Fields(3) = Trim(txtCoursedes.Text)

使修改密码界面能显示用户名：
代码如下

Label1.Caption = "当前用户为：" & frmLogin.txtUserName.Text

需先添加一个Label控件。

限制输入内容为英文的大小写和数字

    Private Sub txtUserName_KeyPress(KeyAscii As Integer) '账号限制
    Select Case KeyAscii
        Case 8  '退格
        Case Asc("A") To Asc("Z")
        Case Asc("0") To Asc("9")
        Case Asc("a") To Asc("z")
        Case Else
        KeyAscii = 0
    End Select
End Sub