Procedure Habilitation AjouterUtilisateur(U : Nul Ou Utilisateur);
Si l'utilisateur est déjà rattaché à un rôle, alors l'exception AjoutUtilisateurImpossible 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
- | - | - | - | - | - | - | - | - |