数据库应用-第6-7章.ppt

* 7.4.1 子程序 【例7-18】编写程序，能够按课程名称或课程编号查询kc.dbf表中的记录 *子程序kcmccx.prg 按课程名称查询 Clear @1,10 Say 按课程名称查询程序 @3,10 Say 请输入课程名称： Get kcmc Default Space(20) Read Locate For 课程名称=kcmc If Found() @6,10 Say 课程编号： + 课程编号 @8,10 Say 课程名称： + 课程名称 @10,10 Say 学时数： + Str(学时数) Wait 请按任意键返回… Windows Else Wait 无此课程！请按任意键返回… Windows Endif Return * 7.4.1 子程序 【例7-18】编写程序，能够按课程名称或课程编号查询kc.dbf表中的记录 *子程序kcbhcx.prg按课程编号查询 Clear @1,10 Say 按课程编号查询程序 @3,10 Say 请输入课程编号： Get kcbh Default Space(8) Read Locate For 课程编号=kcbh If Found() @6,10 Say 课程编号： + 课程编号 @8,10 Say 课程名称： + 课程名称 @10,10 Say 学时数： + Str(学时数) Wait 请按任意键返回… Windows Else Wait 无此课程！请按任意键返回… Windows Endif Return * 7.4.1 子程序 1．子程序的常规调用 命令格式：DO 子程序名 功能：调用并执行指定的子程序。 2．子程序的带参调用 语句格式：DO 子程序名 WITH 参数表 功能：向指定的子程序传递参数，并执行子程序。 子程序中的参数接收语句格式： PARAMETERS 参数表 * 7.4.1 子程序 【例7-19】试设计一个计算阶乘（N！）的子程序，并要求在主程序中带参调用它 *主程序 Clear Input 请输入N的值： To n If n 0 ? N的值不能小于0！ Return Endif jc=0 Do fact With n, jc 带参调用子程序fact.prg ? n , 的阶乘为, jc *子程序fact.prg Parameters n1, jc1 jc1=1 For i= 1 To n1 计算阶乘 jc1=jc1 * i Endfor Return * 7.4.2 过程 1．过程的定义 PROCEDURE　过程名 [PARAMETERS 参数表] 命令序列 [RETURN] [ENDPROC] * 7.4.2 过程 2．过程的调用 （1）如果过程包含在调用程序之中，调用格式为： DO 过程名 [WITH 参数表] （2）如果过程包含在独立于调用程序的某个过程文件中，调用格式为： DO 过程名 [WITH 参数表] IN 过程文件名 * 7.4.2 过程 【例7-20】试设计一个计算阶乘（N！）的过程，并要求在主程序中带参调用它。 *主程序 Clear Input 请输入N的值： To n If n 0 ? N的值不能小于0！ Return Endif jc=0 Do fact With n, jc 带参调用过程fact ? n , 的阶乘为, jc *过程fact Procedure fact Parameters n1, jc1 jc1=1 For i= 1 To n1 计算阶乘 jc1=jc1 * i Endfor Endproc * 7.4.3 自定义函数 1．自定义函数的格式 [FUNCTION 函数名] [PARAMETERS 参数表] 命令序列 [RETURN 表达式] [ENDFUNC] * 7.4.3 自定义函数 2．自定义函数的调用 自定义函数的调用方法与标准函数的调用方法相同。 命令格式： 自定义函数名（[参数表]） * 7.4.3 自定义函数 【例7-22】试设计一个计算阶乘（N！）的函数，并要求在主程序中调用它。 *主程序 Clear Input 请输入N的值： To n If n 0 ? N的值不能小于0！ Return Endif ? n , “的阶乘为”, fact(n) 调用函数fact *函数fact Function f