第7章VFP程序设计.pptVIP

信息工程系倪天林 第7章 VFP程序设计 目录 7.1程序文件的建立、修改与运行 7.1.1程序文件的建立与修改 程序是能够完成一定任务的若干命令的有序集合，VFP源程序文件的扩展名为.PRG。当运行程序时，系统会按照一定的顺序自动执行包含在程序文件中的命令，并自动产生一个扩展名为.FXP的程序编译文件。 例：设计一个名为CX1.PRG的程序，已知圆的半径为30厘米，求其面积。 在命令窗口输入：MODI COMM CX1 出现编辑窗口，输入以下程序语句： 程序语句输完后，打Ctrl+W存盘。 7.1.2 程序文件的运行 例：运行程序文件CX1.PRG。 DO CX1 2827.4334平方厘米 7.2 数据输入命令 在程序运行中，有时需要用户输入数据。以下命令可以暂停程序运行，等待用户输入数据。 7.2.1 字符串输入命令ACCEPT 例：显示提示信息“请输入你的姓名：”，并将输入的姓名赋值给内存变量MYNAME。 ACCE 请输入你的姓名： TO MYNAME 请输入你的姓名：张三 ?MYNAME 张三 7.2.2 任意类型数据输入命令INPUT 例：用INPUT命令给内存变量A赋值50，B赋值HELLO。 INPU 请输入数据: TO A 请输入数据:50 ?A 50 INPU 请输入字符串: TO B 请输入字符串:HELLO HELLO需加定界符。 ?B HELLO 7.2.3 单个字符输入命令WAIT 三种输入命令的区别 Hot Tip 7.3 常用辅助命令 7.3.1 注释命令 常 用 环 境 设 置 命 令 7.3.3 清除命令 7.3.4 关闭文件命令 7.4 程序的三种结构 例1：求任意两个数的和。(CX2) SET TALK OFF INPU 请输入第一个加数: TO A INPU 请输入第二个加数: TO B C=A+B ?C 例2：编写一程序，分别列出给定表中男职工和女职工记录，并计算男女职工人数。(CX3) SET TALK OFF ACCE 请输入表名 TO FILENAME USE FILENAME LIST FOR 性别=男 WAIT LIST FOR 性别=女 WAIT COUN FOR 性别=男 TO MEN COUN FOR 性别=女 TO WOMEN ?男职工有:+STR(MEN)+人 ?女职工有:+STR(WOMEN)+人 ?男女职工共有:+STR(MEN+WOMEN)+人 7.4.2 分支结构 分支结构是根据条件选择程序执行的序列。VFP中的分支结构有简单分支结构和多分支结构。 1.简单分支结构 例1：编写一个程序，从键盘上输入两个数分别赋值给内存变量X、Y，当X=Y时,求X-Y的值。(CX4) SET TALK OFF INPU X= TO X INPU Y= TO Y IF X=Y Z=X-Y ?X-Y=,Z ENDI 例2: 从键盘上输入两个数分别赋值给内存变量X、Y，当X=Y时,求X-Y的值；当YX时,求Y-X的值。(CX5) SET TALK OFF INPU X= TO X INPU Y= TO Y IF X=Y Z=X-Y ELSE Z=Y-X ENDI ?两数之差为:,Z 例3:在STUDENT.DBF表中（结构为：姓名（C，6），学号（C，6），语文（N，3），数学（N，3），外语（N，3））查找学号为200016的记录,若找到则将学号改为200018,并显示该记录。若找不到，则显示“找不到”。(CX6) 例2:编一程序,使其对给定的表具有追加、修改、插入和删除的功能。(CX8) SET TALK OFF ACCE 请输入表名: TO FILENAME USE FILENAME ?1---追加记录 ?2---修改记录 ?3---插入记录 ?4---删除记录 INPU 请输入你的选择(1-4) TO MYSL DO CASE CASE MYSL=1 APPE CASE MYSL=2 BROW CASE MYSL=3 INPU 输入要插入的记录号: TO NREC GOTO NREC INSE BEFO CASE MYSL=4 INPU 输入要删除的记录号: TO NREC GOTO NREC DELE PACK OTHE ?输入错误! ENDC 7.4.3 循环结构 当某程序段需要反复执行时，就需要编制循环结构程序。VFP中的循环结构有条件循环、步长循环和扫描循环。 1.条件循环 格式 DO WHIL