pl/sql入门-小结

结合前面的入门知识，写一个给用户涨工资的程序

--给员工涨工资；总经理1000；经理800；其他的人400
set serveroutput on
declare
    --光标
   cursor cemp is select empno,empjob from emp;
    pempno emp.empno%type;
    pjob       emp.empjob%type;
begin
    open cemp;
    loop
         fetch cemp into pempno,pjob;
       --退出
       exit when cemp%notfound;


       --判断职位涨工资
       if pjob = 'PRESIDENT' then update emp set sal=sal+1000 where empno=pempno;
         elsif pjob='MANAGER' then update emp set sal=sal+800 where empn=pempno;
         else update emp set sal=sal+400 where empno=pempno;
        end if;
    end loop;

    close cemp;


   --事物提交
   commit;
   --OK
end;
/