trigger max.txt

来自「a small application in Mysql and Delphi」· 文本 代码 · 共 10 行

delimiter //
CREATE TRIGGER max10
BEFORE INSERT on emprunt 
FOR EACH ROW
BEGIN
declare ctl_consul tinyint;
IF (9<(select count(*) from emprunt e where (new.CODE_PERSONNE =e.CODE_PERSONNE)and(e.date_emprunt=current_date)))then
SET ctl_consul:="UNE PERSONNE NE PEUT PAS EMPRUNTER PLUS DE 10 FILMS DANS LA MEME JOURNEE !";
END IF;
end//