ch9-子程序和程序包

HandsOn
过程和函数的比较
过程
作为 PL/SQL 语句执行
函 数
作为表达式的一部分调用
在规格说明中不包含 RETURN 子句 必须在规格说明中包含 RETURN 子句
不返回任何值
可以包含 RETURN 语句，但是与函 数不同，它不能用于返回值
必须返回单个值
必须包含至少一条 RETURN 语句
HandsOn
创建过程的语法：
CREATE [OR REPLACE] PROCEDURE <procedure name> [(<parameter list>)] IS|AS 创建过程，可指定运行过程需传递的参数 <local variable declaration> BEGIN 包括在过程中要执行的语句 <executable statements> [EXCEPTION <exception handlers>] 处理异常 END;
HandsOn
程序包中的游标 2-2
SQL> CREATE OR REPLACE PACKAGE BODY pack_cur AS Cursor cur_stu(stuclass number) return t_student%rowtype Is select CREATE OR REPLACE PACKAGE pack_cur As SQL> * from t_student where f_class = stuclass; procedure proc_stu(stuclass number) return t_student%rowtype; Cursor cur_stu(stuclass number) As procedure proc_stu(stuclass number); rec_stu t_student%rowtype; end; begin / Open cur_stu(stuclass); loop Fetch cur_stu Into rec_stu; Exit when cur_stu%NotFound; dbms_output.put_line('学生姓名：'||rec_stu.f_name); end loop; end proc_stu; end; /
过程 8-4
执行过程的语法：
EXECUTE procedure_name(parameters_list);
SQL> SET SERVEROUTPUT ON SQL> EXECUTE proc_stu(‘007');
HandsOnຫໍສະໝຸດ 过程 8-5过程参数的三种模式： IN

用于接受调用程序的值 默认的参数模式 用于向调用程序返回值 用于接受调用程序的值，并向调用程序返回更新的值
HandsOn
过程 8-3
create or replace procedure proc_stu(v_id varchar2) Is v_name t_student.f_name%type; v_dept t_student.f_department%type; v_class t_student.f_class%type; begin select f_name,f_department,f_class into v_name,v_dept,v_class from t_student where f_id=v_id; dbms_output.put_line('学号:'||v_name||'姓名:'||v_dept||'班 级:'||v_class); exception when no_data_found then dbms_output.put_line('未找到相应学生'); end; / HandsOn

OUT


IN OUT

HandsOn
过程 8-6
SQL> create or replace procedure proc_avgscore(stuid In declare varchar2,avgscore out number) avgscore number; as begin begin proc_avgscore('001',avgscore); select avg(f_grade) into avgscore from t_grade where dbms_output.put_line('学号为001的学生的平均成绩为： f_stuid=stuid; '||to_char(avgscore)); exception end; / when no_data_found then dbms_output.put_line('未找到相应记录'); end; /
CREATE [OR REPLACE] PACKAGE package_name IS|AS [Public item declarations] [Subprogram specification] END [package_name];
程序包主体
CREATE [OR REPLACE] PACKAGE BODY package_name IS|AS [Private item declarations] [Subprogram bodies] [BEGIN Initialization] END [package_name];

从 SQL 语句调用函数：
SQL> SELECT func_hello FROM DUAL;
HandsOn
函数 4-4
create or replace function func_stu(v_id varchar2) return varchar2 As v_name t_student.f_name%type; DECLARE v_dept t_student.f_department%type; v_id char(3) := '001'; v_class t_student.f_class%type; v_stuinfo VARCHAR2(100); begin BEGIN select f_name,f_department,f_class into v_name,v_dept,v_class v_stuinfo := func_stu(v_id); from t_student where f_id=v_id; DBMS_OUTPUT.PUT_LINE(v_stuinfo); return END; '学号:'||v_name||'姓名:'||v_dept||'班级:'||v_class; exception / when no_data_found then dbms_output.put_line('未找到相应学生'); end; /
程序包的优点



模块化 更轻松的应用程序设计 信息隐藏 新增功能 性能更佳
HandsOn
程序包中的游标 2-1



游标的定义分为游标规范和游标主体两部分 在包规范中声明游标规范时必须使用 RETURN 子句指定游标的返回类型 RETURN子句指定的数据类型可以是：

用 %ROWTYPE 属性引用表定义的记录类型 程序员定义的记录类型
HandsOn
创建程序包 2-2
create or replace package pack_stu As As body pack_stu v_globalid char(8); procedure proc_stu(v_id varchar2) procedure proc_stu(v_id varchar2); Is function func_stu(v_id varchar2) return varchar2; v_name t_student.f_name%type; end pack_stu; v_dept t_student.f_department%type; / v_class t_student.f_class%type; begin v_globalid := v_id; select f_name,f_department,f_class into v_name,v_dept,v_class from t_student where f_id=v_id; ... end proc_stu; function func_stu(v_id varchar2) return varchar2 As ... end func_stu; HandsOn end pack_stu; /
HandsOn
函数 4-2
定义函数的限制：
函数只能接受 IN 参数，而不能接受 IN OUT 或 OUT 参数 形参不能是 PL/SQL 类型 函数的返回类型也必须是数据库类型
访问函数的两种方式：
使用 PL/SQL 块 使用 SQL 语句
HandsOn
函数 4-3

创建函数：
CREATE OR REPLACE FUNCTION func_hello RETURN VARCHAR2 IS BEGIN RETURN '朋友，您好'; END; /
函数 4-1

函数是可以返回值的命名的 PL/SQL 子程序。 创建函数的语法：
CREATE [OR REPLACE] FUNCTION <function name> [(param1,param2)] RETURN <datatype> IS|AS [local declarations] BEGIN Executable Statements; RETURN result; EXCEPTION Exception handlers; END;