西文FoxBASE错误信息的“汉化”

Author: 浙江赵亚均 Date: 1995-03-24

        为了能提示汉字信息，首先必须建立数据库ERROR.DBF，以贮存汉化后的错误信息。数据库包括二个字段：ERRORCODE N 4；ERRORMESS C 40。每条信息对应一错误代码。
        下面是相应的错误信息处理模块程序：
        错误信息处理模块：ERROR.PRG(命令行使用)
        set talk off
        err=error()
        sele 0
        use error inde error
        seek err
        ??repl(chr(7),2)
        if eof()
        ? '错误代码：['+ltrim(str(error();4))+']';
        +message()
        else
        ?'错误代码：['+ltrim(str(erroreade,4))+']';
        +errormess
        endif
        use
        set talk on
        retu
        为使FoxBASE一进入即自动调用上述程序，须在CONFIG.FX中加入COMMAND=DO INSTALL命令。INSTALL程序如下：
        错误信息处理模块安装程序：INSTALL.PRG
        on error do error
        以上方法与程序已在COMPAQ 4/33S、UCDOS 3.0、西文FoxBASE+2.10环境下调试通过。
        (浙江  赵亚均)