oracle 过程、函数与程序包.ppt

PL/SQL包 包用于逻辑组合相关的自定义类型、常量、变量、游标、过程和函数。 简化了客户应用开发，提高性能，实现信息隐藏、子程序重载等功能。 PL/SQL包-规范 包规范用于定义包的公用组件，包括常量、变量、游标、自定义类型、过程和函数等。 建立包规范语法 CREATE [OR REPLACE] PACKAGE package_name IS|AS -- 定义公用常量、变量等 --定义公用过程和函数等。 END package_name; PL/SQL包-例子 CREATE OR REPLACE PACKAGE emp_package IS g_deptno empl.deptno%TYPE:=30; PROCEDURE add_employee( empno empl.empno%TYPE, ebirthday empl.ebirthday%TYPE, ename empl.ename%TYPE, ejob empl.ejob%TYPE DEFAULT ‘programmer’, egrade empl.egrade%TYPE,major empl.mgr%TYPE, indate empl.indate%TYPE DEFAULT SYSDATE, salary empl.salary%TYPE DEFAULT 1000, allow empl.allow%TYPE, deptno empl.deptno%TYPE DEFAULT g_deptno); PROCEDURE fire_employee(eno NUMBER); FUNCTION get_sal(eno NUMBER) RETURN NUMBER; END emp_package; PL/SQL包-建立包体 包体用于实现包规范所定义的公用过程和函数，包体不仅可用与实现公用过程和函数，而且可以定义包的私有组件（变量、常量等） 建立包体语法 CREATE [OR REPLACE] PACKAGE BODY package_name IS|AS --定义私有变量、常量等 --实现公用过程和函数 END package_name; PL/SQL包-例子 CREATE OR REPLACE PACKAGE BODY emp_package IS FUNCTION validate_deptno(dno empl.deptno%TYPE) RETURN BOOLEAN IS temp INT; BEGIN SELECT 1 INTO temp FROM dept WHERE deptno=dno; RETURN TRUE; EXCEPTION WHEN NO_DATA_FOUND THEN RETURN FALSE; END; PROZCEDURE add_employee(empno empl.empno%TYPE, ebirthday empl.ebirthday%TYPE, ename empl.ename%TYPE, ejob empl.ejob%TYPE DEFAULT ‘programmer’, egrade empl.egrade%TYPE,major empl.mgr%TYPE, indate empl.indate%TYPE DEFAULT SYSDATE, salary empl.salary%TYPE DEFAULT 1000, allow empl.allow%TYPE, deptno empl.deptno%TYPE DEFAULT g_deptno); IS BEGIN IF validate_deptno(deptno) THEN INSERT INTO emp VALUES(empno,ebirthday,ename,ejob,egrade,major,indate, salary, allow, deptno); END IF; END; PROCEDURE fire_employee(eno NUMBER) IS BEGIN FUNCTION get_sal(eno NUMBER) RETURN NUMBER IS v_sal empl.salary%TYPE; BEGIN SELECT salary INTO v_sal FROM empl WHERE empno=eno; RETURN v_sal; END; END emp_package; PL/SQL包-调用包组件 调用包公用变量 例子： emp_package.g_deptno:=20 调用包公用过程 例子： emp_package.g_deptno:=20 e