行业应用

开发平台：

VFP

SYBHZ2.PRG：源码内容

							******
clos data
use hzdw
count all to jsq
use
set path to C:
! copy jqbbsyb.dbf sybhz.dbf >nul
set path to jqbb
set colo  to /3
clos all
set colo to
@ 10,22 clea to 14,65
set colo to w+/3
@ 8,20 clea to 12,60
@ 9,30 say '正在汇总损  益  表!'
@ 10 ,35 say '请稍候......'
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
pd='syb'+pd
if file(pd+'.dbf')
pd1=pd1+1
else 
@ 20,30 say pd+'表不存在!'
i=inkey(0)
set colo to w+/n
@ 1,1,22,78 box"鞍鞍鞍鞍鞍鞍鞍"
retu
endif
enddo 
*************
! copy jqbbsyb.dbf sybhzk.dbf >nul
! copy jqbbsyb.dbf sybhz1.dbf >nul
sele 1
use sybhz
*repl all bys with 0
*repl all ljs with 0
use sybhz1 
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
sele 2
pd='syb'+pd
use &pd 
sele 1
upda on h from &pd repl bys with bys+&pd->bys
upda on h from &pd repl ljs with ljs+&pd->ljs
pd1=pd1+1
enddo  
use
! copy sybhz1.dbf sybhz.dbf >nul
use sybhz
pd=ljs
3
if pd<>0
repl pjs with ljs/pd 
endif
1
repl pjs with 0
2
repl pjs with 0
do sybjs
@ 8,20 clea to 12,60
?? chr(7)
@ 15,30 say '汇总完毕,按任键返回!'
i=inkey(0)
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
clos data
retu

						