學生資訊管理系統——防止重複添加！

       雖然對於學生資訊管理系統這個練習的小程式結束已經有一周了，但是想想在被師傅驗收的時候的一大推錯誤還是心有餘悸。今天想寫的是一個細節問題——怎樣去防止重複添加！

                                                     

       在設定課程的過程中我們一不小心就會出現重複添加的情況，在添加已有課程的時候我們也會出現類似的情況。如果課程資訊少或者知道會出現重複添加的情況，我們稍加註意即可，但是如果這真的是一個準備發布的軟體呢？我們總不能要求操作者注意這種情況的發生吧，再說如果添加的課程資訊過多也會出現操作者也不知道自己是否已經添加。

       好的軟體不是功能最強大的，但一定是最人性的。其實我們防止重複的事情發生使用迴圈就行了，如下：

       首先是For迴圈

'防止重複添加課程資訊    For i = 0 To lstSelCourse.ListCount - 1            For j = j + 1 To lstSelCourse.ListCount                    If lstSelCourse.List(i) = lstSelCourse.List(j) Then                lstSelCourse.RemoveItem j                MsgBox "該課程已選！"                Exit Sub            End If                    Next j            Next i

       其次是DO......Loop迴圈       

Do While (mrc.EOF = False)  '遍曆記錄方法2,防止重複添加        If lstAllCourse.ListCount = mrc.RecordCount Then            MsgBox "課程已設定，請勿重複添加！"            Exit Do        Else            lstAllCourse.AddItem mrc.Fields(1)            mrc.MoveNext        End If    Loop

       當然好的方法肯定還有很多，希望大家能夠相互交流。同時在解決這個問題的過程中還有之前和師傅的交流使我真切的明白：作為一個好的程式員必須有一顆全心全意為人民服務的心，只有站在使用者的角度去考慮問題和感受軟體的實用性，才能做出戶認可的軟體。

       也希望將來的某一天我也能設計出讓客戶稱讚的軟體！