VisualFoxPro程序设计.ppt

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

1、第七章第七章VisualFoxPro程序设计程序设计 前面介绍的在命令窗口中输入命令或通前面介绍的在命令窗口中输入命令或通过选择菜单来执行过选择菜单来执行VisualFoxPro命令，都命令，都是交互执行方式。除此外，还可以通过程序是交互执行方式。除此外，还可以通过程序的方式来调用的方式来调用VisualFoxPro命令，以完成命令，以完成更为复杂的任务。更为复杂的任务。7.1 7.1 基本知识基本知识-程序的概念程序的概念 学习学习Visual FoxProVisual FoxPro的目的就是要使用的目的就是要使用它的命令来组织和处理数据，完成一些特它的命令来组织和处理数据，完成一些特定任务

2、。如果靠单一的在命令窗口中逐条定任务。如果靠单一的在命令窗口中逐条输入命令执行，不仅繁琐，而且容易出错，输入命令执行，不仅繁琐，而且容易出错，特别是命令需要反复执行或所包含的命令特别是命令需要反复执行或所包含的命令很多时，应用交互方式根本无法完成，必很多时，应用交互方式根本无法完成，必须通过命令组来实现。这里就应该采取程须通过命令组来实现。这里就应该采取程序方式。序方式。程程序序是是能能够够完完成成一一定定任任务务的的命命令令的的有有序序集集合合。这这组组命命令令被被存存放放在在称称为为程程序序文文件件或或命命令令文文件件中中。当当程程序序运运行行时时，系系统统会会按按照照一一定定的的次次序序

3、自自动动执执行行包包含含在在程程序序中中的的命命令令。与与命命令令方方式式相相比比较较，主主要要有如下的有如下的优势优势：可以方便的利用编辑器输入、修改和保存程序。可以方便的利用编辑器输入、修改和保存程序。可以用多种方式，多次的运行程序。可以用多种方式，多次的运行程序。可以在一个程序中调用另一个程序。可以在一个程序中调用另一个程序。7.1 7.1 基本知识基本知识-程序的概念程序的概念 【例例7.17.1】从从中中选选出出所所有有19841984年年出出生生的的同同学学,并并显显示示该该年年出生的同学的姓名，性别，家庭住址，入学成绩。出生的同学的姓名，性别，家庭住址，入学成绩。程序代码如下：程

4、序代码如下：Set talk off&Set talk off&关闭人机对话关闭人机对话Clear&Clear&清除屏幕清除屏幕Use d:VFP_examplexj.dbf&Use d:VFP_examplexj.dbf&打开数据表打开数据表List xm,xb,jtzz,rxcj for year(csrq)=1984 List xm,xb,jtzz,rxcj for year(csrq)=1984&显示满足条件的记录显示满足条件的记录Use&Use&关闭数据表关闭数据表 Set talk on&Set talk on&打开人机对话打开人机对话7.1 7.1 基本知识基本知识-程序的概念程

5、序的概念 程序的概念程序的概念 注注：命命令令注注释释：以以*或或NOTENOTE开开关关的的代代码码行行为为注注释释行行，在在命命令令行行中以中以&做注释，注释行为非执行代码，不影响程序的功能。做注释，注释行为非执行代码，不影响程序的功能。SETSET TALK TALK ONONOFFOFF：许许多多数数据据处处理理命命令令（如如SUMSUM、AVERAGEAVERAGE等等，执执行行时时会会返返回回一一些些有有关关执执行行状状态态的的信信息息，并并且且显显示示在在Visual Visual FoxProFoxPro的的主主窗窗口口、状状态态栏栏或或用用户户自自定定义义的的窗窗口口里里。而

6、而SET SET TALK TALK OFFOFF禁禁止止执执行行状状态态信信息息的的显显示示，SET SET TALK TALK ONON允允许许执行状态信息的显示。执行状态信息的显示。程程序序代代码码可可以以写写在在程程序序文文件件中中，还还可可以以出出现现在在表表单单设设计计器器和和类类设设计计器器的的事事件件和和方方法法代代码码窗窗口口、报报表表设设计计器器和和菜菜单单设设计器的过程代码窗口中。计器的过程代码窗口中。在在命命令令窗窗口口中中可可像像执执行行程程序序一一样样，一一次次执执行行多多条条命命令令，具体实现方法如下：具体实现方法如下：在命令窗口中选择要执行的多条命令。在命令窗口

