《数据库程序设计》第八章.ppt

《《数据库程序设计》第八章.ppt》由会员分享，可在线阅读，更多相关《《数据库程序设计》第八章.ppt（58页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结1第八章第八章 结构化程序设计结构化程序设计 教学内容：结构化程序设计方法；程序中专用命教学内容：结构化程序设计方法；程序中专用命令；程序文件操纵方法；三种控制结令；程序文件操纵方法；三种控制结构的原理、描述、设计与实现；子程构的原理、描述、设计与实现；子程序原理、定义、调用、实现；程序中序原理、定义、调用、实现；程序中数据量使用规则。数据量使用规则。重重 点：三种控制结构的原理、描述、设计与点：三种控制结构的原理、描述、设

2、计与实现；子程序原理、定义、调用、实实现；子程序原理、定义、调用、实现。现。难难 点：三种控制结构和子程序的设计与实现。点：三种控制结构和子程序的设计与实现。数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结28.1 程序文件的使用程序文件的使用8.2 程序文件中的交互式输入输出命令程序文件中的交互式输入输出命令8.3 程序的基本结构程序的基本结构8.4 多模块程序多模块程序第八章第八章 结构化程序设计结构化程序设计 数据库程序设计数据库程序设计课程组编制课程组编制 安徽工

3、程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结38.1 程序文件的使用程序文件的使用VFP的三种工作方式的三种工作方式:菜单方式菜单方式命令方式命令方式程序方式程序方式8.1.1 程序文件的建立程序文件的建立格式格式:modify command 功能功能:打开程序编辑窗口打开程序编辑窗口,用来建立或修改程序用来建立或修改程序.说明说明:1.程序文件的扩展名为程序文件的扩展名为.prg2.关闭编辑窗口时按关闭编辑窗口时按Ctrl+w或编辑窗口右上角的关或编辑窗口右上角的关闭按钮保存关闭闭按钮保存关闭,按按ESC不保存关闭不保

4、存关闭.数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结48.1 程序文件的使用程序文件的使用8.1.2 程序的运行程序的运行格式格式:do 举例：计算半径为举例：计算半径为3的圆面积的圆面积需完成以下操作：需完成以下操作：给出圆的半径r 按公式S=*r*r 计算出圆面积 输出圆面积对应程序代码如下：对应程序代码如下：r=3 s=*r*r？”圆面积=”，s问题的求解过程问题的求解过程:输入数据输入数据 处理数据处理数据 输出数据输出数据数据库程序设计数据库程序设计课程组编

5、制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结58.2 程序文件中的交互式输入输出命令程序文件中的交互式输入输出命令定位输入输出命令定位输入输出命令格式：格式：SAY GET 功能：在屏幕的指定行列输出功能：在屏幕的指定行列输出SAY子句的表达式值子句的表达式值,并可并可修改修改GET子句的变量值子句的变量值说明：说明：表示数据在窗口中显示的位置，行列都是数值表表示数据在窗口中显示的位置，行列都是数值表达式达式 SAY子句用于输出提示信息子句用于输出提示信息 GET子句用于输入及编辑数据，子句用于输入及编

6、辑数据，GET子句中的变量必须具子句中的变量必须具有初值，数值型一般为零，字符型一般为若干个空格。有初值，数值型一般为零，字符型一般为若干个空格。GET子句的变量必须用子句的变量必须用READ命令来激活，即：在若干带命令来激活，即：在若干带有有GET子句的定位输入输出命令后，必须遇到子句的定位输入输出命令后，必须遇到READ命令命令才能编辑才能编辑GET变量变量数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结68.2 程序文件中的交互式输入输出命令程序文件中的交互式输入输

7、出命令WAIT命令命令格式：格式：WAIT TO WINDOW AT，TIMEOUT功能：暂停程序的运行，直到用户输入功能：暂停程序的运行，直到用户输入一个字符一个字符,也可用也可用于输出一条提示信息于输出一条提示信息说明：说明：显示在屏幕上，若缺省则显示显示在屏幕上，若缺省则显示“按任意间继续按任意间继续”TO子句中，子句中，用来保存键入的字符用来保存键入的字符,如本句缺省如本句缺省则输入的字符不保存则输入的字符不保存 WINDOW子句使主屏幕上出现一个提示窗口，位置可由子句使主屏幕上出现一个提示窗口，位置可由AT子句决定，若子句决定，若AT子句缺省，子句缺省，将显示在屏幕右上将显示在屏幕右

