我们在敲学生信息管理系统时，一开始只是依葫芦画瓢进行，只要能实现这些功能就可以了，但是师父验收之后发现我们还可以做得更好，是我们的软件更加人性化，能够更好地服务用户。
以下是我根据师父提的建议进行的修改。
（1）登陆界面的设置
一般像我们注册一个账号时，都会给你充足的提示，比如用户名不能超过多少位，还有就是用户名不能使用那些符号等这些提醒，这样即使一个什么都不懂的都会注册，证明我们就做到全心全意为人民服务了。
（2）添加信息的窗体
问题1：对于需要自己输入的信息，应限定输入内容的长度，不能无限输入，否则会因为输入的长度太多而报错。
解决方法：限制Text的输入长度，或者可以修改数据库表中数据类型
选中表→右击→设计→数据类型
问题2：添加学籍信息，必须考虑出生日期必须小于入校日期。
解决方法：
注意：IsDate函数返回Boolean值，判断表达式是否可以转换成日期
CDate函数是一个转换函数，将字符串转换为日期数据类型
（3）设置年纪课程保证所选课程和已选课程不重复添加
设置课程不重复添加：
'保证课程只添加一次到全部课程
If listAllcourse.ListCount > 0 Then
Exit Sub
End If
'已经选择课程不能重复添加
Dim intindex1 As Integer
Dim intindex2 As Integer
'在全部课程被选中的情况下，点击"添加"按钮，课程被添加到已选课程中
If listAllcourse.ListIndex <> -1 Then
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
'保证课程不能重复添加到已选课程中
With listSelectcourse
For intindex1 = 0 To .ListCount - 1
For intindex2 = .ListCount - 1 To intindex1 + 1 Step -1
If .List(intindex2) = .List(intindex1) Then
.RemoveItem intindex2
End If
Next intindex2
Next intindex1
End With
绿色为注释