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
uj5u.com熱心網友回復：
close(w_passupdate)return 1
換成
closewithreturn(w_passupdate,1)
試試
uj5u.com熱心網友回復：
這個好象也是不行！好象是我用了riddle()和puzzle()兩個函式的問題！前者是密碼的解密，后者是加密！uj5u.com熱心網友回復：
估計你是在 視窗 w_passupdate 中寫的代碼吧去掉 return 1 就可以了
原因： close后，視窗的實體已經不存在，你再return 沒有對應的實體接收 了，就出錯
希望是這樣
uj5u.com熱心網友回復：
有點難度哦uj5u.com熱心網友回復：
關注 接分轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/109267.html
標籤：腳本語言
上一篇：pb8.0連接sql2000