【正文】 ?游標(biāo)持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 53 （ 1）變量持續(xù)性 ?包中變量的持續(xù)性是指，當(dāng)用戶調(diào)用包時，會創(chuàng)建自己的變量副本，在用戶的整個會話過程中持續(xù)存在，對用戶而言是私有的。 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 54 ?為了測試變量的持續(xù)性，先創(chuàng)建一個包含一個變量的包和對包中變量進行讀、寫的兩個過程。 CREATE OR REPLACE PACKAGE variable_pkg IS pkg_test NUMBER(6,2) :=0。 END variable_pkg。 CREATE OR REPLACE PROCEDURE get_pkg_test (p_test OUT NUMBER) IS BEGIN p_test := 。 END。 CREATE OR REPLACE PROCEDURE set_pkg_test (p_test IN NUMBER) IS BEGIN := p_test。 END。 （ 1）變量持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 55 ?以不同的用戶（ scott， system）分別啟動兩個 SQL*Plus，進行下列操作，可以看出，包中的變量 scott用戶和 system用戶之間是持續(xù)的、獨立的。 （ 1）變量持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 56 user scott SQLvariable g_test NUMBER。 SQLEXECUTE get_pkg_test(:g_test)。 SQLPRINT g_test G_TEST 0 SQLEXECUTE set_pkg_test(10)。 SQLEXECUTE get_pkg_test(:g_test)。 SQLPRINT g_test G_TEST 10 （ 1）變量持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 57 user system SQLvariable g_test NUMBER SQLEXECUTE (:g_test)。 SQLPRINT g_test G_TEST 0 SQLEXECUTE (20)。 SQLEXECUTE (:g_test)。 SQLPRINT g_test G_TEST 20 （ 1）變量持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 58 user scott SQLEXECUTE get_pkg_test(:g_test)。 SQLPRINT g_test G_TEST 10 （ 1）變量持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 59 （ 2）游標(biāo)持續(xù)性 ?游標(biāo)持續(xù)性是指用戶調(diào)用包，打開包中的游標(biāo)后，可以對游標(biāo)中的結(jié)果集采用多次、連續(xù)的檢索，而不是每次都從第一條記錄開始檢索。 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 60 ?為了測試游標(biāo)的持續(xù)性，首先創(chuàng)建一個包含游標(biāo)的包。 CREATE OR REPLACE PACKAGE pkg_persistcursor AS CURSOR c_emp IS SELECT * FROM EMP。 PROCEDURE DISPLAYEMP。 END。 （ 2）游標(biāo)持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 61 CREATE OR REPLACE PACKAGE BODY pkg_persistcursor AS PROCEDURE DISPLAYEMP AS v_emp emp%rowtype。 BEGIN IF NOT c_emp%ISOPEN THEN OPEN C_EMP。 END IF。 FETCH c_emp INTO v_emp。 (||39。 39。|| )。 FETCH c_emp INTO v_emp。 (||39。 39。||)。 END。 END。 （ 2）游標(biāo)持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 62 ?調(diào)用包中的過程，每次輸出兩個員工信息，但每次調(diào)用的輸出結(jié)果是連續(xù)不重復(fù)的。 ?SQLexecute ?7654 MARTIN ?7698 BLAKE ?SQL execute 。 ?7782 CLARK ?7788 SCOTT （ 2）游標(biāo)持續(xù)性 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 63 (6) 包的串行化 ?由于包的全局元素在各個用戶的會話中單獨維護，因此隨著用戶數(shù)量的增加，內(nèi)存消耗越來越大，為了阻止內(nèi)存消耗的增加，可以把包標(biāo)志為 SERIALIY_REUSABLE，即串行化包。 ?串行化包的運行時狀態(tài)將僅僅在每次數(shù)據(jù)庫調(diào)用期間而非整個會話期間保持，從而包狀態(tài)在每一次數(shù)據(jù)調(diào)用結(jié)束后會被重置，重新設(shè)置所有的全局變量，關(guān)閉打開的所有游標(biāo)。 ?串行化包的實現(xiàn)方法是在包頭和包體中添加 PRAGMA SERIALLY_REUSABLE語句。 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 64 CREATE OR REPLACE PACKAGE pkg_persistcursor AS PRAGMA SERIALLY_REUSABLE。 CURSOR c_emp IS SELECT * FROM EMP。 PROCEDURE DISPLAYEMP。 END。 (6) 包的串行化 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 65 CREATE OR REPLACE PACKAGE BODY pkg_persistcursor AS PRAGMA SERIALLY_REUSABLE。 PROCEDURE DISPLAYEMP AS v_emp emp%rowtype。 BEGIN IF NOT c_emp%ISOPEN THEN OPEN C_EMP。 END IF。 FETCH c_emp INTO v_emp。 (||39。 39。||)。 FETCH c_emp INTO v_emp。 (||39。 39。||)。 END。 END。 (6) 包的串行化 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 66 SQL execute 7369 SMITH 7499 ALLEN SQL execute 7369 SMITH 7499 ALLEN (6) 包的串行化 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 67 (7) 包的管理 ?包的修改 ? CREATE OR REPLACE PACKAGE package_name ?查看包及其源代碼 ? 查詢數(shù)據(jù)字典視圖 USER_SOURCE ?SELECT name,text FROM user_source WHERE type=39。PACKAGE39。 ?SELECT name,text FROM user_source WHERE type=39。PACKAGE BODY39。 ?重新編譯包 ?ALTER PACKAGE…COMPILE（包規(guī)范和包體） ?ALTER PACKAGE…COMPILE SPECIFICATION（包規(guī)范） ?ALTER PACKAGE… COMPILE BODY（包體） Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 68 ?ALTER PACKAGE pkg_emp COMPILE。 ?ALTERPACKAGE pkg_emp COMPILE SPECIFICATION。 ?ALTER PACKAGE pkg_emp COMPILE BODY。 ?刪除包 ?DROP PACKAGE （包規(guī)范和包體） ?DROP PACKAGE BODY （包體） ?DROP PACKAGE BODY pkg_emp。 ?DROP PACKAGE pkg_emp。 (7) 包的管理 Oracle 10g 數(shù)據(jù)庫管理、應(yīng)用與開發(fā) 69 總結(jié) ?儲子程序 ?包