7、中选择要执行的多条命令。按按ENTERENTER键键，或或单单击击鼠鼠标标右右键键并并在在弹弹出出的的快快捷捷菜菜单单中中选选择择【运行所选区域】运行所选区域】1、程序的建立与修改程序的建立与修改程序的建立与修改程序的建立与修改(1)(1)(1)(1)程程程程序序序序文文文文件件件件的的的的建建建建立立立立与与与与修修修修改改改改是是是是通通通通过过过过调调调调用用用用系系系系统统统统内内内内置置置置的的的的文文文文本编辑器来进行。本编辑器来进行。本编辑器来进行。本编辑器来进行。注：程序文件默认扩展名是注：程序文件默认扩展名是注：程序文件默认扩展名是注：程序文件默认扩展名是prgprgprgp

8、rg，如果指定其它扩展，如果指定其它扩展，如果指定其它扩展，如果指定其它扩展名，那么在打开或执行程序文件时都要显示指定名，那么在打开或执行程序文件时都要显示指定名，那么在打开或执行程序文件时都要显示指定名，那么在打开或执行程序文件时都要显示指定扩展名。扩展名。扩展名。扩展名。7.1.2 7.1.2 程序的建立与执行程序的建立与执行 (2)(2)(2)(2)打开、修改程序文件的步骤：打开、修改程序文件的步骤：打开、修改程序文件的步骤：打开、修改程序文件的步骤：从从【文文件件】菜菜单单中中选选择择【打打开开】命命令令，弹弹出出“打打开开”对对话话框框中中，在在“文文件件类类型型”列列表表框框中中选

9、选择择“程程序序”，在在“文文件件列列表表”框框中中选选定定要要修修改改的的文文件，并单击【确定】命令按钮。件，并单击【确定】命令按钮。编编辑辑修修改改后后，从从【文文件件】菜菜单单中中选选择择【保保存存】命命令令或或按按CTRLCTRLW W修修改改键键保保存存文文件件，若若要要放放弃弃本本次次，可可从从【文文件件】菜菜单单中中选选择择【还还原原命命令令】命命令令或或按按ESCESC键。键。(3)(3)用命令方式建立、修改程序文件用命令方式建立、修改程序文件：格式：格式：MODIFY COMMAND MODIFY COMMAND 文件路径文件路径 作作用用：执执行行该该命命令令时时，系系统统

10、首首先先检检索索磁磁盘盘文文件件，如如果果指指定定文文件件存存在在，则则打打开开修修改改，否否则则系系统统认认为是要建立一个指定了文件名的程序文件。为是要建立一个指定了文件名的程序文件。注注：格格式式中中的的 文文件件路路径径 可可以以省省略略，如如果果没没有有给给定扩展名，系统自动加上默认扩展名定扩展名，系统自动加上默认扩展名prgprg。2 2、执行程序文件执行程序文件执行程序文件执行程序文件程程序序文文件件建建好好后后，就就可可以以用用多多种种方方式式、多多次次执执它它。具体方法有：具体方法有：(1)(1)(1)(1)菜单方式菜单方式菜单方式菜单方式：从从【程程序序】菜菜单单中中选选择择

11、【运运行行】命命令令，弹弹出出“运行运行”对话框。对话框。在在“文文件件类类型型”列列表表框框中中选选择择“程程序序”，在在“文文件件列列表表”框框中中选选定定要要运运行行的的文文件件，并并单单击击【运运行】命令按钮。行】命令按钮。(2)命令方式：命令方式：格式：格式：do文件路径文件路径作用：运行指定的文件。作用：运行指定的文件。该命令即可在命令窗口执行，也可在某个程序文件、表该命令即可在命令窗口执行，也可在某个程序文件、表单、菜单事件中出现，这样就可完成程序的调用。当程序单、菜单事件中出现，这样就可完成程序的调用。当程序文件被执行时，文件中包含的命令将依次执行，直到所有文件被执行时，文件中

