1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124
|
CREATE OR REPLACE PACKAGE joueurs AS
--Procédure ajout
PROCEDURE ajout (pIdJoueur joueur.idJoueur%TYPE, pNomJoueur joueur.nomJoueur%TYPE, pIdEq equipe.idEq%TYPE, retour OUT NUMBER) ;
--Procedure suppression
PROCEDURE suppression (pIdJoueur joueur.idJoueur%TYPE, retour OUT NUMBER) ;
--Procedure affichage
PROCEDURE affichage (pIdJoueur joueur.idJoueur%TYPE, retour OUT NUMBER) ;
END joueurs ;
/
CREATE OR REPLACE PACKAGE BODY joueurs AS
--Procédure ajout
PROCEDURE ajout (pIdJoueur joueur.idjoueur%TYPE, pNomJoueur joueur.nomJoueur%TYPE, pIdEq equipe.idEq%TYPE, retour OUT NUMBER) IS
--Variable de traitement
v_test VARCHAR (15) ;
--Exceptions
idJoueur_present EXCEPTION;
PRAGMA EXCEPTION_INIT (idJoueur_present, -00001);
BEGIN
-- Test si léquipe existe
SELECT idEq INTO v_test FROM equipe WHERE idEq = pIdEq;
--Insertion du joueur
INSERT INTO joueur VALUES (pIdJoueur, pNomJoueur, 'o', pIdEq, 0, 0, 0);
DBMS_OUTPUT.PUT_LINE ('Ajout du joueur ' || pIdJoueur ||' '|| pNomJoueur || ' effectué dans la table joueur');
DBMS_OUTPUT.PUT_LINE ('Transaction effectuée' );
retour := 0;
EXCEPTION
WHEN idJoueur_present THEN
DBMS_OUTPUT.PUT_LINE ('L''identifiant du joueur existe déjà' );
retour := 1;
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ('L''équipe est inconnue' );
retour := 2;
END ajout ;
--Procedure suppression
PROCEDURE suppression (pIdJoueur joueur.idjoueur%TYPE, retour OUT NUMBER) IS
--Variable de traitement
v_test VARCHAR (15) ;
--Exceptions
idJoueur_mj EXCEPTION;
PRAGMA EXCEPTION_INIT (idJoueur_mj, -02292);
BEGIN
--Test si le joueur existe
SELECT idJoueur INTO v_test FROM joueur WHERE idJoueur = pIdJoueur;
--Suppression du joueur
DELETE FROM joueur WHERE idJoueur = pIdJoueur ;
DBMS_OUTPUT.PUT_LINE ('Le joueur ' || pIdJoueur || ' a bien été supprimé de la table joueur' );
DBMS_OUTPUT.PUT_LINE ('Transaction effectuée' );
retour := 0;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ('Le joueur est inconnu' );
retour := 1;
WHEN idJoueur_mj THEN
DBMS_OUTPUT.PUT_LINE ('Le joueur est referencé dans matchJoueur, il est impossible de le supprimer' );
retour := 2;
END suppression ;
--Procedure affichage
PROCEDURE affichage (pIdJoueur joueur.idJoueur%TYPE, retour OUT NUMBER) IS
--Variable de traitement
v_test VARCHAR (15) ;
v_joueur joueur%ROWTYPE ;
v_club equipe.club%TYPE ;
BEGIN
--Test si le joueur existe
SELECT idJoueur INTO v_test FROM joueur WHERE idJoueur = pIdJoueur;
--Affichage du joueur
SELECT * FROM joueur INTO v_joueur WHERE idJoueur = pIdJoueur;
DBMS_OUTPUT.PUT_LINE ('Joueur ' || v_joueur.idJoueur || ' : ');
DBMS_OUTPUT.PUT_LINE ('Nom : ' || v_joueur.nomJoueur);
IF v_joueur.estValide = 'o' THEN
DBMS_OUTPUT.PUT_LINE ('Valide');
ELSE
DBMS_OUTPUT.PUT_LINE ('Invalide');
END IF;
SELECT club INTO v_club FROM equipe WHERE idEq = v_joueur.idEq;
DBMS_OUTPUT.PUT_LINE ('Equipe : ' || v_club || '(' || v_joueur.idEq || ')');
DBMS_OUTPUT.PUT_LINE ('Total points marqués : ' || v_joueur.totalPoints);
DBMS_OUTPUT.PUT_LINE ('Nombre de matchs joués : ' || v_joueur.nbMatchs);
DBMS_OUTPUT.PUT_LINE ('Temps de jeu total : ' || v_joueur.totalTemps);
retour := 0;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ('Le joueur est inconnu' );
retour := 1;
END affichage ;
END joueurs ;
/
SHOW ERROR |
Partager