怎样用VF编写一张修改密码的表单

修改密码的表单主要有四个文本框，第一个输入当前用户名，第二个输入旧密码，第三个输入新密码，第四个确认新密码，然后按钮动作。
loca
for
用户名=alltrim(thisformtext1value)
&&先查找表中用户名
if
alltrim(thisformtext1value)==alltrim(密码)
&&找到后判断密码是否相同
if
alltrim(thisformtext2value)==alltrim(thisformtext3value)
&&相同就再次判断两次新密码是否相同
repl
密码
with
alltrim(thisformtext2value)
&&相同就修改密码
else
messagebox("两次输入密码不相同，请重新输入！",16,"错误")
endif
else
messagebox("旧密码错误，请重新输入！",16,"错误")
endif
新登陆表单就直接再次调用这个表，就可以用新密码登陆了。

---