12、包含的命令将依次执行，直到所有的命令被执行完毕，或执行到以下命令：的命令被执行完毕，或执行到以下命令：CANCEL：终止程序执行，清除所有私有变量，返回命：终止程序执行，清除所有私有变量，返回命令窗口。令窗口。DO：转去执行另一个程序。：转去执行另一个程序。RETURN：结束当前程序的执行，返回到调用它的上级：结束当前程序的执行，返回到调用它的上级程序，若无上级程序则返回到命令窗口。程序，若无上级程序则返回到命令窗口。QUIT：退出：退出VisualFoxPro系统，返回到操作系统。系统，返回到操作系统。VisualFoxPro程序通过编译、连编，可以产生不同的程序通过编译、连编，可以产生不同

13、的目标代码文件，这些文件具有不同的扩展名，当用目标代码文件，这些文件具有不同的扩展名，当用DO命令执行程序文件时，如果没有指定扩展名，系统将按命令执行程序文件时，如果没有指定扩展名，系统将按下列顺序寻找该程序文件的源代码或某种目标代码文件下列顺序寻找该程序文件的源代码或某种目标代码文件执行，执行，.exe(VisualFoxPro可执行文件可执行文件).app(VisualFoxPro的应用程序文件的应用程序文件).fxp(VisualFoxPro的编译文件的编译文件).prg(VisualFoxPro的源程序文件的源程序文件)。注：如果用注：如果用DO命令执行查询文件、菜单文件，文件名命令执

14、行查询文件、菜单文件，文件名必须要加上扩展名（必须要加上扩展名（.qpr、.mpr）。）。7.2顺序结构程序设计顺序结构程序设计程序的基本结构是指程序中命令或语句执行的程序的基本结构是指程序中命令或语句执行的流程结构，基本结构有三种：流程结构，基本结构有三种：顺序结构、选择结顺序结构、选择结构、循环结构构、循环结构。顺序结构是最简单的程序结构，。顺序结构是最简单的程序结构，它按命令在程序中出现的顺序依次执行。它按命令在程序中出现的顺序依次执行。输入命令输入命令-input1、输入命令、输入命令（1）INPUT命令命令格式：格式：INPUT字符型表达式字符型表达式TO内存变量内存变量作用：该命令

15、等待用户从键盘输入数据，用户可以输入任作用：该命令等待用户从键盘输入数据，用户可以输入任何合法的表达式，当按回车键结束输入时，系统将表达式何合法的表达式，当按回车键结束输入时，系统将表达式的值赋给指定的内存变量，程序继续执行。的值赋给指定的内存变量，程序继续执行。注：注：如果选用字符型表达式，它将作为提示信息，首如果选用字符型表达式，它将作为提示信息，首先显示该表达式的值。先显示该表达式的值。必须输入数据，输入的数据可以是常量、变量，也可必须输入数据，输入的数据可以是常量、变量，也可以是表达式，且以以是表达式，且以回车键结束输入回车键结束输入。输入字符串时必须加定界符（如输入字符串时必须加定界

16、符（如”闫秀婧闫秀婧”），输入），输入逻辑型常量时要用圆点定界符（如逻辑型常量时要用圆点定界符（如.t.、.f.），输入日期），输入日期时间型常量时要用大括号（如时间型常量时要用大括号（如2004-12-25）。）。【例7.3】从键盘上输入x的值，求Y3X5的值。程序代码：Set talk offClearInput 请输入X的值：TO XY=3*X+5?Y,Yset talk on输入命令输入命令-input【例7.4】从键盘上输入姓名，在中选出该同学。程序代码：Set talk off Clear close allInput 请输入姓名：TO X Use d:VFP_examplexj.

17、dbf list xm,jg,rxcj for xm=xUse Set talk on 输入命令输入命令-input输入命令输入命令-accept（2）accept命令命令格式：格式：accept字符型表达式字符型表达式TO内存变量内存变量作用：该命令等待用户从键盘输入字符串，当按回车键结作用：该命令等待用户从键盘输入字符串，当按回车键结束输入时，系统将字符串赋给指定的内存变量，程序继续束输入时，系统将字符串赋给指定的内存变量，程序继续执行。执行。注：注：如果选用字符型表达式，它将作为提示信息，首如果选用字符型表达式，它将作为提示信息，首先显示该表达式的值。先显示该表达式的值。必须输入数据，输

