學生資訊管理系統在昨天接近尾聲，大部分收工了。現在開始進入總結階段，首先進行經典語句的總結。
一、驗證資料有效性
（1）、判斷是否為空
前邊模組中定義了testtxt函式
ifnot testtxt(txtcourseno.text) then
msgbox "請輸入課程編號！", vbokonly +vbexclamation, "警告"
txtcourseno.setfocus
exit sub
end if
或是正常狀態：
if trim(txtid.text)= "" then
smeg = "學號不能為空！"
msgbox smeg, vbokonly + vbexclamation,"警告"
txtid.setfocus
exit sub
end if
（2）、判斷學號是否為數字
if notisnumeric(txtcourseno.text) then
msgbox "編號為數字，請輸入數字！",vbokonly + vbexclamation, "警告"
txtcourseno.setfocus
exit sub
end if
（3）、判斷插入資料是否重複
while (mrc.eof = false)
if (trim(mrc.fields(0)) =trim(txtcourseno.text)) then
msgbox "課程編號不能重複，請重新輸入！",vbokonly + vbexclamation, "警告"
txtcourseno.setfocus
exit sub
else
mrc.movenext
end if
wend
（4）判斷日期格式是否真確
if notisdate(txtborndate.text) then
msgbox "出生時間應輸入日期格式（yyyy-mm-dd）!",vbokonly + vbexclamation, "警告"
txtborndate.setfocus
else
txtborndate = format(txtborndate, "yyyy-mm-dd")
end if
二、新增資料
mrc.addnew
mrc.fields(0) =trim(txtid.text)
mrc.fields(1) = trim(txtname.text)
mrc.fields(2) =trim(combo***.text)
mrc.fields(3) =trim(txtborndate.text)
mrc.fields(4) =trim(comboclassno.text)
mrc.fields(5) = trim(txttel.text)
mrc.fields(6) = trim(txtrudate.text)
mrc.fields(7) = trim(txtaddress.text)
mrc.fields(8) = trim(txtcomment.text)
mrc.update
msgbox "修改學籍資訊成功！", vbokonly +vbexclamation, "警告"
三、查詢資料庫中的表
dim mrcas adodb.recordset
dimtxtsql as string
dimmsgtext as string
txtsql="select* from result_info where student_id and student_name='" & trim(txtid.text) & txtname.text & "'"
setmrc=executesql(txtsql,msgtext)
四、密碼問題
（1）、判斷密碼登入次數是否超過三次
dim micount asinteger
micount=micount+1
ifmicount=3 then
me.hide
end if
（2）、兩次輸入的密碼是否相同
iftrim(text1(1).text) <> trim(text1(2).text) then
msgbox "兩次輸入的密碼不一樣，請確定！",vbokonly + vbexclamation, "警告"
text1(1).setfocus
text1(1).text = ""
text1(2).text = ""
exit sub
else
mrc.addnew
mrc.fields(0) = trim(text1(0).text)
mrc.fields(1) = trim(text1(1).text)
mrc.update
mrc.close
me.hide
msgbox "新增使用者成功！", vbokonly +vbexclamation, "警告"
end if
學生資訊管理系統總結
經過這一階段的學習，我結束了學生資訊管理系統，在這個學習階段不僅使我對於vb有了更深一步的認識，而且對於sql語句也有了較深的了解。下面是我的記錄 1.str2 msgbox 是否刪除當前記錄？vbokcancel,刪除當前記錄 中 代表的意思？用來將變數定義成字串,如 dim str2 2.frm...
學生資訊管理系統總結
前言 學生資訊管理系統歷時乙個多月，經過乙個多月的努力，敲完了所有 改完了所有bug，優化了某些方面。是程式設計的靈魂。在我們開始學生的時候往往會有點迷惑，會不知道從 開始學習學生，不知道是先敲 呢？還是先安裝資料庫呢？在改bug的時候，是乙個乙個窗體的改呢還是敲完一起改呢？現在我提出一些自己的建議...
學生資訊管理系統總結
學前認識 學習目的 通過這個系統，讓每個學生都對資訊管理系統 mis 有乙個初步的了解。同時通過這個入門級的系統，消除學生對系統的恐懼資訊，增強其自信。尤其是自認為沒有基礎的學生。學習內容 1.練習vb6.0的使用，增加 量，提公升 親和力 2.初步掌握對資料庫的基本操作 3.學會除錯，測試程式 4...