数据库系统--第12章 程序设计.ppt

第12 章程序设计12.1 程序中的常用命令12.2 结构化程序设计12.3 顺序结构12.4 选择结构12.5 循环结构第一节程序中的常用命令一、程序结尾语句return cancel 二、注释* 注释信息 语句 注释信息 三、输入、输出语句1、INPUT 命令格式：input [ 提示信息] to 内存变量 功能：暂停程序执行，等待用户从键盘上输入数据，用户输入数据并回车后，数据被存入内存变量。2、ACCEPT 命令格式：accept [ 提示信息] to 内存变量 功能：暂停程序执行，等待用户从键盘上输入字符串，用户输入字符串并回车后，字符串被存入内存变量。例：编程实现按姓名查询学生3、WAIT 命令格式：wait [ 提示信息] [to 内存变量] 功能：暂停程序执行，等待用户从键盘上输入单个字符，用户输入的这个字符可被存入内存变量。第二节结构化程序设计程序的三种基本结构1 、顺序结构第三节顺序结构在顺序结构中程序按语句的先后顺序执行。例：clear accept 请输入要查询的学生姓名： to xm select * from student where name=xm return 第四节选择结构一、单分支if 条件 语句序列endif 二、双分支if 条件 语句序列1 else 语句序列2 endif 例：按学号查询xsxhcx1.prg use student accept “请输入学号 to xh locate for studentid=xh if found() display else ? 查无此人 endif return 三、多分支do case case 条件1 语句序列1 case 条件2 语句序列2 ... case 条件n 语句序列n otherwise 语句序列n+1 endcase 例：根据系统日期判断季节jj.prg yue=month(date()) do case case yue=3 or yue=4 or yue=5 jj= 春 case inlist(yue,6,7,8) jj= 夏 case inlist(yue,9,10,11) jj= 秋 case inlist(yue,12,1,2) jj= 冬 endcase ? jj return 第五节循环结构1、do while …enddo 循环do while 条件 语句序列enddo 例：逐条输出专业编号为10101 的学生cxxs.prg clear use student locate for departmentid=101101 do while found() display continue wait enddo use return 2、scan …endscan 循环scan [ 范围] for 条件 语句序列endscan 例：按专业编号查询学生,要求逐条显示输出use student accept 请输入要查询的专业编号: to x scan for departmentid=x display wait wind endscan use return 3、for …endfor 循环for 循环变量=初值to 终值step 步长值语句序列endfor 例：xh1.prg for x=1 to 5 step 1 ? x endfor return 4、循环辅助语句（1）循环出口语句：exit 功能：在循环体中被执行时，跳到循环结束语句之后。（2）短路循环语句：loop 功能：在循环体中被执行时，忽略此句后到循环结束语句之间的所有语句，跳到循环起始语句重新开始循环。第六节多模块程序设计模块：是可以命名的一个程序块，可以是主程序、子程序、自定义函数等。一、子程序1 、子程序的概念：被其它程序调用的程序称为子程序。2 、子程序的调用：do 子程序名[with 参数表] [in 程序文件名] 3 、子程序的种类：（1）、按有无参数分类：例：输入圆半径，计算圆面积p0.prg Clear Input 请输入圆半径： to x Do area with x Return 例：输入圆半径，计算圆面积p1.prg Clear Input 请输入圆半径： to x Y=0 Do area with x,y ? 圆面积为： , y Return （2）按子程序的存放位置分：过程式子程序用procedure 语句标注子程序名：格式：Procedure 子程序名例：输入圆半径，计算圆面积p2.prg Clear Input 请输入圆半径： to x Do ar