8、上角角TIMEOUT：设定等待时间（秒数），超时会自动往下执行：设定等待时间（秒数），超时会自动往下执行数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结7 例例:在命令窗口输入命令在命令窗口输入命令wait aa to x?xwait aa to x windows at 5,5?xwait aa to x windows at 5,5 timeout 5?x数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简

9、介章节简介重点难点重点难点学习指导学习指导章节小结章节小结88.2 程序文件中的交互式输入输出命令程序文件中的交互式输入输出命令INPUT格式：格式：INPUT TO 说明：说明：等待用户从键盘输入数据，并将其送入内存变量等待用户从键盘输入数据，并将其送入内存变量用户数据可为用户数据可为任何类型任何类型，但不能为空，但不能为空用户以回车键结束输入状态，程序自动向下执行用户以回车键结束输入状态，程序自动向下执行为显示出来的用户提示为显示出来的用户提示ACCEPT格式：格式：ACCEPT TO 说明：说明：等待用户从键盘输入等待用户从键盘输入字符串字符串，并将其送入内存变量，并将其送入内存变量用户

10、输入字符串时不需要使用定界符用户输入字符串时不需要使用定界符用户以回车键结束输入状态，程序自动向下执行用户以回车键结束输入状态，程序自动向下执行若用户不输入任何字符串，直接回车，则将空串赋给内存变量若用户不输入任何字符串，直接回车，则将空串赋给内存变量为显示出来的用户提示为显示出来的用户提示数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结98.3 程序的控制结构程序的控制结构程序的基本程序的基本控制结构控制结构循环循环顺序顺序分支分支/选择选择一、顺序结构一、顺序结构 运

11、行程序时，按语句排列的先后顺序，运行程序时，按语句排列的先后顺序，一条接一条地一条接一条地依次依次执行。执行。数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结顺序结构程序设计示例顺序结构程序设计示例注注:1)一行只能写一条命令一行只能写一条命令,以回车键结束。以回车键结束。2)SET TALK ON|OFF显示或取消执行状态信息显示或取消执行状态信息10SET TALK OFFCLEARUSE 成绩成绩AVERAGE 成绩成绩 TO XLIST FOR 成绩成绩XUSES

12、ET TALK ON数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结11SET TALK OFFCLEARINPUT“请输入第一个数请输入第一个数:”TO XINPUT“请输入第二个数请输入第二个数:”TO YM=MAX(X,Y)?”最大的数是：最大的数是：”，MSET TALK ON输入任意两个数，编写程序求其中最大值输入任意两个数，编写程序求其中最大值数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章

13、节简介重点难点重点难点学习指导学习指导章节小结章节小结12二、分支（选择）结构二、分支（选择）结构 在两条或多条程序路径中选一条执行在两条或多条程序路径中选一条执行1、简单的条件语句、简单的条件语句格式：格式：IF ENDIF功能：功能：若若为真，为真，执行执行，否则执行，否则执行ENDIF之后的语句之后的语句逻辑表达式逻辑表达式为真？为真？语句序列语句序列ENDIF后面的语句后面的语句YN数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结13INPUT“请输入第一个数请输

14、入第一个数:”TO XINPUT“请输入第二个数请输入第二个数:”TO YM=XIF YM M=YENDIF?”最大的数是：最大的数是：”，M输入任意两个数，编写程序求其中最大值输入任意两个数，编写程序求其中最大值数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结14某地到北京某地到北京“特快专递特快专递”计费标准为：不计费标准为：不超过超过100克时每克克时每克0.05元，若超出，超出数元，若超出，超出数每克每克0.02元，试编写程序计算邮费元，试编写程序计算邮费Inpu

15、t “请输入邮件重量：请输入邮件重量：”to wf=w*0.05if w100 f=100*0.05+(w-100)*0.02endif?“邮费为：邮费为：”,f数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结15试编写程序在学生表中根据输入的学号查试编写程序在学生表中根据输入的学号查询学生的姓名和生日询学生的姓名和生日 use 学生学生 accept“输入待查学生学号：输入待查学生学号：”to xh locate for 学号学号=xh if found（）（）?”姓名

