vb課程設(shè)計(jì)報(bào)告--小型學(xué)生成績(jī)管理系統(tǒng)(參考版)
2025-01-24 20:41本頁(yè)面
【正文】 。感謝學(xué)校提供這次難得的機(jī)會(huì)，感謝李中華老師的認(rèn)真指導(dǎo)。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得成功 . 3 后記 面對(duì)新的問題，以前的我會(huì)覺的十分畏懼，可通過這次實(shí)習(xí)，我發(fā)現(xiàn)自己變得勇敢，積極地從正面面對(duì)問題，認(rèn)真地查閱資料、動(dòng)手實(shí)踐、和同學(xué)交流，問題便能解決 。 這次課程設(shè)計(jì)實(shí)習(xí)我流的汗和淚，都是以成功的完成課程設(shè)計(jì)任務(wù)為收獲的。 解決方法：只要細(xì)心，認(rèn)真就可以做的好。 解決：通過看課本，查資料，以及詢問老師等途徑知道自己沒有設(shè)置 data 控件的數(shù)據(jù)綁定常用屬性，還有一些代碼不是和數(shù)據(jù)庫(kù)相應(yīng)的位置連接的。女 39。男 39。 39。 amp。 39。 amp。 = = = = = = = = Else = (0) 第 26 頁(yè) 共 30 頁(yè) = (1) = (2) = (3) = (4) = (5) = (6) End If End If 存在時(shí)，調(diào)出數(shù)據(jù)庫(kù)。 39。 amp。 Private Sub Command2_Click() 進(jìn)入主界面 學(xué)生成績(jī)錄入界面 ： 第 23 頁(yè) 共 30 頁(yè) 代碼如下： Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Then MsgBox 內(nèi)容不能為空，請(qǐng)重新輸入！ Else 判斷輸入的內(nèi)容是否有空的 (0) = (1) = (2) = (3) = Val() (4) = Val() (5) = Val() (6) = Val() = Str((Val() + Val() + Val()) / 3) (7) = MsgBox 添加成功！ 沒有空的時(shí)候， 對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改，并保存 End If 39。 End If 選擇查詢的條件，并相應(yīng)的調(diào)入記錄。 amp。 Else = select * from 基本信息表 where 姓名 =39。 amp。 End If End Sub Private Sub Command2_Click() End Sub 進(jìn)入主界面 Private Sub Command3_Click() If = Then MsgBox 請(qǐng)輸入內(nèi)容！ Else mybookmark = Str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄 ) If Str2$ = vbOK Then 確定刪除 刪除數(shù)據(jù)庫(kù)中的相應(yīng)記錄 = = = = = = = = = End If End If 請(qǐng)空各文本框 End Sub 學(xué)生信息查詢界面 ： 第 22 頁(yè) 共 30 頁(yè) 代碼如下： Private Sub Command1_Click() If = 按學(xué)號(hào) Then = select * from 基本信息表 where 學(xué)號(hào) =39。 If Then MsgBox 學(xué)號(hào)不存在，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = = = = = = = = = 如果輸入的學(xué)號(hào)數(shù)據(jù)庫(kù)無此記錄，則重新輸入。 amp。 End If End Sub Private Sub Command10_Click() If Trim() = Then MsgBox 學(xué)號(hào)不能為空，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 Else 判斷輸入學(xué)號(hào)是否為空 = select * from 成績(jī)表 where 學(xué)號(hào) =39。 (0) = (1) = (0) = (1) = End If 同時(shí)，也將輸入的學(xué)號(hào)添加到“成績(jī)表”與“密碼 表”中，以及“成績(jī)表”中加入學(xué)號(hào)與姓名，“密碼表”中用戶名與 為學(xué)號(hào)。 Trim() amp。 = select * from 密碼表 where 用戶名 =39。 Trim() amp。 = select * from 成績(jī)表 where 學(xué)號(hào) =39。 39。 amp。 Private Sub Command3_Click() End Sub 返回主界面。 MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改密碼 End If End Sub 彈出“修改成功”的窗體。 39。 amp。 End Sub 修改密碼界面： 第 17 頁(yè) 共 30 頁(yè) 代碼如下： Private Sub Command1_Click() If Trim() Trim() Then MsgBox 密碼輸入不正確 !, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入的密碼是否一致，若不一致，彈出警告，并重新輸入。 Private Sub Command2_Click() = = = 單擊“取消”按鈕，將文本框清空。 If Not Then MsgBox 用戶已存在，請(qǐng)重新輸入用戶名！ , vbOKOnly + vbExclamation, 提示信息 = : = : = Exit Sub End If End If 若不為空，連接數(shù)據(jù)庫(kù)，判斷該用戶名是否已經(jīng)存在，若已經(jīng)存在，彈出警告，重新輸入！ If Trim() Trim() Then MsgBox 兩次輸入的 密碼不一樣，請(qǐng)確認(rèn)！ , vbOKOnly + vbExclamation, 警告 = = 若兩次輸入地密碼不一致，則彈出警告，確認(rèn)并重新輸入密碼。 amp。 End Sub 添加用戶界面： 代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbExclamation, 信息提示 判斷用戶名是否為空，若為空，則彈出警告，輸入用戶名！ Exit Sub 第 16 頁(yè) 共 30 頁(yè) Else = select * from 教師密碼表 where 用戶名 =39。 Private Sub cjlr_Click()
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1