《vfp课件—结构化程序设计》由会员分享，可在线阅读，更多相关《vfp课件—结构化程序设计（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 盘符
4、 指定默认的驱动器 Set device to screen /printer 把输出信息发送到VFP的窗口 屏幕或打印机,二、交互输入命令 1、 键入字符串命令 格式：ACCEPT TO 说明：1）暂停程序的运行等待用户键入字符型常量赋给指定 的内存变量 2）是显示在屏幕上的、用于提示说明的字 符型表达式 3）如果不键入任何字符而只按回车键，则赋给内存变 量的值将是一个空字符串 示例：编写可以打开任一数据表文件的通用命令。 ACCEPT “请输入要打开的表文件名：” TO BM USE &BM,2、输入单字符命令 格式：WAIT TO 功能：暂停程序的运行，等待用户键入单个字符后再恢复程序运
5、行 说明：1）为可选项，其格式、功能与要求同ACCEPT 命令。如果命令中无此选项，则系统默认的提示信息是： PRESS ANY KEY TO CONTINUE 2）TO 也为可选项，选用时，则键入的单个字符 均作为字符型数据赋给内存变量。如果只是按下回车 键，则只将一个空字符存入内存变量 示例：等待用户键入“Y/y”或其它字符，以确定是否继续执行程序 wait “是否继续执行” to x if x=y or x=Y else exit endif,2、键入表达式命令 格式：INPUT TO 功能：暂停程序运行，等待键入表达式并将其值赋给指定的内存 变量（可接受数值、字符、日期和逻辑型数据），
6、待按回车 键后，继续运行程序。 说明： 1）为可选项，其格式、功能与要求同ACCEPT命令 2）命令中的的类型决定于键入数据的类型，但不得 为M型数据 3）若键入的是表达式，本命令将先计算出表达式的值，然后把 其结果赋给 4）若键入字符型常量或逻辑型常量时应带有定界符 5）在响应该命令时，若键入了无效表达式或只按下回车键，系 统将会给出提示信息 示例：试运行下述交互输入命令 INPUT “请输入学生姓名：” TO XM INPUT “请输入其班级：” TO BJ INPUT “该人性别为：” TO XB,三、常用辅助命令 1、注释命令 格式1：NOTE 格式2：* 格式3：)，系统默认下一 行
7、内容仍为注释内容。 示例1：NOTE 打开学生表 USE 学生表.DBF 示例2： SET CONSOLE OFF &取消窗口的输出显示 ,2、清除命令 格式1：CLEAR 说明：清除当前屏幕上的所有信息 格式2：CLEAR ALL 说明：关闭所有文件，清除所有内存变量,3、关闭文件命令 格式1：CLOSE ALL 说明：关闭所有的数据库、表以及索引文件 格式2：CLOSE 说明：文件类型 DATABASE 数据库文件、索引文件、格式文件 INDEX 当前工作区的索引文件 FORMAT 当前工作区的格式文件 PROCEDURE 当前工作区的过程文件 ALTERNATE 文本输出文件,4、运行中
8、断和结束命令 格式1：QUIT 说明：退出VFP，返回到操作系统状态 格式2：CANCEL 说明：结束本次程序的运行，返回到命令窗口状态 格式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：根据输入的半径值，计算出相应
10、的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R 10,10 SAY “圆的周长是：”+STR(L,6,3) SET TALK ON,1、简单分支 格式： IF ENDIF 注意：IF和ENDIF必须成对出现,二、分支结构 概念：按照一定的条件由判断语句或选择语句构成的双重或多重 走向的程序,示例：在“职工人事档案表”中查看“张丹枫”的基本情况 SET TALK OFF CLEAR USE 职工人事档案表 LOCATE FOR 姓名=“张丹枫”,IF FOUND() DISP ENDIF USE SET TALK ON,2
11、、 选择分支 格式： IF ELSE ENDIF,示例：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、课程号并通知其补考。 SET TALK OFF USE 分数.DBF CLEAR LOCATE FOR 学号=“99020203” IF 成绩=60 ?“学号：”+学号 ?“课程号：”+课程号 ?“成绩：”+STR(成绩,6,2) ELSE ?“学号为”+学号+“的学生应参加补考的课程号为：”+课程号 ENDIF USE SET TALK ON,作业 求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户
12、通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！,3、判断语句嵌套 IF语句多重嵌套示意结构如下： IF ELSE IF ELSE IF ELSE ENDIF3 ENDIF2 ENDIF1,注意： （1）IF、ELSE(可不选)、ENDIF一一 对应、互相匹配 （2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉 （3）最好采用缩格（锯齿形）的书写方式,示例：根据键入X的值，计算下面分段函数的值，并显示结果,程序如下： SET TALK OFF CLEAR INPUT “X=” TO X IF X0 IF X10 Y=X*X+1
13、 ELSE Y=3*X*X-2*X+1 ENDIF ELSE Y=X*X+4*X-1 ENDIF ?”分段函数值为：”+STR(Y,10,2) SET TALK ON RETURN,4、多分支结构 格式： DO CASE CASE CASE CASE OTHERWISE ENDCASE,示例：用DO CASE语句修改上面计算分段函数的例子。 SET TALK OFF CLEAR INPUT “X=” TO X DO CASE CASE X0 .AND. X10 Y=X*X+1 ENDCASE ?”分段函数值为：”+STR(Y,10,2) SET TALK ON RETURN,三、循环结构 循环
14、结构程序：按照一定条件重复进行某种特定操作的 程序称为循环结构程序,1、当型循环结构 格式：DO WHILE LOOP EXIT ENDDO 说明：结构组成：循环起始语句、循 环体、循环终端语句 注意：在循环体内要设置修改循环条 件的语句，避免死循环,例1：编程求和 S=1+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：编程显示学生表
15、中所有女生的记录。 SET TALK OFF CLEAR USE 学生表 INDEX ON 性别 TO 学生表_性别 SEEK “女” DO WHILE 性别=”女” DISP SKIP ENDDO USE SET TALK ON RETURN,作业：令计算机从0开始计数，每计一个数，便判断该数是否为偶数，若是偶数则接着计下一个数；若是奇数则将其累加，若累加和大于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 .NOT.EOF() IF 姓名=XM DISP EXIT ELSE SKIP ENDIF ENDDO USE SET TALK ON,2、固定次数的循环结构 格式：FOR =
