行业应用

开发平台：

VFP

XSMXBSR.PRG：源码内容

							*销售明细表汇总输入
hide popup pop2
hide popup pop2_1
hide menu mainmenu
set clock to 0,69 
deactivate window win
on key 
set sysmenu off
set colo to w/n
clea
p=1
********
sele 1
if file(wj)
   use &wj
  else
   ! copy jqbbxsmxb.dbf &wj >nul
    use &wj
endif
sele 3
use xsmxbjs
sele 1
skip 2 && 第3行开始输入
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

						