FOXPRO的一种容错技术

Author: 应森林 Date: 1997-01-01

　　常有一类错误，例如要访问的文件不存在或文件错误，外部设备未准备好，外存空间不够，数据溢出等，往往不会被ＦＯＸＰＲＯ系统所发现。对这类的错误较常用的容错技术是测试法。所谓测试法是指用ＦＯＸＰＲＯ的测试函数为程序中所要进行的操作，检测其必需满足的前提条件，若不满足，该操作进行进将发生错误。它是一种预测，预心程序运行错误的有效方法。
　　常用几种测试函数容错实例
　　１．ＦＩＬＥ（）检测文件是否存在，以防打开文件时出现“文件不存在”的错误
　　ＩＦ　ＦＩＬＥ（“ＡＢＣ．ＤＢＦ”）　
　　　　　ＵＳＥ　ＡＢＣ．ＤＢＦ
　　ＥＬＳＥ
　　　　？“ＡＢＣ．ＤＢＦ文件不存在”
　　ＥＮＤＩＦ
　　２．ＥＯＦ（）检测记录是否已到库文件尾，以防指针定位库文件尾后，操作出错。
　　ＧＯ　ＴＯＰ
　　ＤＯ　ＷＨＩＬＥ　．Ｔ．
　　　　．
　　　　．
　　　　ＳＫＩＰ　
　　　　ＩＦ　ＥＯＦ（）
　　　　ＥＸＩＴ　
　　　　ＥＮＤＩ
　　ＥＮＤＤＯ
　　３．ＹＴＰＥ（）检测变量的类型，以防对不迪型变量的误操作
　　ＵＳＥ　ＡＢＣ．ＤＢＦ　
　　ＩＦ　ＴＹＰＥ（“基本工资”）＝“Ｎ”
　　ＲＥＰＬＡＣＥ　ＡＬＬ　基本工资　ＷＩＴＨ　基本工资＋基本工资＊０．１　
　　ＥＮＤＩＦ
　　４．ＤＩＳＫＳＰＡＣＥ（）检测磁盘空间的字节数，以房文件操作时“外存空间不够”。
　　ＵＳＥ　ＡＢＣ．ＤＢＦ　
　　ＳＩＺＥ＝３３＋３２＊ＦＣＯＵＮＴ（）＋ＲＥＣＯＵＮＴ（）＊ＲＥＣＳＩＺＥ（）　
　　ＩＦ　ＤＩＳＫＳＰＡＣＥ（）＜ＳＩＺＥ　
　　？　“磁盘空间不够”
　　ＲＥＲＵ
　　ＥＮＤＩＦ　
　　ＣＯＰＹ　ＴＯ　Ａ：ＣＣＣ．ＤＢＦ
　　．
　　．
　　其中ＦＣＯＵＮＴ（）求字段数，ＲＥＣＯＵＮＴ（）求记录个数，ＲＥＣＳＩＺＥ（）求记录长度。
　　５．ＵＳＥＤ（）测试数据库文件是否正在使用，若对非当前库操作则会出错。
　　ＮＡ＝“ＡＢＣ．ＤＢＦ”　
　　ＩＦ　．ＮＯＴ．ＵＳＥＤ（）
　　？　ＮＡ＋“非当前数据库”
　　ＵＳＥ　＆ＮＡ
　　ＥＮＤＩＦ
　　６．ＳＹＳ（１３）（或ＰＲＩＮＴＳＴＡＴＵＳ）检测打印机状态是否准备好，若未准好提醒用户纠正。
　　ＤＯ　ＷＨＩＬＥ　ＳＹＳ（１３）＝“ＯＦＦＬＩＮＥ”
　　ＷＡＩＴ　“请把打印机准备好，按任一健”
　　ＥＮＤＤＯ
　　ＳＥＴ　ＰＲＩＮＴ　ＯＮ