16、：姓名：”，姓名，姓名，”生日生日:”，生日，生日 endif use 此处也可换成此处也可换成.not.eof()数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结162、带、带ELSE的条件语句的条件语句格式：格式：IF ELSE ENDIF功能：功能：若若为真执行为真执行，为假执行为假执行YN逻辑表达式逻辑表达式为真？为真？语句序列语句序列1ENDIF后面的语句后面的语句语句序列语句序列2数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安

17、徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结17INPUT“请输入第一个数请输入第一个数:”TO XINPUT“请输入第二个数请输入第二个数:”TO YIF XY M=XELSE M=YENDIF?”最大的数是：最大的数是：”，M输入任意两个数，编写程序求其中最大值输入任意两个数，编写程序求其中最大值数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结18Input “请输入邮件重量：请输入邮件重量：”to wif w=100

18、f=w*0.05else f=100*0.05+(w-100)*0.02endif?“邮费为：邮费为：”,f某地到北京某地到北京“特快专递特快专递”计费标准为：不计费标准为：不超过超过100克时每克克时每克0.05元，若超出，超出数元，若超出，超出数每克每克0.02元，试编写程序计算邮费元，试编写程序计算邮费数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结19试编写程序在学生表中根据输入的学号查试编写程序在学生表中根据输入的学号查询学生的姓名和生日询学生的姓名和生日 us

19、e 学生学生 accept“输入待查学生学号：输入待查学生学号：”to xh locate for 学号学号=xh if found（）（）?”姓名：姓名：”，姓名，姓名，”生日：生日：”，生日，生日 else?”查无此人！查无此人！”endif use 数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结20从键盘输入一个数，判断其为奇数还是偶数从键盘输入一个数，判断其为奇数还是偶数input “请输入请输入x的值：的值：”to xif mod(x,2)=0?”偶数偶数”e

20、lse?”奇数奇数”endif偶数判别条件偶数判别条件:INT(x/2)=x/2MOD(x,2)=0奇数判别条件奇数判别条件:INT(x/2)x/2MOD(x,2)0MOD(x,2)=1数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结213、条件语句嵌套、条件语句嵌套格式：格式：数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结22编写程序，对不同的编

21、写程序，对不同的x计算函数计算函数y的值的值 input“请输入请输入x：”to x if x=50 y=3*x else if x=100 y=5*x else y=7*x endif endif?”y的值：的值：”，y数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结233、多分支语句、多分支语句格式：格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE功能：功能：若某若某CASE语句为真，语句为真，执行该执行该CASE段的段的，然后执

22、，然后执行行ENDCASE后的语后的语句。句。数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结24NENDCASE后面的语句后面的语句语句序列语句序列n+1YN逻辑表达式逻辑表达式1语句序列语句序列1Y逻辑表达式逻辑表达式2语句序列语句序列2YN逻辑表达式逻辑表达式n语句序列语句序列n数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结25编写程序，对不

