Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Habilitations Defaut Final
/* Objet : Type des objets correspondant aux habilitations. */
/***************************************************************/
Prive :
HabilitationsMere : Nul Ou Habilitations Lecture Public;
RolePere : Nul Ou Role Lecture Public;
Selon Sorte : SorteHabilitation Lecture Public Faire
Cas HabilitationDuModule Pour HabilitationModule Faire
ModuleHabilite : Nul Ou Module Lecture Public;
ListeDHabilitationsAppels : Nul Ou ListeDe Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsTypes : Nul Ou ListeDe Nul Ou Habilitations Lecture Public;
Fin Cas
Cas HabilitationDuType Pour HabilitationType Faire
TypeHabilite : Nul Ou Type Lecture Public;
HabilitationCycleDeVie : Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsMethodes : Nul Ou ListeDe Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsProprietes : Nul Ou ListeDe Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsObjets : Nul Ou ListeDe Nul Ou Habilitations Lecture Public;
Fin Cas
Cas HabilitationDeLObjet Pour HabilitationObjet Faire
ObjetHabilite : Nul Ou Module Lecture Public;
HabilitationCycleDeVie : Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsMethodes : Nul Ou ListeDe Nul Ou HabilitationUnitaire Lecture Public;
ListeDHabilitationsProprietes : Nul Ou ListeDe Nul Ou HabilitationUnitaire Lecture Public;
Fin Cas
Fin Selon
Fin Type
Le type Habilitations ne possède pas de constructeur explicite.
Procedure AfficherHabilitations2(H : Nul Ou HabilitationUnitaire, M : Caractere)
/**************************************************************************/
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
Procedure AfficherHabilitations(H : Nul Ou Habilitations, M : Caractere="")
/*********************************************************************/
Variable
LH2 : Nul Ou ListeDe Nul Ou Habilitations;
H2 : Nul Ou Habilitations;
LH3 : Nul Ou ListeDe Nul Ou HabilitationUnitaire;
H3 : Nul Ou HabilitationUnitaire;
M2 : Caractere;
Debut
Selon H.Sorte Faire
Cas Pour HabilitationModule Faire
/* Il s'agit d'une liste d'habilitations au niveau d'un module. */
M2=H.HabilitationDuModule.ModuleHabilite.NomModule;
LH3=H.HabilitationDuModule.ListeDHabilitationsAppels;
Pour H3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherHabilitations2(H3, M2);
Fin Pour
LH2=H.HabilitationDuModule.ListeDHabilitationsTypes;
Pour H2=LH2.ParcoursAuDebut() JusquA LH2.DernierElement() Faire
AfficherHabilitations(H2,M2);
Fin Pour
Fin Cas
Cas Pour HabilitationObjet Faire
/* Il s'agit d'une liste d'habilitations au niveau d'un objet. */
M2=M+".?";
LH3=H.HabilitationDeLObjet.ListeDHabilitationsMethodes;
Pour H3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherHabilitations2(H3, M2);
Fin Pour
LH3=H.HabilitationDeLObjet.ListeDHabilitationsProprietes;
Pour H3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherHabilitations2(H3,M2);
Fin Pour
Fin Cas
Cas Pour HabilitationType Faire
/* Il s'agit d'une liste d'habilitations au niveau d'un type. */
M2=M+"."+H.HabilitationDuType.TypeHabilite.NomType;
LH3=H.HabilitationDuType.ListeDHabilitationsMethodes;
Pour H3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherHabilitations2(H3, M2);
Fin Pour
LH3=H.HabilitationDuType.ListeDHabilitationsProprietes;
Pour H3=LH3.ParcoursAuDebut() JusquA LH3.DernierElement() Faire
AfficherHabilitations2(H3,M2);
Fin Pour
LH2=H.HabilitationDuType.ListeDHabilitationsObjets;
Pour H2=LH2.ParcoursAuDebut() JusquA LH2.DernierElement() Faire
AfficherHabilitations(H2,M2);
Fin Pour
Fin Cas
Fin Selon
Fin Procedure
Befugnisse | Habilitations | 些矿山投资 | Habilitaciones | - | - | - | - |