vfp课件-结构化程序设计.ppt

《vfp课件-结构化程序设计.ppt》由会员分享，可在线阅读，更多相关《vfp课件-结构化程序设计.ppt（42页珍藏版）》请在三一办公上搜索。

1、第6章 VFP程序设计基础,6.1 应用程序简介,6.2 应用程序中的常用命令,6.4 过程与函数,6.3 程序的控制结构,6.5 结构化程序设计举例,VFP工作方式的最大特点，通过菜单、命令窗口、对话框、工具栏等图形界面直接操纵数据库Q：为什么需要编制程序？1、在VFP中任何可以用交互方式实现的数据管理工作，均可用程序方式实现 2、VFP中直观、方便的交互方式效率低，操作繁琐，速度慢 3、最终用户对VFP了解一般，极易出现误操作 4、程序方式使用户能通过简单的选单操作即可使用系统，出现误操作系统也 会自动处理，建立真正的管理信息系统必须编制程序 VFP既兼容传统的面向过程的程序设计方式，也提

2、供面向对象的编程技术。面向过程的方式是一种程序流的驱动方式，强调的是解决问题的过程，不关心其中的操作对象；面向对象的方法将若干个对象有机结合在一起，以对对象的操作完成对整个任务的操作，关心的是每个对象，思考的是对象间的联系。,第1节 应用程序简介,一、应用程序概念：为完成某项任务所需执行的命令序列，这些命令按照一定的结构有机地组合在一起，并以文件的形式存储在磁盘上，又称为命令文件。二、应用程序的组成：前言：注释语句 设置区：设置程序的运行环境，多由SET命令实现 程序体：所有命令序列，一般包括数据的输入输出、数据的处理以 及结果输出等命令 整理部分：如关闭各种文件 程序的退出：设置有关命令关闭

3、文件返回到命令窗口状态或操作系 统状态,第2节 应用程序中的常用命令,一、环境设置命令Set talk on/off 设置是否在主窗口中状态栏中 显示所有命令的执行结果Set console on/off 设置是否把输出信息在窗口上显示Set printer on/of 设置是否在打印机上输出信息Set safety on/off 设置在改写文件时VFP是否显示 对话框以确认改写有效Set heading on/off 设置在执行LIST、DISPLAY等 命令时是否显示字段名Set status on/off 设置是否显示状态行Set default to 盘符 指定默认的驱动器Set de

4、vice to screen/printer 把输出信息发送到VFP的窗口 屏幕或打印机,二、交互输入命令1、键入字符串命令格式：ACCEPT TO 说明：1）暂停程序的运行等待用户键入字符型常量赋给指定 的内存变量 2）是显示在屏幕上的、用于提示说明的字 符型表达式 3）如果不键入任何字符而只按回车键，则赋给内存变 量的值将是一个空字符串 示例：编写可以打开任一数据表文件的通用命令。ACCEPT“请输入要打开的表文件名：”TO BM USE&BM,2、输入单字符命令格式：WAIT TO 功能：暂停程序的运行，等待用户键入单个字符后再恢复程序运行 说明：1）为可选项，其格式、功能与要求同ACC

5、EPT 命令。如果命令中无此选项，则系统默认的提示信息是：PRESS ANY KEY TO CONTINUE 2）TO 也为可选项，选用时，则键入的单个字符 均作为字符型数据赋给内存变量。如果只是按下回车 键，则只将一个空字符存入内存变量示例：等待用户键入“Y/y”或其它字符，以确定是否继续执行程序 wait“是否继续执行”to x if x=y or x=Y else exit endif,2、键入表达式命令格式：INPUT TO 功能：暂停程序运行，等待键入表达式并将其值赋给指定的内存 变量（可接受数值、字符、日期和逻辑型数据），待按回车 键后，继续运行程序。说明：1）为可选项，其格式、功

6、能与要求同ACCEPT命令 2）命令中的的类型决定于键入数据的类型，但不得 为M型数据 3）若键入的是表达式，本命令将先计算出表达式的值，然后把 其结果赋给 4）若键入字符型常量或逻辑型常量时应带有定界符 5）在响应该命令时，若键入了无效表达式或只按下回车键，系 统将会给出提示信息示例：试运行下述交互输入命令 INPUT“请输入学生姓名：”TO XM INPUT“请输入其班级：”TO BJ INPUT“该人性别为：”TO XB,三、常用辅助命令1、注释命令格式1：NOTE 格式2：*格式3：)，系统默认下一 行内容仍为注释内容。示例1：NOTE 打开学生表 USE 学生表.DBF 示例2：SE

