Question

vfp 表单 修改密码

我制作了一个表单
我是管理员 我可以改密码
有 用户名 combo1 这个是绑定的 不能修改 只能从表里获取 我已经绑定了
有 旧密码 text1 新密码 text2 确认新密码 text3
有 确认 撤销 退出 三个命令按钮

表中 只有 用户名 密码 两个字段

请问 确认 的 click 事件中 我该怎么编写 最好有 messagebox（） 提醒的

谢谢各位大侠了……

Answer 1

if empty(thisform.combo1.DisplayValue)
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