【学生信息管理系统】设置年级课程之不重复添加课程

背景

验了一遍学生信息管理系统，期间优化过很多地方，偏偏忘记了课程去重。虽说事儿不大，但是这也反映出一个问题——到关键时刻掉链子，所以以后不管做什么一定要做好万全准备，方可奔赴战场“奋勇杀敌”。

知识点

【学生信息管理系统】设置年级课程之不重复添加课程

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


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)
        If listAllcourse.ListCount <> mrc.RecordCount Then
        '添加内容到列表框中
        listAllcourse.AddItem mrc.Fields(1)
        End If
        mrc.MoveNext
    Wend

    mrc.Close
    flagSet = True

End Sub

小结

做事情要有始有终，不可盲目的追求快，在迫于想尽快到达目的地的时候，也不要忽略了沿途的风景。