行业应用

开发平台：

VFP

XSMXBHZ.PRG：源码内容

							***
set colo  to /3
clos all
use hzdw
count all to jsq
use
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 '请稍候......'
! copy jqbbxsmxb.dbf xsmxbhz.dbf>nul
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
pd='xsmxb'+pd
if file(pd+'.dbf')
pd1=pd1+1
else 
*clea
@ 20,30 say pd+'表不存在!'
i=inkey(0)
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍

						