菜鸟新上路，写了个修改密码的窗口，不好用，求大侠们指导啊~~ - 编程论坛

#2

Artless2012-02-25 00:16

问题？

#3

小肥皂泡2012-02-25 15:00

回复 2楼 Artless

就是这个程序不能运行啊，但是不知道哪个地方的问题啊！！！

#4

mayuebo2012-02-26 07:13

如果修改密码的界面是这样的:
原密码:
新密码:
重复新密码:

修改密码的是思路是这样的:
检查原密码是否正确,如果正确,检查两次输入的密码相不相同,如果相同保存密码.如果有问题,则提示

伪代码:
if 已经保存的原密码=输入的原密码 then
'检查两次输入的新密码是否一致
  if 新密码1=新密码2 then
          '保存密码
  else
          '提示二次输入的密码不一致
          exit sub
  end if
else
  '提示旧密码错误
end if

#5

apple00720112012-02-27 14:45

Private Sub savethecode_Click()
'先判断旧密码

If oldcode =password Then   oldcode和password在哪里赋值？

  If newcode1.Text = newcode2.Text Then

    password = newcode1 改为：记录集.filter("字段名")=newcode1.Text

    Me.Hide
    MsgBox （"修改密码成功!",  vbInformation + vbOKCancel）



  Else
   MsgBox （"两次密码不一致，请重新输入!", vbInformation + vbOKCancel）


   End If

Else
    MsgBox （"无效的密码，请重试!", "提示", vbInformation + vbOKCancel）


End If

End Sub

把你的表单发上来，帮你改一改

#6

小肥皂泡2012-02-28 08:53

回复 4楼 mayuebo

我的问题解决啦，还是谢谢大侠的指导，谢谢啦

#7

小肥皂泡2012-02-28 08:53

以下是引用apple0072011在2012-2-27 14:45:49的发言：

Private Sub savethecode_Click()
'先判断旧密码

If oldcode =password Then   oldcode和password在哪里赋值？

  If newcode1.Text = newcode2.Text Then

    password = newcode1  改为：记录集.filter("字段名")=newcode1.Text

    Me.Hide
    MsgBox （"修改密码成功!",  vbInformation + vbOKCancel）



  Else
   MsgBox （"两次密码不一致，请重新输入!", vbInformation + vbOKCancel）


   End If

Else
    MsgBox （"无效的密码，请重试!", "提示", vbInformation + vbOKCancel）


End If

End Sub

把你的表单发上来，帮你改一改

我的问题解决啦，还是谢谢大侠的指导，谢谢啦