Visual FoxPro 应用基础与面向对象 程序设计教程

Presentation on theme: "Visual FoxPro 应用基础与面向对象 程序设计教程"— Presentation transcript:

1 Visual FoxPro 应用基础与面向对象 程序设计教程

2 第9章 程序设计基础 9.1 Visual FoxPro的工作方式 9.2 程序文件的创建与编辑 9.3 顺序结构 9.4 分支结构
第9章 程序设计基础 9.1 Visual FoxPro的工作方式 9.2 程序文件的创建与编辑 9.3 顺序结构 9.4 分支结构 9.5 循环结构 9.6 过程与过程文件 Visual FoxPro 应用基础与面向对象程序设计教程

3 9.1 Visual FoxPro的工作方式 Visual FoxPro系统提供了三种工作方式 1.命令方式 2. 菜单方式
3. 程序文件方式 Visual FoxPro 应用基础与面向对象程序设计教程

4 9.2 程序文件的创建与编辑 1.使用Modify Command命令创建、编辑程序文件
9.2 程序文件的创建与编辑 1.使用Modify Command命令创建、编辑程序文件 Modify Command <程序文件名> 2.以菜单方式创建、编辑程序文件 操作步骤如下： ①打开“文件”菜单，选择“新建”命令。 ②在“新建”窗口，选择“程序”选项，按“新建”按钮。 ③在“程序”编辑窗口，输入程序文件并保存，此时，创建程序文件的操作结束。 3.利用设计工具建立程序代码 “表单设计器”、“类设计器”、“菜单设计器”、“报表设计器” 4.程序文件的调用 Do <程序文件名> Visual FoxPro 应用基础与面向对象程序设计教程

5 9.3 顺序结构 输入语句 输出语句 Visual FoxPro 应用基础与面向对象程序设计教程

6 9.3.1 输入语句 程序中常用的交互输入语句有如下几种： 1.Input语句
输入语句 程序中常用的交互输入语句有如下几种： 1.Input语句 Input [<提示符>] To <内存变量表> 2.Accept语句 Accept [<提示符>] To <内存变量表> 3.Wait语句 Wait [<提示符>] [To <内存变量表>] [Window [At <行>, <列>]] [Timeout <数值表达式>] 、Read语句） @ <行，列> [Say <提示信息> ] Get <变量> Read Visual FoxPro 应用基础与面向对象程序设计教程

7 输出语句 语句） @ <行，列> Say <表达式> [Picture <格式描述符>] Visual FoxPro 应用基础与面向对象程序设计教程

8 9.4 分支结构 单向分支 双向分支 多向分支 Visual FoxPro 应用基础与面向对象程序设计教程

9 9.4.1 单向分支 If <条件表达式> <命令行序列> EndIf 单向分支语句的流程图，如图所示。
单向分支 If <条件表达式> <命令行序列> EndIf 单向分支语句的流程图，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

10 9.4.2 双向分支 If <条件表达式> <命令行序列1> Else <命令行序列2> EndIf
双向分支 双向分支语句的流程图，如图所示。 If <条件表达式> <命令行序列1> Else <命令行序列2> EndIf Visual FoxPro 应用基础与面向对象程序设计教程

11 9.4.3 多向分支 Do Case Case <条件表达式1> <命令行序列1>
多向分支 Do Case Case <条件表达式1> <命令行序列1> [Case <条件表达式2> <命令行序列2> …… Case <条件表达式n > <命令行序列n >] [Otherwise <命令行序列n +1>] EndCase 多向分支语句的流程图，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

12 9.5 循环结构 9.5.1 “当”型循环 9.5.2 “计数”型循环 9.5.3 “指针”型循环
9.5 循环结构 “当”型循环 “计数”型循环 “指针”型循环 Visual FoxPro 应用基础与面向对象程序设计教程

13 9.5.1 “当”型循环 Do While <条件表达式> <命令行序列> EndDo
“当”型循环 Do While <条件表达式> <命令行序列> EndDo “当”型循环语句的流程图，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

14 9.5.1 “当”型循环 例：统计“人才档案”数据表中工资超过7000元的人数。 程序运行结果，如图所示。 Clear
“当”型循环 例：统计“人才档案”数据表中工资超过7000元的人数。 Clear Use 人才档案.dbf Exclusive Go Top rc=0 Do While .not. eof() If 工资现状>7000 rc=rc+1 EndIf Skip EndDo @ 2,30 Say "工资在7000元以上的人数：" @ 2,60 Say rc Use 程序运行结果，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

15 9.5.2 “计数”型循环 For <循环变量>=<循环变量初值> To <循环变量终值>
“计数”型循环 For <循环变量>=<循环变量初值> To <循环变量终值> [ Step <循环变量步长>]<命令行序列> EndFor｜Next “计数”型循环语句的流程，如图所示。 （步长<0 ） （步长>0） Visual FoxPro 应用基础与面向对象程序设计教程

16 9.5.2 “计数”型循环 例：用“计数”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear
“计数”型循环 例：用“计数”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear Use 人才档案.dbf Exclusive Count All To jls Go Top rc=0 For i=1 To jls Step 1 If 工资现状>=7000 rc=rc+1 EndIf Skip EndFor @ 2,30 Say "工资在7000元以上的人数：" @ 2,60 Say rc Use 程序运行结果，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

17 “指针”型循环 Scan [<范围>] [For <条件表达式1>] [While <条件表达式2>] <命令行序列> EndScan “指针”型循环语句的流程，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

18 9.5.3 “指针”型循环 例：用“指针”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear
“指针”型循环 例：用“指针”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear Use 人才档案.dbf Exclusive Go Top rc=0 Scan All For 工资现状>=7000 rc=rc+1 EndScan @ 2,30 Say "工资在7000元以上的人数：" @ 2,60 Say rc Use 程序运行结果，如图所示。 Visual FoxPro 应用基础与面向对象程序设计教程

19 9.6 过程与过程文件 1.过程调用语句 Do <过程名> 2.过程返回语句
9.6 过程与过程文件 1.过程调用语句 Do <过程名> 2.过程返回语句 Return [To Master | To <过程名>] Visual FoxPro 应用基础与面向对象程序设计教程

20 本 章 要 点 Visual FoxPro 应用基础与面向对象程序设计教程

21 Thank You !