7、T CONSOLE OFF&取消窗口的输出显示,2、清除命令格式1：CLEAR说明：清除当前屏幕上的所有信息格式2：CLEAR ALL说明：关闭所有文件，清除所有内存变量,3、关闭文件命令格式1：CLOSE ALL说明：关闭所有的数据库、表以及索引文件格式2：CLOSE 说明：文件类型DATABASE数据库文件、索引文件、格式文件INDEX当前工作区的索引文件FORMAT 当前工作区的格式文件PROCEDURE 当前工作区的过程文件ALTERNATE 文本输出文件,4、运行中断和结束命令格式1：QUIT说明：退出VFP，返回到操作系统状态格式2：CANCEL说明：结束本次程序的运行，返回到命令

8、窗口状态格式3：RETURN TO MASTER说明：返回到调用点处,5、定位输入输出命令格式：SAY 说明：在指定的行、列处输出数据示例：在主工作区的（10,10）位置输出“欢迎使用”,第3节 程序的控制结构,程序设计的过程：分析问题、确定任务、划分模块、建立模型、组织数据、描述操作步骤、编写程序、上机调试、分析运行结果、写出程序说明书面向过程方式采用的程序设计方法：结构化程序设计，其基本原则是自顶向下、逐步求精；此方法提出了三种基本程序结构，分别是顺序、选择、循环；任何一个程序均可用这三种结构装配流程图：就是运用一些特定的图形符号和必要的文字来描述解题步骤的图示三种基本程序结构流程图：,顺

9、序结构,分支结构,循环结构,一、顺序结构 概念：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。从宏观上看，任何程序或系统都可看成是一个个基本结构或一个个基本程序段构成的顺序结构示例1：试在表文件中查看某职工的有关情况。SET TALK OFF CLEAR USE 学生表.DBF LOCATE FOR 学号=“20026920111”DISPLAY USE SET TALK ON示例2：根据输入的半径值，计算出相应的圆的周长。SET TALK OFF CLEAR INPUT“请输入圆的半径：”TO R L=2*3.1416*R 10,10 SAY“圆的周长是：”+ST

10、R(L,6,3)SET TALK ON,1、简单分支格式：IF ENDIF注意：IF和ENDIF必须成对出现,二、分支结构概念：按照一定的条件由判断语句或选择语句构成的双重或多重 走向的程序,示例：在“职工人事档案表”中查看“张丹枫”的基本情况 SET TALK OFF CLEAR USE 职工人事档案表 LOCATE FOR 姓名=“张丹枫”,IF FOUND()DISPENDIF USE SET TALK ON,2、选择分支格式：IF ELSE ENDIF,示例：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、

11、课程号并通知其补考。SET TALK OFFUSE 分数.DBFCLEARLOCATE FOR 学号=“99020203”IF 成绩=60?“学号：”+学号?“课程号：”+课程号?“成绩：”+STR(成绩,6,2)ELSE?“学号为”+学号+“的学生应参加补考的课程号为：”+课程号ENDIF USESET TALK ON,作业 求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！,3、判断语句嵌套IF语句多重嵌套示意结构如下：IF ELSE IF ELSE IF ELSE ENDIF3 ENDI

12、F2 ENDIF1,注意：（1）IF、ELSE(可不选)、ENDIF一一 对应、互相匹配（2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉（3）最好采用缩格（锯齿形）的书写方式,示例：根据键入X的值，计算下面分段函数的值，并显示结果,程序如下：SET TALK OFFCLEARINPUT“X=”TO XIF X0 IF X10 Y=X*X+1 ELSE Y=3*X*X-2*X+1 ENDIFELSE Y=X*X+4*X-1ENDIF?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN,4、多分支结构格式：DO CASE CASE CASE C

13、ASE OTHERWISE ENDCASE,示例：用DO CASE语句修改上面计算分段函数的例子。SET TALK OFFCLEARINPUT“X=”TO XDO CASE CASE X0.AND.X10 Y=X*X+1ENDCASE?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN,三、循环结构 循环结构程序：按照一定条件重复进行某种特定操作的 程序称为循环结构程序,1、当型循环结构格式：DO WHILE LOOP EXIT ENDDO说明：结构组成：循环起始语句、循 环体、循环终端语句注意：在循环体内要设置修改循环条 件的语句，避免死循环,例1：编程求和 S=1

