学生信息管理系统总结（优化一）

学生信息管理系统迄今已经优化了一部分了，但是还有一些地方需要进一步的优化。当你发现你优化完之后，你就会发现它非常的人性化并且颜值还很高哟。不过我的优化也是站在了师哥师姐们肩膀上优化的，也可以在师哥师姐们的基础上进行创新哟。接下来我给大家而分享一下我优化的部分。
（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

今天的分享的优化就这些，期待我下一次的分享吧！！！