屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进

飞速资源网| http://www.ff70.com |软件技巧|人气:774次| 10-12

屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进 BROWS1.PRG
        & 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

如果觉得《屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进》软件技巧,办公软件技巧,软件测试面试技巧,办公软件使用技巧不错，可以推荐给好友哦。

本文Tags： 电脑教学 - 软件技巧,办公软件技巧,软件测试面试技巧,办公软件使用技巧,