我正在学习如何制作 PL/SQL 触发器。 这就是我编码的，但我得到了大量的错误

Question

这是我的导师给我的描述

为“Worker”表创建一个触发器，该触发器将触发在“Worker”表上执行的 INSERT 或 UPDATE 或 DELETE 操作。 此触发器将显示旧值和新值之间的工资差异。 编写一个块 PL/SQL 来测试触发器的执行，以响应某些数据库操作 (DML) 语句（DELETE、INSERT 或 UPDATE）。

这是代码：

create or replace trigger salary_diff
before delete or insert or update on Worker
for each row 
when (new.Worker_id > 0 )

declare
sal_diff number;
begin
sal_diff := :new.salary - :old.salary;
dbms_output.put_line('new salary ' ||  :new.salar)
dbms_output.put_line('old salary ' ||  :old.salary)
dbms_output.put_line('diffrence between salary is ' || sal_diff);
end;

Answer 1

您提到了“大量错误”，但是-实际上-只有两个：

• 防止触发器编译的一种（在DBMS_OUTPUT.PUT_LINE调用后缺少分号）
• 另一个将阻止触发器在您删除行时触发（因为 - 在这种情况下 - 任何列都没有:new值）所以 - 删除when子句

所以：样本表：

SQL> CREATE TABLE worker
  2  AS
  3     SELECT 1 worker_id, 100 salary FROM DUAL;

Table created.

扳机：

SQL> CREATE OR REPLACE TRIGGER salary_diff
  2     BEFORE DELETE OR INSERT OR UPDATE
  3     ON Worker
  4     FOR EACH ROW
  5  DECLARE
  6     sal_diff  NUMBER;
  7  BEGIN
  8     sal_diff := :new.salary - :old.salary;
  9     DBMS_OUTPUT.put_line ('new salary ' || :new.salary);
 10     DBMS_OUTPUT.put_line ('old salary ' || :old.salary);
 11     DBMS_OUTPUT.put_line ('diffrence between salary is ' || sal_diff);
 12  END;
 13  /

Trigger created.

测试：

SQL> SET SERVEROUTPUT ON
SQL> UPDATE worker
  2     SET salary = 50
  3   WHERE worker_id = 1;
new salary 50
old salary 100
diffrence between salary is -50

1 row updated.

SQL> DELETE FROM worker
  2    WHERE worker_id = 1;
new salary
old salary 50
diffrence between salary is

1 row deleted.

SQL>

（删除时，没有“差异”，因为工人不再存在。如果您想看到差异，请使用NVL功能）