电子教案数据库原理与应用（第3版）a9

1、第9章结构化程序设计简介 学习要点1、 程序的建立与执行2、 程序的分支结构与循环结构3、 子程序、自定义函数与过程4、 变量的作用域第9章结构化程序设计简介9.1 程序文件9.2 程序的控制结构9.3 多模块程序习题与参考答案第9章结构化程序设计简介 Visual FoxPro程序设计包括结构化程序设计和面向对象程序设计。前者是传统的程序设计方法，若使用这种方法来设计Visual FoxPro程序的用户界面，不仅难度大，而且十分麻烦。后者面向对象，用户界面可利用系统提供的辅助工具来设计，应用程序也可自动生成，但仍需用户编写一些过程代码。就此而言，结构化程序设计仍是面向对象程序设计的基础。9.

2、1 程序文件 Visual FoxPro将命令文件（有顺序要求的命令序列）称为程序文件或程序，本节主要介绍程序的建立、执行以及专用于程序文件中的若干命令。9.1.1 程序文件的建立与执行 1.程序文件的建立与修改 命令格式： MODIFY COMMAND 功能：打开文本编辑窗口，用来建立或修改程序文件。 说明：程序文件由Visual FoxPro命令组成。由用户指定，缺省的扩展名为 .prg。9.1.1 程序文件的建立与执行 关闭编辑窗口的方法有：按Ctrl+W键；按Esc键；在编辑窗口双击控制菜单按钮或单击关闭按钮。 按Ctrl+W键可将文件立即存盘并且退出编辑。 此外还可用文件菜单的“保存

3、”、“另存为”、“还原”选项来关闭编辑窗口。 文本编辑窗口也可以编辑由ASCII字符组成的非.prg文件。.prg文件是程序，可以运行，一般的文本文件则可读而不可运行。9.1.1 程序文件的建立与执行 2.程序的运行 命令格式： DO 功能：执行由表示的程序。 说明： 所谓执行程序，就是依次执行程序中的命令。例如DO js，其效果和命令窗口中依次键入并执行命令一致。9.1.1 程序文件的建立与执行 DO命令默认运行.prg程序，如果要运行的是.prg程序，DO命令中的只需取文件主名。要运行其它程序，中须包括扩展名，例如执行查询程序的命令为DO mczz.qpr。 Visual FoxPro程序

4、可以通过编译获得目标程序，目标程序是紧凑的非文本文件，运行速度快，并可起到对源程序加密的作用。9.1.1 程序文件的建立与执行 3.程序书写规则 命令分行 程序中每条命令都以回车键结尾，一行只能写一条命令。若命令需分行书写，应在一行终了时键入续行符“；”，然后按回车键。 命令注释 程序中可插入注释，以提高程序的可读性。 注释行以符号“*”开头，它是一条非执行命令，仅在程序中显示。命令后也可添加注释，这种注释以符号“”开头。9.1.1 程序文件的建立与执行 4.求解的基本逻辑与程序通用性 求解的基本逻辑 Visual FoxPro程序多数用于数据处理，解决问题的基本逻辑是：输入数据处理数据输出数

5、据。 程序的通用性 程序的通用性指程序对多种场合的适应性，通用性好的程序的应用范围较广。只能计算半径为8的圆面积程序谈不上通用性，若将程序设计成能对任意半径算出圆面积，则通用性就大力增强。要做到这一点并不困难，只要将程序中原始数据定值改为由用户按需输入即可。 9.1.2 程序文件中的专用命令 在程序文件中，常常要用到一些在交互方式中不需要甚至不能执行的专用命令。本小节仅介绍其中若干较常使用的命令。 1.程序结尾的专用命令 程序的末尾可放一条RETURN命令，它能使程序执行结束，并返回到调用它的上级程序继续执行，若无上级程序则返回到命令窗口。RETURN命令一般允许缺省。 另一条命令为CANCE

