Procedure Habilitation SupprimerUtilisateur(U : Nul Ou Utilisateur);
Si l'utilisateur n'est pas rattaché au rôle, alors l'exception SuppressionUtilisateurImpossible est envoyée.
Principal
/*******/
Variable
/******/
U : Nul Ou Utilisateur;
R : Nul Ou Role;
Debut
...
U=Utilisateur("scott", "Utilisateur de demonstration", "tiger");
R.AjouterUtilisateur(U);
/* On ajoute l'utilisateur. */
...
R.SupprimerUtilisateur(U);
/* On supprime l'utilisateur. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |