Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Role Defaut Final
/* Objet : Type des objets correspondant aux roles. */
/***************************************************************/
Prive :
Nom : Caractere Lecture Public;
Description : Caractere Lecture Public;
Numero : Entier Lecture Public;
RolePere : Nul Ou Role Lecture Public;
ListeDUtilisateurs : Nul Ou ListeDe Nul Ou Utilisateur;
ListeDHabilitations : Nul Ou ListeDe Nul Ou Habilitations;
Public :
Constructeur(NomRole : Caractere, DescriptionRole : Caractere);
Procedure Supprimer();
Procedure HeriterDuRole(R : Nul Ou Role);
Procedure AjouterUtilisateur(U:Nul Ou Utilisateur);
Procedure SupprimerUtilisateur(U:Nul Ou Utilisateur);
Procedure AjouterHabilitationAppel(A : Nul Ou Appel, ExecutionAutorisee : Booleen);
Procedure ModifierHabilitationAppel(A : Nul Ou Appel, ExecutionAutorisee : Booleen);
Procedure LireHabilitationAppel(A : Nul Ou Appel, ExecutionAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationAppel(A : Nul Ou Appel);
Procedure AjouterHabilitationType(T : Nul Ou Type, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen);
Procedure ModifierHabilitationType(T : Nul Ou Type, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen, AppliquerAuxObjets : Booleen=Faux);
Procedure LireHabilitationType(T : Nul Ou Type, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie, ExecutionAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationType(T : Nul Ou Type, AppliquerAuxObjets : Booleen=Faux);
Procedure AjouterHabilitationMethodeType(A : Nul Ou Appel, ExecutionAutorisee : Booleen);
Procedure ModifierHabilitationMethodeType(A : Nul Ou Appel, ExecutionAutorisee : Booleen, AppliquerAuxObjets : Booleen=Faux);
Procedure LireHabilitationMethodeType(A : Nul Ou Appel, ExecutionAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationMethodeType(A : Nul Ou Appel, AppliquerAuxObjets : Booleen=Faux);
Procedure AjouterHabilitationProprieteType(T : Nul Ou Type, N : Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Procedure ModifierHabilitationProprieteType(T : Nul Ou Type, N : Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, AppliquerAuxObjets : Booleen=Faux);
Procedure LireHabilitationProprieteType(T : Nul Ou Type, N : Caractere, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee:Booleen Sortie, ModificationAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationProprieteType(T : Nul Ou Type, N : Caractere, AppliquerAuxObjets : Booleen=Faux);
Procedure AjouterHabilitationObjet(O : Nul Ou Objet, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen);
Procedure ModifierHabilitationObjet(O : Nul Ou Objet, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen);
Procedure LireHabilitationObjet(O : Nul Ou Objet, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie, ExecutionAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationObjet(O : Nul Ou Objet);
Procedure AjouterHabilitationMethodeObjet(O : Nul Ou Objet, A : Nul Ou Appel);
Procedure ModifierHabilitationMethodeObjet(O : Nul Ou Objet, A : Nul Ou Appel, ExecutionAutorisee : Booleen);
Procedure LireHabilitationMethodeObjet(O : Nul Ou Objet, A : Nul Ou Appel, ExecutionAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationMethodeObjet(O : Nul Ou Objet, A : Nul Ou Appel);
Procedure AjouterHabilitationProprieteObjet(O : Nul Ou Objet, N : Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Procedure ModifierHabilitationProprieteObjet(O : Nul Ou Objet, N : Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Procedure LireHabilitationProprieteObjet(O:Nul Ou Objet, N : Caractere, CreationAutorisee:Booleen Sortie, DestructionAutorisee:Booleen Sortie, LectureAutorisee:Booleen Sortie, ModificationAutorisee:Booleen Sortie);
Procedure SupprimerHabilitationProprieteObjet(O : Nul Ou Objet, N : Caractere);
Procedure AjouterHabilitationVariable(M : Nul Ou Module, N : Caractere, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Procedure ModifierHabilitationVariable(M : Nul Ou Module, N : Caractere, N : Caractere, LectureAutorisee : Booleen, ModificationAutorisee : Booleen);
Procedure LireHabilitationVariable(M : Nul Ou Module, N : Caractere, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie);
Procedure SupprimerHabilitationVariable(M : Nul Ou Module, N : Caractere);
Procedure FixerQuotaEntrepot(E : Nul Ou Entrepot, QuotaMaximal : Entier);
Fonction LireQuotaEntrepot(E : Nul Ou Entrepot) Retourner Entier;
Procedure AjouterQuotaAppel(A : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure ModifierQuotaAppel(A : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure LireQuotaAppel(A : Nul Ou Appel, QuotaMaximal : Entier Sortie, QuotaProportionnel : Reel Sortie);
Procedure SupprimerQuotaAppel(A : Nul Ou Appel);
Procedure AjouterQuotaType(T : Nul Ou Type, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure ModifierQuotaType(T : Nul Ou Type, QuotaMaximal : Entier, QuotaProportionnel : Reel, AppliquerAuxObjets : Booleen);
Procedure LireQuotaType(T : Nul Ou Type, QuotaMaximal : Entier Sortie, QuotaProportionnel : Reel Sortie);
Procedure SupprimerQuotaType(T : Nul Ou Type, AppliquerAuxObjets : Booleen);
Procedure AjouterQuotaMethodeType(M : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure ModifierQuotaMethodeType(M : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel, AppliquerAuxObjets : Booleen);
Procedure LireQuotaMethodeType(M : Nul Ou Appel, QuotaMaximal : Entier Sortie, QuotaProportionnel : Reel Sortie);
Procedure SupprimerQuotaMethodeType(M : Nul Ou Appel, AppliquerAuxObjets : Booleen);
Procedure AjouterQuotaObjet(O : Nul Ou Objet, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure ModifierQuotaObjet(O : Nul Ou Objet, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure LireQuotaObjet(O : Nul Ou Objet, QuotaMaximal : Entier Sortie, QuotaProportionnel : Reel Sortie);
Procedure SupprimerQuotaObjet(O : Nul Ou Objet);
Procedure AjouterQuotaMethodeObjet(O : Nul Ou Objet, M : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure ModifierQuotaMethodeObjet(O : Nul Ou Objet, M : Nul Ou Appel, QuotaMaximal : Entier, QuotaProportionnel : Reel);
Procedure LireQuotaMethodeObjet(O : Nul Ou Objet, M : Nul Ou Appel, QuotaMaximal : Entier Sortie, QuotaProportionnel : Reel Sortie);
Procedure SupprimerQuotaMethodeObjet(O : Nul Ou Objet, M : Nul Ou Appel);
Fin Type
Le type Habilitations possède de constructeur explicite. Les paramètres NomRole et DescriptionRole permettent de spécifier respectivement les noms et les descriptions du rôle à créer.
Procedure AfficherUtilisateur(R : Nul Ou Role)
/******************************************/
Variable
U : Nul Ou ListeDe Nul Ou Utilisateur;
Debut
Si R.RolePere!=Nul Alors
AfficherUtilisateur(R.RolePere);
Fin Si
Pour U=R.ListeDUtilisateurs.ParcoursAuDebut() JusquA R.ListeDUtilisateurs.DernierElement() Faire
Ecran.Ecrire(U.Nom+":"+U.Description);
Fin Pour
Fin Procedure
Rolle | Role | 角色 | Papel | - | - | - | - |