Question

关于VFP的密码修改表单的建立， 表单 有 用户 原密码 新密码 组成 可就是不知道怎么建立表单代码？？？

关于VFP的密码修改表单的建立， 表单 有 用户 原密码 新密码 组成 可就是不知道怎么建立表单代码？？？

Answer 1

简单点。
假设你的用户名和密码存在表table1里，用户名为唯一性属性。下面写代码。
取消 按钮
thisform.release
确定 按钮
if alltrim(thisform.text1.value)="" or alltrim(thisform.text2.value)="" or alltrim(thisform.text3.value)=""
=messagebox("文本框不能为空！",0+64,"提示")
else
use table1
locate for 用户名=alltrim(thisform.text1.value)
if !found()
=messagebox("无此用户！",0+64,"提示")
else
if 密码<>alltrim(thisform.text2.value)
=messagebox("原密码不正确！",0+64,"提示")
else
replace 密码 with alltrim(thisform.text3.value)
endif
endif
use
endif

Answer 2

取消代码:
thisform.release
确定代码：
local cuser,coldpass,cnewpass
local coldalias,nBz
cuser=allt(thisform.text1.value)
coldpass=allt(thisform.text2.value)
cnewpass=allt(thisform.text3.value)
*******判断下输入值是否合法
if empty(cuser) or empty(coldpass) or empty(cnewpass)
wait '输入不能为空' wind at srows()/2,scols()/2 wind nocl time 2
wait clea
retu .f.
endif
*****也可以分别判断，然后分别定位
*
*****判断用户名和原密码是否正确
*****根据输入修改密码表
*假设密码和用户名为数据表 密码表
*文件路径为当前目录下
store alias() to coldalias &&操作前先保存下当前工作区
if !used('密码表')
use .\密码表 in 0
endif
select 密码表
nBz=0
count all for allt(用户名)==cuser and allt(密码)==coldpass to nBz
if nBz<1 or nBz>1 &&大于1，说明你的表是不是有问题，还有重复的？
wait '用户数据不存在或异常，请排查后继续' wind at srows()/2,scols()/2 nocl time 2
wait clea
retu .f.
endif
if nBz=1
update 密码表 set 密码=cnewpass where allt(用户名)==cuser and allt(密码)==coldpass
endif
****还原操作前的选区
if !empty(coldalias) and used(coldalias)
select &coldalias
endif
*结束
*若密码表不需要打开
* if used('密码表')
* use in 密码表
*endif
wait '密码修改完成！' wind at srows()/2,scols()/2 nocl time 2
wait clea
retu