(精品)刘丽书VFP配套PPT第7章程序设计.ppt

《(精品)刘丽书VFP配套PPT第7章程序设计.ppt》由会员分享，可在线阅读，更多相关《(精品)刘丽书VFP配套PPT第7章程序设计.ppt（76页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第7章章 程序设计基础程序设计基础第 2 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-1 程序的建立与维护程序的建立与维护7-2 程序的流程控制程序的流程控制7-3 模块结构程序设计模块结构程序设计7-4 MESSAGEBOX()函数的使用函数的使用7-5 调试程序调试程序7-6 小结小结第第7章章 结构化程序设计结构化程序设计第 3 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-1 7-1 程序的建立与维护程序的建立与维护 Visual FoxPro程序文件，是一个以（.PRG）为扩展名的文本文件。任何可以建立、编辑文本文件的工具，都可以创建和编辑Vi

2、sual FoxPro程序文件。这些文本编辑工具，可以是Visual FoxPro系统提供的内部编辑器，也可以是其它常用文本编辑软件。在文本编辑环境下，不仅可以对程序文件进行输入和修改，还可以实现字符串查找、替换、删除和编辑功能。7-1-1 7-1-1 用菜单选择方式建立及维护程序用菜单选择方式建立及维护程序 1.1.创建与修改程序文件创建与修改程序文件 命令方式命令方式 MODIFY COMMAND 程序文件名菜单方式菜单方式 打开“文件”菜单，选择“新建”；在“新建”窗口，选择“程序”，再选择“新建文件”；在“程序文件”编辑窗口，输入程序文件，并保存，此时建立程序文件的操作结束。第 4 页

