第九章程序设计基础

第九章程序设计基础教学内容：这节课将介绍VFP程序设计的基础知识、方法、技巧以及VFP程序设计中常用的命令。

在这章里，我们将利用VFP提供的程序设计命令和前几章所学的VFP命令，按照解决某一实际问题的要求，将所学的命令按一定的逻辑顺序组合起来，并以文件的形式将程序存储在磁盘中。

当我们调用这些程序时，计算机就能按照我们提供的命令序列自动连续地执行每一条命令，高效率的完成预定任务。

9.1 Visual FoxPro的工作方式1）应用程序：为完成某项任务所需执行的命令序列，这些命令按照一定的结构有机地组合在一起，并以文件的形式存储在磁盘上，又称为命令文件。

2）应用程序的组成：前言：注释语句设置区：设置程序的运行环境，多由SET命令实现程序体：所有命令序列，一般包括数据的输入输出、数据的处理以及结果输出等命令整理部分：如关闭各种文件程序的退出：设置有关命令关闭文件返回到命令窗口状态或操作系统状态9.1.1 命令方式在“命令”窗口中，可以操作命令完成对数据库的操作、系统环境的设置和建立、运行命令文件。

9.1.2 菜单方式通过系统菜单提供的菜单选项对数据库进行操作，对系统环境进行设置以及建立、运行命令文件。

9.1.3 程序文件方式程序文件（简称程序）也叫命令文件。

在Visual FoxPro环境下，利用程序文件方式进行数据库管理，是通过程序文件编辑工具，将对数据库操作的命令和对系统环境进行设置的命令，集中在一个以（.PRG）为扩展名的程序文件中，然后再通过菜单方式或命令方式运行该程序文件。

9.2 程序文件的建立与编辑9.2.1 以命令方式建立、编辑程序文件Modify Command <程序文件名>菜单：文件/新建/程序/新建文件说明：1.用于命令文件的建立与编辑，文件的扩展名系统默认.PRG。

2.文件编辑时输完一行，回车。

“ESC”放弃。

“^W”存盘。

3.插入新命令行，^N或回车。

9.2.2 以菜单方式建立、编辑程序文件9.2.3 利用设计工具建立程序代码9.3 程序文件的调用9.3.1 以命令方式调用程序文件Do <程序文件名>命令方式：DO 〈应用程序名〉 [WITH <参数表>]说明：1）在程序运行过程中执行到下述命令时将会中断运行而退出，它们退出后返回的系统状态分别是：CANCEL ：命令窗口状态。

QUIT ：操作系统状态。

RETURN ：调用点或命令窗口状态。

2）在程序运行过程中，若按下ESC 键可使运行强行中断。

这时系统显示警告，并给用户三种选择：取消：中断程序的运行。

此为缺省选项。

继续执行：忽略ESC 的中断作用，继续程序的执行。

挂起：暂时中断程序的运行，返回命令窗口。

当再次运行时可以从中断处继续运行。

9.3.2 以菜单方式调用程序文件程序文件创建、运行的操作步骤常用辅助命令1. 注释命令格式I ：NOTE <注释内容>格式II ：*<注释内容>格式III ：……&&<注释内容>说明：1）注释命令为非执行语句2）注释内容最后一个字符是分号(;)，系统默认下一行内容仍为注释内容。

示例1：NOTE 打开学生表USE 学生表.DBF……示例2：SET CONSOLE OFF &&取消窗口的输出显示……2. 环境设置命令SET TALK ON/off 设置是否在主窗口的状态栏中 显示所有命令的执行结果。

SET CONSOLE ON/off 设置是否把输出信息在窗口上 显示。

SET PRINTER on/OFF 设置是否在打印机上输出信息。

SET SAFETY ON/off 设置在改写文件时，VFP 是否显示对话框以确认改写有效。

SET HEADING ON/off 设置在执行LIST、DISPLAY等命令时是否显示字段名。

SET STATUS ON/off 设置是否显示状态行。

SET DEFAULT TO〈盘符〉指定默认的驱动器。

SET DEVICE TO SCREEN 把输出信息发送到VFP的窗口/PRINTER 屏幕或打印机。

3. 清除命令格式I：CLEAR说明：清除当前屏幕上的所有信息格式II：CLEAR ALL说明：关闭所有文件，清除所有内存变量格式III：CLEAR TYPEAHEAD说明：清除键盘缓冲区4. 关闭文件命令格式I：CLOSE ALL说明：关闭所有的数据库、表以及索引文件格式II：CLOSE <文件类型>说明：文件类型DA TABASE 数据库文件、索引文件、格式文件INDEX 当前工作区的索引文件FORMAT 当前工作区的格式文件PROCEDURE 当前工作区的过程文件ALTERNATE 文本输出文件5. 运行中断和结束命令格式I：QUIT说明：退出VFP，返回到操作系统状态格式II：CANCEL说明：结束本次程序的运行，返回到命令窗口状态格式III：RETURN [TO MASTER]说明：返回到调用点处。

