if r_count>0 then
//当前账套使用的会计科目编码表ZZ_KJKMBMB数据处理
select count(*) into :r_count_km from zz_kjkmbmb where zth=:g_zth;
//如果当前账套使用的会计科目编码表ZZ_KJKMBMB中没有数据，则将会计科目编码ZZ_KJKMBM表中当前账套使用的会计科目插入进来
if r_count_km=0 then
insert into zz_kjkmbmb select * from zz_kjkmbm where zth=:g_zth ;
else
select count(*) into :r_count_km from zz_kjkmbmb where zth<>:g_zth;
if r_count_km<>0 then
delete from zz_kjkmbmb where zth<>:g_zth;
end if
end if
open(w_zw) //进入账务处理系统
close(parent)
else
messagebox('提示','操作员输入错误，请重新输入！')
end if
cb_ztgl:
Clicked! string r_pass,r_zth,r_ztmc,r_czyqx_code
integer r_count,Net
g_rq=em_rq.text
g_nkjqj = mid(g_rq,1,4)
//判断所选择的账套是否存在
dw_zz.accepttext()
g_zth=dw_zz.getitemstring(1,1)
select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth;
if sqlca.sqlcode<>0 then
messagebox('提示',' 【 '+g_zth+' 】账套号不存在，请重新输入！')
return
end if
//用户合法性判断
g_id=sle_bh.text
r_pass=sle_mm.text
select count(*) into :r_count from zz_czyxxb
where zth=:g_zth and czybh=:g_id and czymm=:r_pass;
if r_count=0 then
messagebox('提示','操作
论文范文http://www.chuibin.com/ 员输入错误，请重新输入！')
return
else
select czyqx_code into :r_czyqx_code from zz_czyxxb
where zth=:g_zth and czybh=:g_id and czymm=:r_pass;
//注：本系统假定当用户的权限编码为‘00’时，才可进行套账管理操作
if r_czyqx_code='00' then
open(w_ztgl) //进入账套管理操作
close(parent)
else
messagebox('提示','对不起，您无权限进行套账【 '+r_ztmc+' 】管理！')
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
账务处理系统登录与修改密码窗口 第4页下载如图片无法显示或论文不完整，请联系qq752018766