3、 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2.运行程序文件 调用程序文件，即运行程序文件，是程序文件建立的最终目的。在Visual FoxPro系统中，调用程序文件有很多方法，在这里仅介绍其中两种方法。菜单方式菜单方式 以菜单方式调用程序文件，操作方法如下：(1）在Visual FoxPro系统主菜单下，打开“程序”菜单，选择“运行”。（2）在“运行”窗口，输入被调用的程序文件名即可。命令方式命令方式 在Command 窗口中，输入如下命令，则程序文件被调用。DO 程序文件名第 5 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3维护程序维护程序 修改程序文件时，

4、可以从菜单“文件”中选择“打开”命令，从屏幕显示的“打开”对话框中选择要修改的文件，在文件编辑器窗口中进行编辑修改程序。7-1-2 用命令方式建立及维护程序用命令方式建立及维护程序1创建程序创建程序在VisualFoxPro“命令”窗口中直接输入命令来建立和运行程序，更方便简捷。在命令窗口中输入：MODIFY COMMAND 打开在文本编辑器窗口中，等待用户输入新文件的内容。第 6 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2保存程序保存程序在编辑过程中，按Ctrl+Q或Esc键，中止程序的编辑，按Ctrl+W键，保存编辑的程序，并返回到“命令”窗口中。程序文件名默认的扩展名

5、为.PRG。如果省略“程序文件名”，系统会自动以“程序1”为程序文件名存盘。3维护程序维护程序在编辑过程中，如果内存空间足够大，可以同时打开多个文本编辑窗口编辑多个文件，在一个文件或多个文件之间对文本进行剪切、复制、粘贴等操作。为了便于维护程序和提高编程效率，系统提供了丰富的编程环境。可以在程序窗口中单击鼠标右键，在弹出的快捷键中选择所需要的功能命令按钮。第 7 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录4运行程序运行程序在命令窗口中键入：DO（程序文件名）执行一个VisualFoxPro程序，程序文件名前根据需要可以加上路径。如：DOd:VFP程序1 该命令可以在命令窗口发

6、出，也可以出现在某个程序文件中，这样就使得一个程序在执行的过程中还可以调用执行另一个程序。当程序被执行时，文件中包含的命令被依次执行，直到程序执行完毕，或遇到以下命令：第 8 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录 CANCAL:终止程序运行，清除所有私有变量，返回命令窗口。DO：转去执行另一个程序。RETURN：结束当前程序的执行，返回到调用它的上级程序，若无上级程序则返回到命令窗口。QUIT：退出VFP系统，返回到操作系统。Visual FoxPro程序文件通过编译、连编，可以产生不同的目标代码文件。如果没有对程序进行编译，而且程序中存在错误，则在执行程序过程中Vis

7、ual FoxPro会指出程序中存在的错误，出现错误提示对话框。此时，可以取消操作，中止程序的运行，修改后再运行。第 9 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-1-3 程序的编译在运行程序时，系统提供了两种方式：先编译后执行和一边编译一边执行。先编译后执行是在编辑窗口打开要编译的程序，然后在菜单“程序”中选定“编译”。7-1-4 编程时的一般规则1.每行只能写一条命令，每条命令以回车换行作为结束标志；2.条命令一行写不下时，可以分多行输入，在未输入完的数据后加分号，然后回车换行，系统会把此行作为前一行的续行；3.“*”，“&”，“NOTE”用来作为程序的说明的符号和命

8、令；“*”及“NOTE”只能放在一行的前面，而“&”可以放在前面或后面。第 10 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-1-5 简单的输入输出命令(1).ACCEPT命令格式：accept to 功能：在屏幕上显示提示信息，等待用户输入一个字符串，赋值给一个内存变量注意：该命令只能接受字符型常量，输入一个字符串（不必加引号）且按回车键后，程序继续执行(2).INPUT命令格式：input to 1键盘输入语句第 11 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录功能：与accept相似，不同的是能接受字符型、数字型、日期型和逻辑型数据。说明：除输入数值

9、型数据外，其他几种类型的数据一律使用定界符；输入的信息可以是表达式，input命令有计算功能(3).WAIT命令 【格式】WAIT T0 WindowsNowaitCLEAR TIMEOUT【功能】等待用户从键盘上输入一个字符存入指定变量中。第 12 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2格式输出语句 无论是内存变量还是字段变量都可以使用?或?命令输出，这种输出方式简单，但是不能按照用户指定的位置输出。格式输出语句能按用户的要求来设计屏幕格式，使之美观、方便。【格式】SAY 【功能】从指定的行、列号开始输出表达式的值。【说明】1.可以是常量、字段变量及由它们组成的表达式

10、。2.定位输出时，一次只能输出一个表达式。第 13 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3程序设计辅助语句命令(1)CLEAR 语句：【格式】CLEAR【功能】清除屏幕信息语句(2)SET TALK ON/OFF语句：【格式】SET TALK ON/OFF【功能】命令执行的结果传送/不传送到屏幕上(3)程序运行结束命令:lQUIT&返回操作系统lCANCEL&返回Visual FoxPro 6.0“命令”窗口lRETURN&返回调用处第 14 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-2 程序的流程控制 Visual FoxPro系统提供的命令丰富

11、，且功能强大，把这些命令和程序设计语句有效地组织在一起，就形成了实现某一特定功能的程序。Visual FoxPro系统的程序有两个特点：一是程序控制流模式，由顺序、分支、循环三种基本结构构成。二是面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流组成。常见的控制结构如下：第 15 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录程序的程序的3种基本结构种基本结构任何一种计算机语言程序主体是由3种基本结构组成：顺序结构、选择结构和循环结构。顺序结构循环结构选择结构第 16 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-2-1 7-2-1 顺序结构顺序结构

12、 在结构化程序设计方法中，程序基本控制结构有三种，即顺序结构、分支结构和循环结构。顺序结构是一种线形结构，是最基本的程序结构，它是按照命令或语句的排列顺序，依次执行。7-2-2 7-2-2 选择结构选择结构 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。第 17 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录选择结构的基本形式 有三种基本形式：1、单条件选择结构单分支结构是一种IFENDIF分支结构格式：IF条件表达式 语句序列 EDNIF功能：条件表达式的值为真（.T.）则执行“语句序列”，否则为假（.F.）则直接执行EDNI

13、F后续语句条件真假语句序列第 18 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录例1：从键盘输入一个数，若为正数则输出，若为非正数则结束。此题学生自己分析。例2：求一元二次方程AX2BXC0的实根。分析：用根的判别式：DB24AC进行判别，如果：D0，说明有实根，如果：D0，则说明无实根。第 19 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录输入A、B、CDBB4AC如果D0X1=（-B+SQRT（D）/(2A)真X2=（-B-SQRT（D）/(2A)输出X1、X2第 20 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录双向分支结构双向分支结构 双

14、向分支语句，即根据用户设置的条件表达式的值，选择两个操作中的一个来执行。是一种IFELSEENDIF选择结构格式：IF条件表达式语句序列1ELSE语句序列2ENDIF 功能：表达式为真，则执行“语句序列1”，再执行EDNIF的后续语句；为假，则执行“语句序列2”，再执行EDNIF的后续语句。条件真假语句序列1语句序列2第 21 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录例：用IFELSEENDIF方法，再做一次求解一元二次方程的根，若有实根，则输出实根，否则输出“无实根”。例：从键盘输入一个自然数，若是偶数则输出“偶数”，否则输出“奇数”。第 22 页 共 76 页上一步上一

15、步下一步下一步关关 闭闭目目 录录2、多分支条件选择语句（多路选择）、多分支条件选择语句（多路选择）是一种DOCASEENDCASE分支结构格式：DOCASECASE条件表达式1语句序列1CASE条件表达式2语句序列2CASE条件表达式语句序列nOTHERWISE语句序列n+1ENDCASE条件1语句序列1条件n。语句序列nOTHERWISEyNNy第 23 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录功能：依次判断条件1n的表达式，当遇到第一个条件为真时，则执行该表达式对应的语句序列，然后转去执行ENDCASE的后续语句，若前几个表达式都为假，则执行OTHERWISE的语句序

16、列，然后执行ENDCASE的后续语句。第 24 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录v 使用分支语句应注意的几点使用分支语句应注意的几点（1）IF ENDIF和DO CASE ENDCASE 必须配对使用，DO CASE与第一个CASE条件表达式之间不应有任何命令。（2）条件表达式可以是各种表达式或函数的组合，其值必须是逻辑值。（3）命令行序列可以由一个或多个命令组成，可以是条件控制语句组成的嵌套结构。（4）DO CASE ENDCASE 命令，每次最多只能执行一个命令行序列。在多个CASE项的条件表达式值为真时，只执行第一个条件表达式值为真的命令行序列，然后执行END

17、CASE的后面的第一条命令。第 25 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录例：从键盘输入一个学生的成绩，按下述规定输出：90分100分输出“优秀”80分89分输出“良好”70分79分输出“中等”60分69分输出“及格”0分 59分 输出“不及格”参考P135【例7-10】第 26 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录练习1.编写程序，输入一个数，判断这个数能否被6整除。2.编写一正整数存于变量X中，判断它是几位数。第 27 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-2-3 7-2-3 循环结构循环结构 常用的循环语句有以下三

18、种形式：1.1.DO DO WHlLEWHlLEENDDOENDDO循环循环 “当”型循环控制语句，即根据条件表达式的值，决定循环体内语句的执行次数。语句格式：DO WHILE 条件表达式 命令行序列 ENDDO语句功能：该语句通过条件表达式的值来控制循环。执行语句时，反复判断条件表达式的值，当条件表达式的值为“真”时，执行命令行序列；否则，结束循环，并执行ENDDO 后面的第一条命令。第 28 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录举例例1 计算S12399100的值。例2 从键盘输入一组数据，分别计算出正负数的个数，输入“0”时程序结束。例3 逐条输出1982年出生的

19、学生记录第 29 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录输入Xm=0&m用于统计正数的个数n=0&n用于统计负数的个数当X0如果X0真m=m+1假n=n+1输入X输出m、n第 30 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2FORENDFOR循环循环 FORENDFOR循环，即根据用户设置的循环变量的初值、终值和步长，决定循环体内语句的执行次数据。语句格式：FOR循环变量循环变量初值TO循环变量终值 STEP循环变量步长 命令行序列 ENDFORNEXT第 31 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录语句功能：该语句用循环变量来控

20、制命令行序列的执行次数。执行语句时，首先将循环变量初值赋给循环变量，然后判断循环变量是否大于或小于循环变量终值，若结果为“真”，则结束循环，执行ENDFOR 后面的第一条命令；否则，执行命令行序列，循环变量自动按循环变量步长增加或减少，再重新判断循环变量当前的值是否大于或小于循环变量终值，直到其结果为真。第 32 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录举例例1计算1到100中所有奇数之和。例2 找出100999之间的所有“水仙花数”（三位数中各位数的立方和等于该数本身）。例3 从键盘输入10个数，找出其中最大和最小数。第 33 页 共 76 页上一步上一步下一步下一步关关

21、 闭闭目目 录录3SCAN.ENDSCAN循环循环 SCAN.ENDSCAN循环，即根据用户设置的表中的当前记录指针，决定循环体内语句的执行次数据。语句格式：SCAN范围FOR条件表达式1 WHILE 条件表达式2 命令行序列 ENDSCAN第 34 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录语句功能：该语句在指定的范围内，用数据记录指针来控制循环次数。执行语句时，首先判断函数EOF（）的值，若其值为“真”，则结束循环，否则，结合条件表达式1或条件表达式2，执行命令行序列，记录指针移到指定的范围和条件内的下一条记录，重新判断函数EOF（）的值，直到函数EOF（）的值为真时结束

22、循环。第 35 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录举例例1统计“学生”数据表专业代码为03的男、女生人数。例2编写对“学生”数据表按任意条件查询的程序。Ck.prg第 36 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录4三种循环的比较三种循环的比较（1）DO WHILE和 ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必须配对使用。（2）命令行序列可以是任何FoxPro命令或语句，也可以是循环语句，即可以为多重循环。（3）循环变量应是数值型的内存变量或数组元素。第 37 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录（4）EX

23、IT和LOOP命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。EXIT的功能是跳出循环，转去执行ENDDO、ENDFOR、ENDSCAN后面的第一条命令；LOOP的功能是转回到循环的开始处，重新对“条件”进行判断，相当于执行了一次ENDDO、ENDFOR、ENDSCAN命令，它可以改变命令行序列中部分命令的执行次数。EXIT、LOOP可以出现在命令行序列的任意位置。第 38 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-3 模块结构程序设计模块结构程序设计 应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序和自定义函数。7-

24、3-1 子程序的调用子程序的调用1子程序的建立、调用与返回子程序的建立、调用与返回 对于两个具有调用关系的程序文件，常称调用程序为主程序，被调用程序为子程序。在VFP中，子程序与主程序享有相同的“待遇”，即可以用“MODIFY COMMAND”命令来建立和修改，具有相同的扩展名.prg，并以同样的文件格式存储在磁盘上。所不同的是：在每个子程序中至少要有一个返回语句RETURN（或RETURN MASTER）。第 39 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录例：试编写一程序求解 W=X!+Y!+Z!（其中：X,Y,Z的值均为一位正常数）。主程序：*MAIN_1.PRGSET

25、 TALK OFFINPUT”X=”TO XINPUT“Y=”TO YINPUT“Z=”TO ZN=XDO SUB_2A=TN=Y第 40 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录DO SUB_2B=TN=ZDO SUB_2W=A+B+T?”W=”+STR(W,7)SET TALK ON*SUB_2.PRGPUBLIC TT=1&给T赋初值1FOR I=1 TO NT=T*IENDFORRETURN第 41 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录由此例可以得出以下结论：l主程序在调用子程序之前，要先为子程序中的某些变量赋值，例如，N=X，N=Y，N=Z

26、，以做好调用子程序的准备；子程序执行完毕返回主程序时，要及时保存其运算结果，例如，A=T，B=T，以免再次调用子程序时将其破坏。第 42 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2子程序嵌套 主程序与子程序的概念是相对的，子程序还可调用它自己的子程序，即子程序可以嵌套调用。VFP的返回命令包含了因嵌套而引出的多种返回方式。命令格式：RETURN TO MASTER/TO 命令格式中的TO MASTER选项，使返主时直接返回到最外层主程序；可选项TO 强制返回到指定的程序文件。第 43 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-3-2 过程及过程调用过程

27、及过程调用 Visual FoxPro与其他高级语言一样，支持结构化程序设计方法，允许将若干命令或语句组合在一起作为整体调用，这些可独立存在并可整体调用的命令语句组合称为过程。1外部过程外部过程 外部过程也叫子程序，和主程序一样是以程序文件（.PRG）的形式单独存储在磁盘上。子程序是指能被其他程序调用的程序。通常情况下，被调用的称为子程序，调用它的称为主程序。子程序中必须使用的条命令是返回命令RETURN,格式为：RETURN表达式|TO MASTER|TO程序文件名 功能是返回到调用该子程序的上级程序第 44 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2内部过程：把多个过程

28、组织在一个文件中(这个文件称之为过程文件)，或者把过程放在调用它的程序文件的末尾。Visual FoxPro为了识别过程文件或者程序文件中的不同过程，规定过程文件 或 者 程 序 文 件 中 的 过 程 必 需 用PROCEDURE语句说明。即过程文件的建立。第 45 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3过程文件的建立过程文件的建立【格式】*过程文件名PROCEDURE RETURNPROCEDURE RETURN 过程文件中的每个子过程必须以PROCEDURE语句开头，后面跟过程名，每个子过程以RETURN语句结束。第 46 页 共 76 页上一步上一步下一步下一步

29、关关 闭闭目目 录录4过程文件的打开过程文件的打开调用过程文件前，应先打开相应的过程文件。【格式】SET PROCEDURE TOPRG，文件名2ADDITIVE【功能】打开过程文件。在调用过程前，过程文件一旦被打开，过程文件中所有的子过程都被打开，可以随时被调用。在Visual FoxPro中，如果要同时打开两上以上的过程文件，可以在过程文件名之间用逗号分开。如果分别打开多个过程文件，则后打开的过程文件将会关闭先前所打开的过程文件，为避免这种情况发生，在SET PROCEDURE命令中加入ADDITIVE参数。调用过程和调用于程序一样，使用D0命令来调用指定的子过程。第 47 页 共 76

30、页上一步上一步下一步下一步关关 闭闭目目 录录5过程文件的调用过程文件的调用【格式】DO 过程名 WITH 【功能】执行以过程名为名的过程，即执行已有的过程。6过程文件的返回过程文件的返回【格式】RETURNTO MASTERTO过程名【功能】将控制返回到调用程序中调用命令的下一语句，即返回过程的调用处。7过程文件的关闭过程文件的关闭 当过程文件调用结束后，应及时关闭过程文件。使用下列命令关闭过程文件：(1)SET PROCEDURE TO(2)CLOSE PROCEDURE第 48 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-3-3 过程调用中的参数传递过程调用中的参数传

31、递 过程可以没有或有多个参数，多个参数由逗号隔开。带参程调用命令在主程序中的调用格式：1有参过程中的形式参数定义有参过程中的形式参数定义有参过程中的形式参数定义语句为：【格式】PARAMETERS【功能】该语句必需是过程中第一条语句。中的参数可以是任意合法的内存变量名。2程序与被调用过程间的参数传递程序与被调用过程间的参数传递程序与被调用过程间的参数传递是通过过程调用语句DO WITH 中WITH 子句来实现的。【格式】DO|WITH 第 49 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录【说明】1 DO命令中参数称为实际参数，PARAMATERS命令中的参数称为形式参数。两个

32、中的参数必须相容，即个数相同，类型和位置一一对应；2 实际参数可以是任意合法表达式，形式参数是过程中的局部变量，用来接收对应实际参数的值；3 参数的传递模式:l 按值传递 按值传递时，传递给被调用过程（子过程）参数的是调用过程（父过程）调用时所使用的值。一般实参是一个变量或是一个表达式。l 按地址传递 如果实参是一个变量（而不是表达式），则传递给形参的是该变量的地址。这是形参和实参是同一个变量，在过程中改变形参的值，会同时改变实参的值。默认模式下，变量按地址传递方式向过程传递，按值传递方式向函传递。第 50 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录练习例1、对任意给的正整数

33、A、B、C，编写程序计算SA！（3/5）B！（C！/2）例2、已知组合数的公式为：C mn可写为C(m,n)求8!+c(9,4)-c(10,5)的值说明：写阶乘和组合数两个过程，用主程序调用这两过程。第 51 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-3-4 变量的作用域变量的作用域 程序设计离不开变量，如果以变量的作用来分，内存变量分为公共变量、私有变量和局部变量。1公共变量公共变量 公共变量是指在所有程序模块中都可以使用的内存变量。公共变量要先建立后使用。【格式】PUBLIC 【功能】该命令的功能是建立公共的内存变量，并为它们赋初值逻辑假.F.第 52 页 共 76

34、页上一步上一步下一步下一步关关 闭闭目目 录录2局部变量局部变量 局部变量是指在建立它的程序以及被此程序调用的程序中有效的内存变量。【格式】LOCAL 【功能】该命令的功能是建立指定的内存变量，并为它们赋初值逻辑假.F.3私有变量私有变量 在程序中直接使用而由系统自动隐含建立的变量都是私有变量。私有变量的作用域是建立它的模块及其下属的各层模块。一旦建立它的模块程序运行结束，这些私有变量将自动清除。【格式】PRIVATE ALLLIKE|EXCEPT第 53 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-3-5 自定义函数 Visual FoxPro为用户提供了几百个内部标准函

35、数，但是并不能完全符合每个用户的需要，因此，为了程序设计的需要，必须自行设计函数，用户按一定规则来定义的函数，这种函数称为自定义函数。自定义函数的格式如下：【格式】FUNCTION(变量名称)RETURN ENDFUNC 第 54 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录【功能】用户自己定义一个函数。定义了函数之后，可将它保存在单独的程序文件中，也可放在一般程序的底部，但不能将可执行的主程序放在函数之后。调用自定义函数与一般内部函数相同，函数执行后返回一个数据给调用程序，可以是常数、变量或表达式等。如果没在RETURN命令后加入返回值，Visual FoxPro将自动返回.

36、T.。当程序或用户自定义函数执行到RETURN命令就会立刻返回到调用程序中。第 55 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录【例】利用自定义函数，求X！+Y!CLEARINPUT 输入X的值：TO XU=JC(X)&调用函数JCINPUT 输入Y的值：TO YV=JC(Y)?SUM=,U+VFUNCTION JCPARAMETERS NS=1IF N=1FOR I=1 TO NS=S*INEXTENDIFRETURN(S)ENDFUNC在该例中定义了一个求阶乘的函数。函数名为JC，X!的求法是在主程序内从键盘输入X的值，再调用JC函数求得X!后将值带回主程序。最后将两个阶

37、乘值相加。第 56 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-4 用户定义对话框MESSAGEBOX（）函数的使用 MessageBox函数用于显示短信息。虽然，MessageBox显示的小窗口不具有什么功能，实际上它被认为是一个对话框。对话框是用户与应用程序之间交换信息的最佳途径之一。使用对话框函数可以得到VFP的内部对话框，这种方法具有操作简单及快速的特点。MESSAGEBOX函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。1格式 MESSAGEBOX（CMessageText,nDialogboxType,CTitleBarText

38、）2功能 该函数用于显示一个信息框。第 57 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3说明 （1）CMessageText：表示显示在信息框中的正文内容。（2）nDialogboxType：确定消息框中要显示哪些按钮和图标，一般有3个参数。其取值和含义为：l 05：表示出现在信息框中的按钮，如表所示。值按钮0只有“确定”按钮1具有“确定”和“取消”按钮2具有“终止”、“重试”和“忽略”按钮3具有“是”、“否”和“取消”按钮4具有“是”和“否”按钮5具有“重试”和“取消”按钮第 58 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录l16,32,48,64：表示

39、出现在消息框中的图标；值图标16停止图标32问号图标48感叹号图标64 信息图标ll0，256，512：表示消息框中哪些是默认按钮。值默认按钮0第一个按钮256第二个按钮512第三个按钮第 59 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录 （3）CTitleBarText：表示出现在消息框标题栏中的文本。若缺省此项，系统给出默认的标题：Microsoft Visual FoxPro （4）MESSAGEBOX()函数的返回值是一个数值，用于确定在消息框中选择了哪个按钮。返回值图 标1“确定”按钮2“取消”按钮3“终止”按钮4“重试”按钮5“忽略”按钮6“是”按钮7“否”按钮第

40、 60 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录 （5）如果省略了某些可选项，必须加入相应的逗号分隔符。在程序运行的过程中，有时需要显示一些简单的信息如警告或错误等，此时可以利用“信息对话框”来显示这些内容。当用户接收到信息后，可以单击按钮来关闭对话框，并返回单击的按钮值。第 61 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录4举例 用MESSAGEBOX()函数显示一个消息框，正文为“这是一个教师工资管理的数据库”，消息框中有“确定”，“取消”按钮，有问号图标，“取消”按钮是默认按钮，消息框标题栏中的文本为“消息框”。通过窗口显示该信息如图例。？MESSA

41、GEBOX(“这是一个教师工资管理的数据库！”,3+64+512,”消息框”)第 62 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-5 程序调试程序调试7-5-1程序调试程序调试 程序调试就是确定程序出错的位置，然后加以改正，一直到达到预定的设计要求为止。程序调试往往是先分模块调试，当各模块都调试通过以后，再联合起来进行调试，通过联调后，便可试运行，试运行无误即可投入正常使用。当程序运行时产生了错误或得到了不正确的结果，往往需要跟踪程序的运行才能找出错误所在，为此VFP提供了丰富的调试工具，帮助我们逐步发现代码中的错误，有效地解决问题。选择“工具/调试器”菜单项中，就打开了

42、“调试器”窗口。也可以使用下面的任意命令打开调试器：nDEBUG nSET STEP ON nSET ECHO ON第 63 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-5-2调用调试器调用调试器 调用调试器的方法一般有两种：选择“工具”菜单中的“调试器”命令。在命令窗口输入DEBUG命令。在Visual FoxPro中，打开“调试器”窗口后，可以选择地打开5个子窗口：跟踪、监视、局部、调用堆栈、调试输出。系统默认显示：监视、局部和调用堆栈三个子窗口。第 64 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录1跟踪窗口跟踪窗口 在调试中，可以使用的一个最有用的方

43、法就是跟踪代码，以此观察每一行代码的运行，同时检查所有的变量、属性和环境设置的值。用“窗口/跟踪”菜单项或工具栏中的跟踪按钮可以打开“跟踪”窗口。选择“调试/运行”菜单项，在打开的“运行”对话框中，选择要跟踪的程序或表单，在“跟踪”窗口打开它。跟踪窗口左端的灰色区域会显示某些符号，常见的符号及其意义如下：指向调试中正在执行的代码行。l：断点。可以在某些代码行处设置断点，当程序执行到该代码行时，中断程序执行。可以控制跟踪窗口中的代码是否显示行号，方法是：在Visual FoxPro系统“选项”对话框的“调试”选项卡中选择“跟踪”单选按钮，然后设置“显示行号”复选框。第 65 页 共 76 页上一

44、步上一步下一步下一步关关 闭闭目目 录录2监视窗口 监视窗口用于监视指定表达式在程序调试执行过程中的取值变化情况。要设置一个监视表达式，可单击窗口中的“监视”文本框，然后输入表达式的内容，按回车键后表达式便添入文本框下方的列表框中。当程序调试执行时，列表框内将显示所有监视表达式的名称、当前值及类型。双击列表框中的某个监视表式就可对它进行编辑。右键单击列表框中的某个监视表达式，然后在弹出的快捷菜单选择“删除监视”可删除一个监视表达式。在监视窗口中可以设置表达式类型的断点。第 66 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3局部窗口 局部窗口用于显示模块程序（程序、过程和方法程

45、序）中的内存变量（简单变量、数组、对象），显示它们的名称、当前取值和类型。可以从“位置”下拉列表框中选择指定一个模块程序，下方的列表框内将显示在该模块程序内有效（可视）的内存变量的当前情况。单击局部窗口，然后在弹出的快捷菜单中选择“公共”、“局部”、“常用”或“对象”等命令，可以控制在列表框内显示的变量种类。第 67 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录4调用堆栈窗口 调用堆栈窗口用于显示当前处于执行状态的程序、过程或方法程序。若正在执行的程序是一个子程序，那么主程序和子程序的名称都会显示在该窗口中。模块程序名称的左侧往往会显示一些符号，常见的符号及其意义如下：调用顺序

46、序号：序号小的模块程序处于上层，是调用程序。序号大的模块程序处于下层，是被调用程序，序号最大的模块程序也就是当前正在执行的模块程序。当前行指示器（）：指向当前正在执行的行所在的模块程序。从快捷菜单中选择“原位置”和“当前过程”命令可以控制上述两个符号是否显示。第 68 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录5调试输出窗口 可以在模块程序中设置一些DEBUGOUT命令，其格式是：DEBUGOUT 当模块程序调试执行到此命令时，会计算出表达式的值，并将计算结果送入调试输出窗口。为了区别于DEBUG命令，命令动DEBUGOUT至少要写出6个字母。若要把调试输出窗口中的内容保存到

47、一个文本文件里，可以选择调试器窗口“文件”菜单中的“另存输出”命令，或选择快捷菜单中“另存为”命令。要清除该窗口中的内容，可选择快捷菜单中的“清除”命令。第 69 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录7-5-3设置断点 在调试器窗口可以设置以下4种类型的断点：l类型1：在定位处中断。可以指定一代码行，当程序调试执行到该代码时中断程序运行。l类型2：如果表达式值为真则在定位处中断。指定一代码行以及一个表达式，当程序调试执行到该行代码时如果表达式的值为真，就中断程序运行。l类型3：当表达式值为真时中断。可以指定一个表达式，在程序调试执行过程中，当该表达式值改成真时中断程序运

48、行。l类型4：当表达式值改变时中断。指定一个表达式，在程序调试执行过程中，当该表达式值改变时中断程序运行。不同类型断点的设置方法大致相同，但也有一些区别。第 70 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录1设置类型1断点 在跟踪窗口中找到要设置断点的那行代码，然后双击该行代码左端的灰色区域，或先将光标定位于该行代码中，然后按F9键。设置断点后，该代码行左端的灰色区域会显示一个实心圆点。用同样的方法可以取消已经设置的断点。也可以在“断点”对话框中设置该类断点，其方法与设置类型2断点的方法类似。第 71 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录2设置类型设置

49、类型2断点断点 在调试器窗口中，选择“工具”菜单上的“断点”命令，打开“断点”对话框，从“类型”下拉列表中选择相应的断点类型。在“定位”框中输入适当的断点位置，例如Alpp,2表示在模块程序Alpp的第2行处设置断点。在“文件”框中指定模块程序所在的文件。文件可以是程序文件、过程文件、表单文件等。在“表达式”框中输入相应的表达式。单击“添加”按钮，将该断点添加到“断点”列表框里，单击“确定”按钮。第 72 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录 与类型1断点相同，类型2断点在跟踪窗口的指定位置上也有一个实心点。要取消类型2断点，可以采用与取消类型1断点相同的方法，也可以先

50、在“断点”对话框的“断点”列表中选择断点，然后单击“删除”按钮。后者适合于所有类型断点的删除。在设置该类断点时，如果觉得“定位”框和“文件”框的内容不大好指定，也可以采用下面的方法进行：在所需位置上设置一个类型1断点，在“断点”对话框的“断点”列表框内选择该断点，重新设置类型并指定表达式。单击“添加”按钮，添加新的断点，选择原先设置的类型1断点，单击“删除”按钮。第 73 页 共 76 页上一步上一步下一步下一步关关 闭闭目目 录录3设置类型3断点 在调试器窗口中，选择“工具”菜单上的“断点”命令，打开“断点”对话框。从“类型”下拉列表中选择相应的断点类型，在“表达式”框中输入相应的表达式，单