行业应用

开发平台：

VFP

BDBHZ.PRG：源码内容

							**********
set colo  to /3
clos data
use hzdw
count all to jsq
use
set colo to
@ 12,22 clea to 16,65
set colo to w+/3
@ 10,20 clea to 14,60
@ 11,30 say '正在汇总财务变动表!'
@ 12 ,35 say '请稍候......'
! copy jqbbbdb.dbf bdbhz.dbf>nul
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
pd='bdb'+pd
if file(pd+'.dbf')
pd1=pd1+1
else 
clea
@ 10,30 say pd+'表不存在!'
i=inkey(0)
retu
endif
enddo 
*************
sele 1
use bdbhz 
*et inde to  fzb
repl all je1 with 0,je2 with 0
*rein
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
sele 2
pd='bdb'+pd
use &pd 
*set inde to fzb
*reinde
sele 1
upda on a from &pd repl je1 with je1+&pd->je1
upda on a from &pd repl je2 with je2+&pd->je2
pd1=pd1+1
enddo  
@ 10,20 clea to 14,60
?? chr(7)
@ 12,30 say '汇总完毕,按任键返回!'
i=inkey(0)
clos data
set colo to w+/1
*set colo of scheme 3 to w+/1
@ 0,0,23,79 box '北北北北' colo scheme 3
set colo to w+/n
@ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
@ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
@ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
set clock to 23,69
on key label Escape do Rquit
retu

						