trigger max.txt

a small application in Mysql and Delphi

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//