Page 46 - IT2
P. 46

AS
               BEGIN
                   DECLARE @v_depart varchar(15)
                   DECLARE @v_arrivée varchar(15)
                   DECLARE @h_depart datetime
                   DECLARE @h_arrivée datetime
                   SELECT @v_depart=AeroportDepart, @v_arrivée=AeroportArrivée, @h_Depart=HeureDepart,
                   @h_arrivée=HeureArrivée
                   FROM INSERTED
                   IF @v_depart = @v_arrivée OR @h_depart>@h_arrivée
                   BEGIN
                       RAISERROR(‘Insertion impossible !!’, 16, 1)
                       ROLLBACK
                   END
            END



               IF EXISTS (SELECT * FROM SYSOBJECTS WHERE NAME = ‘PLANNING’)
               DROP PROC PLANNING
               GO
               CREATE PROCEDURE PLANNING
               @nom char(20)= NULL, @prenom char(20)= NULL
               AS
               BEGIN
                   IF @nom IS NULL
                   BEGIN

            RAISERROR(‘Erreur:Manque nom du pilote’, 16, 1)
                       RETURN
                   END
                   ELSE IF @prenom IS NULL
                   BEGIN
                       RAISERROR(‘Erreur:Manque prénom du pilote’, 16, 1)
                       RETURN
                   END
                   IF NOT EXISTS(SELECT * FROM PILOTE WHERE NomPilote = @nom
                   AND PrenomPilote = @prenom)
                       RAISERROR(‘Erreur:Pilote inexistant’, 16, 1)
                   ELSE
                   BEGIN
                   PRINT(‘Planning personel de ’+ @nom + ‘ ‘ + @prenom)
                   SELECT ‘numVol’=AF.NumVol, ‘De’ = V.AeroportDepart, ‘Vers’ = V.AeroportArrivée,
                   ‘Partant le’=AF.DateVol+V.HeureDepart
                   FROM PILOTE P, AFFECTATION AF, VOL V
                   WHERE P.IdPilote = AF.IdPilote
                   AND AF.NumVol = V.NumVol
                   AND P.NomPilote = @nom
                   AND P.PrenomPilote = @prenom
                   END
            END

                                                                                                        2/7
                                         www.itlearning-settat.com
                                Email: admission@itlearning-settat.com

                                                Tél.:0661077812
   41   42   43   44   45   46   47   48   49   50   51