學生資訊管理系統總結

.學前認識

學習目的：

通過這個系統，讓每個學生都對資訊管理系統（mis）有乙個初步的了解。同時通過這個入門級的系統，消除學生對系統的恐懼資訊，增強其自信。尤其是自認為沒有基礎的學生。

學習內容：

1.練習vb6.0的使用，增加**量，提公升**親和力

2.初步掌握對資料庫的基本操作

3.學會除錯，測試程式

4.初步掌握系統發布，部署，驗收工作

5.初步了解mis的製作流程

6.學會站在巨人肩膀上學習

.學習思路

該系統一共16個窗體、1個模組。剛開始覺得挺雜挺亂的無從下手，於是花了一定的時間整理了一下自己的思路。我是這樣想的，先執行師傅給的源**，看看哪個窗體出現在先就先敲哪個窗體：frmmain-->frmlogin-->順著frmlogin設計的選單編輯器依次建立窗體。

師徒會議——糾正方向

1.敲學生之前開過一次師徒會，當時對mis充滿了好奇，總想著自己也搞個系統敲敲，至於師傅們的建議和指導，最開始是似懂非懂，這個時候，師傅給的主要是思想上的引導吧。

2.mis敲了一半的時候，感覺迷茫了。自己是照著**敲的，裡面有好多東西，都是照抄照搬，越敲越沒有信心了，感覺挺機械的，沒有什麼收穫。師傅們還是在我最需要的時候再次出現，我反映了一下自己的情況，師傅主要強調了兩點：一是，注釋的重要性。敲每個窗體之前，要想明白這個窗體是用來做什麼的，可以在**視窗的最上邊寫一下注釋，形成自己的思路。二是，擺正心態，耐心、細心。做任何事都不可能是一帆風順的，總會遇到這樣或那樣的問題，這時候正是考驗我們的時候

，不能遇到困難就退縮。敲mis主要有兩大難：**不理解；敲完後錯誤百出。mis只是我們學習初期的牛刀小試，只是培養感覺的，我們總不能在這個階段就被打敗吧，我們要做的是正視問題，解決問題，這些都是我們成長過程中的財富。

3.驗收階段。mis我用了乙個月的時間才完成。（ｐｓ，時間管理不合理：裝、連資料庫就耗費了一周的時間；敲**大概花了兩周的時間；除錯一周。）原本以為登入成功，ｍｉｓ就大功告成了，沒想到師傅驗收，我的錯誤依舊百出。其中，自我感覺最嚴重的問題就是：沒有體現為人民服務的思想。具體問題：１．登入限制２．刪除記錄３．選擇課程４．新增資訊時窗體及ｃｏｍｂｏｘ的預設值５．資料庫資料型別。

最近一次開會，談及ｍｉｓ的時候，同組的同組同學說的敲系統的思路，我感覺挺不錯的，也挺有思想的：ｍｉｓ中對於資料庫的增刪改查都有體現，敲的時候，可以自動歸類（比如，查詢資訊的窗體可以一起敲），而且這樣，對於有些重複出現的變數可以定義成全域性變數（亦可寫在模組裡），他是用斷點除錯，根據進系統的先後，敲的。

．ｍｉｓ中遇到的問題

１．登入後顯示空白

解決辦法：重新設定一下工程屬性。將啟動物件設定為　ｓｕｂ　ｍａｉｎ．（這個方法不是絕對有效的。具體問題具體分析。）

２．新增資訊時，要更多的體現為人民服務的精神。比如說新增學籍時性別那，可以設定預設為「男」或「女」。這樣可以有一半的機率碰對，有效的節約時間。

還有「確定新增」當單擊之後，就應該清空上條新增的記錄，以便於繼續新增。等等。。。

３．刪除最後一條記錄時總報錯。

解決辦法：加一條錯誤判斷。

private sub deletecommand_click()
mybookmark = mrc.bookmark
str2$ = msgbox("是否刪除當前記錄？", vbokcancel, "刪除當前記錄")
mrc.delete
txtsid.text = ""
txtname.text = ""
txtborndate.text = ""
txttel.text = ""
txtaddress.text = ""
txtcomment.text = ""
txtrudate.text = ""
comboclassno.text = ""
on error goto dateerr  '如果有錯誤直接執行dateerr那一步
mrc.movefirst       '
call viewdata
mybookmark = mrc.bookmark
mcclean = true
dateerr:
if err = 3021 then
msgbox "沒有資料，請退出！"
txtsid.text = ""
txtname.text = ""
txtborndate.text = ""
txttel.text = ""
txtaddress.text = ""
txtcomment.text = ""
txtrudate.text = ""
comboclassno.text = ""
end if
end sub

４．選擇課程時，重複點選就會重複新增、重複刪除課程。

解決辦法：我改變了一下思路。我後來用的是雙擊事件，然後加了乙個重複判斷。

private sub listallcourse_dblclick()
dim selectcourse as integer
dim i as integer         '定義兩個整型變數
dim j as integer
for selectcourse = 0 to listallcourse.listcount - 1
if listallcourse.selected(selectcourse) = true then
listselectcourse.additem listallcourse.list(listallcourse.listindex)
'往 listselectcourse列表中新增課程
for i = 0 to listselectcourse.listcount - 1
for j = i + 1 to listselectcourse.listcount
'   判斷在list列表中是否有相同的名稱
if listselectcourse.list(i) = listselectcourse.list(j) then
listselectcourse.removeitem j
msgbox "已新增此課程！", vbokonly, "提示"
exit sub
end if
next j
next i
end if
next selectcourse
end sub

５．資料庫資料型別不匹配問題

解決辦法：開啟資料庫，重新設定一下合適的資料型別。這時候，可能又會出現另外乙個問題，就是修改之後的資料庫無法儲存。

這個時候，需新設定一下就好啦。開啟：工具—選項—ｄｅｓｉｇｎｅｒｓ

學習總結：

每一次經歷，都是一種感悟。踏踏實實走好每一步，不斷成長！

學生資訊管理系統總結

學生資訊管理系統總結

學生資訊管理系統總結

學生資訊管理系統總結

相關推薦