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

　　为了能提示汉字信息，首先必须建立数据库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环境下调试通过。
　　(浙江　赵亚均)