細節一：
在設定課程中，課程的新增不可以重複，為了防止重複的出現，需要再加一段**，用來判斷是否已經有選擇的課程，沒有則新增，有則不新增。
先寫乙個函式，用來做判斷。
private function addlist(list as listbox, str as string) as boolean
dim i as long
for i=0 to list.count-1
if list.list(i)=str then '都相同則退出，有不同的則新增
exit function
end if
next i
list.additem str
addlist=true
end function
下面是新增按鈕的**
'listallcourse.listindex 在沒有選中的情況下等於-1
private sub cmdadd_click()
if listallcourse.listindex <> -1 then
call addlist(listselectcourse, listallcourse.list(listallcourse.listindex))
end if
end sub
這樣就可以解決新增重複的問題了。
細節二：
下拉列表不能輸入：
只需在另外新增一段**就可以了，例如：
private sub comboclassno_keypress(keyascii as integer)
keyascii = 0
end sub
這段**的實現的功能是鍵盤不可輸入。所以，這樣list 就不能輸入了。
細節三：
日期的輸入：
我們用textbox 輸入日期，這樣不僅不方便輸入，而且用來比較兩個日期的大小很困難，所以我們可以選擇使用日期控制項。
在 「工程」——「部件」裡選擇microsoft windows common controls 6.0(sp60
具體的使用方法其實很簡單，我在這裡就不詳細介紹了，就需要同學在下面多做嘗試了，相信你可以的。
今天的總結就到此結束，感謝大家的捧場。
學生資訊管理系統總結
經過這一階段的學習，我結束了學生資訊管理系統，在這個學習階段不僅使我對於vb有了更深一步的認識，而且對於sql語句也有了較深的了解。下面是我的記錄 1.str2 msgbox 是否刪除當前記錄？vbokcancel,刪除當前記錄 中 代表的意思？用來將變數定義成字串,如 dim str2 2.frm...
學生資訊管理系統總結
前言 學生資訊管理系統歷時乙個多月，經過乙個多月的努力，敲完了所有 改完了所有bug，優化了某些方面。是程式設計的靈魂。在我們開始學生的時候往往會有點迷惑，會不知道從 開始學習學生，不知道是先敲 呢？還是先安裝資料庫呢？在改bug的時候，是乙個乙個窗體的改呢還是敲完一起改呢？現在我提出一些自己的建議...
學生資訊管理系統總結
學前認識 學習目的 通過這個系統，讓每個學生都對資訊管理系統 mis 有乙個初步的了解。同時通過這個入門級的系統，消除學生對系統的恐懼資訊，增強其自信。尤其是自認為沒有基礎的學生。學習內容 1.練習vb6.0的使用，增加 量，提公升 親和力 2.初步掌握對資料庫的基本操作 3.學會除錯，測試程式 4...