18、入的数据只能是字符串，用户在输必须输入数据，输入的数据只能是字符串，用户在输入字符串时不加定界符，且以回车键结束输入。入字符串时不加定界符，且以回车键结束输入。如果不输入任何内容而直接按回车键，系统会把空串如果不输入任何内容而直接按回车键，系统会把空串赋给指定的内存变量。赋给指定的内存变量。【例【例7.5】从键盘输入姓名，显示该同学的相关】从键盘输入姓名，显示该同学的相关情况。情况。程序代码：程序代码：SettalkoffClearcloseallaccept请输入姓名：请输入姓名：TOXUsebrowseforxm=xUseSettalkon输入命令输入命令-wait（3）WAIT命令命令格

19、式：格式：wait字符型表达式字符型表达式TO内存变量内存变量windowsAT,NOwaitclear|NOcleartimeout作用：无任何选项时，暂停程序的执行，当按任意键，继续程作用：无任何选项时，暂停程序的执行，当按任意键，继续程序执行；若选择了序执行；若选择了TO内存变量该命令等待用户从键盘输内存变量该命令等待用户从键盘输入值，并按回车键，系统将字符赋给指定的内存变量入值，并按回车键，系统将字符赋给指定的内存变量,并继续执并继续执行程序。行程序。【例7.6】弹出提示窗口，5秒钟后关闭窗口，继续执行程序。程序代码：Set talk off Clear close allwait 输

20、入无效，请重新输入.windows timeout 5 Set talk on输入命令输入命令-wait输出命令输出命令（1）“”与与“”命令命令格式格式1：格式格式2：作用：将文本行的文字输出到屏幕上。作用：将文本行的文字输出到屏幕上。注：注：需要定界符，需要定界符，中除了可以包中除了可以包含一般的文字外，还可以包含具有特殊含义的文字，含一般的文字外，还可以包含具有特殊含义的文字，如某些变量、表达式和函数，但这些变量、表达式如某些变量、表达式和函数，但这些变量、表达式和函数必须包含在文字读取符号和函数必须包含在文字读取符号“”之之间，并且事先用间，并且事先用settextmergeon设置。

21、设置。【例7.7】用该语句输出“今天的日期是：12/31/04”程序代码set talk offclearclose allset textmerge on今天的日期是：set talk on输出命令输出命令（2）textendtext格式：TEXTENDTEXT作用：将由多个所组成的文字块输出到屏幕上。注：同“”一样，当输出数据中包含变量、表达式和函数时，必须包含文字读取符号“”，并且事先用set textmerge on设置。输出命令输出命令【例7.8】用该语句输出“今天值班人员是：李平今天的日期是：12/31/04”程序代码：set talk offclearclose allset t

22、extmerge onxm=李平text今天的值班人员：今天的日期是：endtextset talk on输出命令输出命令（3）“?”与“?”命令7.3选择结构程序设计选择结构程序设计 在大多数情况下，有些问题顺序结构程序设计是无法解决的，还要用选择结构和循环结构。支持选择结构的语句包括IFELSEENDIF和DOCASEENDCASE。IFELSEENDIF格式格式1：IFEndif作用：当条件成立时，执行作用：当条件成立时，执行，否，否则执行则执行ENDIF的下一条语句。的下一条语句。格式格式2：IFELSEEndif作用：当条件成立时，执行作用：当条件成立时，执行，否则执行否则执行，再转

23、到，再转到ENDIF的下的下一条语句。一条语句。注：注：IF和和ENDIF必须成对出现，必须成对出现，IF是本结构是本结构的入口，的入口，ENDIF是本结构的出口。是本结构的出口。条件语句可以嵌套，但不能出现交叉。条件语句可以嵌套，但不能出现交叉。在嵌套时，为了使程序清晰，易于阅读，可按在嵌套时，为了使程序清晰，易于阅读，可按缩进格式缩写。缩进格式缩写。为逻辑表达式，它先要进行计算，为逻辑表达式，它先要进行计算，然后根据结果来判断程序的执行流程。然后根据结果来判断程序的执行流程。【例7.9】已知函数y=,编程求相应的Y值。程序代码：set talk offclose allinput 请输入X

