|
|
\documentclass[a4paper,11pt]{article}
|
|
|
|
|
|
\usepackage[utf8x]{inputenc}
|
|
|
\usepackage[T1]{fontenc}
|
|
|
\usepackage[french]{babel}
|
|
|
\usepackage[a4paper,hmargin=20mm,vmargin=30mm]{geometry}%\usepackage{fullpage}
|
|
|
\usepackage{url}
|
|
|
\usepackage{comment}
|
|
|
\usepackage{fancyhdr}% fancy header
|
|
|
\usepackage{multirow}
|
|
|
\usepackage{slashbox}
|
|
|
|
|
|
\usepackage{color, colortbl}
|
|
|
\definecolor{Gray}{gray}{0.9}
|
|
|
\usepackage{adjustbox}
|
|
|
\usepackage{slashbox}
|
|
|
%\usepackage{times}
|
|
|
\usepackage{tikz,pgflibraryarrows,pgffor,pgflibrarysnakes}
|
|
|
\usetikzlibrary{decorations.pathreplacing}
|
|
|
|
|
|
\usepackage{pdfpages}
|
|
|
|
|
|
\usepackage{fancyvrb}
|
|
|
|
|
|
\fancypagestyle{monstyle}{
|
|
|
%\fancyhead{}
|
|
|
\renewcommand{\headrulewidth}{1pt}
|
|
|
%% %\renewcommand{\footrulewidth}{0.4pt}
|
|
|
|
|
|
% \fancyhead[LE]{\slshape \thepage/ \pageref{LastPage}}
|
|
|
%% \fancyhead[RO]{\slshape \thepage/ \pageref{LastPage}}
|
|
|
|
|
|
|
|
|
%\fancyhf{}
|
|
|
%\fancyhead[LE]{\slshape LE}
|
|
|
%\fancyhead[CE]{\slshape CE}
|
|
|
%\fancyhead[RE]{\slshape RE}
|
|
|
|
|
|
\fancyhead[LO]{\bfseries 2020-2021 BD PLS/SQL\rightmark}
|
|
|
%\fancyhead[CO]{\slshape APF}
|
|
|
\fancyhead[RO]{\bfseries ~\leftmark }
|
|
|
|
|
|
%% %\fancyfoot{}
|
|
|
% \fancyfoot[LE,RO]{}
|
|
|
\fancyfoot[CO,CE]{}%\slshape\thepage/\pageref{LastPage}}
|
|
|
%% %\fancyfoot[LO,RE]{\small\slshape \ddmmyyyydate version du \today}
|
|
|
|
|
|
}
|
|
|
|
|
|
% \pagestyle{fancy}
|
|
|
|
|
|
\usepackage{amsmath}
|
|
|
\usepackage{amsthm}
|
|
|
|
|
|
|
|
|
|
|
|
\theoremstyle{definition}
|
|
|
\newtheorem{exercice}{Exercice}
|
|
|
|
|
|
\pagestyle{monstyle}
|
|
|
|
|
|
\usepackage{amsmath}
|
|
|
\usepackage{amsthm}
|
|
|
|
|
|
\newcommand{\code}[1]{\texttt{#1}}
|
|
|
|
|
|
\usepackage{boxedminipage}
|
|
|
\usepackage{setspace}
|
|
|
|
|
|
|
|
|
\newsavebox\svbx
|
|
|
\newif\ifcache
|
|
|
\long\def\cache#1{\ \newline
|
|
|
\setbox\svbx=\vbox{\leavevmode \newline \begin{spacing}{1}#1\end{spacing}}
|
|
|
\smallskip\par\noindent
|
|
|
\begin{boxedminipage}{\linewidth}
|
|
|
\ifcache
|
|
|
\leavevmode\hrule height 0pt\vskip \ht\svbx\hrule height 0pt
|
|
|
\else \unvbox\svbx
|
|
|
\fi
|
|
|
\end{boxedminipage}
|
|
|
\par\smallskip}
|
|
|
|
|
|
|
|
|
\cachefalse % version prof
|
|
|
%\cachetrue % version etudiant
|
|
|
|
|
|
|
|
|
|
|
|
\begin{document}
|
|
|
|
|
|
|
|
|
\begin{center}
|
|
|
NOM : \hfill Examen \hfill~\\
|
|
|
PRENOM : \hfill 90 minutes%% , 75 points
|
|
|
\hfill ~\\
|
|
|
GROUPE : \hfill \hfill~\\
|
|
|
|
|
|
\end{center}
|
|
|
|
|
|
\section*{PL/SQL : R\'eservation d'un terrain de sport}
|
|
|
|
|
|
Une entreprise de location de terrain de badminton/padel souhaite
|
|
|
informatiser la gestion de ses locaux. Chaque terrain possède un
|
|
|
numéro : il y a 10 terrains de badminton numérotés de 1 à 10, et 2 de
|
|
|
padels de 1 à 2. Il est possible qu'il y ait entre 2 et 4 joueurs pour
|
|
|
le badminton, mais exactement 4 joueurs pour le padel. Les tarifs
|
|
|
horaires pour la location du terrain ne sont pas les mêmes pour le
|
|
|
badminton et le padel. Ils varient également en fonction de
|
|
|
l'horaire. La réservation se fait pour un créneau dont l’heure de
|
|
|
début est connue (9h , 10h, ... , 17h) et la durée spécifique au sport
|
|
|
pratiqué (1h ou 2h). Une fois sur place, il est également possible de
|
|
|
louer des équipements (raquettes et chaussures) pour un supplément :
|
|
|
|
|
|
\begin{center}
|
|
|
\begin{tabular}{|l|c|c|}
|
|
|
\hline
|
|
|
Prix à l’unité & BADMINTON & PADEL \\ \hline
|
|
|
Raquette & 1€ & 2€ \\ \hline
|
|
|
Paire de chaussures& 2€ & 3€ \\ \hline
|
|
|
\end{tabular}
|
|
|
\end{center}
|
|
|
|
|
|
|
|
|
Lors d'une réservation, il faut connaître au moins les coordonnées
|
|
|
d'un des joueurs pour savoir qui a fait la réservation. Lors d'une
|
|
|
réservation en ligne, il est possible d'inscrire le nom et le numéro
|
|
|
de téléphone des joueurs, afin qu'un rappel leur soit envoyé le jour
|
|
|
de leur réservation. Il faut pouvoir sortir une facture avec le
|
|
|
montant total de la réservation ; c'est à dire le tarif de la location
|
|
|
en fonction du sport et du créneau horaire, ainsi que des équipements
|
|
|
loués.
|
|
|
|
|
|
MCD de l’application :
|
|
|
|
|
|
\newpage
|
|
|
\begin{center}
|
|
|
\includegraphics{MCD.png}
|
|
|
\end{center}
|
|
|
|
|
|
\begin{center}
|
|
|
\begin{tikzpicture}[every node/.style={inner sep=0,outer sep=0}]
|
|
|
|
|
|
\node (i) at (5,3) {\begin{varwidth}{1.5in}
|
|
|
\begin{tabular}{|l|}
|
|
|
\hline
|
|
|
\rowcolor{Gray}EQUIPEMENT\\
|
|
|
\hline
|
|
|
\underline{idEquipement}\\
|
|
|
Libell\'e\\
|
|
|
Tarif\\ \hline
|
|
|
\end{tabular}
|
|
|
\end{varwidth}
|
|
|
};
|
|
|
|
|
|
|
|
|
\node (w) at (5,-1) {\begin{varwidth}{1.5in}
|
|
|
\begin{tabular}{|l|}
|
|
|
\hline
|
|
|
\rowcolor{Gray}RESERVATION\\
|
|
|
\hline
|
|
|
\underline{idReservation}\\
|
|
|
dateReserv\\
|
|
|
nbJoueurs\\ \hline
|
|
|
\end{tabular}
|
|
|
\end{varwidth}
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
\node (a) at (0,0) {\begin{varwidth}{2.5in}
|
|
|
\begin{tabular}{|l|}
|
|
|
\hline
|
|
|
\rowcolor{Gray}TERRAIN\\
|
|
|
\hline
|
|
|
\underline{idTerrain}\\
|
|
|
numTerrain\\
|
|
|
\hline
|
|
|
\end{tabular}
|
|
|
\end{varwidth}
|
|
|
};
|
|
|
|
|
|
|
|
|
\node (f) at (8,-5) {\begin{varwidth}{2.5in}
|
|
|
\begin{tabular}{|l|}
|
|
|
\hline
|
|
|
\rowcolor{Gray}CRENEAU\\
|
|
|
\hline
|
|
|
\underline{numCreneau}\\
|
|
|
heureD\'ebut\\
|
|
|
\hline
|
|
|
\end{tabular}
|
|
|
\end{varwidth}
|
|
|
};
|
|
|
|
|
|
\node[draw,rectangle] (g) at (0,-5) {\begin{varwidth}{2in}
|
|
|
\begin{tabular}{l}
|
|
|
\rowcolor{Gray}SPORT\\
|
|
|
\hline
|
|
|
\underline{nomSport}\\
|
|
|
nbMinJoueurs\\
|
|
|
nbMaxJoueurs\\
|
|
|
dur\'ee\\
|
|
|
\end{tabular}
|
|
|
\end{varwidth}};
|
|
|
|
|
|
|
|
|
|
|
|
\node[draw,rectangle] (c) at (11,0) {
|
|
|
\begin{tabular}{|l|}
|
|
|
\hline
|
|
|
\rowcolor{Gray}JOUEUR\\
|
|
|
\hline
|
|
|
\underline{idjoueur}\\
|
|
|
Nom\\
|
|
|
Pénom\\
|
|
|
num\'ero\\
|
|
|
\hline
|
|
|
\end{tabular}
|
|
|
};
|
|
|
|
|
|
\draw[-latex] (i) -- (a);
|
|
|
\draw[-latex] (i) -- (c);
|
|
|
\draw[latex-] (c) -- (f);
|
|
|
\draw[latex-] (f) -- (g);
|
|
|
\draw[latex-] (a) -- (g);
|
|
|
|
|
|
\end{tikzpicture}
|
|
|
\end{center}
|
|
|
|
|
|
\newpage
|
|
|
|
|
|
|
|
|
Modèle relationnel :
|
|
|
|
|
|
EQUIPEMENT(\underline{idEquipement}, libell\'e, tarif)
|
|
|
|
|
|
CONTENIR(\underline{idReservation}, \underline{idEquipement}, nombre)
|
|
|
|
|
|
TERRAIN(\underline{idTerrain}, numTerrain, nomSport)
|
|
|
|
|
|
RESERVATION(\underline{idReservation}, dateReserv, nbJoueurs, idTerrain, numCreneau)
|
|
|
|
|
|
FAIRE(\underline{idReservation}, \underline{idJoueur})
|
|
|
|
|
|
JOUEUR(\underline{idJoueur}, nom, pr\'enom, num\'ero)
|
|
|
|
|
|
SPORT(\underline{nomSport}, nbMinJoueurs, nbMaxJoueurs, dur\'ee)
|
|
|
|
|
|
FACTURER(\underline{nomSport}, \underline{numCreneau}, tarifHoraire)
|
|
|
|
|
|
CRENEAU(\underline{numCreneau}, heureD\'ebut)
|
|
|
|
|
|
|
|
|
Ordres de création des tables :
|
|
|
|
|
|
\begin{verbatim}
|
|
|
create table EQUIPEMENT (
|
|
|
idEquipement char(3) primary key,
|
|
|
libelle varchar2(20),
|
|
|
tarif number(5,2));
|
|
|
|
|
|
create table JOUEUR (
|
|
|
idJoueur char(2) primary key,
|
|
|
nom varchar2(20),
|
|
|
pnom varchar2(20),
|
|
|
numero number);
|
|
|
|
|
|
create table CRENEAU (
|
|
|
numCreneau char(2) primary key,
|
|
|
heureDebut number(2));
|
|
|
|
|
|
create table TERRAIN (
|
|
|
idTerrain char(3) primary key,
|
|
|
numTerrain number,
|
|
|
nomSport varchar2(10) );
|
|
|
|
|
|
create table SPORT (
|
|
|
nomSport varchar2(10),
|
|
|
nbMinJoueurs number,
|
|
|
nbMaxJoueurs number,
|
|
|
duree number);
|
|
|
|
|
|
create table RESERVATION (
|
|
|
idReserv char(3) primary key,
|
|
|
dateReserv date,
|
|
|
nbJoueurs number,
|
|
|
idTerrain char(5) references TERRAIN,
|
|
|
numCreneau char(2) references CRENEAU );
|
|
|
|
|
|
create table faire (
|
|
|
idReserv char(3) references RESERVATION,
|
|
|
idJoueur char(2) references JOUEUR,
|
|
|
primary key(idReserv, idJoueur));
|
|
|
|
|
|
create table contenir (
|
|
|
idReserv char(3) primary key,
|
|
|
idEquipement char(3),
|
|
|
nombre number);
|
|
|
\end{verbatim}
|
|
|
|
|
|
|
|
|
Consignes :
|
|
|
\begin{itemize}
|
|
|
\item Les résultats seront affichés avec une table Tresultat (ligne varchar2 (200))
|
|
|
\item La partie SQL+ n’est pas demandée pour les exercices 2 et 3
|
|
|
\end{itemize}
|
|
|
|
|
|
\begin{exercice}[PLSQL] (30 points)
|
|
|
|
|
|
Donner le programme (partie SQL + et PL/SQL) permettant d’enregistrer un sport.
|
|
|
|
|
|
Messages à prévoir :
|
|
|
\begin{itemize}
|
|
|
\item Le nom du sport est déjà attribué
|
|
|
\item Le nombre maximum de joueurs ne peut être inférieur au nombre minimum
|
|
|
\item La durée est de 1h ou 2h
|
|
|
\item Le sport a été enregistré : nom du sport
|
|
|
\end{itemize}
|
|
|
|
|
|
\begin{SaveVerbatim}{Maxpoints}
|
|
|
DROP TABLE tligne ;
|
|
|
CREATE TABLE tligne (ligne varchar2(100)) ;
|
|
|
|
|
|
set echo off; set verify off; set feedback off;
|
|
|
|
|
|
variable vidjoueur char(4)
|
|
|
prompt Entrer la reference du joueur :
|
|
|
accept vidjoueur
|
|
|
|
|
|
DECLARE
|
|
|
dmaxpoint number;
|
|
|
dnbjoueur number;
|
|
|
didjoueur char(4);
|
|
|
|
|
|
BEGIN
|
|
|
SELECT count(Nom) INTO dnbjoueur FROM JOUEUR WHERE id_joueur ='&vidjoueur';
|
|
|
|
|
|
if dnbjoueur != 0 then
|
|
|
|
|
|
SELECT max(points) INTO dmaxpoint FROM JOUE
|
|
|
WHERE id_joueur ='&vidjoueur';
|
|
|
|
|
|
INSERT INTO tligne VALUES ('Max points de'||'&vidjoueur'||' : '||to_char(dmaxpoint));
|
|
|
ELSE
|
|
|
INSERT INTO tligne VALUES('count detecte numero du joueur pas bon');
|
|
|
|
|
|
SELECT id_joueur INTO didjoueur FROM JOUEUR
|
|
|
WHERE id_joueur ='&vidjoueur';
|
|
|
end if;
|
|
|
|
|
|
EXCEPTION
|
|
|
when no_data_found then
|
|
|
INSERT INTO tligne VALUES('exception numero du joueur pas bon');
|
|
|
end ;
|
|
|
.
|
|
|
/
|
|
|
|
|
|
SELECT * FROM tligne ;
|
|
|
set verify on; set feedback on; set echo on;
|
|
|
\end{SaveVerbatim}
|
|
|
|
|
|
%% \cache{%\begin{small}
|
|
|
%% \BUseVerbatim{Maxpoints}
|
|
|
%% % \end{small}
|
|
|
%}
|
|
|
|
|
|
%% \begin{center}
|
|
|
%% \begin{verbatim}
|
|
|
%% Nom Prenom Date de naissance Nom Equipe Actuelle
|
|
|
%% XXXXXX XXXXXXX XX/XX/XXXX XXXXXXXX
|
|
|
%% XXXXXX XXXXXXX XX/XX/XXXX XXXXXXXX
|
|
|
%% XXXXXX XXXXXXX XX/XX/XXXX XXXXXXXX
|
|
|
%% ...
|
|
|
%% \end{verbatim}
|
|
|
%% \end{center}
|
|
|
|
|
|
\begin{SaveVerbatim}{Joueur}
|
|
|
DROP TABLE tligne ;
|
|
|
CREATE TABLE tligne (ligne varchar2(100)) ;
|
|
|
|
|
|
set echo off;
|
|
|
set verify off;
|
|
|
set feedback off;
|
|
|
|
|
|
DECLARE
|
|
|
dnom varchar2(20);
|
|
|
dprenom varchar2(20);
|
|
|
ddate date;
|
|
|
dnomequipe varchar2(20);
|
|
|
|
|
|
CURSOR c IS SELECT j.Nom, j.Prenom, j.Date_de_naissance, e.Nom FROM JOUEUR j, APPARTIENT a, EQUIPE e
|
|
|
WHERE a.id_joueur = j.id_joueur and e.id_equipe = a.id_equipe and a.Date_fin is NULL
|
|
|
Order by Date_de_naissance;
|
|
|
|
|
|
BEGIN
|
|
|
OPEN c;
|
|
|
|
|
|
INSERT INTO tligne VALUES ('Nom Prenom Date de naissance Nom Equipe Actuelle');
|
|
|
FETCH c INTO dnom, dprenom, ddate, dnomequipe;
|
|
|
|
|
|
WHILE c%found
|
|
|
LOOP
|
|
|
INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||to_char(ddate)||' '||dnomequipe);
|
|
|
FETCH c INTO dnom, dprenom, ddate, dnomequipe;
|
|
|
END LOOP;
|
|
|
|
|
|
CLOSE C;
|
|
|
END;
|
|
|
.
|
|
|
/
|
|
|
|
|
|
SELECT * FROM tligne ;
|
|
|
set verify on;
|
|
|
set feedback on;
|
|
|
set echo on;
|
|
|
\end{SaveVerbatim}
|
|
|
|
|
|
%% \cache{%\begin{small}
|
|
|
%% \BUseVerbatim{Joueur}
|
|
|
%% % \end{small}
|
|
|
%% }
|
|
|
|
|
|
%% \item (20 points) Lister dans une table \code{TLIGNES} tous les
|
|
|
%% joueurs ayant particip\'e \`a un ALLSTAR de la conf\'erence Est et
|
|
|
%% ceux de la conf\'erence Ouest avec les informations suivantes :
|
|
|
%% \begin{center}
|
|
|
%% \begin{small}
|
|
|
%% \begin{verbatim}
|
|
|
%% ALLSTAR MATCH
|
|
|
%% EQUIPE de l'EST
|
|
|
%% Nom Prenom Poste Equipe Actuelle
|
|
|
%% XXXXXX XXXXXXX XXXXXX XXXXXXXX
|
|
|
%% XXXXXX XXXXXXX XXXXXX XXXXXXXX
|
|
|
%% EQUIPE de l'EST
|
|
|
%% Nom Prenom Poste Equipe Actuelle
|
|
|
%% XXXXXX XXXXXXX XXXXXX XXXXXXXX
|
|
|
%% XXXXXX XXXXXXX XXXXXX XXXXXXXX
|
|
|
%% \end{verbatim}
|
|
|
%% \end{small}
|
|
|
%% \end{center}
|
|
|
|
|
|
|
|
|
\begin{SaveVerbatim}{Allstar}
|
|
|
DECLARE
|
|
|
dnom varchar2(20); dprenom varchar2(20);
|
|
|
dposte char(2); dnomequipe varchar2(20);
|
|
|
|
|
|
CURSOR Cest IS SELECT j.Nom, j.Prenom, j.Poste, e.Nom FROM JOUEUR j,
|
|
|
APPARTIENT a, EQUIPE e WHERE a.id_joueur = j.id_joueur and e.id_equipe
|
|
|
= a.id_equipe and e.conference='Est' and j.id_joueur in (SELECT
|
|
|
id_joueur FROM JOUE je, GAME g where g.Categorie='Allstar' and
|
|
|
g.id_game=je.id_game);
|
|
|
|
|
|
CURSOR Couest IS SELECT j.Nom, j.Prenom, j.Poste, e.Nom FROM JOUEUR j,
|
|
|
APPARTIENT a, EQUIPE e WHERE a.id_joueur = j.id_joueur and e.id_equipe
|
|
|
= a.id_equipe and e.conference='Ouest' and j.id_joueur in (SELECT
|
|
|
id_joueur FROM JOUE je, GAME g where g.Categorie='Allstar' and
|
|
|
g.id_game=je.id_game);
|
|
|
|
|
|
BEGIN
|
|
|
INSERT INTO tligne VALUES ('ALLSTAR GAME);
|
|
|
INSERT INTO tligne VALUES ('Conference Est');
|
|
|
INSERT INTO tligne VALUES ('Nom Prenom Poste Nom Equipe Actuelle');
|
|
|
OPEN Cest;
|
|
|
FETCH Cest INTO dnom, dprenom, dposte, dnomequipe;
|
|
|
WHILE Cest%found LOOP
|
|
|
INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||dposte||' '||dnomequipe);
|
|
|
FETCH Cest INTO dnom, dprenom, dposte, dnomequipe;
|
|
|
END LOOP;
|
|
|
CLOSE Cest;
|
|
|
INSERT INTO tligne VALUES ('Conference Ouest');
|
|
|
OPEN Couest;
|
|
|
INSERT INTO tligne VALUES ('Nom Prenom Poste Nom Equipe Actuelle');
|
|
|
FETCH Couest INTO dnom, dprenom, dposte, dnomequipe;
|
|
|
WHILE Couest%found LOOP
|
|
|
INSERT INTO tligne VALUES (dnom||' '||dprenom||' '||dposte||' '||dnomequipe);
|
|
|
FETCH Couest INTO dnom, dprenom, dposte, dnomequipe;
|
|
|
END LOOP;
|
|
|
CLOSE Couest;
|
|
|
END;
|
|
|
.
|
|
|
/
|
|
|
SELECT * FROM tligne ;
|
|
|
\end{SaveVerbatim}
|
|
|
|
|
|
%% \cache{\begin{footnotesize}
|
|
|
%% \BUseVerbatim{Allstar}
|
|
|
%% \end{footnotesize}
|
|
|
%% }
|
|
|
|
|
|
|
|
|
\end{exercice}
|
|
|
|
|
|
|
|
|
|
|
|
%% \begin{center}
|
|
|
%% \begin{tikzpicture}[every node/.style={inner sep=0,outer sep=0}]
|
|
|
|
|
|
%% \node (a) at (5,-4) {\begin{varwidth}{1.5in}
|
|
|
%% \begin{tabular}{|l|}
|
|
|
%% \hline
|
|
|
%% \rowcolor{Gray}AFFECTATION\\
|
|
|
%% \hline
|
|
|
%% \underline{id\_contrat}\\
|
|
|
%% \#id\_personnel\\
|
|
|
%% \#id\_patient\\
|
|
|
%% Date\_debut\\
|
|
|
%% Date\_fin\\ \hline
|
|
|
%% \end{tabular}
|
|
|
%% \end{varwidth}
|
|
|
%% };
|
|
|
|
|
|
|
|
|
%% \node (f) at (0,0) {\begin{varwidth}{2.5in}
|
|
|
%% \begin{tabular}{|l|}
|
|
|
%% \hline
|
|
|
%% \rowcolor{Gray}FONCTION\\
|
|
|
%% \hline
|
|
|
%% \underline{id\_fonction}\\
|
|
|
%% Designation\\
|
|
|
%% Salaire\\
|
|
|
%% \hline
|
|
|
%% \end{tabular}
|
|
|
%% \end{varwidth}
|
|
|
%% };
|
|
|
|
|
|
|
|
|
%% \node (p) at (5,0) {\begin{varwidth}{2.5in}
|
|
|
%% \begin{tabular}{|l|}
|
|
|
%% \hline
|
|
|
%% \rowcolor{Gray}PERSONNEL\\
|
|
|
%% \hline
|
|
|
%% \underline{id\_personnel}\\
|
|
|
%% \#id\_fonction\\
|
|
|
%% \#id\_hopital\\
|
|
|
%% Nom\\
|
|
|
%% Prenom\\
|
|
|
%% \hline
|
|
|
%% \end{tabular}
|
|
|
%% \end{varwidth}
|
|
|
%% };
|
|
|
|
|
|
%% \node[draw,rectangle] (pa) at (0,-4) {\begin{varwidth}{2in}
|
|
|
%% \begin{tabular}{l}
|
|
|
%% \rowcolor{Gray}PATIENT\\
|
|
|
%% \hline
|
|
|
%% \underline{id\_patient}\\
|
|
|
%% Nom\\
|
|
|
%% Prenom\\
|
|
|
%% Date\_naissance\\
|
|
|
%% \end{tabular}
|
|
|
%% \end{varwidth}};
|
|
|
|
|
|
|
|
|
|
|
|
%% \node[draw,rectangle] (h) at (9,0) {
|
|
|
%% \begin{tabular}{|l|}
|
|
|
%% \hline
|
|
|
%% \rowcolor{Gray}HOPITAL\\
|
|
|
%% \hline
|
|
|
%% \underline{id\_hopital}\\
|
|
|
%% Nom\\
|
|
|
%% Ville\\
|
|
|
%% Date\_creation\\
|
|
|
%% \hline
|
|
|
%% \end{tabular}
|
|
|
%% };
|
|
|
|
|
|
%% \draw[-latex] (p) -- (f);
|
|
|
%% \draw[-latex] (p) -- (h);
|
|
|
%% \draw[latex-] (p) -- (a);
|
|
|
%% \draw[latex-] (pa) -- (a);
|
|
|
|
|
|
%% \end{tikzpicture}
|
|
|
%% \end{center}
|
|
|
|
|
|
\begin{exercice}[PLSQL] (45 points)
|
|
|
Donner le programme permettant la suppression d’un joueur à condition
|
|
|
qu’il n’ait pas fait de réservations pour aujourd’hui ou dans le
|
|
|
futur. L’identifiant du joueur aura été précédemment lu dans la
|
|
|
variable \code{vidJoueur}. Messages à prévoir, utilisation d’au moins
|
|
|
une exception utilisateur:
|
|
|
\begin{itemize}
|
|
|
\item Joueur inconnu
|
|
|
\item Impossible, il existe des réservations faites par ce joueur pour aujourd’hui ou dans le futur
|
|
|
\item Nb actions de réservations faites dans le passé par ce joueur ont été supprimées
|
|
|
\item Joueur supprimé
|
|
|
\end{itemize}
|
|
|
\end{exercice}
|
|
|
|
|
|
|
|
|
\begin{exercice}[PLSQL] (45 points)
|
|
|
Donner le programme permettant d’afficher les réservations actuelles
|
|
|
ou futures par créneau horaire pour un sport donné. On utilisera le
|
|
|
nom du sport contenu dans la variable \code{vnomSport}. On affichera les
|
|
|
résultats dans l’ordre croissant de l’heure de début, puis de la
|
|
|
date de réservation.
|
|
|
|
|
|
\begin{SaveVerbatim}{Affichage}
|
|
|
Heure de début : XX
|
|
|
Id réservation date : XX/XX/XX
|
|
|
Id réservation date : XX/XX/XX
|
|
|
Id réservation date : XX/XX/XX
|
|
|
...
|
|
|
Heure de début : XX
|
|
|
Id réservation date : XX/XX/XX
|
|
|
Id réservation date : XX/XX/XX
|
|
|
...
|
|
|
Nombre de réservations total pour ce sport : nb
|
|
|
\end{SaveVerbatim}
|
|
|
|
|
|
% \cache{%\begin{small}
|
|
|
\BUseVerbatim{Affichage}
|
|
|
%\end{small}
|
|
|
% }
|
|
|
|
|
|
|
|
|
\begin{SaveVerbatim}{Insertion}
|
|
|
TODO
|
|
|
\end{SaveVerbatim}
|
|
|
|
|
|
%% \cache{%\begin{small}
|
|
|
%% \BUseVerbatim{Insertion}
|
|
|
%% % \end{small}
|
|
|
%% }
|
|
|
|
|
|
\end{exercice}
|
|
|
|
|
|
|
|
|
|
|
|
\section*{Rappels}
|
|
|
Les fonctions \code{connexion}, \code{deconnexion} et \code{sql\_error}
|
|
|
sont rappell\'ees ci-dessous. Elles ne sont pas \`a r\'e\'ecrire sur
|
|
|
vos copies, mais \`a utiliser dans les exercices si besoin.
|
|
|
|
|
|
\begin{verbatim}
|
|
|
void connexion()
|
|
|
{ VARCHAR uid[50];
|
|
|
char login[20];
|
|
|
char passwd[20];
|
|
|
printf("Donner votre login : ");
|
|
|
scanf("%s",login);
|
|
|
printf("\nDonnez votre mot de passe Oracle : ");
|
|
|
scanf("%s",passwd);
|
|
|
printf("\n");
|
|
|
strcpy(uid.arr,login);
|
|
|
strcat(uid.arr,"/");
|
|
|
strcat(uid.arr,passwd);
|
|
|
strcat(uid.arr,"@kirov");
|
|
|
uid.len=strlen(uid.arr);
|
|
|
|
|
|
EXEC SQL CONNECT :uid;
|
|
|
if (sqlca.sqlcode==0)
|
|
|
printf(" Connexion réussie avec succès.\n\n");
|
|
|
else
|
|
|
{
|
|
|
printf ("Problème à la connexion.\n\n");
|
|
|
exit(1);
|
|
|
}}
|
|
|
\end{verbatim}
|
|
|
|
|
|
|
|
|
\begin{verbatim}
|
|
|
void deconnexion(int validation)
|
|
|
{
|
|
|
if (validation == 1)
|
|
|
{ EXEC SQL COMMIT WORK RELEASE;
|
|
|
} else
|
|
|
{ EXEC SQL ROLLBACK WORK RELEASE;}
|
|
|
printf("Déconnexion sans problème.\n");
|
|
|
}
|
|
|
\end{verbatim}
|
|
|
|
|
|
\begin{verbatim}
|
|
|
void sql_error(char *msg)
|
|
|
{ char err_msg[128];
|
|
|
long buf_len, msg_len;
|
|
|
|
|
|
EXEC SQL WHENEVER SQLERROR CONTINUE;
|
|
|
|
|
|
printf("%s\n", msg);
|
|
|
buf_len = sizeof (err_msg);
|
|
|
sqlglm(err_msg, &buf_len, &msg_len);
|
|
|
|
|
|
if (msg_len > buf_len)
|
|
|
msg_len = buf_len;
|
|
|
|
|
|
printf("%.*s\n", msg_len, err_msg);
|
|
|
deconnexion(0);
|
|
|
exit(1);
|
|
|
}
|
|
|
\end{verbatim}
|
|
|
|
|
|
|
|
|
\section*{MEMO}
|
|
|
\subsection*{Langage PL/SQL}
|
|
|
|
|
|
\begin{verbatim}
|
|
|
DECLARE
|
|
|
variable_PL/SQL {type SQL | nom_table.nom_colonne%TYPE | nom_table%ROWTYPE} ;
|
|
|
CURSOR curseur IS SELECT … ;
|
|
|
nom_exception EXCEPTION;
|
|
|
BEGIN
|
|
|
OPEN curseur ;
|
|
|
FETCH curseur INTO liste de variables ;
|
|
|
curseur%FOUND
|
|
|
CLOSE curseur ;
|
|
|
RAISE nom_exception ;
|
|
|
SELECT liste_de_sélection INTO liste de variables FROM … WHERE … ORDER BY ... ;
|
|
|
Variable PL/SQL := ‘&variable_ SQLPlus’ …
|
|
|
IF … THEN … [ELSE …] END IF ;
|
|
|
WHILE … LOOP … END LOOP ;
|
|
|
EXCEPTION
|
|
|
WHEN nom_exception THEN …;
|
|
|
WHEN NO_DATA_FOUND THEN … ;
|
|
|
WHEN OTHERS THEN … :
|
|
|
END ;
|
|
|
\end{verbatim}
|
|
|
|
|
|
\subsection*{Langage PRO*C}
|
|
|
\begin{verbatim}
|
|
|
struct {long sqlcode;/* code resultant de l'exécution
|
|
|
=0 -> ok,
|
|
|
>0 -> ok avec un code d'état,
|
|
|
<0 -> erreur */
|
|
|
struct {
|
|
|
unsigned short sqlerrml;/*longueur du message*/
|
|
|
char sqlerrmc[70];/*message d'erreur*/
|
|
|
} sqlerrm;
|
|
|
long sqlerrd[6];/* seul sqlerrd[2] est utilisé -> donne le nombre de lignes modifiées
|
|
|
UPDATE ou rajoutées par INSERT ou ramenées par un SELECT*/
|
|
|
char sqlwarn[8];/*sqlwarn[0] 'W’ -> warning*/
|
|
|
sqlwarn[0] = '' /*-> pas de warning*/
|
|
|
sqlwarn[1] = 'W'/*-> troncation numérique ou char*/
|
|
|
sqlwarn[2] = 'W'/*-> valeur Null est ignore */
|
|
|
sqlwarn[3] = 'W'/*-> plus de champs dans SELECT que de variables pour recevoir*/
|
|
|
sqlwarn[4] = 'W'/*-> toutes les lignes d'une table sont touchées (par DELETE ou
|
|
|
UPDATE par exemple)*/
|
|
|
sqlwarn[5] /* inutilisé */
|
|
|
sqlwarn[6] = 'W'/*-> Oracle a dû exécuter un rollback */
|
|
|
sqlwarn[7] = 'W'/*-> la donnée ramenée par un FETCH a été modifié
|
|
|
depuis que la clause SELECT a été executé */
|
|
|
} sqlca;
|
|
|
:var_hote INDICATOR :indicateur
|
|
|
:var_hote :indicateur
|
|
|
\end{verbatim}
|
|
|
|
|
|
%\includepdf[pages=-]{MEMO.pdf}
|
|
|
|
|
|
\end{document}
|
