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

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

   就这个问题,我从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,当我们遇到它的时候,查就可以了。毕竟,百度比我们的记忆好的多,知道的多。

          

  

 

你可能感兴趣的:(管理)