[計(jì)算機(jī)軟件及應(yīng)用]08-過(guò)程函數(shù)和程序包(編輯修改稿)
2024-11-12 23:08 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 mp(v_deptno)。 END。 3. 局部子程序 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 27 ?存儲(chǔ)子程序與局部子程序區(qū)別在于： ?存儲(chǔ)子程序己經(jīng)編譯好放在數(shù)據(jù)庫(kù)服務(wù)器端，可以直接調(diào)用，而局部子程序存在于定義它的語(yǔ)句塊中，在運(yùn)行時(shí)先進(jìn)行編譯； ?存儲(chǔ)子程序不能重載，而局部子程序可以進(jìn)行重載； ?存儲(chǔ)子程序可以被任意的 PL/SQL塊調(diào)用 ，而局部子程序只能在定義它的塊中被調(diào)用。 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 28 ?在一個(gè) PL/SQL塊中重載兩個(gè)過(guò)程，一個(gè)以員工號(hào)為參數(shù)，輸出該員工信息；另一個(gè)以員工名為參數(shù)，輸出員工信息。利用這兩個(gè)過(guò)程分別查詢員工號(hào)為 7902， 7934，以及員工名為 SMITH， FORD的員工信息 。 3. 局部子程序 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 29 DECLARE PROCEDURE show_empinfo(p_empno %TYPE) AS v_emp emp%ROWTYPE。 BEGIN SELECT * INTO v_emp FROM emp WHERE empno=p_empno。 (||39。 39。||)。 EXCEPTION WHEN NO_DATA_FOUND THEN (39。There is not such an employee!39。)。 END show_empinfo。 PROCEDURE show_empinfo(p_ename %TYPE) AS v_emp emp%ROWTYPE。 BEGIN SELECT * INTO v_emp FROM emp 3. 局部子程序 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 30 WHERE ename=p_ename。 (||39。 39。||)。 EXCEPTION WHEN NO_DATA_FOUND THEN (39。There is not such an employee!39。)。 WHEN TOO_MANY_ROWS THEN (39。There are more than one employee!39。)。 END show_empinfo。 BEGIN show_empinfo(7902)。 show_empinfo(7934)。 show_empinfo(39。SMITH39。)。 show_empinfo(39。FORD39。)。 END 。 3. 局部子程序 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 31 4. 包 ?包概述 ?包的創(chuàng)建 ?包的調(diào)用 ?包重載 ?包的初始化 ?包的持續(xù)性 ?包的串行化 ?包的管理 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 32 (1) 包概述 ?包是包含一個(gè)或多個(gè)子程序單元（過(guò)程、函數(shù)等）的容器。 ?包是一種全局結(jié)構(gòu) 。 ?包類型 ?數(shù)據(jù)庫(kù)內(nèi)臵包 ?用戶創(chuàng)建的包 ?包構(gòu)成 ?包規(guī)范 ?包體兩 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 33 ?包規(guī)范聲明了軟件包中所有內(nèi)容，如過(guò)程、函數(shù)、游標(biāo)、類型、異常和變量等，其中過(guò)程和函數(shù)只包括原型信息，不包含任何子程序代碼。 ?包體中包含了在包頭中的過(guò)程和函數(shù)的實(shí)現(xiàn)代碼。包體中還可以包括在規(guī)范中沒(méi)有聲明的變量、游標(biāo)、類型、異常、過(guò)程和函數(shù)，但是它們是私有元素，只能由同一包體中其他過(guò)程和函數(shù)使用。 (1) 包概述 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 34 (2) 包的創(chuàng)建 ?創(chuàng)建包規(guī)范 ?創(chuàng)建包體 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 35 （ 1） 創(chuàng)建包規(guī)范 ?語(yǔ)法 ?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]。 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 36 ?注意： ?元素聲明的順序可以是任意的，但必須先聲明后使用； ?所有元素是可選的； ?過(guò)程和函數(shù)的聲明只包括原型，不包括具體實(shí)現(xiàn)。 （ 1） 創(chuàng)建包規(guī)范 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 37 ?創(chuàng)建一個(gè)軟件包，包括 2個(gè)變量、 2個(gè)過(guò)程和 1個(gè)異常。 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。 （ 1） 創(chuàng)建包規(guī)范 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 38 ?語(yǔ)法 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)建包體 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 39 ?注意： ?包體中函數(shù)和過(guò)程的原型必須與包規(guī)范中的聲明完全一致； ?只有在包規(guī)范已經(jīng)創(chuàng)建的條件下，才可以創(chuàng)建包體； ?如果包規(guī)范中不包含任何函數(shù)或過(guò)程，則可以不創(chuàng)建包體。 （ 2）創(chuàng)建包體 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 40 CREATE OR REPLACE PACKAGE BODY pkg_emp AS PROCEDURE update_sal(p_empno NUMBER, p_sal NUMBER) AS BEGIN SELECT min(sal), max(sal) INTO minsal,maxsal FROM emp。 IF p_sal BETWEEN minsal AND maxsal THEN UPDATE emp SET sal=p_sal WHERE empno=p_empno。 IF SQL%NOTFOUND THEN RAISE_APPLICATION_ERROR(20210,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。 （ 2）創(chuàng)建包體 Oracle 10g 數(shù)據(jù)庫(kù)管理、應(yīng)用與開(kāi)發(fā) 41 PROCEDURE add_employee(p_empno NUMBER,p_sal NUMBER) AS BEGIN SELECT min(sa
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1