6、L，它能使程序运行终止，清除程序的私有变量，并返回到命令窗口。9.1.2 程序文件中的专用命令 2.输入输出专用命令 传统的专用数据输入命令有INPUT，ACCEPT等多种，数据输出命令有TEXTENDTEXT命令，现均已很少使用。这里仅介绍定位输入输出命令。 命令基本格式： SAYGETDEFAULT 功能：在屏幕的指定行列输出SAY子句的表达式值，并可修改GET子句的变量值。9.1.2 程序文件中的专用命令 说明： 表示数据在窗口中显示的位置，行自顶向下编号，列自左向右编号，编号均从0开始。行与列都是数值表达式，还可使用十进制小数精确定位。 SAY子句用来输出数据，GET子句用来输入及编辑

7、数据。若缺省SAY子句，GET变量值从指定位置开始显示；含有SAY子句时先显示其表达式值，然后空开一格显示GET变量的值。SAY和GET子句数据显示时的背景色不一样，前者以标准型显示，后者以增强型显示。9.1.2 程序文件中的专用命令 GET子句中的变量必须具有初值，或用DEFAULT子句的指定初值。初值一旦指定。该变量的类型在编辑期间就不能改变，字符型变量的宽度与数值型变量的小数位数也无法再变。 GET子句的变量必须用READ命令来激活，也就是说，在若干带有GET子句的定位输入输出命令后，必须遇到READ命令才能编辑GET变量。当光标移出这些GET变量组成的区域时READ命令执行结束。9.1

8、.2 程序文件中的专用命令 3.WAIT命令 命令格式： WAITTOWINDOWAT, 功能：暂停程序的运行，直到用户输入一个字符。也可只用于输出一条提示信息。 说明： WAIT命令使Visual FoxPro程序暂停运行，等用户按任一键（或回车）后，程序继续运行。9.1.2 程序文件中的专用命令 用来保存键入的字符，如果不选TO子句，则输入的数据不予保存。 如果缺省，则执行命令后屏幕显示“按任意键继续”，提示按任一键将继续运行。 WINDOW子句可使主屏幕上出现一个WAIT提示窗口，位置由AT选项的，来指定。若缺省AT选项，将显示在主屏幕右上角。9.2 程序的控制结构 与其它高级语言程序相

9、似，Visual FoxPro程序也有3种基本控制结构，即：顺序结构、分支结构和循环结构。顺序结构按命令的书写顺序依次执行；分支结构能根据指定条件的当前值在两条或多条程序路径中选择一条执行；而循环结构则由指定条件的当前值来控制循环体中的语句（或命令）序列是否要重复执行。下面分别介绍它们在Visual FoxPro中的描述方式。 9.2.1 顺序结构 顺序结构的程序运行时按照语句排列的先后顺序，一条接一条地依次执行，它是程序中最基本的结构。例9-1就是一个顺序结构的例子。9.2.2 分支结构 计算机具有判别功能。判别是靠程序实现的，Visual FoxPro能用条件语句或多分支语句构成分支结构，

10、并根据条件成立与否来决定程序执行的流向。 条件语句是一个具有两个分支的程序结构，又可分成带ELSE与不带ELSE两种格式。 1.简单的条件语句 语句格式： IF ENDIF9.2.2 分支结构 2.带ELSE的条件语句 IF ELSE ENDIF 功能：根据的逻辑值，选择执行两个语句序列中的一个。若值为真，先执行，然后再执行ENDIF后面的语句；若其值为假，先执行，然后再执行ENDIF后面的语句。9.2.2 分支结构3.多分支语句 语句格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE9.2.3 循环语句 在处理实际问题的过程中，有时需要重复执行相同的操作，

11、即对一段程序进行循环操作，这种被重复的语句序列称为循环体。 Visual FoxPro具有一般程序设计语言都有的WHILE条件循环语句和FOR步长循环语句，此外还有专用于对表进行处理的SCAN扫描循环语句。循环执行的次数一般由循环条件决定，但在循环体中可插入跳出语句EXIT来结束循环，也可以用LOOP语句来继续循环。9.2.3 循环语句 1.条件循环 语句格式： DO WHILE ENDDO 说明:语句格式中的称为循环条件，称为循环体。语句执行时，若循环条件为假就结束循环，然后执行ENDDO后面的语句；为真则执行循环体，一旦遇到ENDDO就自动返回到DO WHILE重新判断循环条件是否成立，以

