vb課程設(shè)計(jì)報(bào)告模板(編輯修改稿)
2024-08-31 22:49 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 End SubPrivate Sub Form_Load() = select * from 成績(jī)表 where 學(xué)號(hào)=39。 amp。 amp。 39。End Sub 當(dāng)界面載入的時(shí)候，就連接數(shù)據(jù)庫(kù)，并查找出滿足學(xué)號(hào)等于學(xué)生登陸窗體中的用戶名的記錄。學(xué)生密碼修改界面：代碼如下：Private Sub Command1_Click()If Trim() Trim() ThenMsgBox 密碼輸入不正確!, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入地密碼是否一致，若不一致 ，則彈出警告，重新輸入！Else = select * from 密碼表 where 用戶名=39。 amp。 amp。 39。(密碼) = MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼End If 若是一致，則連接數(shù)據(jù)庫(kù)，將所輸入的新密碼修改并加入數(shù)據(jù)庫(kù)。End SubPrivate Sub Command2_Click() = = End Sub 單擊“取消”按鈕，將文本框清空。Private Sub Command3_Click() 單擊“返回”按鈕，當(dāng)前窗體隱藏，學(xué)生成績(jī)查詢界面出現(xiàn)。End Sub主窗體界面：代碼如下：Private Sub tcxt_Click()End 單擊“退出系統(tǒng)”按鈕， 結(jié)束程序。End SubPrivate Sub tjyh_Click() 單擊“添加用戶”按鈕，當(dāng)前窗體隱藏，“添加用戶窗體”出現(xiàn)。 End SubPrivate Sub xgmm_Click() 單擊“修改密碼”按鈕，當(dāng)前窗體隱藏，“教師修改密碼”窗體出現(xiàn)。End SubPrivate Sub xmtj_Click() 單擊“項(xiàng)目統(tǒng)計(jì)”按鈕，進(jìn)入“項(xiàng)目統(tǒng)計(jì)”界面End SubPrivate Sub xxcx_Click() 單擊“信息查詢”按鈕，進(jìn)入“學(xué)生信息查詢”界面。End SubPrivate Sub xxtj_Click() 單擊“信息添加”按鈕，進(jìn)入“學(xué)生信息添加”界面。End SubPrivate Sub xxxg_Click() 單擊“信息修改”按鈕，進(jìn)入“學(xué)生信息修改”界面。End SubPrivate Sub cjcx_Click() End Sub 單擊“成績(jī)查詢”按鈕，進(jìn)入“成績(jī)查詢”界面。Private Sub cjlr_Click()End Subv 單擊“成績(jī)錄入”按鈕，進(jìn)入“成績(jī)錄入”界面。Private Sub cjxg_Click() 單擊“成績(jī)修改”按鈕，進(jìn)入成績(jī)修改界面。End Sub添加用戶界面：代碼如下：Private Sub Command1_Click()If Trim() = ThenMsgBox 請(qǐng)輸入用戶名！, vbOKOnly + vbExclamation, 信息提示 判斷用戶名是否為空，若為空，則彈出警告，輸入用戶名！Exit SubElse = select * from 教師密碼表 where 用戶名=39。 amp。 amp。 39。If Not ThenMsgBox 用戶已存在，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 提示信息 = : = : = Exit SubEnd IfEnd If 若不為空，連接數(shù)據(jù)庫(kù)，判斷該用戶名是否已經(jīng)存在，若已經(jīng)存在，彈出警告，重新輸入！ If Trim() Trim() ThenMsgBox 兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！, vbOKOnly + vbExclamation, 警告 = = 若兩次輸入地密碼不一致，則彈出警告，確認(rèn)并重新輸入密碼。Exit SubElseWith Data1..(0) = Trim().(1) = Trim().End WithMsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 添加用戶End IfEnd Sub 若上述情況均沒(méi)有，則連接數(shù)據(jù)庫(kù)，將輸入的用戶信息添加到“教師密碼表”中去。Private Sub Command2_Click() = = = 單擊“取消”按鈕，將文本框清空。End SubPrivate Sub Command3_Click() 單擊“返回”按鈕，返回到主界面。End Sub修改密碼界面：代碼如下：Private Sub Command1_Click()If Trim() Trim() ThenMsgBox 密碼輸入不正確!, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入的密碼是否一致，若不一致，彈出警告，并重新輸入。Else = select * from 密碼表 where 用戶名=39。 amp。 amp。 39。(密碼) = 若一致，連接數(shù)據(jù)庫(kù)，進(jìn)行修改，將所輸入密碼保存到數(shù)據(jù)庫(kù)中去。MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼End IfEnd Sub 彈出“修改成功”的窗體。Private Sub Command2_Click() = = End Sub 清空文本框。Private Sub Command3_Click()End Sub 返回主界面。添加學(xué)生信息界面：代碼如下：Private Sub Command1_Click()If = Or = ThenMsgBox 學(xué)號(hào)和姓名不能為空！, vbOKOnly + vbExclamation, 警告Exit Sub 判斷“學(xué)號(hào)”和“姓名”是否為空，若是，則彈出警告，重新輸入!Else = select * from 基本信息表 where 學(xué)號(hào)=39。 amp。 Trim() amp。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1