新数据库应用技术基础(Visual_FoxPro) 教学课件 黎虹 李广振 l6.pptVIP

第六章　程序设计基础 目录 本章重点 创建及运行程序 条件分支结构 IF ... ENDIF DO CASE ... ENDCASE 循环结构 DO WHILE ... ENDDO FOR ... ENDFOR 过程和自定函数 变量的作用域 调试程序 什么是程序 第一个VFP程序 创建、编辑程序 MODIFY COMMAND语句 语法： MODIFY COMMAND [FileName | ?] 功能： 打开一个编辑窗口，从中可以修改或创建程序文件。 保存程序 CTRL+W 点击“文件-保存”菜单 运行程序 DO 命令 语法： DO 程序文件|过程名称 功能： 执行一个 Visual FoxPro 程序或过程。 简单的输入、输出命令 简单输入、输出命令 ？命令 语法： ？|？？ 表达式 功能： 计算表达式的值，并输出计算结果。 简单输入、输出命令 ACCEPT命令 语法： ACCEPT [提示信息] TO 内存变量 功能： 在程序执行过程中，将用户交互式输入的内容作为字符串赋值给指定内存变量。 简单输入、输出命令 ACCEPT示例： 打开VFP命令窗口，输入MODIFY COMMAND SAYHELLO 输入程序 ACCEPT ”请输入姓名：” TO XM ? ”你好！”,XM 按CTRL+W存盘或点击“文件-保存”菜单存盘，运行程序。 简单输入、输出命令 INPUT命令 语法： INPUT [提示信息] TO 内存变量 功能： 在程序执行过程中，将用户交互式输入的内容赋值给指定内存变量。 简单输入、输出命令 INPUT示例： 打开VFP命令窗口，输入 MODIFY COMMAND QueryStudent 输入程序 INPUT ”请输入分数：” TO FS Select * from student where 总分FS 按CTRL+W存盘或点击“文件-保存”菜单存盘，运行程序。 程序结构 分支结构 IF ... ELSE ... ENDIF DO CASE ... ENDCASE 只有逻辑条件值为“真”(.T.) 时，才会执行在初始语句和 ENDIF 或 ENDCASE 语句之间的程序。 分支结构 IF ... ENDIF 语法： IF 条件表达式 语句 [ELSE 语句] ENDIF 功能： 根据逻辑表达式值，有选择地执行一组命令 分支结构 IF ... ENDIF示例 打开VFP命令窗口，输入 MODIFY COMMAND WhoMAX 输入程序 CLEAR INPUT “请输入数值A：” TO A INPUT ”请输入数据B：” TO B IF A=B Then ? A,”比”,B,”大” ELSE ? A,”比”,B,”大” ENDIF 按CTRL+W存盘或点击“文件-保存”菜单存盘，运行程序。 分支结构 DO CASE ... ENDCASE 语法： DO CASE CASE 条件表达式1 语句 [CASE 条件表达式2 语句 ... CASE 条件表达式N 语句] [OTHERWISE 语句] ENDCASE 功能： 根据不同的条件表达式结果执行不同的命令。 分支结构 DO CASE ... ENDCASE示例 打开VFP命令窗口，输入 MODIFY COMMAND Quarter 输入程序 CLEAR M=MONTH(DATE( )) 今天的月份 DO CASE CASE INLIST(m,1,2,3) ? 这个月是第一季度 CASE INLIST(m,4,5,6) ? 这个月是第二季度 CASE INLIST(m,7,8,9) ? 这个月是第三季度 OTHERWISE ? 这个月是第四季度 ENDCASE 按CTRL+W存盘或点击“文件-保存”菜单存盘，运行程序。 循环结构 DO WHILE ... ENDDO FOR ... ENDFOR SCAN ... ENDSCAN 循环结构 DO WHILE ... ENDDO 语法： DO WHILE 条件表达式 语句 [LOOP] [EXIT] ENDDO 功能： 在一个条件循环里执行一组命令。 循环结构 DO WHILE ... ENDDO示例 打开VFP命令窗口，输入 MODIFY COMMAND StuInfo 输入