学生信息管理系统“重复设置”问题

   在做学生管理系统的时候，在设置年级课程信息的窗体中，每点击“设置课程”键，就会重复添加一次，不管该课程是否存在。而添加键也是存在这样的问题。这个问题该怎样解决？

   就这个问题，我从listbox的属性入手，不要求里listbox的属性都要求你都知道。最起码这个用到的都要知道。在这里我觉得就像米老师说的，在我们学习vb入门的时候，我们不必所有的都弄懂，所有的都记住。我们只有知道有这样的一个类，它叫listbox，当我们遇到它的时候，查就可以了。毕竟，百度比我们的记忆好的多，知道的多。

   要解决这个问题，listbox的additem、removeitem方法要了解，listindex和listcount属性必须知道。

   简单一点说：additem是将项添加到列表框中的。

             removeitem是将项从列表框中删除的。

            listindex返回的是列表框list中当前选择项目的索引号码。

            listcount返回的是列表框list中项目总数。

   知道了这些，那么就看代码很清楚了：

 

Private Sub cmdSet_Click()                                      '“设置课程”按钮    Dim mrc As ADODB.Recordset    Dim txtSQL As String    Dim MsgText As String                                                                '使控件有效    listAllcourse.Enabled = True    listSelectcourse.Enabled = True    cmdModify.Enabled = True        txtSQL = "select * from course_Info "    Set mrc = ExecuteSQL(txtSQL, MsgText)                                                                '显示所有课程    While (mrc.EOF = False)                                     '遍历记录方法2        listAllcourse.AddItem mrc.Fields(1)        mrc.MoveNext    Wend    mrc.Close        flagSet = TrueEnd Sub

  这段代码的运行结果是：

 

  那么我们要修改它，就要从while wend 段中修改，具体方法：

 

While (mrc.EOF = False)                                    '遍历记录方法2        If listAllcourse.ListCount <> mrc.RecordCount Then        listAllcourse.AddItem mrc.Fields(1)        End If        mrc.MoveNextWendmrc.Close 

 

  
  另外，还有添加键的设置，原代码是这样的：

Private Sub cmdAdd_Click()    If listAllcourse.ListIndex <> -1 Then        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)    End IfEnd Sub

   运行结果：

 

  改过之后是这样的：

 

Private Sub cmdAdd_Click()    Dim I As Integer        If listAllcourse.ListIndex <> -1 Then               If listSelectcourse.ListCount = 0 Then             listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)       End If                For I = 0 To listSelectcourse.ListCount - 1            If listSelectcourse.List(I) = listAllcourse.List(listAllcourse.ListIndex) Then                Exit Sub            End If        Next            listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)            End IfEnd Sub

  里面涉及到一些逻辑问题，可以用F8键，进行调试，这样，你就知道，你的哪一步错了。

  我个人认为：改正这个错误，不单单是锻炼我们调试能力和对list类的认识，更重要的是我们的一种学习习惯问题，道理就是在我们学习vb入门的时候，我们不必所有的都弄懂，所有的都记住。我们只有知道有这样的一个类，它叫listbox，当我们遇到它的时候，查就可以了。毕竟，百度比我们的记忆好的多，知道的多。