数据库入门PLSQL存储过程等题库

第一阶段Q.编写一个PL/SQL程序块以显示所给出雇员编号的雇员的详细信息。

A.DECLAREerec emp%ROWTYPE;BEGINSELECT * 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 || ' ' || m || ' ' || erec.deptno);END;/Q.编写一个PL/SQL程序块以计算某个雇员的年度薪水总额。

A.DECLAREesal NUMBER;eename emp.ename%TYPE;BEGINSELECT (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.DECLAREvcounter NUMBER:=10;vraise NUMBER;BEGINLOOPEXIT 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.DECLAREvcounter NUMBER;BEGINSELECT MAX(empno) INTO vcounter FROM emp;FOR i IN 1..10LOOPvcounter:=vcounter+1;INSERT INTO emp(empno) V ALUES(vcounter);END LOOP;END;/Q.只使用一个变量来解决实验课作业4。

ADECLAREerec emp%ROWTYPE;-- vraise NUMBER;BEGINSELECT * INTO erecFROM empWHERE ename='&ename';IF erec.job='CLERK' THENUPDATE emp SET sal=sal+500 WHERE empno=erec.empno;ELSIF erec.job='SALESMAN' THENUPDATE emp SET sal=sal+1000 WHERE empno=erec.empno;ELSIF erec.job='ANAL YST' THENUPDATE emp SET sal=sal+1500 WHERE empno=erec.empno;ELSEUPDATE 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.DECLAREnum1 NUMBER;num2 NUMBER;BEGINnum1:=#num2:=#DBMS_OUTPUT.PUT_LINE(num1 || '/' || num2 || ' is ' || num1/num2);EXCEPTIONWHEN ZERO_DIVIDE THENDBMS_OUTPUT.PUT_LINE('Didn''t your teacher tell you not to DIVIDE BY ZERO?'); END;/第二阶段Q.编写一个PL/SQL程序块，对名字以"A"或"S"开始的所有雇员按他们的基本薪水的10%加薪。

A.DECLARECURSOR c1 ISSELECT * FROM emp WHERE SUBSTR(ename,1,1)='A' OR SUBSTR(ename,1,1)='S' FOR UPDATE OF sal;BEGINFOR i IN c1LOOPUPDATE emp SET sal=NVL(sal,0)+NVL(sal,0)*0.1 WHERE CURRENT OF c1;END LOOP;END;/Q.编写一PL/SQL，对所有的"销售员"(SALESMAN)增加佣金500.A.DECLARECURSOR c1 ISSELECT * FROM emp WHERE job='SALESMAN' FOR UPDATE OF sal;BEGINFOR i IN c1LOOPUPDATE emp SET sal=NVL(sal,0)+500 WHERE CURRENT OF c1;END LOOP;END;/Q.编写一PL/SQL，以提升两个资格最老的"职员"为"高级职员"。

（工作时间越长，优先级越高）A.DECLARECURSOR c1 ISSELECT * FROM emp WHERE job='CLERK' ORDER BY hiredate FOR UPDATE OF job;--升序排列，工龄长的在前面BEGINFOR i IN c1LOOPEXIT 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.DECLARECURSOR c1 IS SELECT * FROM emp FOR UPDATE OF sal;BEGINFOR i IN c1LOOPIF (i.sal+i.sal*0.1)<=5000 THENUPDATE 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.DECLARECURSOR c1 IS SELECT * FROM emp;BEGINFOR i IN c1LOOPIF c1%ROWCOUNT=4 THENDBMS_OUTPUT.PUT_LINE(i. EMPNO || ' ' ||i.ENAME || ' ' || i.JOB || ' ' || i.MGR || ' ' || i.HIREDA TE || ' ' || i.SAL || ' ' || M || ' ' || i.DEPTNO);EXIT;END IF;END LOOP;END;/第三阶段Q.使用REF游标显示"EMP"表中的值。

A.DECLARETYPE 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 m%TYPE,DEPTNO emp.deptno%TYPE);TYPE emp_cursor IS REF CURSOR RETURN emp%ROWTYPE;vemp_cur EMP_CURSOR;vemp_rec EMPRECTYP;BEGINOPEN vemp_cur FOR SELECT * FROM emp;LOOPFETCH 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_m||' '||vemp_rec.deptno);END LOOP;CLOSE vemp_cur;END;/Q.从"EMP"中获得值送到PL/SQL表，将PL/SQL表中的薪水值增加500，并向用户显示增加的薪水及其他详细信息。