pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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 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 droit 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")