给FoxBASE+应用系统加一个FoxSHELL

四川   蒲建昕
1996-02-09

        *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了。
 
 