Procedure Habilitation AjouterHabilitationProprieteType(M : Nul Ou Caractere, T : Nul Ou Caractere, P : Nul Ou Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Les paramètres M, T et P identifient le type, le module et la propriété par son nom. Les paramètres CreationAutorisee, DestructionAutorisee, LectureAutorisee, ModificationAutorisee spécifient si l'habilitation est d'autoriser ou non respectivement la création d'une propriété dynamique, la destruction d'une propriété dynamique, la lecture d'une propriété et la modification d'une propriété.
L'habilitation au niveau d'un type est celle par défaut pour tous les objets du type. Pour un objet particulier de ce type, il est possible de lui gérer des habilitations spécifiques au moyen des procédures AjouterHabilitationProprieteObjet, LireHabilitationProprieteObjet, ModifierHabilitationProprieteObjet et SupprimerHabilitationProprieteObjet.
Si l'habilitation existe déjà ou si la propriété n'existe pas, l'exception CreationHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
C : Entier;
...
Fin Type
/****************************************************************/
Procedure Habilitation T.P()
/* Objet : Methode supportant les habilitations. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
R : Nul Ou Role;
Debut
...
R.AjouterHabilitationProprieteType("essai", "T", "C", Vrai, Faux, Vrai, Faux);
/* On ajoute l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |