基于vb的學(xué)生信息管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)(編輯修改稿)
2025-01-12 09:47 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 率。易于用戶理解和操作。可維護(hù)性包括了可讀性、可修改性、可測(cè)試性、等含義?？煽啃酝ǔ０ㄕ_性和健壯性。開(kāi)發(fā)過(guò)程中，在各種矛盾的目標(biāo)之間作權(quán)衡，并在一定的限制的條件下（經(jīng)費(fèi)、時(shí)間、可用的軟、硬件資源等），使上述各方面最大限度的得到滿足。 第 4 章 系統(tǒng)登陸模塊 系統(tǒng)登錄模塊 此界面的功能是提供用戶登錄進(jìn)入本系統(tǒng)所用，是 系統(tǒng)的身份驗(yàn)證中心，在此進(jìn)行用戶賬號(hào)和密碼的驗(yàn)證。如果驗(yàn)證通過(guò)則進(jìn)入系統(tǒng)操作界面進(jìn)行相關(guān)的操作，否則提示相關(guān)的錯(cuò)誤信息提醒用戶修改。另外界面中設(shè)置了下拉列表方便用戶進(jìn)行身份選擇。登陸界面如 圖 所示： 圖 用戶登陸界面 此模塊的核心代碼如下： Private Sub Command1_Click() Set = New Set rst = New = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。 mysql, If Then MsgBox 沒(méi)有這個(gè)用 戶，請(qǐng)重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 39。vbOKOnly 僅顯示確定按鈕 vbExclamation 顯示！號(hào)圖標(biāo) = Else If Trim(rst(password)) = Trim() Then 39。(1) = Else MsgBox 輸入密碼不正確，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End Sub 系統(tǒng)模塊詳細(xì)介紹 添加用戶的界面如下圖 所示： 圖 42 添加用戶界面 這個(gè)模塊的核心代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() Trim() Then MsgBox 確認(rèn)密碼不正確！ , vbExclamation + vbOKOnly, 警告 = Exit Sub End If 39。********************連接數(shù)據(jù)庫(kù) 39。Dim As New 39。Dim rst As New Set = New Set rst = New = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) 39。******************檢測(cè)用戶是否存在 UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。 mysql, With rst If Not Then MsgBox 該用戶已存在，請(qǐng)重新輸入新用戶！ , vbExclamation + vbOKOnly, 提示 = = = Exit Sub End If End With 39。***********************添加用戶 select * from userinfo , , adOpenDynamic, adLockPessimistic With rst .AddNew .Fields(user_name).Value = Trim(Text1) .Fields(password).Value = Trim(Text2) .Update MsgBox 添加新用戶成功！ , vbOKOnly + vbExclamation, 添加新用戶 End With End Sub 修 改密碼界面如下： 圖 修改密碼界面 核心代碼如下： Private Sub Command1_Click() Dim As New Dim rst As New If Trim() = Then MsgBox 請(qǐng)輸入用戶名！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請(qǐng)輸入您的原始密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請(qǐng)輸入新密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請(qǐng)確認(rèn)新密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If (Trim() Trim()) Then MsgBox 您輸入的第二次密碼不正確，請(qǐng)重新輸入！ , vbExclamation + vbOKOnly, 警告 = Exit Sub End If = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。and password=39。 amp。
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1