UC知道请问PB做一个密码修改的代码
来源：百度知道 编辑：UC知道 时间：2024/06/04 07:15:28
这是我写的代码，运行可以，但是SQL里面密码是修改不了的，请高手帮忙看一下
integer a,npwd;
a=integer(sle_4.text)
npwd=integer(sle_2.text)
if sle_1.text="" or sle_2.text="" or sle_4.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
close(parent)
update 登录表
set login_pwd=:npwd
where login_id=:a;
if sqlca.sqlcode<>0 then
messagebox("错误提示",sqlca.sqlerrtext)
else
messagebox("成功","修改成功")
open(win_student)
end if
end if
integer a,npwd;
a=integer(sle_4.text)
npwd=integer(sle_2.text)
if sle_1.text="" or sle_2.text="" or sle_4.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
close(parent)
update 登录表
set login_pwd=:npwd
where login_id=:a;
if sqlca.sqlcode<>0 then
messagebox("错误提示",sqlca.sqlerrtext)
else
messagebox("成功","修改成功")
open(win_student)
end if
end if
请问PB做一个密码修改的代码
悬赏分：20 - 离问题结束还有 14 天 21 小时
这是我写的代码，运行可以，但是SQL里面密码是修改不了的，请高手帮忙看一下
integer a,npwd;
a=integer(sle_4.text)
npwd=integer(sle_2.text)
if sle_1.text="" or sle_2.text="" or sle_4.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
close(parent)
update 登录表
set login_pwd=:npwd
where login_id=:a;
if sqlca.sqlcode<>0 then
messagebox("错误提示",sqlca.sqlerrtext)
rollback using sqlca; //如果失败的话，回滚事务；
else
messagebox("成功","修改成功")
commit using sqlca ;//修改成功，提交事务，保存对数据库进行的修改！
open(win_student)
end if
end if