屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进
& set stat off
set heading off
set talk off
set colo to 7/1
clea
use XTSM
set colo to +5/1
@2,25 say '叶片编码库浏览:'
set colo to 7/2
@3,0 say space(80)
@19,0 say space(80)
set colo to 7/0
@4,0 clea to 18,79
LLKZ=.T.
DO WHILE LLKZ
go top
set colo to gr+/1
@20,0 say space(80)
@20,20 say '按任意键向后翻页......'
set colo to 7/0
if reccount()< =14
@4,0 clea to 18,79
@3,0 say "
disp off all
else
@4,0 clea to 18,79
@3,0 say "
disp off next 14
@20,0 say space(10)+'1'
nothing=inkey(0)
restnum=reccount()-14
N=0
do while restnum> 14
@4,0 clea to 18,79
@3,0 say "
skip
disp off next 14
N=N+1
@20,0 say N+1
restnum= reccount()-14*N
nothig=inkey(0)
enddo
@4,0 clea to 18,79
@3,0 say "
disp off next restnum
endif
set colo to gr+/1
@20,0 say space(80)
@20,15 say '已到结尾!'
YORN='Y'
@20,30 say '再浏览一遍?(Y/N)' get YORN
read
if YORN='Y'.or. YORN='y'
LLKZ=.T.
set colo to 7/1
@20,0 say space(80)
set colo to 7/0
else
LLKZ=.F.
set colo to 7/1
clea
set colo to 3+/1
@10,25 say '浏览结束!'
set colo to /2
@8,20 to 12,44
set colo to 7/1
@20,20 say ' 按任意键退出......'
nothing=inkey(0)
clea
return
endif
ENDDO
* use