【正文】 ALL add_empl(2222,‘1978122’， ’ alex’,NULL, 1， NULL,SYSDATE,800,NULL,30)。 {IS|AS} declaration section BEGIN executable statements EXCEPTION exception handlers。 Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 33 PL/SQL包 例子 CREATE OR REPLACE PACKAGE emp_package IS g_deptno %TYPE:=30。 BEGIN SELECT salary INTO v_sal FROM empl WHERE empno=eno。 Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 36 IS BEGIN IF validate_deptno(deptno) THEN INSERT INTO emp VALUES(empno,ebirthday,ename,ejob,egrade,major,indate, salary, allow, deptno)。 ? 簡(jiǎn)化了客戶應(yīng)用開發(fā)，提高性能，實(shí)現(xiàn)信息隱藏、子程序重載等功能。 ? 查看過(guò)程 代碼，通過(guò)查詢數(shù)據(jù)字典USER_SOURCE。 n2 NUMBER:=n2。 ? 當(dāng)定義輸入輸出參數(shù)時(shí)，需要指定參數(shù)模式為IN OUT。 ? 語(yǔ)法： CREATE [OR REPLACE] PROCEDURE procedure_name(argument1[mode1] datatype1,argument2[mode2] datatype2,… ) {IS|AS} PL/SQL Block。 Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 10 CREATE OR REPLACE PROCEDURE update_sal( eno varhcar2, sal NUMBER, name OUT VARCHAR2) IS BEGIN UPDATE empl SET salary=sal WHERE empno=eno RETURNING ename INTO name。 END。 ? Exec update_sal(‘jarbus’,1500) 這雇員不存在 ? Exec update_sal(‘a(chǎn)llen’,1500) Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 24 PL/SQL過(guò)程 維護(hù)過(guò)程 ? 刪除過(guò)程 DROP PROCEDURE ? 顯示編譯錯(cuò)誤，查詢數(shù)據(jù)字典 USER_ERRORS，或者執(zhí)行 SHOW ERRORS命令。 BEGIN sum1:=sum(num1)。 EXCEPTION WHEN NO_DATA_FOUND THEN RETURN FALSE。 END emp_package。 FUNCTION get_sal(eno NUMBER) RETURN NUMBER。 BEGIN FOR i in 1…n LOOP result:=result+i。 / Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 23 PL/SQL過(guò)程 使用異常處理 CREATE OR REPLACE PROCEDURE update_sal( name %TYPE, sal %TYPE) IS e_no_rows EXCEPTION。 END。 ? 當(dāng)定義過(guò)程參數(shù)時(shí)， 默認(rèn)參數(shù)模式就是輸入?yún)?shù) ? 可以使用 IN關(guān)鍵字顯式定義輸入?yún)?shù)。 / Oracle 數(shù)據(jù)庫(kù)應(yīng)用與設(shè)計(jì) 杭州電子科技大學(xué) 7 PL/SQL過(guò)程 建立帶