end if
end if
cb_xjzt:
Clicked! string r_pass,r_zth,r_czyqx_code
integer r_count,Net
g_id=sle_bh.text
r_pass=sle_mm.text
select count(*) into :r_count from zz_czyxxb
where czybh=:g_id and czymm=:r_pass ;
if r_count=0 then
messagebox('提示','操作员输入错误，请重新输入！')
return
else
select czyqx_code into :r_czyqx_code from zz_czyxxb
where czybh=:g_id and czymm=:r_pass;
// 注：本系统假定当用户的权限编码为‘00’时，才可以进行套账的建立操作
if r_czyqx_code='00' then
g_rq=em_rq.text
g_nkjqj = mid(g_rq,1,4)
open(w_xjzt) //进入新建账套处理
close(parent)
else
messagebox('提示','对不起，您无权限进行新建套账操作！')
return
end if
end if
cb_tc:
Clicked! close(parent)
2. 修改操作员密码窗口w_xgmm，如下表2-3-4所示。
表2-3-4 窗口w_xgmm的设计说明
项 目 说 明
窗口名 w_xgmm
所在的PBL库 账务处理系统.pbl
功能 操作员密码修改。该窗口类型为弹出窗口。
父窗口 window
界面设计
窗口控件说明
控件类型 控件名 控件名称 说明
命令按钮 cb_xg &X修改 保存对操作员密码的修改
命令按钮 cb_tc &T退出 退出关闭窗口
单行编辑框 sle_ymm 输入原密码
单行编辑框 sle_xmm 输入新密码
单行编辑框 sle_qrmm 确认新密码
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
账务处理系统登录与修改密码窗口 第5页下载如图片无法显示或论文不完整，请联系qq752018766
