Exemple d'utilisation de la commande HInfoDroitFichier

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

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 le fichier MonFichier.fic de la basse de données MaBase
sDroits = HInfoDroitFichier ("CNX", "Dupont" , ...
           hDroitLecture + hDroitAjout , "MaBase", "MonFichier.fic")
sUnDroit = ExtraitChaîne(sDroits, rangPremier , TAB )
TANTQUE sUnDroit <> EOT
   SELON sUnDroit
      CAS hAutorisé
      ...
      CAS hInterdit
      ...
      CAS hHérité
       ...
    FIN

sUnDroit = ExtraitChaîne(sDroits, rangSuivant , TAB )

FIN

// récupère les droits finaux de lecture et d’ajout de l’utilisateur Dupont
// sur le fichier MonFichier.fic de la basse de données MaBase
sDroits = HInfoDroitFichier ("CNX", "Dupont", ...
hDroitLecture + hDroitAjout , "MaBase", "MonFichier.fic", Vrai)

sUnDroit = ExtraitChaîne(sDroits, rangPremier , TAB )

TANTQUE sUnDroit <> EOT

   SELON sUnDroit
      CAS hAutorisé
      ...
      CAS hInterdit
       ...
    FIN
   sUnDroit = ExtraitChaîne(sDroits, rangSuivant , TAB )
FIN

// copie de droit d'un utilisateur à un autre
sDroits1 est une chaîne
sDroits1 = HInfoDroitFichier ("CNX", "Dupont" , ...
           hDroitLecture + hDroitAjout ,"MaBase","MonFichier.fic")
HModifieDroitFichier("CNX", "Durand", hDroitLecture + hDroitAjout , ...
             sDroits1 , "MaBase", "MonFichier.fic")