txtSQL = txtSQL & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
MsgBox "密码已经修改!", vbOKOnly + vbExclamation, "修改结果"
Unload Me
End If
End If
上述代码是修改密码模块的主要代码,通过对话提示框,来确保用户输入了新的密码,并调用公用函数对数据库进行更新操作,达到修改密码的目的。
4、测试结果
下面分别对“不输入新密码”、“两次输入的密码不一样”和“正确的输入新密码”三种情形做下测试,结果分别如下图所示: