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

账务处理系统会计科目输入模块 第7页

更新时间:2012-8-17:  来源:毕业论文

       return 1
      end if
      this.setitem(r_found,'mjbj_code','N')
     end if
     select count(*) into :r_count from zz_kjkmbmb where zth=:g_zth and km_code=substring(:r_km_code,1,3);
     if not r_count > 0 then
      //判断当前的数据窗口中是否存在上级科目
      r_found = this.Find("km_code = '" +mid(r_km_code,1,3)+"'", 1, this.RowCount())
       if not r_found>0 then
        messagebox('提示',"无一级科目"+left(r_km_code,3))
        this.setitem(r_row,'km_code','')
        return 1
       end if
      this.setitem(r_found,'mjbj_code','N')
     end if
     this.setitem(r_row,'mjbj_code','Y')
    CASE ELSE
   END CHOOSE   
   //6 科目类别与性质必须与科目编码相匹配
   // 插入科目类别
   r_bit= left (r_km_code,1)
   CHOOSE CASE r_bit 
    CASE '1'
     this.setitem(r_row,'kmlb_code','1')
     this.setitem(r_row,'yefx_code','借')
    CASE '2'
     this.setitem(r_row,'kmlb_code','2')
     this.setitem(r_row,'yefx_code','贷')
    CASE '3'
     this.setitem(r_row,'kmlb_code','3')
     this.setitem(r_row,'yefx_code','贷')
    CASE '4'
     this.setitem(r_row,'kmlb_code','4')
     this.setitem(r_row,'yefx_code','借')
    CASE '5'
     this.setitem(r_row,'kmlb_code','5')
     this.setitem(r_row,'yefx_code','') //不确定  
    CASE ELSE
     messagebox('提示','科目编码的第一位必须为1至5的数字!')
     this.setitem(r_row,'km_code','')
     return 1
   END CHOOSE
   //科目性质
   r_bit= left (r_km_code,3)
   CHOOSE CASE r_bit 
    CASE '101'
     this.setitem(r_row,'kmxz_code','01')
    CASE '102'
     this.setitem(r_row,'kmxz_code','02')    
    CASE '123','137'
     this.setitem(r_row,'kmxz_code','05')
    CASE ELSE
     this.setitem(r_row,'kmxz_code','06')
   END CHOOSE
 CASE ELSE  
  return
END CHOOSE
dw_km_free:
itemerror! return 1
dw_km_table:
clicked! //点击选中的行高论文范文http://www.chuibin.com/  亮度显示
if row>0 then
 this.setrow(row)
 this.selectrow(0,false)
 this.selectrow(row,true)
 dw_km_free.ScrollToRow(row)
 gf_dw_count(this,sle_count) //在sle_count.text中显示行数
end if
dw_km_table:
itemchanged! string r_colname,r_km_code,r_km_code1,r_bm1,r_bm2,r_bm3, r_bit,r_sjkm
integer r_row,r_cd,r_count,i,r_found
string r_sl_fzhs,r_bz_fzhs,r_dw_fzhs,r_bm_fzhs,r_zy_fzhs,r_sybj,r_tybj

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

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

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