12、决定是否继续循环。9.2.3 循环语句例9-4 编程显示teacher.dbf中所有男教师的姓名。* e9-4.prgUSE teacherDO WHILE NOT EOF() IF 性别=“男” ？姓名 ENDIF SKIP ENDDO USE9.2.3 循环语句 2.步长循环 语句格式： FOR = TO STEP ENDFORNEXT 说明:语句格式中的称为循环变量，、分别称为初值、终值、步长。语句执行时，通过比较循环变量值与终值来决定是否执行。步长为正数时，若循环变量值不大于终值就执行循环体；步长为负数时，若循环变量值不小于终值就执行循环体。执行一旦遇到ENDFOR或NEXT，循环变量

13、值加上步长，然后返回到FOR重新与终值比较。9.2.3 循环语句 例9-5 编写计算S=1+2+3+100的程序。 * e9-5.prg s=0 s为累加器，初值为0 FOR i=1 TO 100 i为计数器，初值为1 s=s+i 累加 NEXT ?“s=”,s9.2.3 循环语句 3.扫描循环 语句格式： SCAN FOR WHILE ENDSCAN 说明:该语句针对当前表进行循环，子句表示记录范围，缺省值为ALL。语句执行时在中依次寻找满足FOR条件或WHILE条件的记录，并对找到的记录执行。9.2.3 循环语句例9-6 根据例9-4的要求，用扫描循环语句编程。 * e9-6.prg US

14、E teacher SCAN FOR 性别=“男” ？姓名 ENDSCAN USE9.2.3 循环语句 4.循环辅助语句 在各种循环语句的循环体中可以插入LOOP和EXIT语句，前者能使执行转向循环语句头部继续循环；后者则用来立即退出循环，转去执行ENDDO、ENDFOR或ENDSCAN后面的语句。 例9-7 编程计算S=1+2+3+100，并求1100之间奇数之和。9.2.3 循环语句 * e9-7.prg STORE 0 TO i,s,t DO WHILE i100 i=i+1 s=s+i 累加i值 IF INT(i/2)=i/2 i为偶数时条件值为.T. LOOP ENDIF t=t+i

15、 累加奇数 ENDDO ?“1+2+3+100=”,s ?“1100奇数和为：”，t 9.2.3 循环语句 5.多重循环 若一个循环语句的循环体内又包含其它循环，就构成了多重循环，也称为循环嵌套。较为复杂的问题往往要用多重循环来处理。 例9-8 在teacher.dbf中找出所有未婚教师的姓名、性别与部门，并要求在各输出行下显示一行虚线。9.2.3 循环语句 * e9-8.prg CLEAR USE teacher SCAN FOR NOT 婚否 外循环 ?姓名+SPACE(3)+性别+SPACE(3)+部门 ？ 起换行作用 FOR i=1 TO 30 内循环 ?“-” 内循环的循环体 END

16、FOR 内循环结束语句 ENDSCAN 外循环结束语句 USE程序执行结果如下：赵海东 男 23 王 强 男 22 李 东 男 23 9.3 多模块程序 应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序和自定义函数。本节介绍模块的构成及调用方法，多模块程序中变量的作用域，以及结构化程序设计的概念。 9.3.1 子程序 1.调用与返回 对于两个具有调用关系的程序文件，常称调用程序为主程序，被调用程序为子程序。 已知执行DO命令能运行VISUAL FOXPRO程序，其实DO命令也可用来执行子程序模块。主程序执行时遇到DO命令，执行就转向子程序，称为调用

17、子程序。子程序执行到RETURN语句（或缺省该语句），就会返回到主程序中转出处的下一语句继续执行程序，称为从子程序返回，或简称返主。9.3.1 子程序 2.带参数子程序的调用与返回 DO命令允许带一个WITH子句，用来进行参数传递。 命令格式： DO 程序名1 WITH参数表 IN 程序名2 说明： 参数表中的参数可以是表达式，但若为内存变量必须具有初值。 当程序名1是IN子句程序名2中的一个过程时，DO命令调用该过程。 9.3.1 子程序 调用子程序时参数表中的参数要传递给子程序，子程序中也必须设置相应的参数接收语句。VISUAL FOXPRO的PARAMETERS命令就具有接收参数和回送参

