第十章Foxpro应用程序.ppt

第一节 Foxpro程序设计 第二节 顺序结构程序设计 第三节 分支结构程序设计 第四节 循环结构程序设计 第五节 过程与过程调用 Foxpro程序的结构特点 第六节 系统环境参数设置 (2)建立固定次数的循环 例7、编写一个密码控制程序，如果三次输入均出错，则显示非法用户。（假定密码为“1234”） ****P7.PRG**** CLEAR SET TALK OFF N=1 DO WHILE N<=3 ? “请输入 密码：” SET CONSOLE OFF ACCEPT TO MM SET CONSOLE ON IF MM=“1234” N=N+1 ENDIF IF N>3 EXIT EXIT ENDDO USE RETURN ? “欢迎使用！” ? “非法用户！“ ENDIF 是否在屏 幕上输 出信 息 (3)对数据库进行检索 例8、按姓名查询读者库，显示读者的姓名、性别、单位和职称。 ****P8.PRG**** CLEAR SET TALK OFF USE 读者 DO WHILE .T. ACCEPT “请输入姓名：” TO XM LOCATE FOR 姓名=XM DO WHILE .NOT. EOF() ? “姓名 性别 单位 职称” ENDDO ENDDO USE RETURN ？姓名，性别，单位，职称 CONT IF .NOT. EOF() ENDIF WAIT “继续查找吗?(Y/N):” TO B IF UPPER(B)=“N” EXIT ENDIF 思考题 修改本例，用索引实现查询。 二、循环语句（FOR-NEXT/ENDFOR） 1、语句格式： FOR <循环变量>=<初值> TO <终值> [STEP<步长>] <命令序列1> [LOOP] <命令序列2> [EXIT] ENDFOR 2、举例 例9、某厂1980年的产值为100万元，计划年增长率为5%，计算并显示1985年、1990年、1995年、2000年的产值。 CLEAR SET TALK OFF ****P9.PRG**** V=100 R=0.05 ？“1980年：100.00” FOR I=1981 TO 2000 V=V*（1+R） IF I/5=INT（I/5） ？STR（I，4）+“年产值：”，V ENDIF ENDFOR RETURN 思考题 修改本例，用DO WHILE 语句实现。 三、扫描循环语句（SCAN-ENDSCAN） 1、语句格式： SCAN [<范围>] [FOR/WHILE<条件表达式> ] <命令序列1> [LOOP] <命令序列2> [EXIT] ENDSCAN 2、举例 例10、编程在图书库中，科学教育出版社的图书的数量和单价总和。 CLEAR SET TALK OFF ****P10.PRG**** USE 图书 DJHJ=0 SL=0 SCAN FOR DJHJ=DJHJ+单价 SL=SL+1 ENDSCAN RETURN 思考题 修改本例，用统计命令实现。 ？“数量共：”，SL ？“单价总和为：”，DJHJ 出版单位=“科学教育出版社” 一、什么是过程？ 程序：将Foxpro提供的若干条命令、函数和程序控制语句组成一组有序的集合，并以文件的形式存入磁盘。这就是程序文件（或称命令文件）。 在Foxpro的命令文件中，为了使程序简洁清晰，充分发挥结构程序设计的优越性，将一个相对独立的程序段作为一个整体，同样以命令文件的形式保存，被其它命令文件通过DO命令调用，此时，被调用的命令文件就被称为子程序。 过程：就是我们通常所说的子程序。 一个过程中至少应有一条返回语句RETURN。 过程的返回： 命令格式：RETURN [TO MASTER] [TO <过程名>] 二、过程调用 在Foxpro中存在着两类不同的过程，因而过程调用也有两种方法。 1、外部过程调用 外部过程：是指以磁盘文件（.PRG）的形式单独存储在磁盘上的子程序。 （1）、主程序调用子程序，无参数传递。 调用的格式为： 子程序调用 DO <子程序文件名> （2）、主程序调用子程序，并且向子程序传递参数。 DO <子程序文件名> WITH <参数表> 调用的格式为： 过程调用 实参 为接收主程序传递的参数，在子程序的第一句语句必须是： PARAMETERS <参数表> 形参 例1：编程计算长方体的体积 ***C1。PRG主程序*** ***Vcale.PRG子程序*** CLEAR SET TALK OFF STORE 0 TO V INPUT “请输入长：”