事件 脚本
W_xgmm:
Open! this.title='更改操作员密码'
cb_xg:
Clicked! string r_ymm,r_xmm,r_qrmm,r_password,r_czybh
integer Net
r_ymm=trim(sle_ymm.text)
r_xmm=trim(sle_xmm.text)
r_qrmm=trim(sle_qrmm.text)
select czybh,czymm into :r_czybh,:r_password
from zz_czyxxb where czybh=:g_id;
if trim(r_password) <> r_ymm then
messagebox("提示","原始密码错误！请重新输入！")
sle_ymm.text=''
sle_ymm.setfocus()
return
end if
if r_xmm<>r_qrmm then
messagebox("提示","两次密码输入不一致！请重新输入！")
return
end if
Net = MessageBox("提示", "是否确认要更改密码？", Exclamation!, YESNO!, 2)
if Net = 2 then return
update zz_czyxxb set czymm=:r_xmm where czybh=:g_id;
if sqlca.sqlcode=0 then
commit;
messagebox("提示","密码更改成功！")
sle_ymm.text=''
sle_xmm.text=''
sle_qrmm.text=''
else
rollback;
messagebox("提示","密码更改失败！")
end if
cb_tc:
Clicked! close(parent)
【运行效果】
运行系统，出现系统登录窗口，输入正确的操作员编号及密码后，根据操作员的操作权限，可以进入相关的操作。
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
账务处理系统登录与修改密码窗口 第6页下载如图片无法显示或论文不完整，请联系qq752018766
