FoxBASE+错误捕获程序 朱才军 1997-01-01 #3　　对于ＦｏｘＢＡＳＥ＋的用户来讲，程序调试是件非常麻烦的事情，特别是大的管理系统。因为ＦｏｘＢＡＳＥ＋不像ＰＡＳＣＡＬ、Ｃ等高级语言那样由编译系统检查错误，并能直接返回到源程序中，ＦｏｘＢＡＳＥ＋只能在运行时查错，修改后不能返回到源程序。前一个问题是系统本身的问题，不能解决，但后一个问题是可以由用户自行解决的，笔者自己编制了一个小程序，具体如下： #3　　＊＊错误捕获及处理程序＊＊ＥＲＲ．ＰＲＧ＊＊ 　　ＣＬＥＡＲ 　　？＇程序＇＋ＳＹＳ（１６，１）＋＇中出现错误！＇ 　　？＇出错语句＇＋ＳＴＲ（ｅｒｒｏｒ（），４） 　　？＇错误信息：＋ＭＥＳＳＡＧＥ（） 　　ａ＝ＳＹＳ（１６，１） 　　＊将错误语句所在程序名赋给ａ 　　ＹＮ＝＇　＇ 　　＠５，０　ＳＡＹ　＇修改（Ｍ）　跳过（Ｊ）　退出（Ｑ）　请选择！＇ 　　＠５，３０　ＧＥＴ　ＹＮ　ＶＡＬＩＤ　ＹＮ　＄　＂ＭＪＱ＂　ＰＩＣＴ　＇！＇ 　　ＲＥＡＤ 　　ＤＯ　ＣＡＳＥ 　　ＣＡＳＥ　ＹＮ＝＇Ｍ＇ 　　ＭＯＤＩ　ＣＯＭＭ　＆ａ 　　ＲＥＴＵＲＮ 　　＊选择＇Ｍ＇，则返回原程序进行修改，修改完后存盘，系统自动从原错误处开始继续运行程序 　　ＣＡＳＥ　ＹＮ＝＇Ｙ＇ 　　ＲＥＴＵＲＮ 　　＊选择＇Ｊ＇，则忽略错误，继续向下执行程序 　　ＣＡＳＥ　ＹＮ＝＇Ｑ＇ 　　ＱＵＩＴ 　　＊选择＇Ｑ＇，则关闭所有文件，并退出系统 　　ＥＮＤＣＡＳＥ 　　ＲＥＴＵＲＮ 　　使用该程序，只需将该程序拷到需调试程序所在的目录下，然后在需调试程序首部加上命令语句ＯＮ　ＥＲＲＯＲ　ＤＯ　ＥＲＲ就可以了 #3　　调用举例 　　＊＊ＥＸＰ．ＰＲＧ＊＊ 　　ＯＮ　ＥＲＲＯＲ　ＤＯ　ＥＲＲ 　　？Ａ 　　？Ｂ 　　？Ｃ 　　ＯＮ　ＥＲＲＯＲ 　　ＲＥＴＵＲＮ