7.子程序和程序包.ppt

* 过程 8-3 CREATE OR REPLACE PROCEDURE find_emp(emp_no NUMBER) AS empname VARCHAR2(20); BEGIN SELECT ename INTO empname FROM EMP WHERE empno = emp_no; DBMS_OUTPUT.PUT_LINE(雇员姓名是 || empname); EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE (雇员编号未找到); END find_emp; / * 过程 8-4 过程参数的三种模式： IN 用于接受调用程序的值 默认的参数模式 OUT 用于向调用程序返回值 IN OUT 用于接受调用程序的值，并向调用程序返回更新的值 * 过程 8-5 SQL CREATE OR REPLACE PROCEDURE itemdesc(item_code IN VARCHAR2) IS v_itemdesc VARCHAR2(5); BEGIN SELECT itemdesc INTO v_itemdesc FROM itemfile WHERE itemcode = item_code; DBMS_OUTPUT.PUT_LINE(item_code|| 项目的说明为||v_itemdesc); END; / SQL SET SERVEROUTPUT ON SQL EXECUTE itemdesc(i201); 执行过程的语法： EXECUTE procedure_name(parameters_list); * 过程 8-6 SQL CREATE OR REPLACE PROCEDURE test( value1 IN VARCHAR2, value2 OUT NUMBER ) IS identity NUMBER; BEGIN SELECT ITEMRATE INTO identity FROM itemFile WHERE itemcode = value1; IF identity 200 THEN value2:=100; END IF; END; DECLARE value1 VARCHAR2(5) := i202; value2 NUMBER; BEGIN test (value1, value2); DBMS_OUTPUT.PUT_LINE(value2 的值为 || TO_CHAR(value2)); END; / * 过程 8-7 CREATE OR REPLACE PROCEDURE swap(p1 IN OUT NUMBER, p2 IN OUT NUMBER) IS v_temp NUMBER; BEGIN v_temp := p1; p1 := p2; p2 := v_temp; END; / SQL SET SERVEROUT ON SQL DECLARE num1 NUMBER := 100; num2 NUMBER := 200; BEGIN swap(num1, num2); DBMS_OUTPUT.PUT_LINE(num1 = || num1); DBMS_OUTPUT.PUT_LINE(num2 = || num2); END; / * 过程 8-8 将过程的执行权限授予其他用户： 删除过程： SQL GRANT EXECUTE ON find_emp TO MARTIN; SQL GRANT EXECUTE ON swap TO PUBLIC; SQL DROP PROCEDURE find_emp; * 函数 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; * 函数 4-2 定义函数的限制： 函数只能接受 IN 参数，而不能接受 IN OUT 或 OUT 参数 形参不能是 PL/SQL 类型 函数的返回类型也必须是数据库类型 访问函数的两种方式： 使用 P