(第六章／程序设计.pptVIP

编写第一个游标，输出emp表中所有员工的信息。 declare cursor mycur is select * from emp ; empinfo emp%rowtype ; begin if mycur%isopen then null; else open mycur; end if; fetch mycur into empinfo ; while (mycur%found) loop dbms_output.put_line(雇员编号：||empinfo.empno) ; dbms_output.put_line(雇员姓名：||empInfo.ename) ; fetch mycur into empinfo ; end loop ; close mycur; end ; Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 练习：一次性上涨全部雇员的工资。 根据它所在的部门涨工资， 规则： . 10部门上涨10% . 20部门上涨20% . 30部门上涨30% 所有部门员工上涨后的工资最多不能超过5000，如果超过5000，则工资就为5000。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. declare cursor mycur is select * from emp; empInfo emp%rowtype; v_sal emp.sal%type; begin for empInfo in mycur loop if empInfo.deptno = 10 then v_sal := empInfo.sal*1.1; elsif empInfo.deptno = 20 then v_sal := empInfo.sal*1.2; elsif empInfo.deptno = 30 then v_sal := empInfo.sal* 1.3; end if; if v_sal 5000 then v_sal := 5000; end if; update emp set sal = v_sal where empno = empInfo.empno; end loop; end; Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 所有的SQL 语句在上下文区内部都是可执行的，因此都有一个游标指向上下文区，此游标就是所谓的SQL游标(SQL cursor)，即隐式游标。与显式游标不同，SQL 游标不被程序打开和关闭。 当一个DML语句执行时，PL/SQL内部打开一个游标，语句的结果被保存在4个游标属性中。 SQL%FOUND SQL%NOTFOUND SQL%ROWCOUNT SQL%ISOPEN 游标是一块包含有查询信息的内存空间。在执行DML语句，游标被打开；当语句完成时，游标被关闭。 3.7.2 隐式游标 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 【案例】 更新dept表，将部门号为80的部门名称修改为总经办公室，如果没有这条记录，则向dept表写入该条记录 declare begin update dept set dname=总经办公室 where deptno = 80; if sql%notfound then insert into dept values(80,总经办公室,南昌); end if; commit; end; Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. 异常处理 在程序运行的时候出现的错误就称为异常，发生异常后，语句将停止执行，PL/SQL引擎立即将控制权转到PL/SQL块的异