1、安徽专升本VF程序设计基础知识程序设计基础知识 程序是为了完成一项任务而编写的指令的集合，在某种程度上VFP中的程序设计同传统的程序设计有很大的不同。在VFP中可以同时应用面向过程和面向对象两种编程方法，面向对象的程序设计是其主要特色。一般来说，对于制作简单、较小的应用程序，使用过程编程方式比较容易，同时这也是面向对象编程方式的基础。本章主要介绍的是面向过程的编程方法。4.1 程序设计概念4.1.1程序设计与算法简介 程序设计从某种意义上来说, 是根据算法步骤把命令、函数、变量、常量、表达式等以逻辑的方式组合成程序文件或系统。确定算法和编写程序是两个重要步骤。 算法是指为解决一个问题而采取的方
2、法和步骤，或者说解决步骤的精确描述。算法分为数值运算算法和非数值运算算法。数值运算算法的目的是计算数值解，如求方程的根，求函数的定积分等。非数值运算算法，包括的范围很广，常见的办公室自动化系统、管理领域、商业领域及医学应用等等，主要是描述其解决应用问题的逻辑步骤。描述实现算法的逻辑步骤，一般采用流程图方式，流程图分传统流程图；N-S流程图等。传统流程图是用一些图框，流程线以及文字说明来描述操作过程，这样的表示算法，直观，形象，容易理解。如图4.1和图4.2：.“起止框”用来表示算法的开始和结束。 “处理框”用来表示一般的数据处理。“输入/出框”表示输入，输出操作。“流程线”表示流程的方向（执行
3、方向）。“连接点”用于将画在不同地方的线连接起来。 “判断框”用来根据给定条件是否满足,决定执行两条路径中的某一路径。图4.1拿到一个问题后，首先拟定并写出算法，画出结构流程图，然后再根据算法书写程序，是一个良好的习惯。这样做不仅可提高所写程序的正确性，也容易修改程序，提高整个程序设计的效率4.1.2源程序实例 例:显示”student.dbf”表中“总成绩 “小于360的所有学生的学号，姓名，总成绩. 分析问题:逐一判断每条记录的总成绩字段的值是否大于360,如果大于就显示,否则不显示.根据分析结果画出结构流程图，如：图4.2,然后写出源程序如下: SET TALK OFFCLEAROPEN
4、 DATABASE STUDENTSUSE STUDENT1DO WHILE !EOF()结束 IF 总成绩=360 ? 学号，姓名，总成绩 SKIP ELSE YSKIP ENDIF NENDDOCLOSE DATABASENYNRETURN NY4.1.3 程序的创建、编辑和运行 VFP6.0 源程序文件的扩展名是.PRG, 程序运行时,系统自动编译产生扩展名为.FXP 的文件, 其文件主名与.PRG为扩展名的文件主名相同, 在VFP下若修改了.PRG 为扩展名的文件，系统也会自动重新编译.4131程序文件的创建图4.2创建VFP6.0 源程序文件,可使用任何文本编辑器建立;本系统中使用自
5、身编辑器创建,编辑源程序文件。VFP提供了以下三种方法。图4-3编辑文件窗口图4-2新建 文件方法一 可以在VFP主窗口的 “文件“ 菜单中选择“新建“或工具栏中的“新建” 按钮，选择“程序“ 如图 4-2所示。然后单击“新建文件”，这时系统将打开一个编辑窗口，可以往里输入程序，如图4-3所示。 源程序输完后, 利用文件菜单进行保存。 也可立即利用 【程序】【运行】菜单和【程序】【编译】菜单，进行编译和运行程序。程序执行结果显示在主窗口中。 方法二 在命令窗口中执行命令: MODIFY COMMAND 这时，系统将打开一个如图4-3的编辑窗口，可以往里输入程序代码。编辑完毕，使用CTRL+W键
6、，则存盘退出。方法三 在“项目管理器”中选择“代码”选项卡中的程序选项，选择“新建”命令。系统将打开编辑窗口，可以创建一个程序，如图4-4所示。图4-4在项目管理器中建立程序 4132 程序的保存 程序输入完毕后，可以选择“文件”菜单中的“保存”项保存程序文件。 图4-5 关闭没有保存的程序时将出现询问若用户要关闭一个没有保存的程序，则会弹出相应的对话框，提示用户是保存还是放弃已作的修改，如图4-5所示。若用户保存了一个由“项目管理器”创建的程序，则该程序被加入项目中。若用户保存了一个尚未命名的程序，则会打开“另存为。”对话框，用户应该从中选择或输入正确的盘符、路径、文件名。程序保存后，用户可
7、以在其后任一时刻运行或修改程序。4133程序的修改程序的修改即对源程序文件打开进行编辑。有以下方法：方法一 若程序包含在某一个项目中，则可以在“项目管理器“中选定它,并选择“修改”方法二 在“文件”菜单中选择“打开”命令，这时将出现一个包含文件列表的“文件类型”对话框。从中选择“程序”，然后找到要编辑修改的程序，选定后单击“确定”按钮，如图4-6所示。 图4-6 在打开文件窗口中选定要修改的程序方法三 在“命令”窗口中键入如下命令： MODIFY COMMAND 然后将出现程序文件编辑窗口，如图 4-3 所示。接下来可对显示在编辑窗口中的程序进行修改。4134 程序的运行 程序创建或修改完毕，
8、最终需要运行。运行程序有如下几种方法。方法一 在“程序”菜单中选择“运行”菜单项，然后选择一个程序文件，如图4-6方法二 在命令窗口中运行命令：DO 方法三 若程序包含在一个项目中，则可以在“项目管理器”中选定它并选择“运行”命 令，如图4-4 所示。42常用命令和语句 VFP的一个特点，是大量使用系统环境设置命令以及其他一些控制命令，以帮助用户进行数据处理、安全管理、程序调试、结果输出等方面的工作。本节主要介绍一些常用的命令和语句。421基本输入、输出语句 程序最基本的操作就是输入、输出。输入是从键盘或鼠标等设备中接收数据。输出是指将计算机所做的运算结果输出到屏幕或打印机。4211输入命令
9、1）字符型键盘输入命令 ACCEPT 格式：ACCEPT TO 功能: 建立内存变量,并用键盘输入的方式将字符型数据赋值给内存变量。说明：表示需输入内容的提示信息,是命令执行时显示的内容。一般为字符型常量，字符型变量或字符型表达式。 表示存储字符数据的字符变量或数组元素。 输入的数据作为字符型数据处理，不需要定界符括起来。若使用定界符，则定界符成为输入字符的一部分。输入回车健则按空字符处理。 例11-2输入班级编号和姓名，并打印出来。ACCEPT “请输入班级编号：”TO numberACCEPT “请输入姓名：”TO name？“班级编号：”，number,“姓名：”，name2）任意类型键
10、盘输入命令INPUT格式：INPUT TO 功能: 建立内存变量，并用键盘输入的方式将数值型，字符型，逻辑型或日期型数据赋值给内存变量。 说明：是命令执行时显示的提示内容。可是一个字符型表达式。 可为数组元素。内存变量不必事先定义。 从键盘输入的数据可以是命令允许的四种类型表达式。执行该命令时计算键盘输入的表达式的值，将其赋给内存变量。 字符型常量必须有定界符，且不能单用回车输入。3）程序暂停，等待接收单字符命令WAIT 格式：WAIT TO WINDOW AT TIMEOUT 功能: 显示提示并暂停程序运行，直到按下任意一键或鼠标按键程序才继续执行。 说明： 表示要显示提示的内容，省略提示，
11、系统给出“按任意键继续。”。 TO表示键盘的输入以字符形式存入指定的内存变量。内存变量类型为字符型，宽度为1。 WINDOW表示在Visual FoxPro主窗口右上角出现的系统消息窗口的位置中显示消息。WAIT WINDOW 支持多行消息。 AT指Visual FoxPro主窗口中消息窗口的位置。 NOWAIT表示在消息被显示后不移去消息窗口，立即继续执行程序。省略时，程序暂停直到按下一个键或鼠标按钮，并将消息窗口从主窗口中移走。4212 格式输出命令格式： SAY PICTUREFUNCTION功能：在指定坐标位置按格式输出表达式的值。例11-5 在程序编辑窗口输入如下内容 *ex1.PR
12、G Vb1=49562.89 Vb2=-0.5 3,10 SAY Vb1 FUNCTION”B” 5,10 SAY Vb1 FUNCTION”C” 7,10 SAY Vb2 FUNCTION”X”运行ex1.PRG 结果显示49562.8949562.89CR _0.5DB4213 格式输入命令格式：SAYGET FUNCTIONPICTURE RANGE,VALID READSAVE 功能：在指定行、列首先显示,接着按规定的格式反显GET后变量的值；当执行命令READ时，子命令GET被激活，其变量值处于编辑状态。一个READ语句可以激活多个在它前面的GET子命令。说明： 命令中的功能符和模式
13、符代码及其含义如下表11-1和表11-2 命令的执行过程是，系统先在指定的行列显示SAY后的提示信息，在提示信息后显示GET变量的值，此前GET 后的变量必须赋值，且变量值反显，当顺序执行READ语句后，反显的变量值被激活，此时，可编辑变量的值，按回车键可结束此过程。 一个READ命令可激活多个GET的编辑区，因此，只要GET 语句是在READ 语句前，当第一个GET 激活变量值编辑后光标可自动跳到下一个 编辑区，依次执行。 RANGE中数值表达式1和2，表示数据编辑和显示的下限和上限。 VALID表示数据编辑和显示的条件范围。 表4-1 PICTURE模式符代码表代码含义 代码 含义 A 只
14、允许字母 L 只允许逻辑型数据N 只允许字母或数字 X 允许任何字符Y 只允许逻辑数据且小写换大写 G 只允许数字允许数字，空格和正负号 ！ 小写转换成大写￥数值前显示货币符号 指定小数点位置，分隔多位数 数值前显示星号 表4-2 FUNCTION功能符代码表代码含义 代码含义A 只允许字符字母 B数值数据在显示区左对齐C 在正数之后显示CR表示贷款 D 使用当前的SetDate日期格式E 使用欧洲日期格式Dd/mm/yy L 数值显示时显示前导，而不是空格 X 在负数后面显示DB表示借贷 T 去掉表达式首尾空格S(n) 限制字符显示的宽度为n个字符Z 数值为时刻用空格显示C 将负数括在括号内
15、 ！将小写字母转化成大写字母用科学计数法显示 ￥用Set CURRENCY指定货币格式显示 例4-6 指定坐标位置的格式输出例1。*exp.prgva1=47612.78va2=-0.64,10 say va1 function “B”8,10 say va1 function “c”10,10 say va2 function “x”将以上程序存盘，并运行。 结果显示： 47612.78 47612.78CR -0.6DB例4-7 格式输出例2。*exp.prgvbr1=space(20)vbr2=0vbr3=date()var4=.F.clear4,15 say “编辑字符：” get v
16、br1 function “s14!”5,15 say “编辑数字：” get vbr2 picture “.99”RANGE 1000,400006,15 say “编辑日期：” get vbr3 VLALID vbr3ctod(“99/12/31”) 7,15 say “编辑逻辑：” get vbr4 picture “Y”read执行上述程序时，依次输入数据：“World Wide Web Virtual Hospital”,8888.88,98/09/01,和y。其中Vbr1可以接收20个字符，显示前14个。屏幕显示为：编辑字符：WORID WIDE WEB编辑数字：8888.88编辑
17、日期：98-09-01编辑逻辑：y 422注释语句和续行语句42. 2. 1注释语句顾名思义，注释语句用来给程序加注释，以提高程序的可读性。有以下两种注释语句1) 注释行格式 * 或 NOTE 2) 行末注释格式 & 例：* 这是一个示例程序* 1999.9.9SET STATU ON & 显示状态栏 NAME=“张三”* ACCEPT “姓名：” TO NAME ？NAME CANCEL4222 续行标志 VFP 允许一个语句行最多可又254 个字符长，这一长度足以满足绝大多数语句格式的要求，但是，为了使程序便于阅读，往往需要将一行程序分作几行来写。将一行分作几行来写时，要使用续行标志“；”
18、，表示本语句尚未结束。例如： REPLACE 应发工资 WITH 基本工资*1.15+职务津贴+奖金； 扣款 WITH 房租水电+医药费+应发工资*所得税率； 是发工资 WITH 应发工资-扣款4223 指定缺省驱动器和目录 由于数据库应用通常包括大量的文件，为了应用程序的顺利进行，应当将这些文件集中在一个专属目录中。然后将此专属目录指定为缺省驱动器和目录，这样既可大大地方便程序开发工作，又能保证应用程序的顺利进行。将一专属目录指定为缺省驱动器和目录，有两种方式：（1） 在程序或命令窗口中使用SET DEFAULT 命令，命令格式为SET DEFAULT TO 例如：指定C：mysystemg
19、zl 为缺省 目录；SET DEFAULT TO C：MYSYSTEMGZL若执行不带路径的 SET DEFAULT 命令，则恢复系统缺省设置。（2） 修改系统缺省设置。在缺省系统配置文件 CONFIG.FPW或专属系统配置文件（如：MYCONFIG.FPW）中，假如下面一行：DEFAULT=C：MYSYSTEMGZL4.2 控制结构 VFP的程序结构，与其他高级语言一样，分为三种控制结构，即顺序结构、分支结构和循环结构，各个结构可以实现不同的功能。图4-7语句系列2语句系列1431顺序结构顺序结构是程序结构设计中最常用，最简单，最基础的基本结构。该结构的特点表明语句排列的顺序就是命令的执行顺
20、序, 其间既没有分支跳转、也没有重复。如图4-7。组成顺序结构的语句，一般包括赋值语句、输入、输出、注释和终止语句以及有关系统环境设置等。432选择结构 选择结构：选择结构是程序设计中的基本结构之一。它用选择命令描述分支现象，确定程序执行的路径。常用的选择命令有单条件选择和多条件选择。如图4-8Y命令组1N命令组2条件1、IF条件选择命令 格式：IF 条件表达式THEN 命令组1 ELSE 命令组2 ENDIF功能：若的值为真，执行；否则（即的值为假）执行；无论哪种情况，命令组系列执行完后，就执行ENDIF下的第一个命令。如图4-8所示.说明： 可为关系或逻辑表达式，其逻辑值为T或F；当ELS
21、E-命令组2不存在时，的值为真，执行后，就转到执行ENDIF之后的第一个命令；若的值为假，则不执行IF与ENDIF之间的命令系列，而直接转到执行ENDIF之后的第一个命令。 IFENDIF结构命令必须配对使用；并且可以通过多层嵌套以实现多条件的选择。例11-9 铁路拖运行李，从甲地到乙地，按规定每张客票拖运行李不超过50公斤时，每公斤0.25元，如超过50公斤，超过部分按每公斤0.45元计算。编程，把行李重量输入计算机，计算出运费，并打印付款清单。问题分析：设行李重量W公斤，应付运费P元，则运费公式为： 0.25*W 当W50 P= 50*0.25+(W-50)*0.45 当W50编写程序为：
22、 INPUT“请输入行李重量：”TO W IF W=50 P=0.25*W ELSE P=50*0.25+(W-50)*0.45 ENDIF ?“应付运输费为：”，P，“元” CANCEL2、IF嵌套条件选择结构在IF条件选择结构中，允许包含新的选择结构，一层套一层形成嵌套结构。注意：形成嵌套结构中，只允许嵌套，不允许交叉，层次必须分明。 例 11-10 已知系数a,b,c编写程序，求一元二次方程ax2+bx+c=0的根。 例题分析：当a0时，有两个根； 当0 时，有两个不同的实根； 当=0 时，有两个相同的实根； 当0 时，有两个不同的根； 当a=0,b0时，有一个根； 当a=0,b=0 时
23、，方程无意 根据以上分析，写出程序： INPUT “a=” TO a INPUT “b=” TO b INPUT “c=” TO c IF a0 delta=b2-4*a*c re=-b/(2*a) im=SQRT(ABS(delta)/(2*a) IF delta=0 root1=re+im root1=re-im ? “两个根为：“，root1,root2 ELSE ? “两个根为：“，re,”+”,im,”I”, re,”-”,im,”I” ENDIF ELSE IF b0 ? “只有一个根：”，-c/b ELSE ? “方程退化” ENDIF ENDIF CANCEL3、DO CASE
24、多条件选择命令格式：DO CASE CASE CASE 命令组 CASE OTHERWISE ENDCASE图4-9多条件分支语句 语句组n语句组1语句组2条件2语句组3条件3Otherwise 条件1功能：执行时，系统将依次检查每一个条件表达式的值，当找到有一个条件为真时，则执行该条件下的命令系列，接着再执行ENDCASE后面的语句，当前面几个条件表达式值均为假时，若有OTHERWISE就执行语句序列n+1。否则就直接执行ENDCASE后面的语句。如图4-9所示：说明： 在DO CASE与第一个CASE之间不能有任何命令，并且在一个DO CASE结构中，最多只能执行一个CASE语句。 可以为
25、关系表达式或逻辑表达式，根据其逻辑值进行判断，若为.T.,就执行该命令组，直到遇到下一个CASE或OTHERWISE就转向ENDCASE后面的第一条命令。 如果没有一个为.T.，就执行OTHERWISE后面的命令组，转到ENDCASE之后的语句。如果没有OTHERWISE，则不作任何操作就转向ENDCASE之后的第一条命令。 DO CASE与ENDCASE必须正确配对；并且本命令结构只能在程序中使用，且DO CASE，CASE，OTHERWISE，ENDCASE必须各占一行，。 例11-11 设计一个按不同幼儿年龄服药的程序，年龄变量为AGE，每次服药次数COUNT，每次服药量MOUNT。程序
26、为: MEDICINE=阿司匹林 INPUT输入年龄：TO AGE DO CASE CASE AGE5 COUNTS=4次/天 MOUNT=每次1片 CASE AGE10 COUNTS=4次/天 MOUNT=每次2片 OTHERWISE COUNTS=3次/天 MOUNT=每次2片 ENDCASE ？MEDICINE+服法是+COUNTS+ +MOUNT RETURNDO CASE 命令表示程序的多分支结构，与IF命令一样允许多重嵌套，既可以多个DO CASE-ENDCASE一层层嵌套，也可以DO CASE-ENDCAS与IF-ENDIF嵌套。例11-12 对students库中3个表stud
27、ent.dbf scure1.dbf 和symbolic.dbf 用CASE命令实现在不同的条件下显示不同的文件记录。 SET TALK OFF ACCEPT “输入表文件名:” TO NAME OPEN OPENDATABASE STUDENTS DO CASE CASE NAME=”student” USE student DISPLY ALL FOR 专业= “临床医学” CASE NAME=”scure1” USE scure1 AVERGE 生物 TO t1 FOR SUBSTR(学号,7,1)=”4” AVERGE 生物 TO t2 FOR SUBSTR(学号,7,1)”4” ?
28、“T1=”,t1,”T2=”,t2 CASE NAME=”symbolic” USE symbolic LIST FOR “96” $ 学号 ENDCASE use &NAME WAIT LIST CLOSE DATABASE RETURN433循环结构程序设计图4-10循环结构流程图NYexitloop语句组条件循环结构是程序设计的一种基本结构。描述循环现象的命令主要为实现某一段程序有规律的反复执行。VFP中给出三种循环结构命令，“当型”，“步长型”和“表扫描型”。VFP中各循环结构的基本流程是一样的 ，如图4-10所示。1、当循环命令DO WHILEENDDO格式：DO WHILE EXIT LOOP ENDDO功能：当的计算值为真时，就使DO WHILEENDDO之间 的命令序列重复执行，以实现循环；当条件表达式的值为假时，退出循环执行ENDDO后的命令。说明： 循环结构的DO WHILE为循环起始语句，ENDDO为循环终端语句，在DO W
