行业应用

开发平台：

VFP

SYBHZ1.PRG：源码内容

							******
clos data
use hzdw
count all to jsq
use
set path to C:
if cd1=1
! copy jqbbsyb.dbf sybhz.dbf >nul
else
pd=cd1-1
pd=str(pd,2,0)
x=str(Ryear,4,0)
pd=ltrim(pd)
pd='m'+pd
x1="jqbb"+x+""+pd+"sybhz.dbf"
*x1="'"+x1+"'"
if file(x1)
! copy jqbb&x&pdsybhz.dbf >nul
else
! copy jqbbsyb.dbf sybhz.dbf >nul
endif
endif
! copy sybhz.dbf sybhz1.dbf >nul
set path to jqbb
set colo  to /3
clos data
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 to sybhzk.dbf
*! copy jqbbsyb.dbf to sybhz1.dbf
sele 1
*use sybhz
use sybhz1 
repl all bys with 0
repl all ljs with 0
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
pd1=pd1+1
enddo  
sele 1
use sybhz
repl all bys with 0
sele 2
use sybhz1
sele 1
upda on h from sybhz1 repl bys with sybhz1->bys
repl all ljs with bys+ljs
sele 1
use sybhz
2
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

						