Oracle触发器实例

.

CREATE TRIGGER T_INSERT_原料车间配料信息
AFTER INSERT ON 原料车间配料信息
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE

BEGIN
INSERT INTO MES原料车间配料信息 (id,炉号,班次,秤号,料篮号,废钢,生铁,机械生铁,渣钢,黑渣,氧化铁皮,小计,合计,配料开始时间,配料完成时间,原料入炉时间,插入标志,更新标志)
VALUES(
:NEW.id, :NEW.炉号, :NEW.班次,
:NEW.秤号, :NEW.料篮号, :NEW.废钢,
:NEW.生铁, :NEW.机械生铁,:NEW.渣钢,
:NEW.黑渣, :NEW.氧化铁皮, :NEW.小计,
:NEW.合计, :NEW.配料开始时间,:NEW.配料完成时间,
:NEW.原料入炉时间,1,0);
EXCEPTION
WHEN OTHERS THEN
--Error Information
RAISE;
END; ;

CREATE TRIGGER T_UPDATE_原料车间配料信息
AFTER UPDATE ON 原料车间配料信息
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
DECLARE

BEGIN
UPDATE MES原料车间配料信息
SET ID=:NEW.ID,炉号= :NEW.炉号, 班次=:NEW.班次,
秤号=:NEW.秤号, 料篮号=:NEW.料篮号, 废钢= :NEW.废钢,
生铁=:NEW.生铁,机械生铁= :NEW.机械生铁,渣钢=:NEW.渣钢,
黑渣=:NEW.黑渣, 氧化铁皮=:NEW.氧化铁皮,小计= :NEW.小计,
合计=:NEW.合计, 配料开始时间=:NEW.配料开始时间,配料完成时间=:NEW.配料完成时间,
原料入炉时间=:NEW.原料入炉时间,更新标志=1 WHERE ID=:OLD.ID;
EXCEPTION
WHEN OTHERS THEN
--Error Information
RAISE;
END; ;