6. 文本显示命令格式：TEXT<文本内容>ENDTEXT说明：将文本内容原样输出7. 定位输出命令格式：@ <行,列> SAY <数据>说明：在指定的行、列处输出数据9.4 程序的基本结构1．顺序结构顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。

Visual FoxPro系统中的大多数命令都可以作为顺序结构中的语句。

但是，绝大多数问题仅用顺序结构是无法解决的，还要用到分支结构、循环结构和过程结构。

1）程序设计的过程：分析问题、确定任务、划分模块、建立模型、组织数据、描述操作步骤、编写程序、上机调试、分析运行结果、写出程序说明书。

2）流程图：就是运用一些特定的图形符号和必要的文字来描述解题步骤的图示。

3）三种基本程序结构流程图：4）顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。

5）例1：给退休职工增加基本工资20元。

ClearUse gzRepl all 基本工资 with 基本工资＋20 for year(DATE())-year(出生日期)>=60List示例2：编程，根据输入的半径值，计算出相应的圆的周长。

SET TALK OFFCLEARINPUT “请输入圆的半径：” TO RL=2*3.1416*RINPUT “圆的周长是：”+STR(L,6,3)SET TALK ON2）. 选择分支格式：IF <条件表达式><语句行序列1>ELSE<语句行序列2>ENDIF说明：（1）条件为真（T ），执行语句序列1。

（2）条件为假（F ），执行语句序列2。

顺序结构 分支结构 循环结构例1：上题，男同学加10分，女同学加20分。

Set talk offUse studAccept “输入加分同学姓名：” to xmLoca for 姓名＝xmIf 性别＝“女”Repl 数学with 数学＋20elseRepl 数学with 数学＋10Endif例2：求解一元二次方程AX2+BX+C=0，系数A，B，C的值由用户通过键盘输入，当方程有实根时，屏幕显示出两根的值；当方程无实根时，屏幕显示出“方程无实根！”SET TALK OFFCLEARINPUT “A=” TO AINPUT “B=” TO BINPUT “C=” TO CD=B*B-4*A*CIF D>=0X1=(-B+SQRT(D))/(2*A)X2=(-B-SQRT(D))/(2*A)?“方程的两根是：”STR(X1,2)+SPACE(4)+STR(X2,2)ELSE?”方程无实根！”ENDIFSET TALK ONRETURN例3：在表文件“分数.DBF”中查找学号为99020203的学生成绩，若其成绩满60分则显示其学号、课程号和成绩；否则显示此人的学号、课程号并通知其补考。

*L6.PRGSET TALK OFFUSE 分数.DBFCLEARLOCATE FOR 学号=“99020203”IF 成绩>=60?“学号：”+学号?“课程号：”+课程号?“成绩：”+STR(成绩,6,2)ELSE?“学号为”+学号+“的学生应参加补考的课程号为：”+课程号ENDIFUSESET TALK ON3）. 判断语句嵌套IF语句多重嵌套示意结构如下：IF<条件表达式1><语句行序列1>ELSEIF<条件表达式2><语句行序列2>ELSEIF<条件表达式3><语句行序列3>ELSE………ENDIF3………ENDIF2………ENDIF1注意：（1）IF、ELSE(可不选)、ENDIF一一对应、互相匹配（2）允许简单判断和选择判断语句自我嵌套或相互嵌套，但层次必须清楚，不得交叉（3）最好采用缩格（锯齿形）的书写方式例1：键盘输入x,当x>=0或x<=1时，y=1。

当x>1或x<0时，y=0。

Set talk offInput “输入X的值：” to xIf x>=0If x<=1y=1elsey=0endifelsey=0endif?”y=”,y例2：存款利率：年限NX<1年，利率LL ＝2%年限NX>=1年或NX<3年，利率LL ＝3%年限NX>=3年或NX<5年，利率LL ＝4%年限NX>=5年，利率LL ＝5%set talk offinput “请输入存款年限：” to nxif nx<1ll=0.02elseif nx<3ll=0.03elseif nx<5ll=0.04elsell=0.05endifendifendif?”存款利率是：”，ll例3：根据键入X 的值，计算下面分段函数的值，并显示结果。

程序如下：SET TALK OFFCLEARINPUT “X=” TO XIF X>0IF X>10Y=X*X+1ELSEY=3*X*X-2*X+1X 2+4X-1 (X ≤0)3X 2-2X+1 (0<X ≤10)X 2+1 (X>10)Y=ENDIFELSEY=X*X+4*X-1ENDIF?”分段函数值为：”+STR(Y,10,2)SET TALK ONRETURN3．循环结构顺序、分支结构在程序执行时，每个语句只能执行一次，循环结构则能够使某些语句或程序段重复执行若干次。

如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环语句是最好的选择。

4．过程结构在许多应用程序中，有一些程序段需要反复执行多次，这些程序段不是集中在一个固定的位置上重复执行，而是分散在程序的许多位置上重复执行。