18、数值的作用。 命令格式： PARAMETERS 参数表 功能：指定内存变量以接收DO命令发送的参数值，返主时把内存变量值回送给调用程序中相应的内存变量。9.3.1 子程序例9-9 设计一个计算圆面积的子程序，并要求在主程序中带参数调用它。主程序：* e9-9.prgymj=0 5,10 SAY “请输入半径：” GET bj DEFAULT 0READDO js WITH bj,ymj 调用子程序 ?“ymj=”,ymj 显示圆面积 RETURN子程序：* js.PRG PARAMETERS r,s s=PI()*r*r Visual FoxPro的PI()函数返回值 RETURN 返主9.3

19、.1 子程序 3.子程序嵌套 主程序与子程序的概念是相对的，子程序还可调用它自己的子程序，即子程序可以嵌套调用。Visual FoxPro的返回命令包含了因嵌套而引出的多种返回方式。 命令格式： RETURN TO MASTER|TO 程序文件名 说明:命令格式中的TO MASTER选项，使返主时直接返回到最外层主程序；可选项TO 程序文件名强制返回到指定的程序文件。 顺便指出，任何时候要退出Visual FoxPro，只要执行命令QUIT。9.3.2 自定义函数 1.自定义函数的建立 自定义函数的定义格式如下： FUNCTION函数名 PARAMETERS参数表 语句序列 RETURN表达式

20、9.3.2 自定义函数 说明： 若使用FUNCTION语句来指出函数名，表示该函数包含在调用程序中。若缺省该语句，表示此函数是一个独立文件，函数名将在建立文件时确定，其扩展名默认为.prg，并可使用命令MODIFY COMMAND函数名来建立或编辑该自定义函数。还需注意，自定义函数的函数名不能和Visual FoxPro系统函数同名，也不能和内存变量同名。 语句序列组成为函数体，用于进行各种处理；简单的函数其函数体也可为空。 RETURN语句用于返回函数值，其中的表达式值就是函数值。若缺省该语句，则返回的函数值为.T.。 自定义函数与系统函数调用方法相同，其形式为： 函数名参数表9.3.2 自

21、定义函数 例9-10 设计一个自定义函数，用来求一元一次方程AX+B=0的根。 自定义的求根函数root.prg如下： * root.prg PARAMETERS a,b RETURN IIF(a=0,“无解”,-b/a) 上述ROOT函数中的IIF函数是标准函数，其功能类似于IF语句。若A=0，它的值是字符串“无解”；否则返回一B/A的值。 现在使用下述命令调用ROOT函数来解决方程2X+4=0： ?“X:”,ROOT(2,4) 显示结果X=-29.3.2 自定义函数 2.数组参数的传递 在调用自定义函数或过程时，也可将数组作为参数来传递数据。此时发送参数与接收参数都使用数组名，发送参数数组

22、名前要加来标记，而作为接收参数的数组不需事先定义。9.3.3 过程 过程的格式如下： PROCEDURE过程名 PARAMETERS参数表 命令序列 RETURN 说明:从格式可知，过程是以PROCEDURE开头，并标出过程名的程序或程序段序列是过程体。与程序调用一样，过程也用DO命令调用。9.3.3 过程例9-11 调用过程文件中的过程示例。主程序：* e9-11.prg ymj=05,10 SAY“请输入半径：” GET bj DEFAULT 0READDO js WITH bj,ymj IN js1 ?“ymj=”,ymj 过程文件： * js1.prg PROCEDURE js PARAMETERS r,s s=PI()*r*r 在过程中也可调用其它程序模块。9.3.4 变量的作用域 1.公共变量 在任何模块中都可使用的变量称为公共变量，公共变量可用下述命令来建立。 命令格式： PUBLIC内存变量表 2.私有变量 Vi