账务处理系统账套设置与管理模块设计 第9页

Open! string r_zth,r_bb_name
boolean r_flag=true 
//设置初始值
tab_xjzt.tabpage_kjqj.dw_kjqj.SetTransObject(sqlca)
tab_xjzt.tabpage_kjqj.em_qyrq.text=g_rq       //启用日期
tab_xjzt.tabpage_kjqj.em_qsrq.text=left(g_rq,4)+"-01"+"-01" //启始日期
tab_xjzt.tabpage_kjqj.em_jsrq.text=left(g_rq,4)+"-12"+"-31" //结束日期
tab_xjzt.tabpage_kjqj.ddlb_qjs.text='12'         //期间数
tab_xjzt.tabpage_kjqj.sle_kjnd.text=left(tab_xjzt.tabpage_kjqj.em_qsrq.text,4) //会计年度
tab_xjzt.SelectedTab=  1  //默认为第一步
cb_syb.enabled = false
//自动生成账套号
select max(zth) into :r_zth from zz_ztxxb;//从账套信息表中取出已经存在的最大账套编码
if  r_zth='' or isnull(r_zth) then
 r_zth='1'           //如果不存在账套，则默认建立第一套账
else
   r_zth=string(integer(r_zth)+1)  //账套编码自动加1
end if
tab_xjzt.tabpage_ztmc.sle_zth.text=r_zth
tab_xjzt.tabpage_hyxz.plb_sshy.SelectItem(1)
tab_xjzt.tabpage_kjqj.cb_kyqjjs.TriggerEvent(Clicked!)  //计算会计期间
//从数据库中取出币种，放入记账本位币下拉图片列表框ddplb_bwbmc中
declare C1 cursor for select distinct bb_name from c_zz_bb ;
  open C1;
  do while r_flag=true      
   fetch C1 into :r_bb_name;
   if sqlca.sqlcode=100 then
    r_flag=false     
   end if
   if sqlca.sqlcode =-1 then
    messagebox("提示","读取数据失败!",exclamation!)
    return
   end if 
   if sqlca.sqlcode=0 then
  tab_xjzt.tabpage_jzbwb.ddplb_bwbmc.additem(r_bb_name,1)  
   end if       
 loop 
close C1;
tab_xjzt.tabpage_jzbwb.ddplb_bwbmc.text='01'   //默论文范文 认为人民币
tab_xjzt.tabpage_jzbwb.ddplb_bwbmc.text='人民币'
this.title='新建账套'
tab_xjzt.tabpage_jzbwb. ddplb_bwbmc:
Selectionchanged! string r_bwbmc,r_bwbbh
r_bwbmc=ddplb_bwbmc.text
select distinct bb_code into :r_bwbbh from c_zz_bb where bb_name=:r_bwbmc;

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

账务处理系统账套设置与管理模块设计 第9页下载如图片无法显示或论文不完整，请联系qq752018766