24、的值 to xif x8y=x+5else y=x*x+5endif?y=,yset talk onIFELSEENDIFDOCASEENDCASE格式：do case Case Case Case otherwise Endcase7.4循环结构程序设计循环结构程序设计 Visual FoxPro提供了三种循环结构语句，FORENDFOR、DOWHILEENDDO、SCANENDSCAN。7.4.1FORENDFOR格式：FORTOSTEPENDFOR作用：循环控制变量，按指定的步长从初值到终作用：循环控制变量，按指定的步长从初值到终值变化，并控制命令序列的执行次数。值变化，并控制命令序列的

25、执行次数。循环变量赋初值判断循环变量值与终值判断循环变量值与终值大小是否成立大小是否成立命令序列循环变量步长变化循环变量步长变化结束for语句假真7.4.1FORENDFOR例1 求1+2+3+4+5+6+100的和 set talk off sum=0 for i=1 to 100 sum=sum+i endfor?sum set talk on7.4.2DOWHILEENDDO 格式：格式：DOWHILEEnddo执行过程：执行过程：语句执行时，若条件为假循环就结束，然语句执行时，若条件为假循环就结束，然后执行后执行Enddo子句后面的语句；当条件为真时，执行子句后面的语句；当条件为真时，

26、执行循环体，遇到循环体，遇到Enddo就自动返回到就自动返回到DOWHILE重新重新判断循环条件是否成立，以决定是否继续循环。判断循环条件是否成立，以决定是否继续循环。例 求1+2+3+4+5+6+100的和 set talk off sum=0 do while i90 x1=x1+1 case sx80 x2=x2+1 case sx70 x3=x3+1 case sx60 x4=x4+1 otherwise x5=x5+1 endcase skip enddo?90分以上的人数是：,x1?80-90分以上的人数是：,x2?70-80分以上的人数是：,x3?60-70分以上的人数是：,x4

