给FoxBASE+应用系统加一个FoxSHELL

标签：办公软件技巧,软件测试面试技巧,办公软件使用技巧,http://www.duowen123.com 给FoxBASE+应用系统加一个FoxSHELL,
        *TYPE FOXSHELL.PRG
        *FoxBASE+ V2.1 SHELL
        SET TALK OFF
        SET STATUS ON
        CLEAR
        @0,30 SAY 'FoxBASE+ 2.1 SHELL'
        @2,0 SAY '请输入FoxBASE+命令：'
        ?      &&输出一个空行
        DO WHILE .T.
        R=ROW( )   &&注意：变量“R”与“C”不可与主程序中的各变量同名
        C=COL( )
        @23,27 SAY '命令“EXIT”返回主菜单'
        @ R,C SAY ''      &&把光标移到上一命令结束处
        ACCEPT 'FOX>' TO INSTRUCT      &&以“FOX>”作为命令提示符
        &INSTRUCT
        ENDDO
        CLEAR
        SET TALK ON
        RETURN
        用户只要在你的系统主菜单中加装一条“FoxSHELL”或“Fox命令”之类的菜单项，然后在菜单的调度执行程序中相应位置写入一句
        DOS FOXSHELL
        即可。当你选择菜单中的“FoxSHELL”项后，便能进入一个与原FoxBASE+相仿的运行环境。此外，还有一种热键激活的调用方式：在主菜单的调度程序中适当位置加入两句
        @23,0 SAY 'F10 进入FoxSHELL'
        ON KEY=324 DO FOXSHELL   &&'324'是功能键F10的返回值。
        这样，当你在自己的数据管理系统中操作时，便随时可按F10(也可定义其他热键)来调用本FoxSHELL了。

，给FoxBASE+应用系统加一个FoxSHELL