VFP实用第6章 程序设计基础.pptVIP

3. FOR EACH～ENDFOR语句 例6-7、显示数组中的所有数据 。 CLEAR DIMENSION a[10] FOR i=1 TO 10 a[i] = i*10+i ENDFOR FOR EACH b IN a ? b ENDFOR 返回 * 4. SCAN～ENDSCAN语句 格式：SCAN [范围] [FOR 条件] 语句序列 ENDSCAN 功能：扫描表中指定范围的记录，对每一条满足条件的记录，执行语句序列。 * 4. SCAN～ENDSCAN语句 例6-8 使用SCAN～ENDSCAN查找“2009-1”学期没有任课的教师名单。 CLEAR USE 教师任课 IN 2 USE 教师 IN 1 SCAN FOR 教师编号10000 10000是管理员的编号 MBH=教师编号 SELE 教师任课 LOCATE FOR 教师编号=MBH .AND. 学期=2009-1 IF .NOT.FOUND() ? 教师.教师编号,教师.姓名 ENDIF ENDSCAN CLOSE TABLES 返回 * 5. LOOP语句和EXIT语句 LOOP语句:当执行到LOOP语句时，它后面的语句序列将不再执行，直接返回循环的开始处，进行循环条件判断，决定进入下次循环或者结束循环。 EXIT语句:当执行到EXIT语句时，其后面的语句序列不再执行，直接退出循环。 * 5. LOOP语句和EXIT语句 例6-9、按学号查询学生信息。 CLEAR USE 学生 DO WHILE .T. ACCEPT 输入学号: TO xh 输入学号时,不加定界符 LOCATE FOR 学号=xh IF FOUND() DISP ELSE ? 该学生信息不存在 ENDIF WAIT 是否继续查询(Y/N) TO YN IF UPPER(YN)=Y LOOP ELSE EXIT ENDIF ENDDO USE 返回 * 6. 多重循环 在循环体的语句序列中还可以包含循环语句，称之为多重循环，也称为循环的嵌套。 例6-10、在屏幕上显示九九乘法表 CLEAR ? 九 九 乘 法 表 ? FOR a=1 TO 9 FOR b=1 TO a p=a*b ?? str(b,1)+*+str(a,1)+=+str(p,2)+ ENDFOR ? ENDFOR 返回 * 6.3 多模块程序设计 数据库应用程序通常是一个复杂的软件系统。 结构化程序设计方法采用自顶向下，逐步细化的思想，将系统的总体结构分解为相对独立的子模块，每个子模块又可以继续分解为下一级子模块……。 例如，成绩管理系统，可以分为数据维护、信息查询、报表预览等子系统，每个子系统又可以继续向下分解。 * 6.3 多模块程序设计 过程 函数 参数的传递 内存变量的作用域 返回 * 6.3.1 过程 1.过程的定义 格式：PROCEDURE 过程名 [PARAMETER 形参表] 语句序列 RETURN [ENDPROC] 2.过程的调用 格式：DO 过程名 [WITH 实参表] 说明：实参可以是常量、变量或表达式。实参与过程中的形参相对应，所以实参与形参的类型必须一致。 * 6.3.1 过程 例6-11 主程序及过程调用示例 CLEAR ? “主程序” DO P1 调用过程P1 ? “回到主程序” DO P2 调用过程P2 ? “主程序结束” * 主程序在此处结束，下面是子程序 PROCEDURE P1 ? “执行子程序P1” RETURN PROCEDURE P2 ? “执行子程序P2” RETURN * 6.3.1 过程 3.过程文件 过程文件是由若干过程组成的。 建立过程文件与建立程序文件的方法相同。 在调用过程之前先要打开包含它的过程文件。 打开过程文件 格式：SET PROCEDURE TO 过程文件1[,过程文件2……] [ADDITIVE] ADDITIVE：在打开过程文件时，不关闭原先已打开的过程文件。 关闭过程文件 格式1：CLOSE PROCEDURE 格式2：SET PROCEDURE TO * 6.3.1 过程 例6-12 将例6-