VB做的系統的登陸密碼的修改代碼

Private Sub Command1_Click()

'確認修改密碼提交

If Text1(0).Text = "" Then

MsgBox "妳沒有輸入名稱，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(1).Text = "" Then

MsgBox "妳沒有輸入原密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(2).Text = "" Then

MsgBox "妳沒有輸入新密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

ElseIf Text1(3).Text = "" Then

MsgBox "妳沒有再次輸入新密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

If Text1(2).Text <> Text1(3).Text Then

MsgBox "妳輸入的新密碼和再次輸入的新密碼不符，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

If Text1(0).Text <> YHMC Then

MsgBox "妳輸入的名稱不是妳的名稱，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

If Text1(1).Text <> YHMM Then

MsgBox "妳輸入的原密碼不是妳的密碼，請重新輸入！", 16, "錯誤！"

Exit Sub

End If

Call conn

strSql = "select * from 數據表 where 用戶名='" & Text1(0).Text & "' AND 密碼='" & Text1(1).Text & "' "

Set RS = conn.OpenRecordset(strSql)

If Not RS.EOF Then

RS.Edit

RS!密碼 = Text1(2).Text

RS.Update

MsgBox "祝賀您！妳的管理員密碼修改成功！", 48, "修改成功！"

Else

MsgBox "沒有妳查詢的記錄！", 16, "錯誤！無記錄！"

End If

RS.Close

Set RS = Nothing

conn.Close

Set conn = Nothing

End Sub

上一篇:c語言中大數的加法是通過數組char指針實現的

下一篇:作家雨果說過開啟人類智慧英語作文