学生系统优化篇（一）

优化学生是一个长久战对于我来说。这个过程好漫长啊，我对优化学生也做了一些总结，多多指教。
**1.在添加学籍信息的时候限制电话号码的长度 **
可以直接修改文本框的Maxlength属性，直接设置为11位
但是你会发现当你再次运行的时候，还是会报错，此时就可以从新设置一下
打开数据库找到student 表 右击 “student_Info”——–点击“设计” ——这个时候就会打开这个设计表的界面
把方框中的10改为11就可以了。
2.调整窗体的大小

我在调整窗体大小的时候，发现修改属性框里的各种长度宽度的属性都没用，然后百度搜索，只需要改变以下属性，把true改成false，然后可以直接调整代码中窗体的大小即可。

3.在登陆状态时，用户名不允许输入单引号
在登陆界面时你会发现如果你输入单引号的话，程序就会报错，但是如果你输入其他符号都没问题，除非你在代码中加入特殊符号限制的代码。
不能输入单引号，这个错误叫SQL注入。只要输入单引号，程序就会报错。解决方法：

Private Sub txtUserName_Change()
Dim a As String
a = "'"
txtUserName.Text = Replace(txtUserName.Text, Mid(a, 1), "")
End Sub

4.在添加学籍窗体中的日期改变成日历控件
这个是看了师哥的博客才进行优化的，具体方式如下：
添加方式：
工程–部件–Microsoft Windows Common Controls-2.6.0 --确定
与数据库结合：
DTPicker1.CustomFormat = “yyyy-mm-dd”
代码如下：

'检验出生和入校时间的关系
If DTBornDate.Value > DTRudate.Value Then
    msgbox "出生日期必须大于入校时间", vbOKCancel + vbExclamation, "警告"
    Exit Sub
End If

'给控件变量赋初值
DTBornDate.MaxDate = Date
DTRudate.MaxDate = Date
If DTBornDate.MaxDate < DTBornDate.Value Then
    msgbox "您还未出生！", vbOKOnly + vbExclamation, "警告"
    Exit Sub
End If

 '判断时间
If DTRudate.MaxDate < DTRudate.Value Then
    msgbox "您还未出生！", vbOKOnly + vbExclamation, "警告"
    DTRudate.Value = ""
    DTRudate.SetFocus
    Exit Sub
End If

5文本框只能输入数字和英文字母

Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) = False Then KeyAscii = 0
End Sub

暂且写到这里，还有下一篇的优化，未完待续。。。