vfp找不到变量use1怎么改,急用

来源:百度知道 编辑:UC知道 时间:2024/06/08 04:00:42
set exact on
if empty(thisform.text1.value) && 判断原密码是否为空
messagebox("原密码不能为空!","管理人员密码修改")
thisform.text1.setfocus
return
endif
if empty(thisform.text2.value) && 判断新密码是否为空
messagebox("新密码不能为空!","管理人员密码修改")
thisform.text2.setfocus
return
endif
if empty(thisform.text3.value) && 判断确认密码是否为空
messagebox("确认密码不能为空!","管理人员密码修改")
thisform.text3.setfocus
return
endif
if thisform.text2.value=thisform.text3.value && 判断新密码与确认密码是否相同
select xuesheng &&若新密码与确认密码相同则选择管理人员表为当前表
locate for xuesheng.学号=user1 &&定位到登录名与user1相同的纪录上 26
if xuesheng.密码=thisform.text1.value && 判断原密码是否正确
if messagebox("确定修改密码?",4+32,"管理人员密码修改")=6 &&若原密码正确,是否真得修改密码,是则修改密码
replace xuesheng.密码 with thisform.text1.value
endif
else &&若原密码不正确则出现提示信息
messagebox("原密码错误!","管理人员密码修改")
endif
else && 若新密码与确认密码不一致则出现

应该是找不的到user1吧?
user1是用户名你在什么地方确定的?在表单上输入的,就应该有类似这这样的句子 user=alltrim(thisform.text5.value)
如是一个全局变量看一下是不是已经被释放了/
如是另一个表中的字段在引用前要加上表名(比如:yhdbf.user1)