PL/SQL初学者必读：几十个实用的PL/SQL

第一阶段
　　Q.编写一个PL/SQL程序块以显示所给出雇员编号的雇员的详细信息。
　　A.
　　 DECLARE
　　 erec emp%ROWTYPE;
　　BEGIN
　　 SELECT * INTO erec FROM emp WHERE empno=&雇员编号;
　 　 DBMS_OUTPUT.PUT_LINE('EmpNo' || ' ' || 'Ename' || ' '|| 'Job' || ' ' || 'Manager' || ' ' || 'HireDate' || ' ' || 'Salary' || ' ' || 'Commision' || ' ' || 'DeptNo');
　　 DBMS_OUTPUT.PUT_LINE(erec.ename || ' ' || erec.job || ' ' || erec.mgr || ' ' ||erec.hiredate || ' ' || erec.sal || ' ' || erec.comm || ' ' || erec.deptno);
　　END;
　　/
　　Q.编写一个PL/SQL程序块以计算某个雇员的年度薪水总额。
　　A.
　　DECLARE
　　 esal NUMBER;
　　 eename emp.ename%TYPE;
　　BEGIN
　　 SELECT (NVL(sal,0)+NVL(comm,0))*12,ename INTO esal,eename FROM emp WHERE empno=&雇员编号;
　　 DBMS_OUTPUT.PUT_LINE(eename || '''s Years Salary is ' || esal);
　　END;
　　/
　　Q.按下列加薪比执行：
　　 Deptno Raise(%age)
　　10 5%
　　20 10%
　　30 15%
　　40 20%
　　加薪的百分比是以他们现有的薪水为根据的。写一PL/SQL以对指定雇员加薪。
　　A.
　　DECLARE
　　 vcounter NUMBER:=10;
　　 vraise NUMBER;
　　BEGIN
　　 LOOP
　　 EXIT WHEN vcounter>40;
　　 UPDATE emp set sal=NVL(sal,0)+NVL(sal,0)*0.05 WHERE deptno=vcounter;
　　 vcounter:=vcounter+10;
　　 END LOOP;
　　END;
　　/
　　
　　Q.编写一PL/SQL以向"emp"表添加10个新雇员编号。
　　（提示：如果当前最大的雇员编号为7900，则新雇员编号将为7901到7910）
　　A.
　　DECLARE
　　 vcounter NUMBER;
　　BEGIN
　　 SELECT MAX(empno) INTO vcounter FROM emp;
　　 FOR i IN 1..10
　　 LOOP
　　 vcounter:=vcounter+1;
　　 INSERT INTO emp(empno) VALUES(vcounter);
　　 END LOOP;
　　END;
　　/
　　Q.只使用一个变量来解决实验课作业4。
　　A
　　DECLARE
　　 erec emp%ROWTYPE;
　　-- vraise NUMBER;
　　BEGIN
　　 SELECT * INTO erec
　　 FROM emp
　　 WHERE ename='&ename';
　　 IF erec.job='CLERK' THEN
　　 UPDATE emp SET sal=sal+500 WHERE empno=erec.empno;
　　 ELSIF erec.job='SALESMAN' THEN
　　 UPDATE emp SET sal=sal+1000 WHERE empno=erec.empno;
　　 ELSIF erec.job='ANALYST' THEN
　　 UPDATE emp SET sal=sal+1500 WHERE empno=erec.empno;
　　 ELSE
　　 UPDATE emp SET sal=sal+2000 WHERE empno=erec.empno;
　　 END IF;
　　-- UPDATE emp SET sal=sal+vraise WHERE empno=erec.empno;
　　-- DBMS_OUTPUT.PUT_LINE(vraise);
　　END;
　　/
　　Q.接受两个数相除并且显示结果。如果第二个数为0，则显示消息"DIVIDE BY ZERO"。
　　A.
　　DECLARE
　　 num1 NUMBER;
　　 num2 NUMBER;
　　BEGIN
　　 num1:=#
　　 num2:=#
　　 DBMS_OUTPUT.PUT_LINE(num1 || '/' || num2 || ' is ' || num1/num2);
　　EXCEPTION
　　 WHEN ZERO_DIVIDE THEN
　　 DBMS_OUTPUT.PUT_LINE('Didn''t your teacher tell you not to DIVIDE BY ZERO?');
　　END;
　　/
　　
　　
　　第二阶段
　　Q.编写一个PL/SQL程序块，对名字以"A"或"S"开始的所有雇员按他们的基本薪水的10%加薪。
　　A.
　　DECLARE
　　 CURSOR c1 IS
　　 SELECT * FROM emp WHERE SUBSTR(ename,1,1)='A' OR SUBSTR(ename,1,1)='S' FOR UPDATE OF sal;
　　
　　BEGIN
　　 FOR i IN c1
　　 LOOP
　　 UPDATE emp SET sal=NVL(sal,0)+NVL(sal,0)*0.1 WHERE CURRENT OF c1;
　　 END LOOP;
　　END;
　　/
　　Q.编写一PL/SQL，对所有的"销售员"(SALESMAN)增加佣金500.
　　A.
　　DECLARE
　　 CURSOR c1 IS
　　 SELECT * FROM emp WHERE job='SALESMAN' FOR UPDATE OF sal;
　　BEGIN
　　 FOR i IN c1
　　 LOOP
　　 UPDATE emp SET sal=NVL(sal,0)+500 WHERE CURRENT OF c1;
　　 END LOOP;
　　END;
　　/
　　Q.编写一PL/SQL，以提升两个资格最老的"职员"为"高级职员"。（工作时间越长，优先级越高）
　　A.
　　DECLARE
　　 CURSOR c1 IS
　　 SELECT * FROM emp WHERE job='CLERK' ORDER BY hiredate FOR UPDATE OF job;
　　 --升序排列，工龄长的在前面
　　
　　BEGIN
　　 FOR i IN c1
　　 LOOP
　　 EXIT WHEN c1%ROWCOUNT>2;
　　 DBMS_OUTPUT.PUT_LINE(i.ename);
　　 UPDATE emp SET job='HIGHCLERK' WHERE CURRENT OF c1;
　　 END LOOP;
　　END;
　　/
　　Q.编写一PL/SQL，对所有雇员按他们基本薪水的10%加薪，如果所增加的薪水大于5000，则取消加薪。
　　A.
　　DECLARE
　　 CURSOR c1 IS SELECT * FROM emp FOR UPDATE OF sal;
　　
　　BEGIN
　　 FOR i IN c1
　　 LOOP
　　
　　 IF (i.sal+i.sal*0.1)<=5000 THEN
　　 UPDATE emp SET sal=sal+sal*0.1 WHERE CURRENT OF c1;
　　 DBMS_OUTPUT.PUT_LINE(i.sal);
　　 END IF;
　　
　　 END LOOP;
　　END;
　　/
　　Q.显示EMP中的第四条记录。
　　A.
　　DECLARE
　　 CURSOR c1 IS SELECT * FROM emp;
　　
　　BEGIN
　　 FOR i IN c1
　　 LOOP
　　 IF c1%ROWCOUNT=4 THEN
　 　 DBMS_OUTPUT.PUT_LINE(i. EMPNO || ' ' ||i.ENAME || ' ' || i.JOB || ' ' || i.MGR || ' ' || i.HIREDATE || ' ' || i.SAL || ' ' || i.COMM || ' ' || i.DEPTNO);
　　 EXIT;
　　 END IF;
　　 END LOOP;
　　END;
　　/
　　
　　
　　第三阶段
　　Q.使用REF游标显示"EMP"表中的值。
　　A.
　　DECLARE
　　 TYPE emprectyp IS RECORD
　　 (
　　 EMPNO emp.empno%TYPE,
　　 ENAME emp.ename%TYPE,
　　 JOB emp.job%TYPE,
　　 MGR emp.mgr%TYPE,
　　 HIREDATE emp.hiredate%TYPE,
　　 SAL emp.sal%TYPE,
　　 COMM emp.comm%TYPE,
　　 DEPTNO emp.deptno%TYPE
　　 );
　　 TYPE emp_cursor IS REF CURSOR RETURN emp%ROWTYPE;
　　 vemp_cur EMP_CURSOR;
　　 vemp_rec EMPRECTYP;
　　BEGIN
　　 OPEN vemp_cur FOR SELECT * FROM emp;
　　 LOOP
　　 FETCH vemp_cur INTO vemp_rec;
　　 EXIT WHEN vemp_cur%NOTFOUND;
　　 DBMS_OUTPUT.PUT(vemp_rec.empno||' '||vemp_rec.ename||' '||vemp_rec.job);
　　 DBMS_OUTPUT.PUT(vemp_rec.mgr||' '||vemp_rec.hiredate||' '||vemp_rec.sal);
　　 DBMS_OUTPUT.PUT_line(vemp_rec.comm||' '||vemp_rec.deptno);
　　 END LOOP;
　　 CLOSE vemp_cur;
　　END;
　　/
　　Q.从"EMP"中获得值送到PL/SQL表，将PL/SQL表中的薪水值增加500，并向用户显示增加的薪水及其他详细信息。
　　A.
　　DECLARE
　　 TYPE emprec IS RECORD
　　 (
　　 EMPNO emp.empno%TYPE,
　　 ENAME emp.ename%TYPE,
　　 JOB emp.job%TYPE,
　　 MGR emp.mgr%TYPE,
　　 HIREDATE emp.hiredate%TYPE,
　　 SAL emp.sal%TYPE,
　　 COMM emp.comm%TYPE,
　　 DEPTNO emp.deptno%TYPE
　　 );
　　
　　 i BINARY_INTEGER:=1;
　　
　　 TYPE emp_tab IS TABLE OF EMPREC INDEX BY binary_integer;
　　 vemp EMP_TAB;
　　
　　 CURSOR c1 IS SELECT * FROM emp;
　　BEGIN
　　 FOR x IN c1
　　 LOOP
　　 vemp(i).empno:=x.empno;
　　 vemp(i).ename:=x.ename;
　　 vemp(i).job:=x.job;
　　 vemp(i).mgr:=x.mgr;
　　 vemp(i).hiredate:=x.hiredate;
　　 vemp(i).sal:=x.sal+500;
　　 vemp(i).comm:=x.comm;
　　 vemp(i).deptno:=x.deptno;
　　 i:=i+1;
　　 END LOOP;
　　
　　 FOR j IN 1..i-1
　　 LOOP
　　 DBMS_OUTPUT.PUT(vemp(j).empno||' '||vemp(j).ename||' '||vemp(j).job);
　　 DBMS_OUTPUT.PUT(vemp(j).mgr||' '||vemp(j).hiredate||' '||vemp(j).sal);
　　 DBMS_OUTPUT.PUT_line(vemp(j).comm||' '||vemp(j).deptno);
　　
　　 END LOOP;
　　END;
　　/
　　Q.一旦将值送到PL/SQL表后，尝试在PL/SQL表中插入新记录并且删除某些现有的记录。
　　A.
　　DECLARE
　　 TYPE emprec IS RECORD
　　 (
　　 EMPNO emp.empno%TYPE,
　　 ENAME emp.ename%TYPE,
　　 JOB emp.job%TYPE,
　　 MGR emp.mgr%TYPE,
　　 HIREDATE emp.hiredate%TYPE,
　　 SAL emp.sal%TYPE,
　　 COMM emp.comm%TYPE,
　　 DEPTNO emp.deptno%TYPE
　　 );
　　
　　 i BINARY_INTEGER:=1;
　　
　　 TYPE emp_tab IS TABLE OF EMPREC INDEX BY binary_integer;
　　 vemp EMP_TAB;
　　
　　 CURSOR c1 IS SELECT * FROM emp;
　　BE