学生信息管理系统系列博客五

全心全意为人民服务是没有尽头的……所以继续优化我的系统！！

优化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

优化的地方我就想到了这么多，看来要想做到全心全意为人民服务真不是一件容易的事呀！！！