Up ! Security Manager

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=habilitation.upl

Revenir en haut de la page...

habilitation

Revenir en haut de la page...

Source Composant "Exemple d'emploi des habilitations" Version 1.0.0;

Public :
/*****/
Type T1 Defaut Habilitation
/*************************/
Public :
/******/ Public :
/******/
Fin Type

Type T2 Defaut
/************/
Public :
/******/ Public :
/******/
Fin Type

Variable
/******/
Public :
/******/ Procedure T1.Ecrire()
/********************/
Debut
Ecran.Ecrire("T1.Ecrire");
Fin Procedure

Procedure Habilitation T2.Ecrire()
/********************************/
Debut
Ecran.Ecrire("T2.Ecrire");
Fin Procedure

Procedure Habilitation P()
/************************/
Debut
Ecran.Ecrire("P();");
Fin Procedure

Procedure TesterHabilitations2(VV1 : Nul Ou T1, VV2 : Nul Ou T2)
/**********************************************************/
Debut
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException AttraperException TraiterException Fin AttraperException AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
AttraperException
TraiterException Fin AttraperException

AttraperException TraiterException Fin AttraperException
AttraperException< TraiterException Fin AttraperException
Fin Procedure

Procedure TesterHabilitations()
/*****************************/
Debut
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException

TesterHabilitations2(V1, V2);
AttraperException TraiterException Fin AttraperException
AttraperException TraiterException Fin AttraperException
Fin Procedure

Principal
/*******/
Variable
/******/ Debut
TesterHabilitations();

UtilisateurAdministrateur.ModifierMotDePasse("", "Administrateur");
UtilisateurSpoule.ModifierMotDePasse("", "Spoule");

Connecter("Administrateur", "Administrateur");
TesterHabilitations();

R1=Role("Nom du role 1", "Description du role 1");
R1.AjouterHabilitationAppel(P, Faux);
R1.AjouterHabilitationType(T1, Faux, Faux, Faux, Faux, Faux);
R1.AjouterHabilitationMethodeType(T1.Ecrire, Faux);
R1.AjouterHabilitationProprieteType(T1, "CA", Faux, Faux, Faux, Faux);
R1.AjouterHabilitationProprieteType(T1, "CB", Faux, Faux, Faux, Faux);
R1.AjouterHabilitationProprieteType(T1, "CC", Faux, Faux, Faux, Faux);
R1.AjouterHabilitationProprieteType(T1, "CD", Faux, Faux, Faux, Faux);

R2=Role("Nom du role 2", "Description du role 2");
R2.AjouterHabilitationType(T2, Faux, Faux, Faux, Faux, Faux);
R2.AjouterHabilitationMethodeType(T2.Ecrire, Faux);
R2.AjouterHabilitationProprieteType(T2, "CA", Faux, Faux, Faux, Faux);
R2.AjouterHabilitationProprieteType(T2, "CB", Faux, Faux, Faux, Faux);
R2.AjouterHabilitationProprieteType(T2, "CC", Faux, Faux, Faux, Faux);
R2.AjouterHabilitationProprieteType(T2, "CD", Faux, Faux, Faux, Faux);
R2.HeriterDuRole(R1);

U=Utilisateur("scott", "scott", "tiger");
R2.AjouterUtilisateur(U);

Connecter("scott", "tiger");

TesterHabilitations();
R1.ModifierHabilitationAppel(P, Vrai);
R1.ModifierHabilitationType(T1, Vrai, Vrai, Vrai, Vrai, Vrai);
R1.ModifierHabilitationMethodeType(T1.Ecrire, Vrai);
R1.ModifierHabilitationProprieteType(T1, "CA", Vrai, Vrai, Vrai, Vrai);
R1.ModifierHabilitationProprieteType(T1,"CB", Vrai, Vrai, Vrai, Vrai);
R1.ModifierHabilitationProprieteType(T1, "CC", Vrai, Vrai, Vrai, Vrai);
R1.ModifierHabilitationProprieteType(T1,"CD", Vrai, Vrai, Vrai, Vrai);
R2.ModifierHabilitationType(T2, Vrai, Vrai, Vrai, Vrai, Vrai);
R2.ModifierHabilitationProprieteType(T2, "CA", Vrai, Vrai, Vrai, Vrai);
R2.ModifierHabilitationProprieteType(T2, "CB", Vrai, Vrai, Vrai, Vrai);
R2.ModifierHabilitationProprieteType(T2, "CC", Vrai, Vrai, Vrai, Vrai);
R2.ModifierHabilitationProprieteType(T2, "CD", Vrai, Vrai, Vrai, Vrai);

W1=T1();
W2=T2();

R2.ModifierHabilitationType(T2, Faux, Faux, Faux, Faux, Faux);
R2.ModifierHabilitationProprieteType(T2, "CA", Faux, Faux, Faux, Faux);
R2.ModifierHabilitationProprieteType(T2, "CB", Faux, Faux, Faux, Faux);
R2.ModifierHabilitationProprieteType(T2, "CC", Faux, Faux, Faux, Faux);
R2.ModifierHabilitationProprieteType(T2, "CD" ,Faux,Faux,Faux,Faux);
R2.AjouterHabilitationObjet(W2, Vrai, Vrai, Vrai, Vrai, Vrai);
R2.AjouterHabilitationMethodeObjet(W2, T2.Ecrire, Vrai);
R2.AjouterHabilitationProprieteObjet(W2, "CA", Vrai, Vrai, Vrai, Vrai);
R2.AjouterHabilitationProprieteObjet(W2, "CB", Vrai, Vrai, Vrai, Vrai);
R2.AjouterHabilitationProprieteObjet(W2, "CC", Vrai, Vrai, Vrai, Vrai);
R2.AjouterHabilitationProprieteObjet(W2, "CD", Vrai, Vrai, Vrai, Vrai);

TesterHabilitations2(W1, W2);
R1.Supprimer();
R2.Supprimer();
U.Supprimer();
Fin Principal

Revenir en haut de la page...