14、+2+3+100。SET TALK OFF CLEAR STORE 0 TO N,S DO WHILE N=100 S=N+S N=N+1 ENDDO?”累加和S=”,S SET TALK ON RETURN,死循环示例：X=1 S=0 DO WHILE X=1 S=S+X X=X+1 ENDDO,例2：编程显示学生表中所有女生的记录。SET TALK OFF CLEAR USE 学生表 INDEX ON 性别 TO 学生表_性别 SEEK“女”DO WHILE 性别=”女”DISP SKIP ENDDO USE SET TALK ON RETURN,作业：令计算机从0开始计数，每计一个数，便

15、判断该数是否为偶数，若是偶数则接着计下一个数；若是奇数则将其累加，若累加和大于250，则计数结束；若累加和不大于250则继续计数，编写程序。,SET TALK OFF CLEAR STORE 0 TO N,S DO WHILE N=0 if s250 exit else if n%2=0 S=N+S N=N+1 else N=N+1 endif endif ENDDO?累加和S=,S SET TALK ON RETURN,例4：编写程序能根据键盘输入的姓名，从学生表中查找该生的信息。SET TALK OFF CLEAR ACCEPT“请输入姓名：”TO XM USE 学生表 DO WHILE.

16、NOT.EOF()IF 姓名=XM DISP EXIT ELSE SKIP ENDIF ENDDO USE SET TALK ON,2、固定次数的循环结构格式：FOR=TO STEP LOOP EXIT ENDFOR/NEXT注意：步长可为正值或负值示例：编程求和S=1+2+3+100。SET TALK OFFCLEARS=0FOR N=1 TO 100?”S=”,S S=S+N SET TALK ONENDFOR RETURN,3、表扫描循环结构格式：SCAN FOR WHILE LOOP EXIT ENDSCAN,SET TALK OFFCLEARN=0USE 学生表SCAN FOR 性别

17、=”男”（WHILE 性别=“男”）N=N+1ENDSCAN?”学生表中男学生的人数是：”,NUSESET TALK ONRETURN,例1：编程统计学生表中男学生的人数。,例2：统计表文件“学生表.DBF”中各个班级的人数。*L1.PRGSET TALK OFFSTORE 0 TO A,BCLEARUSE 学生表.DBFSCAN DO CASE CASE 班级=“注会”A=A+1 CASE 班级=“金融二”B=B+1 ENDCASEENDSCAN?“注会班的人数为：”+STR(A,3)?“金融二的人数为：”+STR(B,3)USESET TALK ON,4、多重循环结构格式（以当型循环结构为

18、例）：DO WHILE 条件表达式1 语句行序列11 DO WHILE 条件表达式2 语句行序列21 DO WHILE 条件表达式3 语句行序列31 ENDDO3 语句序列22 ENDDO2 语句行序列12 ENDDO1,例2：编写程序打印如下的图形*,SET TALK OFF CLEAR A=1 DO WHILE A=7 B=1 DO WHILE B=8 A,B+A SAY“*”B=B+1 ENDDO A=A+1 ENDDO SET TALK ON RETURN,作业：1、编程打印如下图形：*2、试用固定次数循环的嵌套格式编写一个打印九九乘 法口诀表的程序。,过程：可被调用的功能模块或能够完

19、成某种特定功能的独 立程序。,一、过程的建立与调用 1、过程的建立：PROCEDURE 2、过程的调用 DO 3、过程中的返回命令 RETURN 4、过程的嵌套：一个过程又调用了另一个过程,第4节 过程结构程序设计,例1：用过程编写一个求和与乘积的程序。*AA.PRG调用过程BB*过程BB SET TALK OFF M=3 S=1 N=5 P=1 S=M+N DO BB P=S*N?”S=”,S RETURN?”P=”,P SET TALK ON RETURN,例2：试编写一程序求解W=X!+Y!+Z!（其中：X，Y，Z的值均为一位正整数）。主程序*MAIN_1.PRG 过程*SUB_1.PR

20、GSET TALK OFF T=1 INPUT“X=”TO X FOR I=1 TO NINPUT“Y=”TO Y T=T*IINPUT“Z=”TO Z ENDFORN=X RETURNDO SUB_1A=TN=YDO SUB_1B=TN=ZDOU SUB_1W=T+A+B?“W=”+STR(W,7)SET TALK ON,例3：有一个名为SCORE的数据表，具有如下的字段：学号(C,5),姓名(C,8),政治(N,3),数学(N,3),外语(N,3),总分(N,3),平均分(N,6,2)。编写一程序，分别求出政治课、数学课和外语课的总分。*主程序CLASS.PRG SET TALK OFF*

