实验4 SQL_PL编程基础_V2013(6)

CURSOR c1 IS

SELECT sal FROM emp; sum_xx number; BEGIN

sum_xx:=0;

FOR r1 IN c1 LOOP

IF r1.sal>0 and r1.sal<=2000 THEN sum_xx:=sum_xx;

ELSIF r1.sal >2000 and r1.sal<=3000 THEN sum_xx:=sum_xx+(r1.sal-2000)*0.1;

ELSIF r1.sal>3000 and r1.sal<=4000 THEN sum_xx:=sum_xx+(r1.sal-3000)*0.2;

ELSIF r1.sal>4000 and r1.sal<=5000 THEN sum_xx:=sum_xx+(r1.sal-4000)*0.3; ELSE

sum_xx:=sum_xx+(r1.sal-5000)*0.4; END IF; END LOOP;

dbms_output.put_line('所有雇员的所得税总和:'||sum_xx); END; /

给出运行测试结果：

7． 创建一个PL/SQL块，声明一个游标，从emp表中选择姓名，薪水和雇佣日期。从游标

检索每一行，如果雇员的薪水大于50000元，而且雇佣日期在1997年12月31日之前，则显示雇员的具体信息。 写出程序源码：

Declare

Cursor mycursor is

Select ename,sal,hiredate from emp; Begin

dbms_output.put_line('薪水大于4000元，且雇佣日期在1997-12-31之前

第 26 页 共 31 页

雇员的信息:');

for r in mycursor loop

if r.sal>4000 and r.hiredate<'31-12月-97'then dbms_output.put_line(r.ename); dbms_output.put_line(r.sal);

dbms_output.put_line(r.hiredate); end if; end loop; end;

给出运行测试结果：

8． 创建一个PL/SQL块，声明一个游标。将与emp数据表中sal相同类型的一个参数传递

给此游标。用此参数打开上述的游标。将薪水值大于此参数（如3000）的雇员和有关信息检索到该游标中，并且显示这些雇员的具体信息。 写出程序源码：

Declare

Type c1 is ref cursor; v_c1 c1;

mer_rec emp%rowtype; Begin

dbms_output.put_line('查询薪水值不小于5000的雇员信息'); open v_c1 for select * from emp where sal>=5000; Loop

Fetch v_c1 into mer_rec; Exit when v_c1%notfound;

dbms_output.put_line(mer_rec.empno||' ' ||mer_rec.ename||'

'||mer_rec.job||' '||mer_rec.mgr||' '||mer_rec.hiredate||' '||mer_rec.sal||' '||mer_rec.comm||' '||mer_rec.deptno);

End loop;

第 27 页 共 31 页

Close v_c1; End;

给出运行测试结果：

9． 创建一个PL/SQL块，为部门10的用户加薪。薪水低于1000美元的雇员加薪15%，薪

水等于或高于1000美元的雇员加薪10%。使用含for update子句的游标，以及通过for 循环的where current of子句实现加薪处理。(要求测试结果中给出测试前表中相关值和程序执行完成后表中数据相关值，以便比对验证) 写出程序源码：

Declare

Cursor addsal_cursor is Select * from emp Where deptno='10'

For update of sal nowait; v_sal number(7,2); Begin

For r in addsal_cursor loop If r.sal<1000 then v_sal:=r.sal*0.15; Else

v_sal:=r.sal*0.1; end if; update emp

set sal=sal+v_sal

where current of addsal_cursor; End loop; End;

给出运行测试结果：

第 28 页 共 31 页

10． 编写一个PL/SQL块，要求用户输入第一个数字、第二个数字和算术运算符(+、-、

*、/)。如果运算符无效，则抛出一个用户自定义异常，如果第二个数字是零而且运算符是/，则处理ZERO_DIVIDE预定义的服务器异常。 写出程序源码：

set serveroutput on declare

ex_char exception; fnum number(4); snum number(4); ch varchar2(4); result number(6); begin

fnum:=&操作数1; ch:='&符号'; snum:=&操作数2;

if ch='+' then result:=fnum+snum; elsif ch='-' then result:=fnum-snum; elsif ch='*' then result:=fnum*snum; elsif ch='/' then result:=fnum/snum; else raise ex_char; end if;

dbms_output.put_line('结果='||result); exception

when zero_divide then dbms_output.put_line('除数不能为0'); when value_error then dbms_output.put_line('操作数有误'); when ex_char then dbms_output.put_line('只能输入+.-.*./'); End;

给出运行测试结果：

第 29 页 共 31 页

11． 编写一个PL/SQL程序块，对名字以\或\开始的所有雇员按他们的基本薪水的

10%加薪。

写出程序源码：

DECLARE

CURSOR C1 IS

SELECT * FROM emp

WHERE 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;

给出运行测试结果：

第 30 页 共 31 页

附：常见预定义的异常处理

预定义说明的部分 ORACLE 异常错误 错误号 ORA-0001 ORA-0051 ORA-0061 ORA-1001 ORA-1012 ORA-1017 ORA-1403 ORA-1422 ORA-1476 ORA-1722 ORA-6500 ORA-6501 ORA-6502 ORA-6504 ORA-6511 ORA-6530 ORA-6531 ORA-6532 ORA-6533 异常错误信息名称 Dup_val_on_index Timeout-on-resource Transaction-backed-out Invalid-CURSOR Not-logged-on Login-denied No_data_found Too_many_rows Zero-divide Invalid-NUMBER Storage-error Program-error Value-error Rowtype-mismatch CURSOR-already-OPEN Access-INTO-null Collection-is-null Subscript-outside-limit Subscript-beyond-count 说明 试图破坏一个唯一性限制 在等待资源时发生超时 由于发生死锁事务被撤消 试图使用一个无效的游标 没有连接到ORACLE 无效的用户名/口令 SELECT INTO没有找到数据 SELECT INTO 返回多行 试图被零除 转换一个数字失败 内存不够引发的内部错误 内部错误 转换或截断错误 缩主游标变量与 PL/SQL变量有不兼容行类型 试图打开一个已存在的游标 试图为null 对象的属性赋值 试图将Exists 以外的集合( collection)方法应用于一个null pl/sql 表上或varray上 对嵌套或varray索引得引用超出声明范围以外 对嵌套或varray 索引得引用大于集合中元素的个数. 第 31 页 共 31 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库实验4 SQL_PL编程基础_V2013(6)在线全文阅读。