【学生】优化-修改密码

在修改密码窗口，大家建立的窗口大概只有输入新密码和确认新密码，两个输入框吧，这样其实有很大的bug。比如你登进窗体后，离开电脑旁边，外一别人修改你的密码轻而易举。所以，我们应该多增加一个请输入原密码，这样其他人不知道你的密码就不能修改了。当然，如果你自己忘了登录的是哪一个用户了，也可以添加显示用户名。

Private Sub cmdOK_Click()    Dim txtSQL, MsgText As String  '定义字符串变量，表示查询语句;定义字符串变量，返回查询信息    Dim mrc As ADODB.Recordset   '定义数据集对象        '查询数据库        txtSQL = "select*from user_Info where user_ID='" & UserName & "'"        '执行查询语句        Set mrc = ExecuteSQL(txtSQL, MsgText)        '判断旧密码输入是否正确        If Trim(txtOldPassword.Text) = Trim(mrc.Fields(1)) Then                '判断新密码是否输入一致                If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then                    MsgBox "两次新密码输入不一致！", vbOKOnly + vbExclamation, "警告"                    txtPassword1.SetFocus                    txtPassword1.Text = ""                    txtPassword2.Text = ""                Else                    mrc.Fields(1) = Trim(txtPassword1.Text)                    mrc.Update  '更新数据库                    MsgBox "密码修改成功！", vbOKOnly + vbInformation, "修改密码"                    mrc.Close   '关闭数据库                    txtOldPassword.Text = ""                    txtPassword2.Text = ""                    txtPassword1.Text = ""                End If                    Else            MsgBox "原密码输入不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"            txtOldPassword.SetFocus            txtOldPassword.Text = ""            Exit Sub        End IfEnd Sub

再敲代码时，一定要注意代码之间的逻辑关系，比如我就犯了一个代码编写顺序的错误。当新密码赋值给数据库后，紧接着就更新数据库，这两句代码是紧密联系的。

mrc.Fields(1) = Trim(txtPassword1.Text)mrc.Update  '更新数据库

添加显示用户名：

Private Sub Form_Load() Label5.Caption = UserNameEnd Sub

这里的UserName，它的赋值在frmLogin里，UserName = Trim(txtUserName.Text)

当时我把txtpassWord的值赋给了UserName，结果用户名就会显示的是密码值。大家在敲代码的时候一定要仔细仔细再仔细，说了好几遍了，提示给大家，也是警告我自己（因为自己错过太多次了，心塞塞啊）