vb數(shù)據(jù)庫編程報(bào)告——學(xué)生管理系統(tǒng)-資料下載頁
2025-01-15 18:53本頁面
【正文】 Replace(Trim(), 39。, 39。39。) If Len(Trim()) = 0 Then 39。沒有輸入密碼 MsgBox 請輸入密碼！ , , 登陸信息 Exit Sub End If If Len(Trim()) 16 Then 39。密碼過長 MsgBox 您輸入密碼過長！ , , 登陸信息 Exit Sub End If UserPwd = Trim() str = select * from UserInfo where UserID=39。 amp。 UserID amp。 39。 39。打開數(shù)據(jù)集 str, xxCnn, adOpenStatic, adLockReadOnly, 1 If = 0 Then 39。找不到該用 戶名 MsgBox 用戶名不存在 ! amp。 vbCrLf amp。 請重新輸入 !, , 登陸信息 Exit Sub Else 39。檢驗(yàn)密碼 If TextPwd (UserPwd).Value Then MsgBox 密碼錯(cuò)誤 !, , 登陸信息 Exit Sub End If 39。關(guān)閉數(shù)據(jù)集 End If 39。用戶名，密碼都正確，進(jìn)入主窗口 UsernowID = Trim() Unload Me 18 End Sub 登陸界面顯示： (8)編輯修改密碼窗體： 代碼： Dim xxCnn As New Dim xxStr As String 39。修改密碼 Private Sub Command1_Click() Dim ChgUser As New Dim DBstr As String 39。檢驗(yàn)輸入內(nèi)容 If = Then MsgBox 請輸入原密碼！ 19 Exit Sub ElseIf Len(Trim()) 8 Then MsgBox 原密碼過長！ Exit Sub End If If = Then MsgBox 請輸入新密碼！ Exit Sub ElseIf Len(Trim()) 8 Then MsgBox 新密碼過長！ Exit Sub End If If = Then MsgBox 請輸入新密碼確認(rèn)！ Exit Sub ElseIf Len(Trim()) 8 Then MsgBox 新密碼確認(rèn)過長！ Exit Sub End If If Then MsgBox 兩次輸入新密碼不一致！ Exit Sub End If 39。寫數(shù)據(jù)庫 DBstr = select * from UserInfo where UserID=39。 DBstr = DBstr amp。 Replace(UsernowID, 39。, 39。39。) amp。 39。 39。打開數(shù)據(jù)集 DBstr, xxCnn, adOpenStatic, adLockOptimistic 39。數(shù)據(jù)集指針指向第一個(gè)記錄，這里查找到的記錄唯一 39。檢驗(yàn)舊密碼 If Trim() = (UserPwd).Value Then (UserPwd).Value = Else MsgBox 原密碼錯(cuò)誤，修改密碼失敗！ End If 39。更新 39。關(guān)閉數(shù)據(jù)集 39。彈出提示框提示用戶 MsgBox 修改成功！ End Sub Private Sub Command2_Click() 20 End Sub Private Sub Form_Load() xxStr = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False xxStr End Sub 修改密碼成功界面顯示： (9)編輯關(guān)于窗體
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號-1