--根據員工號或員工姓名獲取員工的信息

--根據員工號或員工姓名刪除員工的信息

--創建包規范

CREATE OR REPLACE PACKAGE overload_pkg

IS

FUNCTION get_info(eno NUMBER) RETURN emp%ROWTYPE;

FUNCTION get_info(name VARCHAR2) RETURN emp%ROWTYPE;

PROCEDURE del_emp(eno NUMBER);

PROCEDURE del_emp(name VARCHAR2);

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 VARCHAR2) 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 VARCHAR2)

IS

BEGIN

DELETE FROM emp WHERE ename = name;

IF SQL%NOTFOUND THEN

RAISE_APPLICATION_ERROR(-20020,‘不存在此員工‘);

END IF;

END;

END;

--調用

--根據員工號查詢員工信息

DECLARE

emp_record emp%rowtype;

e_no_emp EXCEPTION;

PRAGMA EXCEPTION_INIT(e_no_emp,-20020);

BEGIN

emp_record:= overload_pkg.get_info(&no);

DBMS_OUTPUT.PUT_LINE(‘員工號：‘||emp_record.empno||‘姓名：‘||emp_record.ename||‘工資：‘||emp_record.sal);

EXCEPTION

WHEN e_no_emp THEN

DBMS_OUTPUT.put_line(SQLERRM);

END;

--根據員工姓名查詢員工信息

DECLARE

emp_record emp%rowtype;

e_no_emp EXCEPTION;

PRAGMA EXCEPTION_INIT(e_no_emp,-20020);

BEGIN

emp_record:= overload_pkg.get_info(‘&name‘);

DBMS_OUTPUT.PUT_LINE(‘員工號：‘||emp_record.empno||‘姓名：‘||emp_record.ename||‘工資：‘||emp_record.sal);

EXCEPTION

WHEN e_no_emp THEN

DBMS_OUTPUT.put_line(SQLERRM);

END;

--根據員工號刪除員工信息

DECLARE

e_no_emp EXCEPTION;

PRAGMA EXCEPTION_INIT(e_no_emp, -20020);

BEGIN

overload_pkg.del_emp(&no);

COMMIT;

EXCEPTION

WHEN e_no_emp THEN

DBMS_OUTPUT.put_line(SQLERRM);

ROLLBACK;

END;

SELECT * FROM EMP;

--根據員工的姓名刪除員工的信息

DECLARE

e_no_emp EXCEPTION;

PRAGMA EXCEPTION_INIT(e_no_emp, -20020);

BEGIN

overload_pkg.del_emp(‘&name‘);

COMMIT;

EXCEPTION

WHEN e_no_emp THEN

DBMS_OUTPUT.put_line(SQLERRM);

ROLLBACK;

END;

Oracle數據庫---包

標簽：ati???row???規范???ora???init???otf???raise???sql???--

本條技術文章來源于互聯網，如果無意侵犯您的權益請點擊此處反饋版權投訴 本文系統來源：https://www.cnblogs.com/xiaomifeng1010/p/11135421.html