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

第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 应用基础与面向对象程序设计教程

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

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

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

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

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

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

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

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

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

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

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

9.5.1 “当”型循环 例：统计“人才档案”数据表中工资超过7000元的人数。 程序运行结果，如图所示。 Clear 9.5.1 “当”型循环 例：统计“人才档案”数据表中工资超过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 应用基础与面向对象程序设计教程

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

9.5.2 “计数”型循环 例：用“计数”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear 9.5.2 “计数”型循环 例：用“计数”型循环控制语句，统计“人才档案”数据表中工资超过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 应用基础与面向对象程序设计教程

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

9.5.3 “指针”型循环 例：用“指针”型循环控制语句，统计“人才档案”数据表中工资超过7000元的人数。 Clear 9.5.3 “指针”型循环 例：用“指针”型循环控制语句，统计“人才档案”数据表中工资超过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 应用基础与面向对象程序设计教程

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

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

Thank You !