优化1
在添加学籍信息窗体中,添加成功后,添加第二次信息时,第一次添加的信息不清空,如下图。
解决办法:
方法一:在窗体隐藏前清空文本框即可,代码如下。
Private sub cmdOK_Click
txtSID.Text = ""
txtName.Text = ""
comboSex.Text = ""
comboClassNo.Text = ""
txtTel.Text = ""
txtAddress.Text = ""
txtComment.Text = ""
me.hide
End Sub
方法二:使用代码清空一个类型的文本框,代码如下。(一般控件都适用)
Private Sub cmdOK_Click
'清空textbox类型的文本框
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next
'清空combobox类型的文本框
For Each ctrl In Me.Controls
If TypeOf ctrl Is ComboBox Then
ctrl.Text = ""
End If
Next
Me.Hide
End Sub
优化2
将程序中的日期选择控件改为DTPicker.
优化3
点击退出程序时提示是否退出。
Private Sub exitMenu_click()
Dim a As Integer
a = MsgBox("确定退出系统吗?", vbOKCancel, "关闭程序")
If a = vbOK Then
End
Cancel = False
End If
End Sub
优化4
使用户名密码不能输入特殊字符。
Private Sub txtUserName_KeyPress(KeyAscii As Integer)
If KeyAscii > 31 And KeyAscii < 48 Or KeyAscii > 57 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii > 122 And KeyAscii < 127 Then
MsgBox "不能输入特殊字符!", 48, "警告"
KeyAscii = 0
End If
End Sub
结语
到这里学生系统的优化就告一段落了,程度依然有很多可以更好的增强客户体验的地方,这些值得研究,但是可以放一放~ 现在需要做的就是沉淀在学生系统中收获的东西,继续下一个材料的学习,加油。