学生信息管理系统总结续篇

上一篇我们已经总结了学生信息管理系统出现的一些问题，现在我就一些细节再进行一下总结。

细节一：

             在设置课程中，课程的添加不可以重复，为了防止重复的出现，需要再加一段代码，用来判断是否已经有选择的课程，没有则添加，有则不添加。

             先写一个函数，用来做判断。

             Private Function Addlist(List As ListBox, str As String) As Boolean

                     dim i as long

                      For i=0 To List.count-1

                             If  List.List(i)=str Then       '都相同则退出，有不同的则添加

                                   Exit Function

                             End if

                      Next  i

                      List.AddItem str

                      Addlist=True

              End Function

              下面是添加按钮的代码

               'listAllcourse.ListIndex   在没有选中的情况下等于-1

               Private Sub cmdAdd_Click()
                       If listAllcourse.ListIndex <> -1 Then
                            Call Addlist(listSelectcourse, listAllcourse.List(listAllcourse.ListIndex))                   
                        End If
               End Sub
               这样就可以解决添加重复的问题了。

细节二：

             下拉菜单不能输入：

              只需在另外添加一段代码就可以了，例如：

              Private Sub comboClassno_KeyPress(KeyAscii As Integer)
                       KeyAscii = 0
              End Sub

             这段代码的实现的功能是键盘不可输入。所以，这样list 就不能输入了。

细节三：

             日期的输入：

             我们用Textbox 输入日期，这样不仅不方便输入，而且用来比较两个日期的大小很困难，所以我们可以选择使用日期控件。

             在 “工程”——“部件”里选择Microsoft   Windows Common Controls 6.0(SP60

             具体的使用方法其实很简单，我在这里就不详细介绍了，就需要同学在下面多做尝试了，相信你可以的。

今天的总结就到此结束，感谢大家的捧场。