Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type HabilitationUnitaire Defaut Final
/* Objet : Type des objets correspondant aux habilitations. */
/***************************************************************/
Prive :
HabilitationsMere : Nul Ou Habilitations Lecture Public;
Nom : Nul Ou Caractere Lecture Public;
CreationAutorisee : Booleen Lecture Public;
DestructionAutorisee : Booleen Lecture Public;
LectureAutorisee : Booleen Lecture Public;
ModificationAutorisee : Booleen Lecture Public;
ExecutionAutorisee : Booleen Lecture Public;
Fin Type
Le type HabilitationUnitaire 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
GrundlegenderBefugnis | ElementaryHabilitation | 基本的矿山投资 | HabilitacionElemental | - | - | - | - |