一个完整包的开发实例

CREATE OR REPLACE PACKAGE emp_pkg AS
--声明一个过程
PROCEDURE add_emp(emp_record emp%Rowtype);
--声明一个函数
FUNCTION get_info(eno emp.empno%TYPE)
RETURN emp%ROWTYPE;
END;
/
CREATE OR REPLACE PACKAGE BODY emp_pkg IS
--过程定义
PROCEDURE add_emp(emp_record emp%Rowtype)IS
--自定义一个异常
e_2291 EXCEPTION;
--异常和错误编号关联
PRAGMA EXCEPTION_INIT (e_2291,-2294)；
BEGIN
INSERT INTO emp VALUES emp_record;
EXCEPTION
WHEN dup_val_on_index THEN
RAISE_application_error(-20010,'雇员编号不能重复');
WHEN dup_val_on_index THEN
RAISE_application_error(-2011,'部门不存在');
END;

--函数定义
FUNCTION get_info(eno emp.empno%TYPE) RETURN emp%ROWTYPE IS
emp_record emp%ROWTYPE;
BEGIN
SELECT*INTO emp_record FROM emp WHERE empno=eno;
RETURN emp_record;
EXCEPTION
WHEN no_data_found THEN
raise_application_error(-20010,'雇员不存在');
END;
END emp_pkg;
/

--调用包中的过程
DECLARE
emp_record emp%ROWTYPE;
BEGIN
emp_record.empno:=&eno;
emp_pkg.add_emp(emp_record);
END;

/
--调用包中的函数

DECLARE
emp_record emp%ROWTYPE;
BEGIN
emp_record:=emp_pkg.get_info(&eno);
END;