freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb課程設(shè)計報告--小型學生成績管理系統(tǒng)(編輯修改稿)

2025-02-25 20:41 本頁面
 

【文章內(nèi)容簡介】 ck() End End Sub 單擊“退出系統(tǒng)”按鈕,結(jié)束程序。 Private Sub Command2_Click() 第 12 頁 共 30 頁 單擊修改 “密碼按鈕”, 進入學生修改密碼界面。 End Sub Private Sub Form_Load() = select * from 成績表 where 學號 =39。 amp。 amp。 39。 End Sub 當界面載入的時候,就連接數(shù)據(jù)庫,并查找出滿足學號等于學生登陸窗體中的用戶名的記錄。 學生密碼修改界面: 第 13 頁 共 30 頁 代碼如下: Private Sub Command1_Click() If Trim() Trim() Then MsgBox 密碼輸入不正確 !, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入地密碼是否一致,若不一致 ,則彈出警告,重新輸入! Else = select * from 密碼表 where 用戶名 =39。 amp。 amp。 39。 (密碼 ) = MsgBox 密碼修改成功! , vbOKOnly + vbExclamation, 修改密碼 End If 若是一致,則連接數(shù)據(jù)庫,將所輸入的新密碼修改并加入數(shù)據(jù)庫。 End Sub Private Sub Command2_Click() = = End Sub 單擊“取消”按鈕,將文本框清空。 Private Sub Command3_Click() 單擊“返回”按鈕,當前窗體隱藏, 學生成績查詢界面出現(xiàn)。 End Sub 主窗體界面 : 第 14 頁 共 30 頁 代碼如下: Private Sub tcxt_Click() End 單擊“退出系統(tǒng)”按鈕, 結(jié)束程序。 End Sub Private Sub tjyh_Click() 單擊“添加用戶”按鈕,當前窗體隱藏,“添加用戶窗體”出現(xiàn)。 End Sub Private Sub xgmm_Click() 單擊“修改密碼”按鈕,當前窗體隱藏,“教師修改密碼”窗體出現(xiàn)。 End Sub Private Sub xmtj_Click() 單擊“項目統(tǒng)計”按鈕,進入“項目統(tǒng)計”界面 End Sub Private Sub xxcx_Click() 單擊“信息查詢”按鈕,進入“學生信息查詢”界面。 End Sub 第 15 頁 共 30 頁 Private Sub xxtj_Click() 單擊“信息添加”按鈕,進入“學生信息添加”界面。 End Sub Private Sub xxxg_Click() 單擊“信息修改”按鈕,進入“學生信息修改”界面。 End Sub Private Sub cjcx_Click() End Sub 單擊“成績查詢”按鈕,進入“成績查詢”界面。 Private Sub cjlr_Click() End Subv 單擊“成績錄入”按鈕,進入“成績錄入”界面。 Private Sub cjxg_Click() 單擊“成績修改”按鈕,進入成績修改界面。 End Sub 添加用戶界面: 代碼如下: Private Sub Command1_Click() If Trim() = Then MsgBox 請輸入用戶名! , vbOKOnly + vbExclamation, 信息提示 判斷用戶名是否為空,若為空,則彈出警告,輸入用戶名! Exit Sub 第 16 頁 共 30 頁 Else = select * from 教師密碼表 where 用戶名 =39。 amp。 amp。 39。 If Not Then MsgBox 用戶已存在,請重新輸入用戶名! , vbOKOnly + vbExclamation, 提示信息 = : = : = Exit Sub End If End If 若不為空,連接數(shù)據(jù)庫,判斷該用戶名是否已經(jīng)存在,若已經(jīng)存在,彈出警告,重新輸入! If Trim() Trim() Then MsgBox 兩次輸入的 密碼不一樣,請確認! , vbOKOnly + vbExclamation, 警告 = = 若兩次輸入地密碼不一致,則彈出警告,確認并重新輸入密碼。 Exit Sub Else With Data1 . .(0) = Trim() .(1) = Trim() . End With MsgBox 添加用戶成功! , vbOKOnly + vbExclamation, 添加用戶 End If End Sub 若上述情況均沒有,則連接數(shù)據(jù)庫,將輸入的用戶信息添加到“教師密碼表”中去。 Private Sub Command2_Click() = = = 單擊“取消”按鈕,將文本框清空。 End Sub Private Sub Command3_Click() 單擊“返回”按鈕,返回到主界面。 End Sub 修改密碼界面: 第 17 頁 共 30 頁 代碼如下: Private Sub Command1_Click() If Trim() Trim() Then MsgBox 密碼輸入不正確 !, vbOKOnly + vbExclamation, 信息提示 = 判斷兩次輸入的密碼是否一致,若不一致,彈出警告,并重新輸入。 Else = select * from 密碼表 where 用戶名 =39。 amp。 amp。 39。 (密碼 ) = 若一致,連接數(shù)據(jù)庫,進行修改,將所輸入密碼保存到數(shù)據(jù)庫中去。 MsgBox 密碼修改成功! , vbOKOnly + vbExclamation, 修改密碼 End If End Sub 彈出“修改成功”的窗體。 Private Sub Command2_Click() = = End Sub 清空文本框。 Private Sub Command3_Click() End Sub 返回主界面。 添加學生信息界面: 第 18 頁 共 30 頁 代碼如下: Private Sub Command1_Click() If = Or = Then MsgBox 學號和姓名不能為空! , vbOKOnly + vbExclamation, 警告 Exit Sub 判斷“
點擊復制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1