VFP 修改密码表单代码求助

VFP 修改密码表单代码求助

** 图一的确定代码
** 把密码文件本框的 PASSWORDCHAR 属性改为 “*”
SELECT STUDENT
LOCATE FOR 学号=ALLTRIm(thisform.txt学号.value)
IF FOUND() &&& 找到此学号的记录
IF ALLTRIm(thisform.txt密码.value)==ALLTRIm(student.密码)
thisform.cmd_tijiao.enabled=.t.
ELSE
thisform.cmd_tijiao.enabled=.f.
MESSAGEBOX("密码错误，请重新输入！",48,"提示")
thisform.txt密码.value = ""
thisform.txt密码.setfocus()
ENDIF
ELSE &&& 没找到学号
MESSAGEBOX("无此学号，请重新输入！",48,"提示")
thisform.txt学号.value= ""
thisform.txt学号.setfocus()
ENDIF
thisform.refresh

** 图二的提交代码
** 把密码文件本框的 PASSWORDCHAR 属性改为 “*”
** 注意 在修改密码时，没有移动记录的操作
SELECT student
IF thisform.text1.value == thisform.text2.value
REPLACE 密码 WITH ALLTRIm(thisform.text2.value)
MESSAGEBOX("密码更改成功！请牢记新密码。",64,"提示")
ELSE
MESSAGEBOX("您两次输入的密码不同，不能更改密码，请重新输入！",48,"提示")
thisform.text1.value =""
thisform.text2.value =""
ENDIF