SCAN循环在程序中的使用

１授课顺序：13教学目标：学会SCAN循环在程序中的使用，过程的定义、调用以及参数的传递。教学要求：掌握SCAN循环在程序中的使用掌握过程的定义、调用以及参数的传递。教学重点与难点：学会过程的定义、调用以及参数的传递。教学手段：讲授法、演示法、任务驱动授课学时：2学时教学内容：3SCAN-ENDSCAN语句语句格式：SCAN[范围][FOR条件表达式]命令序列[LOOP][EXIT]ENDSCAN例如：在DA1.DBF表中，查找职称是“讲师”的记录，计算满足条件的记录个数和工资的总和。SETTALKOFFCLEARUSEDA1S=0N=0SCANFOR职称=“讲师”S=S+工资N=N+1ENDSCANUSE？“记录个数为：”，N？“工资和为：”，SSETTALKONRETURN7.3过程及其调用7.3.1过程的建立1、定义过程语法格式：PROCDURE|FUNCTION过程名２命令序列[RETURN[表达式]][ENDPROC|ENDFUNC]2、定义过程文件PROCEDURE过程名1命令序列1[RETURN[表达式]][ENDPROC|ENDFUNC]PROCEDURE过程名2命令序列2[RETURN[表达式]][ENDPROC|ENDFUNC]……PROCEDURE过程名n命令序列[RETURN[表达式]][ENDPROC|ENDFUNC]7.3.2过程的调用1、调用存放在程序文件里的过程这又可分为两种情况。（1）被所存放的程序文件调用Do过程名过程名()（2）被其它命令文件调用步骤:（1）先打开此程序文件：SETPROCEDURETO程序文件名（2）然后调用其中的过程：Do过程名过程名()2、调用过程文件中的过程3、关闭过程文件语句语句格式1：SETPROCEDURETO语句功能：关闭所有打开的过程文件。语句格式2：RELEASEPROCEDURE过程文件1[,过程文件2,...]语句功能：关闭个别过程文件。*主程序：F1.PRG?“主程序开始”SETPROCEDURETOF3F2()DOP1?“主程序结束”*过程P1PROCEDUREP1?“过程P1开始”?“调用P3()”?“返回值：”，P3()?“过程P1结束”ENDPROC*子程序：F2.PRG３?“子程序F2开始”?“调用P2（）”X=P2()?“返回值为：”,X?“子程序F2结束”RETURN*过程文件：F3.PRGPROCEDUREP2RETURNPROCEDUREP3RETURN1007.3.3参数传递1、主程序向过程传递参数的命令：命令格式1：DO过程名WITH实参1[,实参2,…]命令格式2：过程名WITH实参1[,实参2,…]2、在过程中接收参数的命令命令格式1：PARAMETERS形参变量1[,形参变量2,…]命令格式2：LPARAMETERS形参变量1[,形参变量2,…]7.4文件操作7.4.1显示文件目录命令格式：DIR[盘符：][路径][文件名]命令功能：显示磁盘文件目录7.4.2复制文件1.对已打开的表进行复制命令格式：COPYTO新文件名[范围][FIELDS字段名表][FOR条件]命令功能：按照给定的范围、字段名表和条件，将当前表的相应内容复制到新表中去。2.表结构的复制命令格式：COPYSTRUCTURETO新文件名[FIELDS字段名表]命令功能：将已打开的表的结构复制到目标文件中去，而不复制任何记录。3.磁盘文件的复制命令格式：COPYFILE源文件名TO目标文件名命令功能：将未打开的磁盘文件复制为另一个磁盘文件。7.4.3删除文件命令格式：ERASE文件名４DELETEFILE文件名命令功能：从磁盘上删除指定的任何一种文件。两个命令功能相同。说明：该命令不能删除已打开的文件。例如：将表CD.DBF从磁盘中删除。ERASECD.DBF小结：本次课主要讲述了SCAN循环在程序中的使用，以及参数的传递过程的定义、与调用。对于没学过c语言的同学来说，这部分内容叫困难！作业：P140—3(4)、(5)