学生信息管理系统迄今已经优化了一部分了，但是还有一些地方需要进一步的优化。当你发现你优化完之后，你就会发现它非常的人性化并且颜值还很高哟。不过我的优化也是站在了师哥师姐们肩膀上优化的，也可以在师哥师姐们的基础上进行创新哟。接下来我给大家而分享一下我优化的部分。
（1）限制文本框的字符
例如：文本框TextBox，可以用过属性窗体去找"MaxLength"这个属性，你想限制成多少你就设置成多少就OK了。
也可以通过在代码窗体里进行编写代码
txtclassno.MaxLength=16
（2）限制文本框只能输入文字和删除键
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then Else KeyAscii = 0 End If
如果想加一个提示框的话，直接加一个MsgBox就可以了。
（3）限制文本框只能输入数字和删除键
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0 End if
（4）日期控件的使用
一开始使用的是TextBox来显示时间，后来听突击队的小伙伴们和纪老师说到了日期控件，就开始去了解感觉还挺不错就用了日期控件。需要注意的一个细节就是出生日期不能大于等于入校日期。
添加控件：工具-部件-控件-“Microsoft Windows common control2.6.0”-应用-确定
选择DTPicker控件进行添加，执行代码如下：
If txtBorndate.Value >= txtRudate.Value Then MsgBox "出生日期不能大于或等于入校日期，请您重新输入！", vbOKOnly + vbExclamation txtBorndate.SetFocus txtRudate.SetFocus Exit Sub End If
（4）退出系统提示
Private Sub MeitMenu_Click() Dim a As String a = MsgBox("确定退出系统吗？", vbOKCancel, "关闭程序") If a = vbOK Then End Cancel = False End If End Sub
（5）设置窗体的大小
Me.Height=3840 Me.Width =7260
