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

整體代碼如下：

Dim txtsql As String '存放數(shù)據(jù)庫(kù)語(yǔ)句Dim MsgText As String '存放返回信息Dim mrc As ADODB.Recordset '存放記錄集對(duì)象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 "確認(rèn)密碼不能為空，請(qǐng)?jiān)俅未_認(rèn)密碼", 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 = ""

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。