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