messagebox("提示","药品已出库！")
ll_account = integer(sle_2.text)
update t_kuc
set account =ls_account - ll_account
where yaop_id=:sle_1.text;
(7)用户管理的密码修改“确定”按钮代码：
String ls_id
select pw
into : ls_id
from yonghu
where name=:sle_4.text;
if ls_id = string(sle_5.text) then
if sle_6.text =sle_7.text then
update yonghu
set pw = :sle_6.text
where name=:sle_4.text;
messagebox("提示！","密码修改成功！")
else
messagebox("提示！","两次输入的密码不一致，重新输入！")
return
end if
else
messagebox("提示！","你输入的密码和用户名称不匹配！")
end if
//检查密码
string is_name,is_pw
select pw,name into :is_pw,:is_name from yonghu where
name=:sle_4.text;
if is_pw <> ls_id then
i++
if i=3 then
messagebox('提示信息','3次错误，系统退出')
halt close
else
messagebox('提示信息','代码或密码错误，请重新输入')
end if
sle_5.setfocus()
return
else
open(w_main)
close(w_login)
end if
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19]