【文章內容簡介】 常、過程和函數(shù)，但是它們是私有元素，只能由同一包體中其他過程和函數(shù)使用。 35 Oracle數(shù)據庫應用教程 包的創(chuàng)建 ? 創(chuàng)建包規(guī)范 ? 創(chuàng)建包體 36 Oracle數(shù)據庫應用教程 （ 1）創(chuàng)建包規(guī)范 ? 語法 ? CREATE OR REPLACE PACKAGE package_name ? IS|AS ? [PRAGMA SERIALLY_RESUABLE] ? type_definition|variable_declaration| ? exception_declaration|cursor_declaration| ? procedure_ declaration|function_ declaration ? END [package_name]。 37 Oracle數(shù)據庫應用教程 ?注意： ?元素聲明的順序可以是任意的，但必須先聲明后使用； ?所有元素是可選的； ?過程和函數(shù)的聲明只包括原型，不包括具體實現(xiàn)。 38 Oracle數(shù)據庫應用教程 ? 創(chuàng)建一個軟件包，包括 2個變量、 2個過程和 1個異常。 ? CREATE OR REPLACE PACKAGE pkg_emp ? AS ? minsal NUMBER。 ? maxsal NUMBER。 ? e_beyondbound EXCEPTION。 ? PROCEDURE update_sal( ? p_empno NUMBER, p_sal NUMBER)。 ? PROCEDURE add_employee( ? p_empno NUMBER,p_sal NUMBER)。 ? END pkg_emp。 39 Oracle數(shù)據庫應用教程 ?語法 ? CREATE OR REPLACE PACKAGE BODY package_name ? IS|AS ? [PRAGMA SERIALLY_RESUABLE] ? type_definition|variable_declaration| ? exception_declaration| ? cursor_declaration| ? procedure_definition | ? function_definition ? END [package_name]。 （ 2）創(chuàng)建包體 40 Oracle數(shù)據庫應用教程 ?注意： ?包體中函數(shù)和過程的原型必須與包規(guī)范中的聲明完全一致； ?只有在包規(guī)范已經創(chuàng)建的條件下，才可以創(chuàng)建包體； ?如果包規(guī)范中不包含任何函數(shù)或過程，則可以不創(chuàng)建包體。 41 Oracle數(shù)據庫應用教程 ? CREATE OR REPLACE PACKAGE BODY pkg_emp ? AS ? PROCEDURE update_sal(p_empno NUMBER, p_sal NUMBER) ? AS ? BEGIN ? SELECT min(salary), max(salary) INTO minsal,maxsal ? FROM employees。 ? IF p_sal BETWEEN minsal AND maxsal THEN ? UPDATE employees SET salary=p_sal ? WHERE employee_id=p_empno。 ? IF SQL%NOTFOUND THEN ? RAISE_APPLICATION_ERROR(20230, ? 39。The employee doesn39。39。t exist39。)。 ? END IF。 ? ELSE ? RAISE e_beyondbound。 ? END IF。 ? EXCEPTION ? WHEN e_beyondbound THEN ? (39。The salary is beyond bound! 39。)。 ? END update_sal。 42 Oracle數(shù)據庫應用教程 ? PROCEDURE add_employee(p_empno NUMBER,p_sal NUMBER) ? AS ? BEGIN ? SELECT min(salary), max(salary) INTO minsal,maxsal ? FROM employees。 ? IF p_sal BETWEEN minsal AND maxsal THEN ? INSERT INTO employees (employee_id,last_name,,hire_date,job_id,salary) ? VALUES(p_empno,39。Smith39。,39。,sysdate, 39。ST_MAN39。,p_sal)。 ? ELSE ? RAISE e_beyondbound。 ? END IF。 ? EXCEPTION ? WHEN e_beyondbound THEN ? (39。The salary is beyond bound! 39。)。 ? END add_employee。 ? END pkg_emp。 43 Oracle數(shù)據庫應用教程 包的調用 ? 在包規(guī)范聲明的任何元素是公有的，在包外都是可見的 ? 包外：通過 ； ? 包內：直接通過元素名進行調用。 ? 在包體中定義而沒有在包頭中聲明的元素是私有的，只能在包體中引用 44 Oracle數(shù)據庫應用教程 ?調用包 pkg_emp中的過程 update_sal，修改 150號員工工資為 8000。 ?調用 add_employee添加一個員工號為2023，工資為 9000的員工 ? BEGIN ? (150,8000)。 ? (2023,9000)。 ? END。 45 Oracle數(shù)據庫應用教程 包重載 ? 重載子程序必須同名不同參，即名稱相同，參數(shù)不同。參數(shù)不同體現(xiàn)為參數(shù)的個數(shù)、順序、類型等不同。 ? 如果兩個子程序參數(shù)只是名稱和模式不同，則不能重載。 ? PROCEDURE overloadme(parameter1 IN NUMBER)。 ? PROCEDURE overloadme(parameter2 OUT NUMBER)。 ? 不能根據兩個函數(shù)返回類型不同而對它們進行重載。 ? FUNCTION overloadme RETURN DATE。 ? FUNCTION overloadme RETURN NUMBER。 ? 重載子程序參數(shù)必須在類型系列方面有所不同。 ? PROCEDURE overloadchar(parameter IN CHAR)。 ? PROCEDURE overloadchar(parameter IN VARCHAR2)。 46 Oracle數(shù)據庫應用教程 ?在一個包中重載兩個過程，分別以部門號和部門名稱為參數(shù)，查詢相應部門員工名、員工號信息。 47 Oracle數(shù)據庫應用教程 ? CREATE OR REPLACE PACKAGE pkg_overload ? AS ? PROCEDURE show_emp(p_deptno NUMBER)。 ? PROCEDURE show_emp(p_dname VARCHAR2)。 ? END pkg_overload。 48 Oracle數(shù)據庫應用教程 ? CREATE OR REPLACE PACKAGE BODY pkg_overload ? AS ? PROCEDURE show_emp(p_deptno NUMBER) ? AS ? BEGIN ? FOR v_emp IN (SELECT * FROM employees ? WHERE department_id=p_deptno) LOOP ? (||39。 39。|| ? ||39。 39。||)。 ? END LOOP。 ? END show_emp。 49 Oracle數(shù)據庫應用教程 ? PROCEDURE show_emp(p_dname VARCHAR2) ? AS ? v_deptno NUMBER。 ? BEGIN ? SELECT department_id INTO v_deptno FROM departments ? WHERE department_name=p_dname。 ? FOR v_emp IN (SELECT * FROM employees ? WHERE department_id=v_deptno) LOOP ? (||39。 39。|| ? ||39。 39。||)。 ? END LOOP。 ? END show_emp。 ? END pkg_overload。 50 Oracle數(shù)據庫應用教程 ? 包在第一次被調用時從磁盤讀取到共享池，并在整個會話的持續(xù)期間保持。在此過程中，可以自動執(zhí)行一個初始化過程，對軟件包進行實例化。 ? 包的初始化過程只在包第一次被調用時執(zhí)行，因此也稱為一次性過程，它是一個匿名的 PL/SQL塊，在包體結構的最后，以 BEGIN開始。 ? 示例 ?在 pkg_emp包中，在包初始化時給 minsal和 maxsal兩個變量賦值，在子程序中直接引用這兩個變量。 51 Oracle數(shù)據庫應用教程 ? CREATE OR REPLACE PACKAGE pkg_emp ? AS ? minsal NUMBER。 ? maxsal NUMBER。 ? e_beyondbound EXCEPTION。 ? PROCEDURE update_sal( ? p_empno NUMBER, p_sal NUMBER)。 ? PROCEDURE add_employee( ? p_empno NUMBER,p_sal NUMBER)。 ? END pkg_emp。 52 Oracle數(shù)據庫應用教程 ? CREATE OR REPLACE PACKAGE BODY pkg_emp ? AS ? PROCEDURE update_sal(p_empno NUMBER, p_sal NUMBER) ? AS ? BEGIN ? IF p_sal BETWEEN minsal AND maxsal THEN ? UPDATE employees SET salary=p_sal ? WHERE employee_id=p_empno。 ? IF SQL%NOTFOUND THEN ? RAISE_APPLICATION_ERROR(20230, ? 39。The employee doesn39。39。t exist39。)。 ? END IF。 ? ELSE ? RAISE e_beyondbound。 ? END IF。 ? EXCEPTION ? WHEN e_beyondbound THEN ? (39。The salary is beyond bound! 39。)。 ? END update_sal。 53 Oracle數(shù)據庫應用教程 ? PROCEDURE add_employee(p_empno NUMBER,p_sal NUMBER) ? AS ? BEGIN ? IF p_sal BETWEEN minsal AND maxsal THEN ? INSERT INTO employees ? (employee_id,last_name,,hire_date,job_id,salary) ? VALUES(p_empno,39。Smith39。,39。,sysdate, ? 39。ST_MAN39。,p_sal)。 ? ELSE ? RAISE e_beyondbound。 ?