21、计算单科总分的过程JSZF.PRGUSE SCORE GO TOPKCM=”政治”DO WHILE.NOT.EOF()T=0 T=T+&KCMDO JSZF SKIPT1=T ENDDOKCM=”数学”RETURNT=0DO JSZFT2=T KCM=”外语”T=0?”政治课，数学课，外语课的总分分别是：”,T1,T2,T3DO JSZF USET3=T SET TALK ON,二、过程文件 1、过程文件：过程的集合 2、过程文件的建立和修改：MODIFY COMMAND 3、过程文件的一般结构 PROCEDURE RETURN PROCEDURE RETURN PROCEDURE RETUR

22、N 4、过程文件的打开命令 格式：SET PROCEDURE TO 5、过程文件的关闭命令 格式I：SET PROCEDURE TO 格式II：CLOSE PROCEDURE,*过程文件PROC.PRG PROCEDURE PROC1?”I am from proc1.”?”*10 11 12 13 14 15”?”平方 100 121 144 169 196 225”RETURN PROCEDURE PROC2?”I am from proc2.”?”*10 11 12 13 14 15”?”立方 1000 1331 1728 2179 2774 3375”DO PROC3 RETURN P

23、ROCEDURE PROC3?”-”?”I am from proc3.”RETURN,*主程序MAIN.PRG CLEAR SET PROCEDURE TO PROC DO PROC1?”=”DO PROC2?”=”CLOSE PROCEDURE RETURN,例1：编写程序，调用过程文件中的过程，并显示结果。,例2：试求3100之间的所有素数并显示之。算法：每产生一个M值则依次除以3到M的算术平方根之间的所有奇数，若均不能被整除那M为素数，然后将其显示输出；否则，M就不是素数。,主程序 过程文件*MAIN_2.PRG*SUB_2.PRGSET TALK OFF PROCEDURE QSSE

24、T PROCEDURE TO SUB_2 FOR I=3 TO N STEP 2FOR M=3 TO 100 STEP 2 IF INT(M/I)=M/I I=3 RETURN N=INT(SQRT(M)ENDIF DO QS ENDFORENDFOR?MSET PROCEDURE RETURN,三、内存变量作用域（作用域：内存变量的作用范围）1、全局变量 1）指在程序的任何嵌套中及在程序执行期间始终有效的变量 2）格式：PUBLIC 例：在过程调用中，运用全局变量传递数据。主程序 过程*MAIN_3.PRG*SUB_3.PRG SET TALK OFF PUBLIC B,C CLEAR B=

25、2 PUBLIC A D=3 A=1?“在过程中：A，B，C，D=”,A,B,C,D DO SUB_3 RETURN?“返回主程序：A，B，C，D=”,A,B,C,DSET TALK ON,2、局部变量 1）未经PUBLIC命令定义且只在建立它的过程及其下级过程中 有效的内存变量。2）定义方式 隐含定义方式：过程中未经特殊说明的内存变量 显示定义方式：PRIVATE ALL LIKE/EXCEPT,*过程SUB_4.PRG PRIVATE B PUBLIC C A=10 B=11 C=12 D=13?“过程中：A=”,A?“B=”,B,“C=”,C,“D=”,D RETURN,例：在过程调用中

26、局部变量的应用*主程序MAIN_4.PRG SET TALK OFF A=1 B=2?“主程序中：A=”,A,“B=”,B DO SUB_4?“返主程序后：A=”,A?“B=”,B,“C=”,C,“D=”,D SET TALK ON,四、过程的带参调用 1、带参过程调用命令 格式：DO WITH 说明：参数表中的参数也称实参，可以为常量、已赋值的 变量或数值表达式。2、接收参数命令 格式：PARAMETERS 说明：参数表中的参数也称形参 形参与实参的数量应相等、类型要一致,示例：利用带参调用方法计算梯形面积。主程序*MAIN_5.PRG SET TALK OFF INPUT“输入梯形上底边长：”TO A INPUT“输入梯形下底边长：”TO B INPUT“输入梯形的高：”TO H STORE 0 TO S DO SUB_5.PRG WITH A+B,H,S?“所求梯形面积为：”,S SET TALK ON RETURN 过程*SUB_5.PRG PARAMETERS P,Q,T T=P*Q/2 RETURN,