写一个PL/SQL 块，实现任意两个员工的工资互换

武软问问团

提示：可以定义两个变量，并从键盘上输入两个员工的编号，如果两个编号相同，则抛出一个自定义异常，否则进行工资的互换。

1. create table yuan(
   
2.        y_id number,
   
3.        y_maney number
   
4. );
   
5. commit;
   
6. 
   
7. insert into yuan values(1,200);
   
8. insert into yuan values(2,200);
   
9. insert into yuan values(3,500);
   
10. insert into yuan values(4,2000);
    
11. 
    
12. select * from yuan;
    
13. 
    
14. declare
    
15.   yc exception;
    
16.   a_yuan yuan.y_id%type := '&请输a入员工号';
    
17.   b_yuan yuan.y_id%type := '&请输b入员工号';
    
18.   a_m yuan.y_maney%type;
    
19.   b_m yuan.y_maney%type;
    
20. begin
    
21.    select y_maney into a_m from yuan where y_id=a_yuan;
    
22.    select y_maney into b_m from yuan where y_id=b_yuan;
    
23. if a_yuan=b_yuan then
    
24.    raise yc;
    
25.    else
    
26.     update yuan set y_maney=a_m where y_id=b_yuan;
    
27.     update yuan set y_maney=b_m where y_id=a_yuan;
    
28.    end if;
    
29. exception
    
30.   when yc then
    
31.   dbms_output.put_line('错误，不能和自己互换');
    
32. end;

复制代码