VFP6电子教案第5章(程序设计基础).ppt

5.3.7 提高程序的可靠性 所谓可靠的程序是指一个程序不仅能够完成设计的功能，还可以预料到可能发生的错误并进行排错处理。上面的程序包含有二个假设，只有满足了这两个条件，程序才能正常运行。这两个假设是：在当前目录中有STUDENT表，或者有一个打开的表；同时，STUDENT表中有“学号”字段，或者当前工作区中打开的表中有“学号”字段。如果事先指定打开表，就会限制程序的使用范围，最好的办法是在运行程序时，由用户根据情况决定打开哪个表。 下面是改进后的程序，它具备了预料并排除错误的功能： ACCEPT “请输入要处理的表文件名” TO TABNAMESR LtableOK=.F. 此变量确定程序正常运行的条件之一是否成立。 初始值为.F.，假设条件不成立。 LfieldOK=.F. 此变量确定程序正常运行的另一条件是否成立。 TABNAME=”” 定义一个变量用于保存表文件名 IF AT(“.”,TABNAMESR)=0 TABNAME=TABNAMESR+”.DBF” 使输入的文件名带有扩展名 ENDIF DO WHILE .T. IF FILE(TABNAME) 判断所输入的文件名是否存在。 USE (TABNAME) 打开所输入的表文件 LtableOK=.T. 将表的标志置为“.T.” EXIT 跳出循环体 ELSE =MESSAGEBOX(“当前目录中没有所输入的表文件！”,64,”表名错误！”) USE ? 显示“打开”对话框，重新选择表 IF USED() 判断是否将一个表打开 EXIT 若有表打开也跳出循环体 ENDIF ENDIF ENDDO *这部分代码检查当前表的每一个字段，直到发现有一个名为“学号”的字段， *发现该字段存在后，设置LfieldOK为.T.，同时执行EXIT命令跳出循环体， *否则LfieldOK变量仍为.F.。 FOR II=1 TO FCOUNT() IF FIELD(II)=”学号”.AND.TYPE(“学号”)=”C” LfieldOK=.T. EXIT ENDIF ENDFOR IF LtableOK.AND. LfieldOK SCAN cNumbVar=”” FOR II=1 TO LEN(学号) cCharacter=SUBSTR(学号,II,1) IF ISDIGIT(cCharacter) cNumbVar=cNumbVar+ ccharacter ENDIF ENDFOR REPLACE 学号 WITH cNumbVar ENDSCAN ENDIF 该程序最大的局限在于只能处理一个字段。若需要对一个字段名不是“学号”的字段进行同样的操作，就不得不从头开始检查程序，把全部的“学号”改为所要处理的字段名。 返 回 5.3.8 将程序定义为过程或函数 可以将删除字符串中非数字字符的程序代码转换成为函数，使其运行更可靠。所建立的函数返回字符串中的所有数字字符。 【例5-15】删除字符串中非数字字符示例过程： FUNCTION NUMBERONLY(CMIXEDVAL) cNumbVar=”” FOR II=1 TO LEN(CMIXEDVAL) cCharacter=SUBSTR(CMIXEDVAL,II,1) IF ISDIGIT(cCharacter) cNumbVar=cNumbVar+ ccharacter ENDIF ENDFOR RETURN cNumbVar ENDFUNC SCAN REPLACE FIELDNAME WITH NUMBERONLY(FIELDNAME) ENDSCAN 或者，可以更简单地写为： REPLACE ALL FIELDNAME WITH NUMBERONLY(FIELDNAME) 除了可以使用户在许多条件下使用这些代