行业应用

开发平台：

VFP

XSBHZCX.PRG：源码内容

							*负债表汇总输入
*define WINDOW   output FROM 0,0 TO 25,79 
*ACTIVATE WINDOW output
hide popup pop5
hide menu mainmenu
set clock to 0,69 
deactivate window win
on key 
set sysmenu off
set colo to w/n
clea
p=1
********
if file('xsmxbhz.dbf')
   use xsmxbhz
  else
   ! copy jqbbxsmxb.dbf xsmxbhz.dbf >nul
    use xsmxbhz
endif
skip 2
do xsbhzsr
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

						