之前在敲學生信息管理系統時曾經做過類似的窗體，下面再總結一下機房收費系統的修改密碼。其實這個窗體主要就是需要做一些判定條件：首先是先判斷你輸入的的原密碼是否正確，其次判斷新輸入的密碼與之前的舊密碼是否相同，接著判斷兩次密碼是否相同，當然最大的前提是它們都不能為空。

整體代碼如下：

Dim txtsql As String '存放數據庫語句Dim MsgText As String '存放返回信息Dim mrc As ADODB.Recordset '存放記錄集對象txtsql = "select * from User_Info where UserName='" & frmLogin.txtUserName.Text & "'"Set mrc = ExecuteSQL(txtsql, MsgText)If Trim(txtold.Text) <> Trim(mrc.Fields(3)) Then '判斷原密碼是否正確MsgBox "原密碼輸入不正確", vbOKOnly + vbExclamation, "警告"txtold.SetFocustxtold.Text = ""txtPassword1.Text = ""txtPassword2.Text = ""Exit SubEnd If'判斷If Trim(txtold.Text) = Trim(txtPassword1.Text) ThenMsgBox "新舊密碼不能相同", vbOKOnly + vbExclamation, "警告"txtPassword1.Text = ""txtPassword2.Text = ""ElseIf txtPassword1.Text = "" ThenMsgBox "新密碼不能為空", vbOKOnly + vbExclamation, "警告"txtPassword1.SetFocustxtPassword1.Text = ""txtPassword2.Text = ""ElseIf txtPassword2.Text = "" ThenMsgBox "確認密碼不能為空，請再次確認密碼", vbOKOnly + vbExclamation, "警告"txtPassword1.SetFocusElseIf Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) ThenMsgBox "兩次密碼輸入不一致！", vbOKOnly + vbExclamation, "警告"txtPassword2.SetFocustxtPassword2.Text = ""Elsetxtsql = "select * from User_Info where UserName='" & frmLogin.txtUserName.Text & "'"Set mrc = ExecuteSQL(txtsql, MsgText)mrc.Fields(3) = txtPassword1.Textmrc.Updatemrc.CloseMsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"Me.HideEnd IfEnd IfMDIFrmMain.HidefrmLogin.ShowtxtPassword1.Text = ""txtPassword2.Text = ""

需要注意的是一般修改完密碼都會讓大家重新登錄，所以代碼的最后也是這樣安排的。

總結

以上是生活随笔為你收集整理的机房收费--修改密码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。