用PB实现修改密码的代码

[复制链接]
查看11 | 回复1 | 2010-6-1 12:43:37 | 显示全部楼层 |阅读模式
char mima,username
SELECT yonghu.yonghuming,

yonghu.yonghumima

INTO :username,

:mima

FROM yonghu

WHERE yonghu.yonghuming = :sle_1.text;
ifsle_1.text="" or sle_2.text="" or sle_3.text=""then
messagebox("错误!","用户名或密码不能为空!",exclamation!,ok!,2)
else

if sle_1.text=username and sle_2.text=mima then

UPDATE "yonghu"

SET yonghu.yonghumima =:sle_3.text;



messagebox("密码修改成功!","请记住新密码,下次登录时请使用新密码!",exclamation!,ok!,2)

else

messagebox("错误!","用户名或密码错误,请重新输入!",exclamation!,ok!,2)

end if
end if
运行之后修改不了,每次都说用户名或密码错误,请重新输入,请问到底哪里错了?帮忙修改一下!谢谢啦!!!

回复

使用道具 举报

千问 | 2010-6-1 12:43:37 | 显示全部楼层
string mima,usernameSELECT yonghuming,
yonghumima
INTO :username,
:mima
FROM yonghu
WHERE yonghuming = :sle_1.text; ifsle_1.text="" or sle_2.text="" or sle_3.text=""then
messagebox("错误!","用户名或密码不能为空!",exclamation!,ok!,2) return end if
if sle_1.text=
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行