全心全意为人民服务是没有尽头的……所以继续优化我的系统！！
优化5、设置课程不可重复
当我们为年级设置课程时，需要从所有课程中为每个年级设置相应的课程，但总是能重复添加。所以我们需要一段代码控制不能重复添加课程。代码如下：
Private Function addlist(list As ListBox,str As String) As Boolean
'自定义函数，保证每次添加时，只能添加某项一次
Dim i As Long
For i = 0 To list.ListCount - 1
If list.list(i) = str Then
Exit Function
End If
Next
list.AddItem str
addlist = True
End Function
Private Sub cmdAdd_Click()
'添加时要调用不重复添加的自定义过程
If listAllcourse.ListIndex <> -1 Then
Calladdlist(listSelectcourse, listAllcourse.list(listAllcourse.ListIndex))
End If
End Sub
这样用户就不能重复的添加课程啦……
优化6、当查询学籍或成绩时，没有记录需要提醒
我们在查询时，如果有我们查询的，结果会弹出来，但是当没有时，就没有任何的反应，所以我们要在没有查询结果时，给用户一个提示。代码如下：
If mrc.EOF = True Then
MsgBox "没有该记录！", vbOKOnly, "提示"
Check1(0).Value = False
Check1(1).Value = False
Check1(2).Value = False
txtSID.Text = ""
txtName.Text = ""
txtCourse.Text = ""
EndIf
注意：此段代码一定要加在Set mrc = ExecuteSQL(txtSQL, MsgText) 之后，因为这句之上是查询之后，将表拿过来放在记录集中，之后我们判断是不是在记录集在中没有此项记录。
优化7、一下清空所有的文本框
每当我们要添加信息的时候，窗体弹出，每个文本框应该是空的，这样更方便用户添加。但是在代码中，我们就必须把每个框清空，写好多行的代码。我们可以用一个循环一下清空所有的文本框，代码如下：
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then '是否为文本框TextBox
ctrl.Text = ""
End If
Next
优化8、限制某些文本框只能输入数字
例如学号文本框和联系方式文本框只能输入数字，如果有的用户输入别的话，会提示。代码如下
Private Sub Text1_change()
'非数字校验~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
Endsub
优化的地方我就想到了这么多，看来要想做到全心全意为人民服务真不是一件容易的事呀！！！