前言
学生信息管理系统历时一个多月，经过一个多月的努力，敲完了所有代码，改完了所有bug，优化了某些方面。
代码
代码是编程的灵魂。在我们开始学生的时候往往会有点迷惑，会不知道从哪里开始学习学生，不知道是先敲代码呢？还是先安装数据库呢？在改bug的时候，是一个一个窗体的改呢还是敲完一起改呢？现在我提出一些自己的建议，仅供参考。在开始学生之后，如果你选择的是一个一个窗体的去调试，那就先安装上数据库，因为有的窗体是需要数据库，存一些数据，查一些数据的。如果你选择的是敲完之后再调试，那就敲完之后去安装数据库。
Bug
424是我在调试学生的时候经常出现的错误。解决方法：一般遇到这种情况，是因为你命名的属性框里边的控件名字和你所敲代码里边的名字不一样，仔细查看，自己的错误在哪里。
遇到此类问题有三种情况：1.数据库设置有问题2.ODBC没有配置好3.代码有问题.
其他bug
在我们敲的过程中，还会遇到一些其他的错误，大部分都是因为自己粗心，代码的问题，所以大家一定要仔细。
优化
单引号问题
大家在登录的时候，如果在用户名那里输入单引号会报错。解决方法：
Private SubtxtUserName_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then '禁止输入单引号
KeyAscii = 0
End If
End Sub
加入这段代码之后就限制了单引号的输入。
重复添加课程
解决方法：修改箭头里的代码
Private Sub cmdAdd_Click()
Dim s As String
Dim i As Integer
i = listSelectcourse.ListCount '已选择课程列表框的项目
s =listAllcourse.List(listAllcourse.ListIndex) '所有课程列表框选中的项目
For i = 0 To listSelectcourse.ListCount -1 '在列表框中循环找一遍
If listSelectcourse.List(i) = s ThenExit For
Next
If i = listSelectcourse.ListCount ThenlistSelectcourse.AddItem s
'If listAllcourse.ListIndex <> -1Then
'listSelectcourse.AddItemlistAllcourse.List(listAllcourse.ListIndex)
' End If
End Sub
字符和字数限制
Private Sub txtDirector_KeyPress(KeyAscii As Integer)
Select Case KeyAscii '禁止输入数字和特殊字符
Case 65 To 90
Case 97 To 122
Case 44
Case 46
Case 13
Case 8
Case Else
KeyAscii = 0
End Select
End Sub
禁止输入字符的
Select Case KeyAscii '只能输入数字
Case 8 '无变化，退格键
Case 48 To 57
Case Else '出来上边的都屏蔽
KeyAscii = 0
End Select
这个只能输入数字
心得
大家在敲的过程中一定要仔细，还有梳理逻辑。