23、同的编写程序，对不同的x计算函数计算函数y的值的值 input“请输入请输入x：”to x do case case x=50 y=3*x case x=100 y=5*x otherwise y=7*x endcase?”y的值：的值：”，y数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结26显示当前季节的程序显示当前季节的程序Yue=month(date()Do case Case inlist(yue,3,4,5)Jj=“春春”Case inlist(yue,6,7

24、,8)Jj=“夏夏”Case inlist(yue,9,10,11)Jj=“秋秋”Case inlist(yue,12,1,2)Jj=“冬冬”EndcaseWait jj window数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结27已知有三个数据表，分别是已知有三个数据表，分别是rcda.dbf、zytc.dbf 和和xscj.dbf，编写一个程序在选择，编写一个程序在选择1、2、3时，分别打开不同表时，分别打开不同表 CLEARACCEPT“请输入您的选择：请输入您

25、的选择：(1-3)”TO YDO CASECASE Y=1 USE rcda LISTCASE Y=2 USE zytc LISTCASE Y=3 USE xscj LIST OTHERWISE?”对不起，您的输入有误！对不起，您的输入有误！”ENDCASE数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结28使用分支语句应注意的几点使用分支语句应注意的几点IF ENDIF 和和 DO CASE ENDCASE 必须配必须配对使用，对使用，DO CASE与第一个与第一个CA

26、SE条件表达式条件表达式之之间不应有任何命令。间不应有任何命令。条件表达式条件表达式可以是各种表达式或函数的组合，其可以是各种表达式或函数的组合，其值必须是逻辑值。值必须是逻辑值。命令行序列命令行序列可以由一个或多个命令组成，可以是可以由一个或多个命令组成，可以是条件控制语句组成的嵌套结构。条件控制语句组成的嵌套结构。DO CASE ENDCASE 命令，每次最多只能执行命令，每次最多只能执行一个一个命令行序列命令行序列。在多个。在多个CASE项的项的条件表达条件表达式式值为真时，只执行第一个值为真时，只执行第一个条件表达式条件表达式值为真值为真的的命令行序列命令行序列，然后执行，然后执行 E

27、NDCASE 的后面的的后面的第一条命令。第一条命令。数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结29三、循环结构三、循环结构 某循环体中的多条语句多次被执行某循环体中的多条语句多次被执行1、条件循环、条件循环格式：格式：DO WHILE ENDDO功能：功能：若若为真，执行循环体，遇到为真，执行循环体，遇到ENDDO返回，重新判断逻辑表达式。返回，重新判断逻辑表达式。若为假，循环结束，执行若为假，循环结束，执行ENDDO之后的语句之后的语句数据库程序设计数据库程序设

28、计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结30逻辑表达式逻辑表达式为真？为真？语句序列语句序列ENDDO后面的语句后面的语句YN数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结31计算计算S=1+2+100s=0&保存累加的和保存累加的和i=1&表示当前的数字表示当前的数字DO WHILE i=100 s=s+i i=i+1ENDDO?“S=”,s数据库程序设计数据库程

29、序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结32输出输出09这十个数。这十个数。i=0&表示当前待输出的数字表示当前待输出的数字DO WHILE i10?i i=i+1ENDDO数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结332、步长循环、步长循环格式：格式：FOR=TO STEP ENDFOR|NEXT功能：功能：通过比较循环变量值与终值决定是否执行通过比较循环

30、变量值与终值决定是否执行说明：说明：步长为正时，若循环变量值不大于终值就执行循环体，然后步长为正时，若循环变量值不大于终值就执行循环体，然后变量变量=变量变量+步长。否则执行步长。否则执行ENDFOR或或NEXT后的语句后的语句步长为负时，若循环变量值不小于终值就执行循环体，然后步长为负时，若循环变量值不小于终值就执行循环体，然后变量变量=变量变量+步长。否则执行步长。否则执行ENDFOR或或NEXT后的语句后的语句步长缺省值为步长缺省值为1数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指

31、导章节小结章节小结34s=0For i=1 to 100 s=s+iNext?”s=”,s计算计算S=1+2+100s=0For i=1 to 100 step 2 s=s+iNext?”s=”,s计算计算100以内奇数的和以内奇数的和数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结353、扫描循环、扫描循环格式：格式：SCAN FORWHILE ENDSCAN功能：功能：对当前表进行循环，在对当前表进行循环，在内查找满足内查找满足FOR条件或条件或WHILE条件的记录，

32、执行条件的记录，执行数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结36显示成绩显示成绩.DBF中所有成绩高于中所有成绩高于85分的学生学号分的学生学号Use 成绩成绩do while not eof()if 成绩成绩85?学号学号 endif skipEnddouseUse 成绩成绩Scan for 成绩成绩85?学号学号EndscanuseclearUse 成绩成绩go bottomn=recno()for i=1 to n go i if 成绩成绩85?学号学号 e

33、ndifnextuse数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结37循环中两个特殊命令语句循环中两个特殊命令语句1、退出语句：、退出语句：EXIT2、重新循环语句：、重新循环语句：LOOP注意：这两个命令必须嵌入在循环体内，一般注意：这两个命令必须嵌入在循环体内，一般放在放在IF语句中，可以改变循环，但不能单独使语句中，可以改变循环，但不能单独使用。用。死循环时，程序死循环时，程序-取消取消数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学

34、院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结38求求 S=1+2+3+当当 S1000 即停止。即停止。s=0For n=1 to 100 s=s+n if S 1000 EXIT ENDifendfor?“n=”,n数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结39计算计算100以内奇数的和以内奇数的和s=0For i=1 to 100 if i%2=0 loop else s=s+i endifNext?s=,ss

35、=0For i=1 to 100 if i%2=0 loop endif s=s+iNext?s=,s数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结循环结构程序设计典型题目循环结构程序设计典型题目累加或累乘累加或累乘40累具有初始值的结果变量循环变量表示当前待处理的值挑选满足条件的值（分支）做累加或累乘操作计算110间能被3整除的数之积s=1For i=1 to 10 if i%3=0 s=s*i endifNext?s=,s数据库程序设计数据库程序设计课程组编制课程组

36、编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结循环结构程序设计典型题目循环结构程序设计典型题目统计个数统计个数41统计用循环对每个字符进行判断判断方法很重要计数变量，初始值为0每出现一个满足条件的字符，计数变量加1输入字符串，统计其中大写字母、数字和空格的个数dx=0&大写字母的个数大写字母的个数sz=0&数字的个数数字的个数kg=0&空格的个数空格的个数accept “请输入字符串请输入字符串”to xn=len(x)For i=1 to n c=substr(x,i,1)do case case c=“Z”a

37、nd c=“0”and c=“9”sz=sz+1 case c=“”kg=kg+1 endcaseNext?“dx=“,dx,“sz=“,sz,“kg=“,kg数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结循环结构程序设计典型题目循环结构程序设计典型题目打印图形打印图形42打印多行用外层循环控制行数每行后面以回车结尾每行中按 要求打印若干空格或指定字符用内层循环控制字符个数打印下列图形 *?for i=1 to 3 for j=1 to 3-i?endfor for k

38、=1 to 2*i-1?*endfor?endfor分析：行数i 空格数j *数k 1 2 1 2 1 3 3 0 5 3-i 2*i-1数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结43模块：是相对独立的程序段，它可以调用其它模块，模块：是相对独立的程序段，它可以调用其它模块，也可以被其它模块所调用也可以被其它模块所调用主程序：调用其它模块而没有被调用的模块主程序：调用其它模块而没有被调用的模块非主程序模块通常有如下三种：非主程序模块通常有如下三种：子程序：单独的子程

39、序：单独的.prg文件文件 过程：可写在主程序内，也可作为单独的过程：可写在主程序内，也可作为单独的.prg文件文件 自定义函数：可写在主程序内，可作为单独的自定义函数：可写在主程序内，可作为单独的.prg 文件，使用方法与系统函数相同文件，使用方法与系统函数相同8.4 多模块程序多模块程序数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结44一、子程序一、子程序调用调用：主程序执行到：主程序执行到DO命令时，执行就转命令时，执行就转 向子程序，称调用子程序向子程序，称调用

40、子程序返回返回：子程序执行到：子程序执行到RETURN命令（或缺省命令（或缺省该命令时子程序执行完毕）时，就返回主该命令时子程序执行完毕）时，就返回主程序程序转出处转出处（即（即DO命令）的命令）的下一条下一条语句语句继续执行，称返回主程序继续执行，称返回主程序*主程序aaDo bb*子程序bbreturn数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结45带参数的子程序的调用与返回带参数的子程序的调用与返回调用调用：DO WITH（1）中的参数可以是表达式，但若为内存变

41、中的参数可以是表达式，但若为内存变量，则必须有初值量，则必须有初值（2）中的参数要传递给子程序，子程序中必中的参数要传递给子程序，子程序中必须设置相应的须设置相应的参数接收参数接收。接收时使用如下命令：。接收时使用如下命令：PARAMETERS注：注：a.本语句必须是被调用程序的第一条语句本语句必须是被调用程序的第一条语句 b.变量的个数必须与变量的个数必须与DO命令中参数的个数相同命令中参数的个数相同 c.中的变量在将值返回后被清除中的变量在将值返回后被清除返回返回：（1）使用）使用RETURN命令命令（2）PARAMETERS语句中的语句中的变量值返回给变量值返回给DO命令命令中的变量中的

42、变量数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结46设计一个计算圆面积的子程序，并要求在设计一个计算圆面积的子程序，并要求在主程序中带参数调用它主程序中带参数调用它*主程序主程序abc.prgymj=05,10 say”请输入半径：请输入半径：”get bj default 0readdo js with bj,ymj?”圆面积为圆面积为”，ymjreturn*子程序子程序js.prgparameters r,ss=pi()*r*rreturn数据库程序设计数据库程序

43、设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结47二、过程二、过程VFP允许在一个允许在一个.prg文件中设置多模块，并将除主程文件中设置多模块，并将除主程序外的每个模块定义为一个序外的每个模块定义为一个过程过程。过程也可作为。过程也可作为单独的单独的.prg文件，称为文件，称为过程文件过程文件过程的定义过程的定义：PROCEDURE PARAMETERS RETURN 过程写在哪里？过程写在哪里？可以写在主程序的后面（在同一个文件中）。可以作可以写在主程序的后面（在同一个文件中）。可以作为单

44、独的过程文件；可以几个过程共同写在一个为单独的过程文件；可以几个过程共同写在一个过程文件中。过程文件中。过程的调用过程的调用：DO WITH IN 数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结48设计一个计算圆面积的程序，并要求使用过程调用设计一个计算圆面积的程序，并要求使用过程调用*abc.prgymj=05,10 say”请输入半请输入半;径：径：”get bj default 0readdo js with bj,ymj?”圆面积为圆面积为”，ymjreturn

45、procedure jsparameters r,ss=pi()*r*rreturn*abc.prgymj=05,10 say”请输入半请输入半;径：径：”get bj default 0readdo js with bj,ymj in jss?”圆面积为圆面积为”，ymjreturn*jss.prgprocedure jsparameters r,ss=pi()*r*rreturn数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结49数据库程序设计数据库程序设计课程组编制

46、课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结50数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结51三、自定义函数三、自定义函数自定义函数的建立自定义函数的建立：FUNCTION PARAMETERS RETURN 说明说明：a.作为独立文件时，不使用作为独立文件时，不使用 FUNCTION ，文件名就是函数名，文件名就是函数名b.自定义函数不可以与系统函数同名自定义函数不可以与系统

47、函数同名c.值为函数返回值值为函数返回值d.若缺省若缺省RETURN子句返回子句返回.T.e.自定义函数的使用方式与系统函数相同自定义函数的使用方式与系统函数相同数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结52设计一个自定义函数，用来求一元一设计一个自定义函数，用来求一元一次方程次方程AX+B=0的根的根*qg.prginput a=to ainput b=to bx=root(a,b)?xfunction rootparameters a,breturn iif(a

48、=0,无解无解,-b/a)数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结53四、变量的作用域四、变量的作用域1、公共变量公共变量：任何模块中都可以使用的变量：任何模块中都可以使用的变量建立公共变量：建立公共变量：PUBLIC注：注：a.所有内存变量初值为所有内存变量初值为.F.b.公共变量只能用命令清除公共变量只能用命令清除2、私有变量私有变量：在本模块及下层模块中使用：在本模块及下层模块中使用声明私有变量：声明私有变量：PRIVATE注：注：a.变量无初值变量无初值

49、b.上层模块若有同名内存变量，将其屏蔽上层模块若有同名内存变量，将其屏蔽 c.本模块运行结束后，变量自动清除本模块运行结束后，变量自动清除3、本地变量本地变量：只在本模块中使用：只在本模块中使用建立本地变量：建立本地变量：LOCAL注：注：a.初值为初值为.F.b.LOCAL不可缩写不可缩写 c.本模块运行结束后，变量自动清除本模块运行结束后，变量自动清除数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大学计算机与信息学院 章节简介章节简介重点难点重点难点学习指导学习指导章节小结章节小结54PUBLIC NUMNUM=1DO ARETURNPROC ANU

50、M=NUM+5DO BRETURNPROC BNUM=NUM+6？NUMRETURN&结果为结果为12clear memorydo areturnproc alocal numnum=2do breturnproc bnum=num+5?numreturn&提示提示“找不到找不到num变量变量”CLEAR MEMORYDO A?NUMRETUPROC APRIVATE NUMNUM=2DO BRETUPROC BNUM=NUM+5?NUMRETU&先显示先显示7，再提示，再提示“找不到找不到num变量变量”数据库程序设计数据库程序设计课程组编制课程组编制 安徽工程大学计算机与信息学院安徽工程大