《【2018年整理】vfp课件—结构化程序设计》由会员分享，可在线阅读，更多相关《【2018年整理】vfp课件—结构化程序设计（42页珍藏版）》请在金锄头文库上搜索。
1、第第6 6章章 VFPVFP程序设计基础程序设计基础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 BMUSE )，系统默认下一行内容仍为注释内容。 示例1：NOTE 打开学生表USE 学生表.DBF 示例2： SET CONSOLE OFF &取消窗口
5、的输出显示2、清除命令 格式1：CLEAR说明：清除当前屏幕上的所有信息 格式2：CLEAR ALL说明：关闭所有文件，清除所有内存变量3、关闭文件命令 格式1：CLOSE ALL说明：关闭所有的数据库、表以及索引文件 格式2：CLOSE 说明：文件类型 DATABASE数据库文件、索引文件、格式文件 INDEX当前工作区的索引文件 FORMAT 当前工作区的格式文件 PROCEDURE 当前工作区的过程文件 ALTERNATE 文本输出文件4、运行中断和结束命令 格式1：QUIT说明：退出VFP，返回到操作系统状态格式2：CANCEL说明：结束本次程序的运行，返回到命令窗口状态 格式3：RE
6、TURN TO MASTER说明：返回到调用点处5、定位输入输出命令 格式： SAY 说明：在指定的行、列处输出数据 示例：在主工作区的（10 ,10 ）位置输出“欢迎使用”第3节 程序的控制结构程序设计的过程：分析问题、确定任务、划分模块、建立模型、组织数据、 描述操作步骤、编写程序、上机调试、分析运行结果、写出程序说明书面向过程方式采用的程序设计方法：结构化程序设计，其基本原则是自顶向 下、逐步求精；此方法提出了三种基本程序结构，分别是顺序、选择、循环 ；任何一个程序均可用这三种结构装配流程图：就是运用一些特定的图形符号和必要的文字来描述解题步骤的图示三种基本程序结构流程图：AB条件AB条
7、件A顺序结构分支结构循环结构一、顺序结构概念：自始至终严格按照程序中语句的先后顺序逐条执行，是 最基本、最普遍的结构形式。从宏观上看，任何程序或系统都可 看成是一个个基本结构或一个个基本程序段构成的顺序结构 示例1：试在表文件中查看某职工的有关情况。SET TALK OFFCLEAR USE 学生表.DBFLOCATE FOR 学号=“20026920111”DISPLAY USESET TALK ON示例2：根据输入的半径值，计算出相应的圆的周长。SET TALK OFFCLEARINPUT “请输入圆的半径：” TO RL=2*3.1416*R10,10 SAY “圆的周长是：”+STR(
8、L,6,3)SET TALK ON1、简单分支 格式：IF ENDIF注意：IF和ENDIF必须成对出现二、分支结构概念：按照一定的条件由判断语句或选择语句构成的双重或多重 走向的程序语 句 行条件表达式语句行序列ENDIF后面的语句YN示例：在“职工人事档案表”中查看“张丹枫”的基本情况SET TALK OFFCLEARUSE 职工人事档案表LOCATE FOR 姓名=“张丹枫”IF FOUND()DISP ENDIFUSESET TALK ON2、 选择分支格式：IF ELSEENDIF语 句 行条件语句行序列1语句行序列2ENDIF后面的语句示例：在表文件“分数.DBF”中查找学号为99
9、020203的学生成绩， 若其成绩满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的值由用 户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当 方程无实根时，屏幕显示出“方程无实根！3、判断
10、语句嵌套 IF语句多重嵌套示意结构如下：IF ELSE IFELSE IF ELSEENDIF3ENDIF2ENDIF1 注意：（1）IF、ELSE(可不 选)、ENDIF一一 对应 、互相匹配（2）允许简单判断 和选择判断语句自我嵌 套或相互嵌套，但层次 必须清楚，不得交叉（3）最好采用缩格 （锯齿形）的书写方式示例：根据键入X的值，计算下面分段函数的值，并显示结果X2+4X-1 (X0)3X2-2X+1 (010)Y=程序如下： SET TALK OFF CLEAR INPUT “X=” TO X IF X0IF X10Y=X*X+1ELSEY=3*X*X-2*X+1ENDIF ELSEY
11、=X*X+4*X-1 ENDIF ?”分段函数值为：”+STR(Y,10,2) SET TALK ON RETURN4、多分支结构 格式： DO CASE CASE CASE CASE OTHERWISE ENDCASE语 句 行条件1语句行 序列1 语句行 序列2ENDCASE 后面的语句条件2 条件N语句行 序列NOTHERWISE 后的语句行 序列N+1YNYNNYN示例：用DO CASE语句修改上面计算分段函数的例子。 SET TALK OFF CLEAR INPUT “X=” TO X DO CASECASE X0 .AND. X10Y=X*X+1 ENDCASE ?”分段函数值为：
12、”+STR(Y,10,2) SET TALK ON RETURN三、循环结构循环结构程序：按照一定条件重复进行某种特定操作的 程序称为循环结构程序1、当型循环结构 格式：DO WHILE LOOPEXITENDDO 说明：结构组成：循环起始语句、循 环体、循环终端语句 注意：在循环体内要设置修改循环条 件的语句，避免死循环 ENDDO后面的语句语句行序列条件表达式循环体内语句修改条件表达式YN例1：编程求和S=1+2+3+100。SET TALK OFF CLEARSTORE 0 TO N,SDO WHILE N=1S=S+XX=X+1ENDDO例2：编程显示学生表中所有女生的记录。SET T
13、ALK OFFCLEARUSE 学生表INDEX ON 性别 TO 学生表_性别SEEK “女”DO WHILE 性别=”女”DISPSKIPENDDOUSESET TALK ONRETURN 作业：令计算机从0开始计数 ，每计一个数，便判断该数是 否为偶数，若是偶数则接着计 下一个数；若是奇数则将其累 加，若累加和大于250，则计 数结束；若累加和不大于250 则继续计数，编写程序。SET TALK OFF CLEARSTORE 0 TO N,SDO WHILE N=0if s250exitelseif n%2=0S=N+SN=N+1elseN=N+1endifendifENDDO?“累加和
14、S=“,SSET TALK ONRETURN例4：编写程序能根据键盘输入的姓名，从学生表中查找该 生的信息。SET TALK OFFCLEARACCEPT “请输入姓名：” TO XMUSE 学生表 DO WHILE .NOT.EOF()IF 姓名=XMDISPEXITELSESKIPENDIFENDDOUSESET TALK ON2、固定次数的循环结构 格式：FOR = TO STEP LOOPEXITENDFOR/NEXT 注意：步长可为正值或负值示例：编程求和S=1+2+3+100。 SET TALK OFF CLEAR S=0 FOR N=1 TO 100 ?”S=”,SS=S+N SET TALK ON ENDFOR RETURN3、表扫描循环结构 格式：SCAN FOR WHILE LOOPEXITENDSCAN SET TALK OFF CLEAR N=0 USE 学生表 SCAN FOR 性别=”男”（WHILE 性别=“男”）N=N+1 ENDSCAN ?”学生表中男学生的人数是：”,N USE SET TALK ON RETURN例1：编程 统计学生表 中男学生的 人数。例2：统计表文件“学生表.DBF”中各个班级的人数。 *L1.PRG SET TALK OFF STORE 0 TO A,B CLEA
