请帮我看下,为什么我执行这段代码后,到关闭窗口的时候就会出现非法关闭!
string ls_oldpass,ls_userpass,ls_pass
string ls_newpass1,ls_newpass2
int ret
ls_oldpass = trim(string(sle_old.text))
ls_newpass1 = trim(string(sle_new1.text))
ls_newpass2 = trim(string(sle_new2.text))
if ls_newpass1 <> ls_newpass2 then
messagebox("提示!","新输入的密码不一致,请检查!")
return
end if
select user_pass
into :gs_oper_pass
from yx_sysuser
where user_id = :gs_oper_id;
riddle(gs_oper_pass,ls_pass)
if ls_oldpass <> ls_pass then
messagebox("提示!","原始密码不正确,请重新输入!")
sle_old.text = ''
sle_old.setfocus()
return
end if
puzzle(ls_newpass1,ls_userpass)
update yx_sysuser
set user_pass = :ls_userpass
where user_id = :gs_oper_id;
if sqlca.sqlcode <> 0 then
messagebox("","修改失败!请与管理员联系!")
else
commit;
messagebox("","密码修改成功!退出系统后生效!")
//return 1
//ret = messagebox("","注销系统吗?",question!,yesno!,2)
//if ret = 1 then
close(w_passupdate)
return 1
end if