第七章 PLSQL子程序设计.ppt

高等学校计算机应用人才培养系列教材 7.* Oracle数据库基础 贾素玲 王强 主编 许珂 卢泉 张国强 编著 第七章 PL/SQL子程序设计 本章结构 子程序 过程 函数 包 触发器 数据字典 本章小结 习题 子程序 子程序 PL/SQL程序块可以是一个匿名程序块也可以是一个命名的程序块。 Oracle提供了四种类型的子程序： 过程、函数、包和触发器。 过程 过程概述 create [or replace ] procedure procedure_name (arg1 [mode] ,datatype,……) is | as [local declaration] begin executable statements [exception exception handler] end [procedure name] 过程 参数模式in in表示在调用过程的时候，实际参数的取值被传递给该过程，形式参数被认为是只读的，当过程结束时，控制会返回控制环境，实际参数的值不会改变。同时也是参数的缺省模式。 参数模式out out在调用过程时实际参数的取值都将被忽略，在过程内部形式参数只能是被赋值，而不能从中读取数据，在过程结束后形式参数的内容将被赋予实际参数。 参数模式in out in out这种模式是in和out的组合，在过程内部实际参数的值会传递给形式参数，形式参数的值可读也可写，过程结束后，形式参数的值将赋予实际参数。 过程 create or replace procedure emp_empno(v_empno emp.empno%type) as v_emp emp%rowtype; empno_out_of_range exception; begin if v_empno=7000 or v_empno=8000 then raise empno_out_of_range; end if; select * into v_emp from emp where empno=v_empno; if SQL%found then dbms_output.put_line(v_emp.ename); end if; exception when empno_out_of_range then raise_application_error(-20010,empno is out of range); when no_data_found then dbms_output.put_line(not found record); when too_many_rows then dbms_output.put_line(too many record); end emp_empno; / 过程 create or replace procedure get_ename ( v_empno in emp.empno%type, v_ename out emp.ename%type ) as cursor c_emp is select empno,ename from emp where empno=v_empno; v_emp c_emp%rowtype; begin open c_emp; fetch c_emp into v_emp; v_ename:=v_emp.ename; close c_emp; end get_ename; / declare name emp.ename%type; begin get_ename(7369,name); dbms_output.put_line(name); end; / 过程 declare cursor c_emp is select sal from emp order by empno; type sal_type is table of number(7,2) index by binary_integer; sal_list sal_type; v_count binary_integer default 1; procedure set_sal(sal_list in out sal_type) as begin for i in 1..sal_list.count loop sal_list(i):=sal_list(i)*1.05; end loop; end set_sal; begin open c_emp; loop f