PL/SQL的应用操作实例以及解析

declare
  msg char(15);--定义变量
  begin
   msg:='hell';--赋值
   dbms_output.put_line(msg);
   end;



--声明的类型为 与emp.sal类型变量一致

declare
   sal emp.sal%type; --sal和emp表中sal类型一样
   begin
     sal:=900.44;
     dbms_output.put_line(sal);
     end;
     
--记录一行
declare  --声明
  emp_rec emp%rowtype;--emp_rec 是一个变量  emp表的一行记录    emp%rowtype
  begin
  select * into emp_rec from emp where empno=7499; --给emp_rec 赋值的时候必须给他一条记录  into语句表示赋值
  dbms_output.put_line(emp_rec.sal);--不能直接输出emp_rec  需要emp_rec.sal
  end;
     
  
--if语句形式1
declare
 grade number(5,2);
 begin
   grade:=80;
   if grade>70 then
     dbms_output.put_line('greate');
     end if;
     end;
     
     
     
--if语句形式2
declare
 grade number(5,2);
 begin
   grade:=60;
   if grade>70 then
     dbms_output.put_line('greate');
   else
     dbms_output.put_line('bad');
     end if;
     end;
     
       
--if语句形式3
declare
 grade number(5,2);
 begin
   grade:=60;
   if grade>70 then
     dbms_output.put_line('greate');
   elsif grade>50 then
     dbms_output.put_line('bad');
     else
      dbms_output.put_line('bad2');
     end if;
     end;   
     
 accept num prompt '请输入数字';--接收键盘输入的值  会自动保存num的值
 declare--声明
   pnum number :=#-- &代表取值 pnum  格式 声明变量  变量类型 
   begin
     dbms_output.put_line(pnum);
    end;
    
    
    declare
     pnum number :=1;
     begin
     while pnum<10 --while语句   exit when pnum>10  循环退出的条件
     loop
      dbms_output.put_line(pnum);
      pnum:=pnum+1;--循环改变的条件
       end loop;
    end;
 
 declare
  begin
    for i in 1..10 
    loop
    dbms_output.put_line(i);
    end loop;
    end;
    
    
 select * from emp;
 
 declare 
  job_rec emp.job%type;
  begin
    select job into job_rec from emp;  --存在问题 返回的job岗位为多个，而job_rec只能接受一个值
    if job_rec ='MANAGER' then
       update emp set sal = sal+800;   --没有指定where子句
       elsif job_rec='SALESMAN' then
        update emp set sal=sal+400;
        else
          update emp set sal = sal+200;
        end if;
        end;
    
    
    
   --声明游标
  
   declare
   cursor cl is select * from emp;--查询出所有的emp记录存储到cl游标中
    emp_rec emp%rowtype;
    begin
     open cl;--打开游标
       loop
       exit when cl%notfound; --循环退出的条件 cl%notfound 当没有记录的时候 返回true
     fetch cl into emp_rec;--检索数据
      dbms_output.put_line(emp_rec.empno);
      end loop;
      close cl;
      end;
    
  declare 
     emp_row emp%rowtype;
     begin
       select * into emp_row from emp; --隐式游标
                                  --例外的声明     
       exception
         
         when too_many_rows then    --when 例外的名称 then 发生例外执行的操作
         dbms_output.put_line('超了');
        end;  
        
        
   declare
        no_data exception;
        emp_row emp%rowtype;
        cursor cl(pno number) is select *  from emp where empno=pno;
        begin
          open cl(0000);
          fetch cl into emp_row;
          if cl%notfound then raise no_data; --在这里抛出例外
          end if;
          close cl;
          exception                       --在这里捕获例外
          when no_data then
              dbms_output.put_line('没有找到数据');
           end;
           
           
      --显示部门号为30的员工信息
      declare
     --查询出所有的emp记录存储到cl游标中
      cursor cl(dno number) is select * from dept where deptno=dno;
      
      begin 
           for dept_row in cl(30)  --打开游标（自动） 检索数据 关闭游标 emp_row 变量也不需要定义
           loop   
           dbms_output.put_line('部门名称:'||dept_row.dname||' 员工:'||dept_row.loc);
          -- dbms_output.put_line(dept_row.loc);
           end loop;
           end;
           
           
      
 --为员工添加工资
    declare 
       --定义光标，查询job岗位 和员工号
    cursor cr is select empno,job from emp;
    
    --声明一个变量 此变量的类型与emp中job类型一致
        pjob emp.job%type;
        epno emp.empno%type;
     --开始
     begin
        --打开游标
        open cr;
         loop
           --取出游标
           fetch cr into epno,pjob;
           exit when cr%notfound;--判断游标是否存在
           
           if pjob='CLERK' then update emp set sal=sal+1000 where empno = epno;
           
           elsif pjob='MANAGER' then update emp set sal=sal+800 where empno=epno;
           
           else update emp set sal=sal+400 where empno=epno;
           
           end if;
           
           end loop;
           
           close cr;
           end;
           
           
           
       select * from emp;