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

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

   就这个问题，我从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 = True
End Sub

  这段代码的运行结果是：

 

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

 

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

 

 

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

Private Sub cmdAdd_Click()
    If listAllcourse.ListIndex <> -1 Then
        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
    End If
End 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 If
End Sub

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

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