633
學生信息管理係統——防止重複添加！
雖然對於學生信息管理係統這個練習的小程序結束已經有一周了，但是想想在被師傅驗收的時候的一大推錯誤還是心有餘悸。今天想寫的是一個細節問題——怎樣去防止重複添加！
在設置課程的過程中我們一不小心就會出現重複添加的情況，在添加已有課程的時候我們也會出現類似的情況。如果課程信息少或者知道會出現重複添加的情況，我們稍加注意即可，但是如果這真的是一個準備發布的軟件呢？我們總不能要求操作者注意這種情況的發生吧，再說如果添加的課程信息過多也會出現操作者也不知道自己是否已經添加。
好的軟件不是功能最強大的，但一定是最人性的。其實我們防止重複的事情發生使用循環就行了，如下：
首先是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 當然好的方法肯定還有很多，希望大家能夠相互交流。同時在解決這個問題的過程中還有之前和師傅的交流使我真切的明白：作為一個好的程序員必須有一顆全心全意為人民服務的心，隻有站在用戶的角度去考慮問題和感受軟件的實用性，才能做出戶認可的軟件。
也希望將來的某一天我也能設計出讓客戶稱讚的軟件！
最後更新：2017-04-03 16:48:54