visual foxpro程序设计案例教程(蔡莉)vf按章 第6章(1)
合集下载
Visual Foxpro 程序设计蔡丽艳微课教学设计
微课教学设计专题：循环嵌套课程：Visual FoxPro 程序设计所属学科：计算机科学与技术学校：牡丹江师范学院教师姓名：蔡丽艳职称：讲师适用对象：非计算机文科专业学生一、教学背景《Visual FoxPro 程序设计》是高等学校非计算机文科专业学生的一门公共必修课，是一门实践性和应用性很强的课程。
本课程的主要目的是使学生掌握数据库系统与Visual FoxPro基础知识、自由表、数据库的创建及基本操作，掌握SQL语言、程序设计语言以及面向对象的程序设计，培养学生分析问题、解决问题的基本能力。
循环嵌套是该课程“程序设计”章节内的重点和难点。
在本微课之前，学生已经学习过了程序设计中的两种基本的循环结构，学生对单重循环已经有了深入的理解，本次微课就是要通过在理解单重循环的基础上，由浅入深地引导学生掌握和理解循环嵌套的含义和基本执行过程。
但是教师在该课程的教学过程中发现很多学生在理解循环嵌套时往往不能够很清楚地知道循环的执行过程，分不清内外循环的变量关系以及循环次数的区分，因此很难独立编写双重循环解决实际问题。
为此，本微课采用案例引入、案例分析、讨论以及PPT演示等多种教学方法引导学生深入理解和掌握双重循环的执行过程，从而培养学生能够独立运用双重循环解决实际问题的能力。
二、教学目标1、知识目标①掌握循环结构中的循环嵌套的基本语句结构和形式；②掌握循环嵌套的基本执行过程；③能够通过编写双重循环结构的程序解决实际问题。
2、能力目标①通过本节课程的讲解，培养学生独立思考问题、分析问题、解决问题的能力。
②逐步培养学生通过分析案例，实现独立完成程序设计的能力，培养学生将所学知识灵活运用到解决实际问题的能力。
3、情感目标①通过本次微课的讲解让学生在课堂上体验编程的乐趣以及成功的喜悦。
②通过逐层推进的教学设计，培养学生研究探索的精神，激发学习兴趣；培养学生协作学习的意识和研究探索的品质。
三、教学内容及重点、难点分析本次微课中的教学内容主要就是循环的嵌套。
Visual Foxpro 程序设计蔡丽艳微课课件
当i=1时，内循环j=1 to 5 循环5次，每次在同一行输出一个星； 用？实现每次的换行
当i=2时，内循环j=1 to 5 循环5次，每次在同一行输出一个星； ……
当i=5时，内循环j=1 to 5 循环5次，每次在同一行输出一个星。
当i=6时，外循环结束，不执行内循环，程序结束。
案例三 循环变量的灵活应用
【形式一】 DO WHILE <条件表达式1> <命令行序列11> DO WHILE <条件表达式2> <命令行序列21>
……
ENDDO <命令行序列12>
ENDDO
循环嵌套
【形式二】
FOR <循环变量>=<循环初值> TO <循环终值> [STEP <步长>] <命令行序列11>
FOR <循环变量>=<循环初值> TO <循环终值> [STEP <步长>] <命令行序列21>
ENDFOR | NEXT
TO <循环终值>
[STEP <步长>]
案例一 用循环结构输出以下图形
案例二 输出以下图形
案例分析
运用单重循环能否 输出五行星？
循环嵌套
【定义】循环嵌套是指在一个循循环，被包 含的循环为内循环，循环嵌套也称为多重循环。
案例二
案例分析
(1) 使用双重FOR循环，外循环确定 行数， 内循环确定各行显示输出 星的个数； (2) 每行输出星的个数相同，因此内 循环变量j的终值为常量5； (3) 内循环的??“ *” 语句用来输出星， 外循环的?语句用来起到换行的作 用。
当i=2时，内循环j=1 to 5 循环5次，每次在同一行输出一个星； ……
当i=5时，内循环j=1 to 5 循环5次，每次在同一行输出一个星。
当i=6时，外循环结束，不执行内循环，程序结束。
案例三 循环变量的灵活应用
【形式一】 DO WHILE <条件表达式1> <命令行序列11> DO WHILE <条件表达式2> <命令行序列21>
……
ENDDO <命令行序列12>
ENDDO
循环嵌套
【形式二】
FOR <循环变量>=<循环初值> TO <循环终值> [STEP <步长>] <命令行序列11>
FOR <循环变量>=<循环初值> TO <循环终值> [STEP <步长>] <命令行序列21>
ENDFOR | NEXT
TO <循环终值>
[STEP <步长>]
案例一 用循环结构输出以下图形
案例二 输出以下图形
案例分析
运用单重循环能否 输出五行星？
循环嵌套
【定义】循环嵌套是指在一个循循环，被包 含的循环为内循环，循环嵌套也称为多重循环。
案例二
案例分析
(1) 使用双重FOR循环，外循环确定 行数， 内循环确定各行显示输出 星的个数； (2) 每行输出星的个数相同，因此内 循环变量j的终值为常量5； (3) 内循环的??“ *” 语句用来输出星， 外循环的?语句用来起到换行的作 用。
VisualFoxpro程学设计教程(第二版)课件第六章资料
封面
程序设计基础
1. 程序文件
2. 程序的基本结构
3. 过程及其调用
VFP的工作方式
人机交互方式
交互式方式是通过在命令窗口中输入命令或通过选择菜单 项来实现各种操作，适用于解决一些较为简单的问题。
程序方式
要处理复杂的问题，就应采取程序方式。
6.1 程序文件
6.1.1
程序文件
程序由能够完成指定任务的一系列命令组成，这些命
良好、易于调试的程序。
6.2.1
顺序结构
顺序结构程序是最简单的程序结构，先执行
A操作，再执行B操作，依次执行各条语句。
A
B C
6.2.2 选择结构 选择结构是在程序执行时，根据不同的条件，
选择执行不同的程序语句。 VFP的分支结构程序可以分为简单分支(IFENDIF)、选择分支(IF-ELSE-ENDIF)以及多路分
中止程序的运行 如果程序有错，或在执行过程中用户按了ESC键 中止程序，系统会打开“程序错误”对话框。
系统将暂停程序的运行，返回到命令窗口 用户可以在执行其他的操作后，选择“程序”菜 单的“继续执行”命令或在命令窗口中执行 “RESUME”命令，从程序的中止处继续运行程序
系统将取消此次程序的执行
当用户选择“忽略”时，系统将 忽略程序错误，继续执行程序
例题
在图书表中，根据用户输入的条形码，查找 书籍的条形码、书名、售价、作者信息。
USE 图书 &&打开图书表 ACCEPT "请输入要查询的条形码" to txm &&接收用户要查询的条形码 LOCATE FOR 条形码=txm &&根据用户的输入查找记录 DISPLAY 条形码,书名,售价,作者 &&显示图书记录的相关信息 USE &&关闭数据表 RETURN
程序设计基础
1. 程序文件
2. 程序的基本结构
3. 过程及其调用
VFP的工作方式
人机交互方式
交互式方式是通过在命令窗口中输入命令或通过选择菜单 项来实现各种操作，适用于解决一些较为简单的问题。
程序方式
要处理复杂的问题，就应采取程序方式。
6.1 程序文件
6.1.1
程序文件
程序由能够完成指定任务的一系列命令组成，这些命
良好、易于调试的程序。
6.2.1
顺序结构
顺序结构程序是最简单的程序结构，先执行
A操作，再执行B操作，依次执行各条语句。
A
B C
6.2.2 选择结构 选择结构是在程序执行时，根据不同的条件，
选择执行不同的程序语句。 VFP的分支结构程序可以分为简单分支(IFENDIF)、选择分支(IF-ELSE-ENDIF)以及多路分
中止程序的运行 如果程序有错，或在执行过程中用户按了ESC键 中止程序，系统会打开“程序错误”对话框。
系统将暂停程序的运行，返回到命令窗口 用户可以在执行其他的操作后，选择“程序”菜 单的“继续执行”命令或在命令窗口中执行 “RESUME”命令，从程序的中止处继续运行程序
系统将取消此次程序的执行
当用户选择“忽略”时，系统将 忽略程序错误，继续执行程序
例题
在图书表中，根据用户输入的条形码，查找 书籍的条形码、书名、售价、作者信息。
USE 图书 &&打开图书表 ACCEPT "请输入要查询的条形码" to txm &&接收用户要查询的条形码 LOCATE FOR 条形码=txm &&根据用户的输入查找记录 DISPLAY 条形码,书名,售价,作者 &&显示图书记录的相关信息 USE &&关闭数据表 RETURN
VFP第六章
6.3 项目管理器设置
6.3 项目管理器设置
在“项目管理器”窗口，可以移动“项目管理器”的位 项目管理器”窗口，可以移动“项目管理器” 置、改变“项目管理器”的大小，还可以改变“项目管理 改变“项目管理器”的大小，还可以改变“ 器”的显示方式。 的显示方式。 在“项目管理器”窗口，拖动鼠标就可以完成对“项目 项目管理器”窗口，拖动鼠标就可以完成对“ 管理器”窗口的位置和大小的操作进行控制。 管理器”窗口的位置和大小的操作进行控制。
6.2 项目管理器的使用
6.2.5 用“其他”选项卡管理其他类型的文件
6.2.5 用“其他”选项卡管理其他类型的文件
使用“其他”选项卡， 使用“其他”选项卡，可以组织和管理项目文件中其他 类型的文件，如图像、菜单等。 类型的文件，如图像、菜单等。 操作步骤如下： 操作步骤如下： （1）打开项目文件，进入“项目管理器”窗口； ）打开项目文件，进入“项目管理器”窗口； 项目管理器”窗口，选择“其他”选项卡； （2）在“项目管理器”窗口，选择“其他”选项卡； ） （3）在这一环境下，可以使用不同设计器创建、修改、 ）在这一环境下，可以使用不同设计器创建、修改、 运行或移走其他类型文件。 运行或移走其他类型文件。
数据库技术及应用 Visual FoxPro
李雁翎 编著 高等教育出版社
第6章 项目管理器
本章要点
掌握创建项目的方法与步骤，掌握项目 管理器的使用 ，掌握项目管理器设置 ，掌 握逻辑结构设计方法，了解“项目”菜单功 能 。
6.1 创建项目
6.1 创建项目
系统环境下， 在Visual FoxPro系统环境下，可以利用项目管理器创建项目。 系统环境下 可以利用项目管理器创建项目。 操作步骤如下： 操作步骤如下： 系统主菜单下， （1）在Visual FoxPro系统主菜单下，打开“文件”菜单，选择 ） 系统主菜单下 打开“文件”菜单， “新建”命令，进入“新建”窗口。 新建”命令，进入“新建”窗口。 新建”窗口，选择“项目”选项，再按“新建”按钮， （2）在“新建”窗口，选择“项目”选项，再按“新建”按钮， ） 进入“创建”窗口。 进入“创建”窗口。 创建”窗口，输入创建项目文件名“人才管理” （3）在“创建”窗口，输入创建项目文件名“人才管理”，按 ） “保存”按钮，进入“项目管理器”窗口。 保存”按钮，进入“项目管理器”窗口。 项目管理器” （4）此时一个空的项目文件已建立完成。在“项目管理器”窗 ）此时一个空的项目文件已建立完成。 按钮结束操作。 口，按 按钮结束操作。
Visual FoxPro程序设计教程VFP 第6章
@ ＜行，列＞
[SAY [<表达式>][PICTURE <模式符串>][FUNCTION <
功能符串>] [ GET <变量> [PICTURE <模式符串
>][FUNCTION <功能符串>]][DEFAULT <表达式>] [WHEN<逻辑表达式>] [RANGE <表达式1> ,[<表达式2>] [VALID <逻辑表达式>] [READ]
功能：从屏幕上指定位置开始显示GET变量的值并可接 受输入新值。
说明：
① GET后面的变量可以是字段变量，但要先打开数据表。
② GET后面的变量可以是内存变量，但要先定义(赋初值)。 ③ READ用于激活屏幕，使当前所有的GET能接受输入(修改)，不 需要修改按回车键。
④ RANGE 限定变量（C，N）的取值范围，只有在数据修改后才 检验
本文件中。当运行程序时，系统会按照一定的次序自动执行 包含在程序文件的命令。程序方式的特点： 可以利用编辑器，方便地输入、修改和保护程序。 可以用多种方式、多次运行程序。
执行
1．程序文件的建立与修改
以命令方式建立、编辑程序文件 MODIFY COMMAND [<程序文件名> | ?]
当程序文件被执行时，文件中包含的命令将被依次执行
，直到所有的命令被执行完毕。但当执行到程序文件中的以
下命令时会终止执行或改变执行循序：
① CANCAL：终止程序运行，清除所有的私有变量，返回命令 DO：转去执行另一个程序。 RETURN：结束当前程序的执行，返回到调用它的上级程序 QUIT：退出Visual FoxPro系统，返回到操作系统。 窗口。 ② ③
[SAY [<表达式>][PICTURE <模式符串>][FUNCTION <
功能符串>] [ GET <变量> [PICTURE <模式符串
>][FUNCTION <功能符串>]][DEFAULT <表达式>] [WHEN<逻辑表达式>] [RANGE <表达式1> ,[<表达式2>] [VALID <逻辑表达式>] [READ]
功能：从屏幕上指定位置开始显示GET变量的值并可接 受输入新值。
说明：
① GET后面的变量可以是字段变量，但要先打开数据表。
② GET后面的变量可以是内存变量，但要先定义(赋初值)。 ③ READ用于激活屏幕，使当前所有的GET能接受输入(修改)，不 需要修改按回车键。
④ RANGE 限定变量（C，N）的取值范围，只有在数据修改后才 检验
本文件中。当运行程序时，系统会按照一定的次序自动执行 包含在程序文件的命令。程序方式的特点： 可以利用编辑器，方便地输入、修改和保护程序。 可以用多种方式、多次运行程序。
执行
1．程序文件的建立与修改
以命令方式建立、编辑程序文件 MODIFY COMMAND [<程序文件名> | ?]
当程序文件被执行时，文件中包含的命令将被依次执行
，直到所有的命令被执行完毕。但当执行到程序文件中的以
下命令时会终止执行或改变执行循序：
① CANCAL：终止程序运行，清除所有的私有变量，返回命令 DO：转去执行另一个程序。 RETURN：结束当前程序的执行，返回到调用它的上级程序 QUIT：退出Visual FoxPro系统，返回到操作系统。 窗口。 ② ③
《Visual Foxpro 6.0程序设计基础教程》教学课件 VF第6单元
【命令说明】 如省略WHERE子句，那么更新全部记录。
程序设计基础教程
三、删除记录命令
程序设计基础教程
【命令格式】
DELETE FROM tablename [WHERE condition]
【命令说明】 此命令为逻辑删除记录，假设希望将记录从表中真正删除，应在执行
DELETE命令后再执行PACK 命令，此操作称为物理删除。
二、修改表结构命令 〔1〕添加字段的命令格式
程序设计基础教程
ALTER TABLE tablename1 ADD fieldname1 fieldtype [(fieldwidth [, nprecision])] [NULL | NOT NULL] [CHECK lexpression1 [ERROR cmessagetext1]][DEFAULT eexpression1] [PRIMARY KEY | UNIQUE] [REFERENCES tablename2 [TAG tagname1]]
或
程序设计基础教程
INSERT INTO tablename FROM ARRAY arrayname | FROM MEMVAR
【命令说明】 SQL语言用INSERT 命令向表中添加数据，反复使用该命令可添加多行 数据，新记录追加在表的尾部。
二、更新记录命令 【命令格式】
UPDATE tablename SET column_name1=eexpression1 [, column_name2=eexpression2, …] [WHERE column_name3=eexpression3]
cmessagetext1]] [DROP DEFAULT ] [DROP CHECK]
〔3〕删除或重命名表中字段的命令格式
程序设计基础教程
三、删除记录命令
程序设计基础教程
【命令格式】
DELETE FROM tablename [WHERE condition]
【命令说明】 此命令为逻辑删除记录，假设希望将记录从表中真正删除，应在执行
DELETE命令后再执行PACK 命令，此操作称为物理删除。
二、修改表结构命令 〔1〕添加字段的命令格式
程序设计基础教程
ALTER TABLE tablename1 ADD fieldname1 fieldtype [(fieldwidth [, nprecision])] [NULL | NOT NULL] [CHECK lexpression1 [ERROR cmessagetext1]][DEFAULT eexpression1] [PRIMARY KEY | UNIQUE] [REFERENCES tablename2 [TAG tagname1]]
或
程序设计基础教程
INSERT INTO tablename FROM ARRAY arrayname | FROM MEMVAR
【命令说明】 SQL语言用INSERT 命令向表中添加数据，反复使用该命令可添加多行 数据，新记录追加在表的尾部。
二、更新记录命令 【命令格式】
UPDATE tablename SET column_name1=eexpression1 [, column_name2=eexpression2, …] [WHERE column_name3=eexpression3]
cmessagetext1]] [DROP DEFAULT ] [DROP CHECK]
〔3〕删除或重命名表中字段的命令格式
visual foxpro程序设计案例教程(蔡莉)vf按章(5)
基本概念
• 在VFP中，数据库是一个逻辑上的概念和手 段，通过一组系统文件将相互联系的数据 库表及其相关的数据库对象统一组织和管 理。
• 因此，在VFP中应该把.dbf文件称做表，而 不再称做数据库或数据库文件。
• 建立VFP 数据库时，建立扩展名是.dbc的 数据库文件，与之相关自动建立扩展名为 .dct的备注文件和扩展名为.dcx的数据库
（3）用命令打开数据库设计器。 • 命令格式： MODIFY DATABASE [FILENAME|?][NOWAIT][NOEDIT] 说 明： • FILENAME：要修改的数据库名，如果使用“？”或者省略
该参数则显示“打开”对话框。 • NOWAIT：该选项只在程序中使用，不在交互命令窗口中使
–D——表示使用当前系统设置的日期格式。 –L——表示在数值前显示填充的前导零，而不
是用空格字符。 –T——表示禁止输入的字段的前导空格字符和
结尾空格字符。 –!——表示把输入的小写字母字符转换为大写
字母。
2021/7/6
•下面为常用的输入掩码：
–X——表示可输入任何字符。 –9——表示可输入数字和正负号。 –#——表示可输入数字、空格和正负号。 –$——表示在固定位置上显示当前货币符号。 –$$——表示显示当前货币符号。 –*——表示在值的左侧显示星号。 –.——表示用点分隔符指定数值的小数点位置。 –，——表示用逗号分隔小数点左边的整数部分，
读/写方式。 • VALIDATE：指定检查数据库中引用的对象是否合法。
2021/7/6
4、指定当前数据库 • 指定当前数据库的命令是： SET DATABASE TO [DATABASENAME] • 其中参数DATABASENAME指定一个已经打开
Visual Foxpro 程序设计第6章2
在表单的所有方法程序中，常用的方法程序是：
Cls：清除一个表单中的图形或文本。
Hide：隐藏表单。
Refresh：刷新所有的值。
Release：从内存中释放表单。
Show：显示表单。
1．对象属性访问以及对象方法调用的基本格式如下：
<对象引用>.<对象属性>
<对象引用>.<对象方法>[(参数列表)]
2．Visual FoxPro基类是系统本身内含的，并不存放在某个类库中。用户可以基于基类生成所需要的对象，也可以扩展基类创建自己的子类
授课内容：
基本概念
对象的引用
容器与控件
问题讨论：对象与类有什么相同点和不同点
重点难点的讲授：如果学生对对象的引用方法理解不好的话，也可以在今后表单设计中的具体应用来讲解
10
30
20
20
Байду номын сангаас10
板
书
设
计
6．3面向对象的程序设计
一、基本概念
二、对象的引用
三、容器与控件
讲授新
拓展内容
容器与控件的介绍
课后总结
教研室主任签字年月日
牡丹江师范学院教案
教研室：文化基础教研室教师姓名：蔡丽艳授课时间:
课程名称
Visual Foxpro及其应用系统开发
授课专业和班级
法学1-2政治教育
授课内容
面向对象的程序设计
授课学时
2学时
教学目的
是学生了解面向对象程序设计的基本概念，了解VFP中的容器类与控件类的概念，了解对象的引用规则
教学重点
面向对象的基本概念
讲稿
授课内容
备注
Cls：清除一个表单中的图形或文本。
Hide：隐藏表单。
Refresh：刷新所有的值。
Release：从内存中释放表单。
Show：显示表单。
1．对象属性访问以及对象方法调用的基本格式如下：
<对象引用>.<对象属性>
<对象引用>.<对象方法>[(参数列表)]
2．Visual FoxPro基类是系统本身内含的，并不存放在某个类库中。用户可以基于基类生成所需要的对象，也可以扩展基类创建自己的子类
授课内容：
基本概念
对象的引用
容器与控件
问题讨论：对象与类有什么相同点和不同点
重点难点的讲授：如果学生对对象的引用方法理解不好的话，也可以在今后表单设计中的具体应用来讲解
10
30
20
20
Байду номын сангаас10
板
书
设
计
6．3面向对象的程序设计
一、基本概念
二、对象的引用
三、容器与控件
讲授新
拓展内容
容器与控件的介绍
课后总结
教研室主任签字年月日
牡丹江师范学院教案
教研室：文化基础教研室教师姓名：蔡丽艳授课时间:
课程名称
Visual Foxpro及其应用系统开发
授课专业和班级
法学1-2政治教育
授课内容
面向对象的程序设计
授课学时
2学时
教学目的
是学生了解面向对象程序设计的基本概念，了解VFP中的容器类与控件类的概念，了解对象的引用规则
教学重点
面向对象的基本概念
讲稿
授课内容
备注
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序代码如下： SET TALK OFF INPUT “输入 X 的值：” TO X DO CASE CASE X<0
F=2*X-1
2020/11/18
CASE X>=0 AND X<3 F=3*X+5
CASE X>=3 AND X<5 F=X+1
CASE X>=5 AND X<10 F=5*X-3
2020/11/E18 NDIF
4、多路分支语句 语句格式： DO CASE CASE <条件表达式
1> <语句组1>
CASE <条件表达式 2> <语句组2> …
[O202T0/11H/18 ERWISE]
•语句功能：执行此命令时， 系统从头依次查看每一个 CASE的条件表达式，只要 某一个条件表达式的值为 真，就执行该条件下的语 句组，其他条件下的语句 组都跳过去，接下来执行 ENDCASE后面的语句。 OTHERWISE是一个可选 项，若所有的条件都不成 立，则执行OTHERWISE 后面的语句；如果没有可 选项OTHERWISE，则所 有的条件都不成立，接着 执行ENDCASE后面的语句。
条件为真？
N
Y
执行循环体内各语句
修正条件表达式的值
2020/11/18
执行ENDDO后面的语句
• 例如：以显示方式输出1－10的数字。 SET TALK OFF CLEAR I=1 DO WHILE I <=10 ?I I=I+1 ENDDO
• 语句I=I+1就是用来修改循环条件的，如果 20没20/11/有18 这一句，I的值永远等于是，上述循环
6.2 程序控制结构
• 程序结构是指程序中命令或语句执行的流 程结构。在VFP系统的应用程序中，常见的 程序控制结构有顺序结构、选择结构和循 环结构三种。
• 顺序结构是任何从简单到复杂的程序都离 不开的主体基本结构，它按命令在程序中 出现的先后次序依次执行。但是绝大多数 问题仅用顺序结构是无法解决的，还要用 到选择结构和循环结构。
ENDCASE
SKIP
ENDDO ？“讲师45岁以下的人数为：”，W ？20“20副/11/1教8 授45岁以下的人数为：”，C
（5）如果循环体中包含LOOP语句，则当遇到LOOP时，就 结束循环体的本次执行，不再执行其后面的语句，而转到 DO WHILE开始处重新判断条件。
• 例如：在双重循环中，LOOP语句在内循环体中，当执行 到LOOP语句时，它跳回到内循环的DO WHILE的开始处 ，重复对<条件表达式2>的判断。 DO WHILE <条件表达式1>
X= X=0.5×W
（当W≤50Kg）
X=0.5×50+0.8×(W-50) （当W<50Kg）
程序如下：
SET TALK OFF
INPUT “请输入行李的重量为：” TO W
IF W<=50
X=0.5பைடு நூலகம்W
ELSE
X=0.5*50+0.8*(W-50)
ENDIF
?“行李的重量为”+STR（W，6，2）+“Kg，其运费为：”
OTHERWISE F=7*X+2
ENDCASE ? ?"F(X)=",F SET TALK ON RETURN
6.2.2 循环结构程序设计
1、DO WHILE-ENDDO语句 • 语句格式： DO WHILE <条件表达式>
<语句序列1>
[LOOP] <语句序列2>
[EXIT]
ENDDO • 语句功能：当条件表达式的值为真时，始 2020终/11/18执行语句组；否则执行ENDDO后面的语
… DO WHILE <条件表达式2>
例如：统计职工表ZGDA.DBF中，职称是讲师和副教授，年 龄为45岁以下的教师人数。
程序如下： SET TALK OFF STORE 0 TO C，W USE ZGDA
DO WHILE .NOT.EOF( )
DO CASE CASE (年龄<45).and.职称=“讲师” W=W+1 CASE (年龄<45).and.职称=“副教授” C=C+1
2020/11/18
6.2.1 选择结构程序设计
•选择结构是VFP系统程序的基本结构之一，
又称分支结构。选择结构语句有三种基本形
式。
N
1、简单分支
条件为真 ？Y
•语句格式：
语句组
IF〈条件表达式〉 〈命令序列〉
END IF后面的语句
ENDIF •语2020句/11/18功能：当条件为真时，执行IF和ENDIF
• 例如：检查DA.DBF中有无工资低于650元的 记录，如果有，则显示该记录的信息，然 后显示全部记录。程序如下： SET TALK OFF
USE DA LOCATE FOR 工资 < 650.00 IF .NOT.EOF()
DISPLAY
ENDIF
LIST 2020/11/18
2、选择分支语句 • 语句格式： IF <条件表达式>Y <语句序列1> 语句组1
+STR（X，6，2）+“元”
SE202T0/1T1/1A8 LK ON
3、IF条件语句的嵌套
• 语句格式：
•语句功能：此种嵌
IF <条件表达式1> <语句组1> ELSE IF <条件表达式2> <语句组2> ELSE IF <条件表达式3> <语句组3>
ELSE …
ENDIF
套语句可以对复杂 情况进行各种判断。 •说 明：在这种嵌 套形式中，要求每 一层的IF和ELSE及 ENDIF必须一一对 应。IF-ELSEENDIF每个命令各 占一行，不能在同 一行出现。
语句行 条件为真？
N 语句组2
ELSE
<语句序列2>
END IF后面的语句
ENDIF
• 语句功能：当条件为真时，先执行<语句序 列1>，然后再去执行ENDIF后面的语句； 当条件为假时，先执行<语句组2>，然后再 20转20/11/去18 执行ENDIF后面的语句。
例如:铁路托运行李，假设每张车票可按每Kg0.5元托运50Kg 以内的行李，如果超过50Kg时，超过的部分每Kg加价0.3 元。计算公式为
条件1 条件2
条件n
otherwise
... ...
语句序列1 语句序列2
语句序列n 语句序列
EndCase后面的语句
2020/11/18
例如：计算分段函数值： 2x-1 (x<0) 3x+5 (0<=x<5)
f(x)= x+1 (3<=x<5) 5x-3 (5<=x<10) 7x+2 (x>=10)
F=2*X-1
2020/11/18
CASE X>=0 AND X<3 F=3*X+5
CASE X>=3 AND X<5 F=X+1
CASE X>=5 AND X<10 F=5*X-3
2020/11/E18 NDIF
4、多路分支语句 语句格式： DO CASE CASE <条件表达式
1> <语句组1>
CASE <条件表达式 2> <语句组2> …
[O202T0/11H/18 ERWISE]
•语句功能：执行此命令时， 系统从头依次查看每一个 CASE的条件表达式，只要 某一个条件表达式的值为 真，就执行该条件下的语 句组，其他条件下的语句 组都跳过去，接下来执行 ENDCASE后面的语句。 OTHERWISE是一个可选 项，若所有的条件都不成 立，则执行OTHERWISE 后面的语句；如果没有可 选项OTHERWISE，则所 有的条件都不成立，接着 执行ENDCASE后面的语句。
条件为真？
N
Y
执行循环体内各语句
修正条件表达式的值
2020/11/18
执行ENDDO后面的语句
• 例如：以显示方式输出1－10的数字。 SET TALK OFF CLEAR I=1 DO WHILE I <=10 ?I I=I+1 ENDDO
• 语句I=I+1就是用来修改循环条件的，如果 20没20/11/有18 这一句，I的值永远等于是，上述循环
6.2 程序控制结构
• 程序结构是指程序中命令或语句执行的流 程结构。在VFP系统的应用程序中，常见的 程序控制结构有顺序结构、选择结构和循 环结构三种。
• 顺序结构是任何从简单到复杂的程序都离 不开的主体基本结构，它按命令在程序中 出现的先后次序依次执行。但是绝大多数 问题仅用顺序结构是无法解决的，还要用 到选择结构和循环结构。
ENDCASE
SKIP
ENDDO ？“讲师45岁以下的人数为：”，W ？20“20副/11/1教8 授45岁以下的人数为：”，C
（5）如果循环体中包含LOOP语句，则当遇到LOOP时，就 结束循环体的本次执行，不再执行其后面的语句，而转到 DO WHILE开始处重新判断条件。
• 例如：在双重循环中，LOOP语句在内循环体中，当执行 到LOOP语句时，它跳回到内循环的DO WHILE的开始处 ，重复对<条件表达式2>的判断。 DO WHILE <条件表达式1>
X= X=0.5×W
（当W≤50Kg）
X=0.5×50+0.8×(W-50) （当W<50Kg）
程序如下：
SET TALK OFF
INPUT “请输入行李的重量为：” TO W
IF W<=50
X=0.5பைடு நூலகம்W
ELSE
X=0.5*50+0.8*(W-50)
ENDIF
?“行李的重量为”+STR（W，6，2）+“Kg，其运费为：”
OTHERWISE F=7*X+2
ENDCASE ? ?"F(X)=",F SET TALK ON RETURN
6.2.2 循环结构程序设计
1、DO WHILE-ENDDO语句 • 语句格式： DO WHILE <条件表达式>
<语句序列1>
[LOOP] <语句序列2>
[EXIT]
ENDDO • 语句功能：当条件表达式的值为真时，始 2020终/11/18执行语句组；否则执行ENDDO后面的语
… DO WHILE <条件表达式2>
例如：统计职工表ZGDA.DBF中，职称是讲师和副教授，年 龄为45岁以下的教师人数。
程序如下： SET TALK OFF STORE 0 TO C，W USE ZGDA
DO WHILE .NOT.EOF( )
DO CASE CASE (年龄<45).and.职称=“讲师” W=W+1 CASE (年龄<45).and.职称=“副教授” C=C+1
2020/11/18
6.2.1 选择结构程序设计
•选择结构是VFP系统程序的基本结构之一，
又称分支结构。选择结构语句有三种基本形
式。
N
1、简单分支
条件为真 ？Y
•语句格式：
语句组
IF〈条件表达式〉 〈命令序列〉
END IF后面的语句
ENDIF •语2020句/11/18功能：当条件为真时，执行IF和ENDIF
• 例如：检查DA.DBF中有无工资低于650元的 记录，如果有，则显示该记录的信息，然 后显示全部记录。程序如下： SET TALK OFF
USE DA LOCATE FOR 工资 < 650.00 IF .NOT.EOF()
DISPLAY
ENDIF
LIST 2020/11/18
2、选择分支语句 • 语句格式： IF <条件表达式>Y <语句序列1> 语句组1
+STR（X，6，2）+“元”
SE202T0/1T1/1A8 LK ON
3、IF条件语句的嵌套
• 语句格式：
•语句功能：此种嵌
IF <条件表达式1> <语句组1> ELSE IF <条件表达式2> <语句组2> ELSE IF <条件表达式3> <语句组3>
ELSE …
ENDIF
套语句可以对复杂 情况进行各种判断。 •说 明：在这种嵌 套形式中，要求每 一层的IF和ELSE及 ENDIF必须一一对 应。IF-ELSEENDIF每个命令各 占一行，不能在同 一行出现。
语句行 条件为真？
N 语句组2
ELSE
<语句序列2>
END IF后面的语句
ENDIF
• 语句功能：当条件为真时，先执行<语句序 列1>，然后再去执行ENDIF后面的语句； 当条件为假时，先执行<语句组2>，然后再 20转20/11/去18 执行ENDIF后面的语句。
例如:铁路托运行李，假设每张车票可按每Kg0.5元托运50Kg 以内的行李，如果超过50Kg时，超过的部分每Kg加价0.3 元。计算公式为
条件1 条件2
条件n
otherwise
... ...
语句序列1 语句序列2
语句序列n 语句序列
EndCase后面的语句
2020/11/18
例如：计算分段函数值： 2x-1 (x<0) 3x+5 (0<=x<5)
f(x)= x+1 (3<=x<5) 5x-3 (5<=x<10) 7x+2 (x>=10)