毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

账务处理系统会计科目查询修改模块 第6页

更新时间:2012-8-21:  来源:毕业论文
this.selectrow(0,false)
 this.selectrow(r_row,true)
 gf_dw_count(this,sle_count)//在sle_count.text中显示行数
end if
dw_km:
itemerror! return 1
cb_cx:
Clicked!
【扩展父脚本】 if  dw_km.rowcount()=0 then
  //如果没有数据,则不可用
 cb_sc.enabled=false
 cb_bc.enabled=false
else
 //根据查询条件,控制删除与修改操作
 if i_s_tjcx.sybj_code='Y' then  //科目已经使用,不能在进行删除与修改
  cb_sc.enabled=false
  cb_bc.enabled=true
 else
  cb_sc.enabled=true
   cb_bc.enabled=true
 end if 
end if 
cb_bc:
Clicked! integer rtn,Net 
dw_km.accepttext()
dw_km_free.accepttext()
if  not (dw_km.modifiedcount()>0 or dw_km.deletedcount()>0 ) then return//判断数据窗口中的数据是否被更改或删除
Net=messagebox('提示','是否真的保存?',exclamation!,yesno!,2)
if Net=2 then return
rtn=dw_km.update()
if rtn=1 then
 commit using sqlca;  
 gf_zz_kjkmbm(g_zth)// 当前账套使用的会计科目编码表ZZ_KJKMBMB与所有账套使用的会计科目编码ZZ_KJKMBM表数据同步处理  
 messagebox('提示','保存成功!') 
 wf_retrieve()  //检索数据  
 if dw_km_free.visible=true then
  dw_km.setrow(i_row)
  dw_km_free.ScrollToRow ( i_row )
  gf_dw_count(dw_km,sle_count)
 end if 
else
 rollback using sqlca;
 messagebox('提示','保存失败!')
end if
cb_sc:
Clicked! integer Net,r_row,r_len,r_count
string r_km_code,r_mjbj,r_sybj_code
//判断会计科目是否能删除
dw_km.accepttext()
dw_km.selectrow(0,false)
r_row=dw_km.getrow()
if r_row= 0 then return
dw_km.selectrow(r_row,true)
r_row=dw_km.getrow()
r_km_code=dw_km.getitemstring(r_row,'km_code')
select mjbj_code into :r_mjbj from zz_kjkmbmb where km_code=:r_km_code;
if r_mjbj='N' then
 messagebox('提示','会计科目【'+r_km_code+'】为非末级科目,不能删除!')
 return
end if
net=messagebox('提示','是否真要删除会计科目【 '+r_km_code+' 】并保存?',exclamation!,yesno!,2)
if net=2 then return
select sybj_code into :r_sybj_code from zz_kjkmbmb where zth=:g_zth and km_code=:r_km_code;
if r_sybj_code='Y'  then
 messagebox('提示','会计科目【 '+r_km_code+' 】已经使用,不能删除!') return

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

账务处理系统会计科目查询修改模块 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。