LectureAutorisee : Booleen Virtuel Lecture Public Trace;
Il s'agit donc de l'habilitation unitaire pour :
Avant la lecture de la propriété d'un objet de ce type, 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
- | - | - | - | - | - | - | - | - |