行业应用

开发平台：

VFP

XSBDR.PRG：源码内容

							on key
use hzdw
count all to jsq
go top
set colo to w/n
@ 5,30 clea to jsq+6,53
set colo to 7+/2
@ 4,31 clea to jsq+5,54
set colo to w/b,w+/r
@ 3,36 say '下属报表读入'
for i=1 to jsq
@ 4+i,33 prom hzdw
if !eof()
skip
endif
endfor
menu to x
do case
  case x=0
   set colo to w+/n
  @ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍' 
  case x=1
    pd=1
    do xsbbdr_1
  case x=2
   pd=2
   do xsbbdr_1
   case x=3
    pd=3
   do xsbbdr_1
   case x=4
   pd=4
   do xsbbdr_1
   case x=5
   pd=5
   do xsbbdr_1
   case x=6
   pd=6
   do xsbbdr_1
   case x=7
   pd=7
   do xsbbdr_1
   case x=8
   pd=8
   do xsbbdr_1
   case x=9
   pd=9
   do xsbbdr_1
   case x=10
   pd=10
   do xsbbdr_1
   case x=11
   pd=11
   do xsbbdr_1
   case x=12
   pd=12
   do xsbbdr_1
endcase  
set path to jqbb
on key label escape do Rquit
*set colo to w+/n
use
retu

						