end if
dw_zz:
itemerror! return 1
cb_dkzk:
Clicked! string r_pass,r_id,r_mm,r_ztmc,r_zt
integer r_count,r_count_km
//判断系统是否已经建立账套
select count(*) into :r_count from zz_ztxxb;
if r_count=0 then
messagebox('提示',' 系统还没有任何
论文范文http://www.chuibin.com/ 账套，请选择【新建账套】！')
return
end if
//判断所选择的账套是否存在
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
//判断所选择的账套是否停用
select zt into :r_zt from zz_ztxxb where zth=:g_zth;
if r_zt='停用' then
messagebox('提示',' 【 '+g_zth+' 】账套号已经停用 ，请重新输入！')
return
end if
g_rq=em_rq.text
g_nkjqj= mid(g_rq,1,4) //当前年会计期间
//从会计期间表中取得当前月会计期间
select ykjqj into :g_ykjqj from zz_kjqjb where zth=:g_zth and qsrq <= :g_rq and jsrq >=:g_rq;
//用户合法性判断
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 ;
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
账务处理系统登录与修改密码窗口 第3页下载如图片无法显示或论文不完整，请联系qq752018766
