CreationAutorisee : Booleen Virtuel Lecture Public Trace;
Si les utilisateurs rattachés au rôle père sont autorisés, alors la propriété CreationAutorisee en lecture seule a pour valeur Vrai. Si ces utilisateurs ne sont pas autorisés, la propriété a pour valeur Faux.
Avant la création d'un objet de ce type ou de la propriété dynamique, cette propriété est testée. Si l'utilisateur de connexion n'est pas habilité, alors l'exception HabilitationViolee est envoyée.
/***************************************************************/
Procedure AfficherHabilitations2(H : Nul Ou HabilitationUnitaire, M : Caractere)
/* Objet : Affiche les habilitations. */
/***************************************************************/
Variable
/******/
M2 : Caractere;
Debut
Si H.Nom != Nul Alors
M2=M+"."+H.Nom+":";
Sinon
M2=M+":";
Fin Si
Si H.CreationAutorisee Alors
M2+=" C";
Fin Si
Si H.DestructionAutorisee Alors
M2+=" D";
Fin Si
Si H.LectureAutorisee Alors
M2+=" L";
Fin Si
Si H.ModificationAutorisee Alors
M2+=" M";
Fin Si
Si H.ExecutionAutorisee Alors
M2+=" E";
Fin Si
Ecran.Ecrire(M2+"\n");
Fin Procedure
- | - | - | - | - | - | - | - | - |