vfp 表单 修改密码
发布网友
发布时间：2022-09-20 06:07
共1个回答
热心网友
时间：2023-11-03 10:07
messagebox('用户不能为空！',48,'错误提示')
thisform.combo1.setfocus
return
endif
if empty(thisform.text1.value)
messagebox('旧密码不能为空！',48,'错误提示')
thisform.text1.setfocus
return
endif
if empty(thisform.text2.value)
messagebox('新密码不能为空！',48,'错误提示')
thisform.text2.setfocus
return
endif
if empty(thisform.text3.value)
messagebox('新密码请输入两遍！',48,'错误提示')
thisform.text3.SetFocus
return
endif
if allt(thisform.text2.value)<>allt(thisform.text3.value)
messagebox('两次密码输入不同！',48,'错误提示')
thisform.text2.setfocus
return
endif
select 表
loca for allt(用户名)==allt(thisform.combo1.DisplayValue)
if found()
if allt(密码)==allt(thisform.text1.value)
repl 密码 with allt(thisform.text2.value)
else
messagebox('旧密码错误！',48,'错误提示')
return
endif
messagebox('修改成功！',48,'提示')
thisform.Release
else
messagebox('无此用户！',48,'错误提示')
return
endif
