实例变量定义 序号 变量名 类型 说明
1 i_nkjqj String 期初余额的年会计期间
2 i_ykjqj String 期初余额的月会计期间
事件 脚本
W_srph:
Open! string r_ztmc
select min(nkjqj) into :i_nkjqj from zz_kmyeb where zth=:g_zth;
if isnull(i_nkjqj) then
messagebox('提示',' 【 '+g_zth+' 】账套号目前无期初余额!请先进行科目余额初始!')
close(this)
return
end if
select min(ykjqj) into :i_ykjqj from zz_kmyeb where zth=:g_zth and nkjqj=:i_nkjqj;
select ztmc into :r_ztmc from zz_ztxxb where zth=:g_zth;
st_zth.text='账套号【'+g_zth +' 】 账套名称【'+r_ztmc+'】'
st_qj.text=' 会计年度【'+i_nkjqj+' 】 月会计期间【'+i_ykjqj+'】'
this.title='试算平衡'
cb_ss:
Clicked! decimal r_jfye,r_dfye
select sum(qcjfye), sum(qcdfye) into :r_jfye,:r_dfye
from zz_kmyeb,zz_kjkmbmb
where zz_kmyeb.zth=zz_kjkmbmb.zth and zz_kmyeb.km_code=zz_kjkmbmb.km_code
and zz_kmyeb.zth=:g_zth and nkjqj=:i_nkjqj and ykjqj=:i_ykjqj and mjbj_code='Y' ;
sle_jf.text=string(r_jfye)
sle_df.text=string(r_dfye)
if r_jfye= r_dfye then
st_pd.text='='
st_tip.text='借贷平衡'
else
st_pd.text='≠'
s
论文范文http://www.chuibin.com/ t_tip.text='借贷不平'
end if
cb_tc:
Clicked! close(parent)
2. 科目余额初始完毕确定窗口w_yecswb,如下表2-9-2所示。
表2-9-2 窗口w_srph的设计说明
项 目 说 明
窗口名 w_yecswb
所在的PBL库 账务处理系统.pbl
功能 科目余额初始完毕确定
父窗口 window
界面设计
窗口控件说明
控件类型 控件名 控件名称 说明
命令按钮 cb_qd &Q确定 确定科目余额初始完毕
命令按钮 cb_tc &T退出 退出关闭窗口
静态文本框 st_qj 期间信息提示
静态文本框 st_zth 账套信息提示
静态文本框 st_tip 操作提示信息
分组框 gb_tip 构成提示信息组
实例变量定义 序号 变量名 类型 说明
1 i_nkjqj String 期初余额的年会计期间
2 i_ykjqj String 期初余额的月会计期间
事件 脚本
W_yecswb:
Open! string r_ztmc
select min(nkjqj) into :i_nkjqj from zz_kmyeb where zth=:g_zth;
if isnull(i_nkjqj) then
messagebox('提示',' 【 '+g_zth+' 】账套号目前无期初余额!请先进行科目余额初始!')
上一页 [1] [2] [3] [4] 下一页
账务处理系统试算平衡检验模块 第2页下载如图片无法显示或论文不完整,请联系qq752018766