【学生系统】优化篇（下）

优化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

结语

       到这里学生系统的优化就告一段落了，程度依然有很多可以更好的增强客户体验的地方，这些值得研究，但是可以放一放~ 现在需要做的就是沉淀在学生系统中收获的东西，继续下一个材料的学习，加油。