|
|
|
|
|
|
|
|
|
|
- Récupération des droits des utilisateurs sur une base de données et copie de ces droits
HInfoDroitBaseDeDonnées (Exemple)
Récupération des droits des utilisateurs sur une base de données et copie de ces droits L'exemple suivant permet de : - connaître les droits par défaut d'un utilisateur
- connaître les droits effectifs d'un utilisateur
- copier les droits par défaut d'un utilisateur sur un autre utilisateur
sDroits est une chaîne
sUnDroit est une chaîne
// Récupère les droits de lecture et d'ajout de
// l'utilisateur Dupont sur la base de données MaBase
sDroits = HInfoDroitBaseDeDonnées("CNX", "Dupont" , ...
hDroitLecture+hDroitAjout, "MaBase")
sUnDroit = ExtraitChaîne(sDroits, rangPremier, TAB)
TANTQUE sUnDroit<>EOT
SELON sUnDroit
CAS hAutorisé
// Traitement
CAS hInterdit
// Traitement
CAS hHérité
// Traitement
FIN
sUnDroit = ExtraitChaîne(sDroits, rangSuivant, TAB)
FIN
// Récupère les droits effectifs de lecture et d'ajout de
// l'utilisateur Dupont sur la base de données MaBase
sDroits = HInfoDroitBaseDeDonnées("CNX", "Dupont" , ...
hDroitLecture+hDroitAjout, "MaBase", Vrai)
sUnDroit = ExtraitChaîne(sDroits, rangPremier, TAB)
TANTQUE sUnDroit<>EOT
SELON sUnDroit
CAS hAutorisé
// Traitement
CAS hInterdit
// Traitement
FIN
sUnDroit = ExtraitChaîne(sDroits, rangSuivant, TAB)
FIN
// Copie de droits d'un utilisateur à un autre
sDroits1 est une chaîne
sDroits1 = HInfoDroitBaseDeDonnées("CNX", "Dupont", ...
hDroitLecture + hDroitAjout, "MaBase")
HModifieDroitBaseDeDonnées("CNX", "Durand",...
hDroitLecture + hDroitAjout, sDroit1, "MaBase")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|