Oracle专题15之包

vivion32

--创建包规范　　CREATE OR REPLACE PACKAGE overload_pkg
　　IS
　　FUNCTION get_info(eno NUMBER) RETURN emp%ROWTYPE;
　　FUNCTION get_info(name VARCHAR) RETURN emp%ROWTYPE;
　　PROCEDURE del_emp(eno NUMBER);
　　PROCEDURE del_emp(name VARCHAR);
　　END;
　　--创建包体
　　CREATE OR REPLACE PACKAGE BODY overload_pkg
　　IS
　　FUNCTION get_info(eno NUMBER) 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(-20020, '不存在此员工');
　　END;
　　FUNCTION get_info (name VARCHAR) RETURN emp%ROWTYPE
　　IS
　　emp_record emp%ROWTYPE;
　　BEGIN
　　SELECT * INTO emp_record FROM emp WHERE ename= name;
　　RETURN emp_record;
　　EXCEPTION
　　WHEN NO_DATA_FOUND THEN
　　RAISE_APPLICATION_ERROR(-20020, '不存在此员工');
　　END;
　　PROCEDURE del_emp(eno NUMBER)
　　IS
　　BEGIN
　　DELETE FROM emp WHERE empno = eno;
　　IF SQL%NOTFOUND THEN
　　RAISE_APPLICATION_ERROR(-20020, '不存在此员工');
　　END IF;
　　END;
　　PROCEDURE del_emp(name VARCHAR)
　　IS
　　BEGIN
　　DELETE FROM emp WHERE ename = name;
　　IF SQL%NOTFOUND THEN
　　RAISE_APPLICATION_ERROR(-20020, '不存在此员工');
　　END IF;
　　END;
　　END overload_pkg;