27、?60分以下的人数是：,x5Use Set talk on7.4.2DOWHILEENDDO【例7.14】从键盘上输入出生日期，查找该年出生的同学，并显示“姓名”、“入学成绩”。(要求该程序能实现循环查找。程序代码：Set talk off Clear close alldo while.T.input 请输入出生日期：to xdo while not eof()if year(csrq)=x?姓名：+xm?入学成绩：+str(rxcj)endifskipenddowait 继续查找吗？to cxif upper(cx)=YloopelseexitendifenddoUse Set talk

28、on7.4.2DOWHILEENDDO 7.4.3SCANENDSCAN格式：SCAN FOR WHILE ENDSCAN作用：执行该语句时，记录指针自动、依次的在当前表的指定范围内满足条件的记录上移动，对每一条记录执行执行循环体内的命令。注：范围的默认值是ALL，而且LOOP和EXIT同样可以出现在该语句的循环体内。【例7.15】统计专业代码(学号的第2、3位)为02的男、女生人数。程序代码：Set talk off Clear close all store 0 to x,yscan for subs(xh,2,2)=02if xb=男x=x+1elsey=y+1endifendscan?

29、男生人数：,x?女生人数：,ySet talk on7.4.3SCANENDSCAN7.4.4循环的嵌套循环的嵌套 循环还可以嵌套，即循环体中可包含循环语句，多个循环的嵌套称为多重循环。在多重循环中，循环层次必须分明，不允许交叉，否则会造成逻辑上的错误。【例7.16】用程序实现屏幕上打印九九乘法表程序代码：set talk off clear for x=1 to 9 for y=1 to i?i*j endfor?endfor set talk on7.4.4循环的嵌套循环的嵌套【例7.17】打印等腰三角型。程序代码：clearfor i=1 to 5?space(10-i)for j=1

30、to 2*i-1?*endfor?endfor7.4.4循环的嵌套循环的嵌套7.5多模块程序多模块程序 应用程序一般都是多模块程序，包含多个程序模块。模块是一个相对独立的程序段，它可以被其它模块所调用，也可以调用其它的模块。通常，把被其它模块调用的模块称为子程序，把调用其它模块而没有被其它模块调用的模块称为主程序。将应用程序划分成一个个功能相对简单、单一的模块程序，不仅便于程序的开发，也利于程序的阅读和理解。7.5.1模块的定义和调用模块的定义和调用在Visual FoxPro中，模块可以是命令文件，也可以是过程或函数。1、过程的定义如下：格式：procedure|function retur

31、n endproc|endfunc作用：定义过程或函数。注：过程名或函数名必须以字母或下划线开头，可包含字母、数字或下划线。当程序执行到RETURN命令时，控制将转回到调用程序处，并返回表达式的值，若无RETURN，则在过程结束处自动生成一条隐含的RETURN命令，若RETURN不带表达式，则返回逻辑值.T.。endproc|endfunc表示过程的结束，如果缺省，那么过程结束于下一条procedure|function命令或文件结尾处。过程或函数可以放置在程序文件代码的后面，也可以保存在称为过程文件的单独文件里，过程文件的建立仍用MODIFY COMMAND命令，文件的扩展名还是.prg.过

32、程文件里只包含过程，这些过程能被其它任何程序所调用，但在调用过程文件之前先要打开过程文件。2、过程文件的打开格式：SETPROCEDURE TO，ADDITIVE作用：打开一个或多个过程文件，一旦过程文件被打开，那么该过程文件中的所有过程都可以被调用。若选用ADDITIVE，那么在打开过程文件时，并不关闭原先已打开的过程文件。3、过程文件的关闭格式1：SETPROCEDURE TO格式2：RELEASE PROCEDURE 作用：关闭所有打开的过程文件。4、模块的调用格式1：DO|格式2：|作用：调用过程或文件。注：如果模块是程序文件代码，用，否则用。格式2中，即可作为命令使用，也可作为函数出

33、现在表达式中，且文件名不能包含扩展名。7.5.1模块的定义和调用模块的定义和调用【例7.18】编程求组合数程序代码：set talk offclose allclearzhs=jc(8)/(jc(3)*jc(8-3)&函数调用?8中3的组合数：+str(zhs)set talk onfunction jc&自定义函数parameters n&n为模块程序中的私有变量s=1 do while n0s=s*nn=n-1enddoreturn(s)endfunc7.5.2参数传递参数传递 模块程序可以接收调用程序传过来的参数，并能够根据接收到的参数控制程序流程或对接收到的参数进行处理，从而大大提高模

34、块程序功能设计的灵活性。1、接收参数的命令格式1：PARAMETERS形参变量1，形参变量2作用：声明的形参变量被看作是模块程序中建立的私有变量。格式2：LPARAMETERS形参变量1，形参变量2作用：声明的形参变量被看作是模块程序中建立的局部变量。注：无论是PARAMETERS还是LPARAMETERS都应是模块程序的第一条可执行命令。2、模块参数的调用格式1：DO文件名过程名 WITH 实参1，实参2格式2：文件名过程名 WITH 实参1，实参2作用：调用模块程序时，系统自动会把实参传递给对应的形参。注：实参可以是常量、变量，也可以是表达式。形参的数目不能少于实参的数目，否则系统运行时会

35、出错；若形参的数目多于实参的数目，多余的形参取初值逻辑假（.F.）。采用格式1调用程序模块时，如果实参是常量或一般形式的表达式，系统会计算出实参的值，并把它们的值赋给相应的形参，这种形式称为按值传递。如果实参是变量，那么传递的不是变量的值，而是变量的地址，这时形参和实参是同一个变量（尽管它们的名字可能不同），在模块程序中对形参变量值的改变，同样是对实参变量值的改变，这种情形称为按引用传递。采用格式2调用程序模块时，默认情况下，都按值方式传递参数，如果实参是变量，可以通过命令SET UDEFPARMS命令重新设置参数传递的方式，具体设置如下:格式：SET UDEFPARMSTOVALUEREFERENCE作用：选择TOVALUE，按值传递，形参变量值的改变不会影响实参PARAMETERS和LPARAMETERS。7.5.2参数传递参数传递