新建 文本文档.txt

来自「关于oracle和sql的书籍和ppt教程,非常好,本人珍藏品」· 文本 代码 · 共 54 行

 on empa
 for each row
declare
    procedure indept(qq number)
    is
      cursor aa
      is select comm from empa where empno=qq; 
      aaa emp.comm%type;
    begin
      open aa;
      loop
      fetch aa into aaa;
        exit when aa%notfound;
     if aaa>20000 then
      raise_application_error(-20003,'员工工资不能高于二万！');
      end if;
      end loop;
      close aa;   
    end;
begin
  if :new.comm>20000 then
 indept(:old.empno);
 end if;
end;


/*create or replace trigger aaaaa12
 before 
 update of comm
 on empa
 for each row
declare
    procedure indept(qq number)
    is
     cursor aa
     is select comm from emp where comm=qq; 
      aaa emp.comm%type;
    begin
    --null;
      open aa;
     loop
     fetch aa into aaa;
       exit when aa%notfound;
     if aaa>200 then
      raise_application_error(-20003,'员工工资不能高于二万！');
      end if;
      end loop;
    close aa;   
    end;
begin
  if :new.comm>20000 then
 indept(:old.empno);
 end if;
end;*/