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

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

HAjouteGroupe (en anglais HAddGroup)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
// Caractéristiques du nouveau groupe
HGroupe.Nom = "ADMIN2"
 HGroupe.Description = "Administrateurs de la base"
 HGroupe.Utilisateurs = "Flo "+ RC +"Julie"
// Ajout du groupe
SI HAjouteGroupe ( "MaConnexion" )= Vrai ALORS
   Info("Groupe ajouté")
FIN 

Début de la page

HAjouteLiaison (en anglais HAddLink)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...
MaLiaison est une description de liaison
// Description de la liaison "HABITE"
MaLiaison ..Nom = "HABITE"
MaLiaison ..FichierSource = ".\MaBase\ville.fic"
MaLiaison ..FichierRelié = ".\MaBase\client.fic"
MaLiaison ..CléSource = "NOMVILLE"
MaLiaison ..CléReliée = "VILLECLI"
// Liaison par défaut (0-1, 0-1)
HAjouteLiaison ( "MaConnexion" , MaLiaison)  


Début de la page

HAjouteUtilisateur (en anglais HAddUser)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
// Caractéristiques du nouvel utilisateur
HUtilisateur.Login = "FLO"
 HUtilisateur.MotDePasse = "FLOP"
 HUtilisateur.NomComplet = "Florence"
 HUtilisateur.Email = "Flo@monadresse.fr"
 HUtilisateur.Téléphone = "01.67.40.47.58"
 HUtilisateur.Groupe = "ADMIN"+ RC +"TEST"
 // Ajout de l'utilisateur
SI HAjouteUtilisateur (MaConnexion)= Vrai ALORS
   Info("Utilisateur ajouté")
FIN

Début de la page

HArreteServeur (en anglais HStopServer)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
 // Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
...

HArrêteServeur ( "MaConnexion" )


Début de la page

HCopieFichier (en anglais HCopyFile)

// Copie des fichiers du serveur vers le serveur
// avec renommage et changement de répertoire
 HCopieFichier (MaConnexion,".\sauvegarde\fichierclient_sov.fic", ...
               MaConnexion,".\fichierclient.fic")

Début de la page

HCopieFichier (en anglais HCopyFile)

// Copie des fichiers du poste client vers le poste serveur
 HCopieFichier (MaConnexion,"client.fic","","C:\Données\Client.fic" )


Début de la page

HCopieFichier (en anglais HCopyFile)

// Copie des fichiers du poste serveur vers le poste client
 HCopieFichier ( "" ,"C:\Données\Client.fic",MaConnexion,"client.fic" )


Début de la page

HDemarreServeur (en anglais HStartServer)

// Redémarrage du serveur 
HDémarreServeur ("PosteServeurCS")

// Redémarrage du serveur en utilisant un numéro de port
HDémarreServeur ("PosteServeurCS:4901")

// Redémarrage du serveur en utilisant un nom de serveur
 HDémarreServeur ("PosteServeurCS","Serveur Hyper File") 


Début de la page

HEtatServeur (en anglais HServerStatus)

// Etat d'un serveur identifié par le nom du poste
SELON HEtatServeur ("MonServeur:4905")
   CAS hArrête : Info("Serveur arrêté")
   CAS hDémarré : Info("Serveur démarré")
   CAS hInaccessible : Info("Serveur inaccessible")
FIN


Début de la page

HFinInterditAccesBaseDeDonnees (en anglais HEndNoDatabaseAccess)

SI HInterditAccèsBaseDeDonnées("MaConnexion","BaseClient") ALORS
   // Traitement spécifique
   ...
    HFinInterditAccèsBaseDeDonnées ("MaConnexion","BaseClient")
FIN 

Début de la page

HGereCache (en anglais HSetCache)

HGèreCache ( hTaillePage ,2000)

Début de la page

HInfoBlocage (en anglais HInfoLock)

ListeLock est une chaîne

// Liste tous les blocages du fichier CLIENT
ListeLock = HInfoBlocage (CLIENT)

// Liste tous les blocages des fichiers de la connexion CS
ListeLock = HInfoBlocage (CS)

// Liste tous les blocages du fichier CLIENT.FIC de la connexion CS
 ListeLock = HInfoBlocage (CS, ".\client.fic")
 

Début de la page

HInfoDroitBaseDeDonnees (en anglais HInfoDatabaseRights)

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é
      ...
      CAS hInterdit
      ...
      CAS hHérité
      ...
    FIN

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

Début de la page

HInfoDroitFichier (en anglais HInfoFileRights)

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 

Début de la page

HInfoDroitServeur (en anglais HInfoServerRights)

sDroit est une chaîne
// récupère le droit de création de base de données de
// l’utilisateur Dupont sur le serveur de la connexion CNX
sDroit = HInfoDroitServeur ("CNX","Dupont", hDroitCreationBDD )
SELON sDroit
     CAS hAutorisé
     ...
     CAS hInterdit
     ...
     CAS hHérité
     ...
FIN

Début de la page

HInfoFichier (en anglais HInfoFile)

Trace("Taille totale fichier Client : " + ...
         HInfoFichier(Client, hTailleTotale ))


Début de la page

HInfoGroupe (en anglais HInfoGroup)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
...
// Recherche les caractéristiques d'un groupe

Res est un booléen
Res = HInfoGroupe ("MaConnexion","Groupe_Test" )
SI  Res = Vrai ALORS
    Trace("Structure du groupe mise à jour")
    Trace("Nom du groupe :  "+ HGroupe.Nom)
    Trace("Description du groupe :  "+ HGroupe.Description)
    Trace("Utilisateurs du groupe :  "+ HGroupe.Utilisateurs)
FIN

 

Début de la page

HInfoProprieteBaseDeDonnees (en anglais HInfoDatabaseProperty)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...

NomPropriétaire est une chaîne
NomPropriétaire = HInfoPropriétéBaseDeDonnées ("MaConnexion", hPropriétaire ,"MaBaseDeDonnées")
SI NomPropriétaire <>"" ALORS 
   Trace("Propriétaire de la base de donnée : "+NomPropriétaire)
FIN


Début de la page

HInfoProprieteFichier (en anglais HInfoFileProperty)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...

NomPropriétaire est une chaîne
NomPropriétaire = HInfoPropriétéFichier ("MaConnexion", hPropriétaire ,...
                      "MaBaseDeDonnées","Client.fic")
SI NomPropriétaire <>"" ALORS 
   Trace("Propriétaire de la base de donnée : "+NomPropriétaire)
FIN
 

Début de la page

HInfoProprieteServeur (en anglais HInfoServerProperty)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...

NotesServeur est une chaîne
NotesServeur = HInfoPropriétéServeur ("MaConnexion", hNotes )
SI NotesServeur <>"" ALORS 
   Trace("Description du serveur : "+NotesServeur)
FIN


Début de la page

HInfoServeur (en anglais HInfoServer)

Trace(HInfoServeur("MaConnexion", hInfoMatériel )
// Renvoie "Intel Pentium"+TAB+"639Mo"+ RC
 


Début de la page

HInfoUtilisateur (en anglais HInfoUser)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
SI HInfoUtilisateur ( "MaConnexion" ,"Florence")= Vrai ALORS
   Info ("Voici les caractéristiques de l'utilisateur" + RC + ...
         "Login "+ HUtilisateur.Login + ...

         "Mot de passe : " + HUtilisateur.MotDePasse + ...
         "Nom Complet : " +HUtilisateur.NomComplet + ...
         "Email : "+ HUtilisateur.Email)
 FIN
 

Début de la page

HInterditAccesBaseDeDonnees (en anglais HNoDatabaseAccess)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "BaseClient", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
SI HInterditAccèsBaseDeDonnées ( "MaConnexion" , "BaseClient" ) ALORS
   Info ( "Il est impossible de se connecter à la base" )
FIN 


Début de la page

HListeBaseDeDonnees (en anglais HListDataBase)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
 // Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
...
 // Ajoute dans un champ les bases de données de la connexion "MaConnexion"
Saisie1 = HListeBaseDeDonnées ("MaConnexion")
 

Début de la page

HListeGroupe (en anglais HListGroup)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
 // Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
Résultat est une chaîne
Résultat = HListeGroupe ( "MaConnexion" )
 // Ajout des groupes dans un champ Liste
ListeAjoute ( Maliste , Résultat )
 

Début de la page

HListeUtilisateur (en anglais HListUser)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
 // Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
Résultat est une chaîne
Résultat = HListeUtilisateur ( "MaConnexion" )
// Ajout des utilisateurs dans un champ Liste
ListeAjoute(Maliste,Résultat)

Début de la page

HListeUtilisateurConnecte (en anglais HListConnectedUser)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
 // Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
 Résultat est une chaîne
Résultat = HListeUtilisateurConnecté ( "MaConnexion" )
// Ajout des utilisateurs dans un champ Liste
ListeAjoute(Maliste,Résultat)
  

Début de la page

HModifieDroitBaseDeDonnees (en anglais HModifyDatabaseRights)

// copie de droit d'un utilisateur à un autre
sDroits est une chaîne
sDroits = HInfoDroitBaseDeDonnées("MaConnexion","Dupont", ...
               hDroitLecture + hDroitAjout ,"MaBase")
HModifieDroitBaseDeDonnées ("MaConnexion","Durand",...
               hDroitLecture + hDroitAjout , sDroits, "MaBase")

Début de la page

HModifieDroitFichier (en anglais HModifyFileRights)

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

HModifieDroitFichier ("MaConnexion", "Durand", hDroitLecture + hDroitAjout , ...
                     sDroits, "MaBase", "MonFichier.fic")


Début de la page

HModifieDroitServeur (en anglais HModifyServerRights)

// copie de droit d'un utilisateur à un autre
sDroits est une chaîne
sDroits = HInfoDroitServeur("MaConnexion","Dupont", hDroitCreationBDD )

HModifieDroitServeur ("MaConnexion","Durand", hDroitCreationBDD ,sDroits)

Début de la page

HModifieGroupe (en anglais HModifyGroup)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...
// Modification des membres du groupe
HGroupe.Utilisateurs = "Flo "+ RC +"Julie"+ RC +"Luc"
// Modification du groupe
SI HModifieGroupe ( "MaConnexion","ADMIN" )= Vrai ALORS
   Info("Groupe modifié")
FIN 

Début de la page

HModifieProprieteBaseDeDonnees (en anglais HModifyDatabaseProperty)

ResModif est un booléen
 ResModif = HModifiePropriétéBaseDeDonnées ("MaConnexion",...
                                     hPropriétaire ,"Florence","MaBase")
SI ResModif = Vrai  ALORS
   Info("Modification effectuée")
FIN


Début de la page

HModifieProprieteFichier (en anglais HModifyFileProperty)

ResModif est un booléen
 ResModif = HModifiePropriétéFichier ("MaConnexion",...
                                     hPropriétaire ,"Florence","MaBase","Client.fic")
SI ResModif = Vrai  ALORS
   Info("Modification effectuée")
FIN  

Début de la page

HModifieProprieteServeur (en anglais HModifyServerProperty)

ResModif est un booléen
 ResModif = HModifiePropriétéServeur ("MaConnexion",...
                            hNotes ,"Serveur Hyper File Client/Serveur")
SI ResModif = Vrai  ALORS
   Info("Modification effectuée")
FIN  

Début de la page

HModifieUtilisateur (en anglais HModifieUser)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
SI HInfoUtilisateur ( "MaConnexion" ,"Florence")= Vrai ALORS
    // Modification des caractéristiques
   HUtilisateur.Groupe = "ADMIN"+ RC +"TEST"+ RC + "DOC"
    SI HModifieUtilisateur ( "MaConnexion " ,"Florence")= Vrai ALORS
      Info("Utilisateur modifié")
   FIN
FIN

Début de la page

HRAZGroupe (en anglais HResetGroup)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
...
HRAZGroupe ()
// Caractéristiques du nouveau groupe
HGroupe.Nom = "ADMIN"
 HGroupe.Description = "Administrateurs de la base"
 HGroupe.Utilisateurs = "Flo "+ RC +"Julie"
// Ajout de l'utilisateur
SI HAjouteGroupe( "MaConnexion" )= Vrai ALORS
   Info("Groupe ajouté")
FIN 

Début de la page

HRAZUtilisateur (en anglais HResetUser)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")

...
HRAZUtilisateur ()
// Caractéristiques du nouvel utilisateur
HUtilisateur.Login = "FLO"
 HUtilisateur.MotDePasse = "FLOP"
 HUtilisateur.NomComplet = "Florence"
HUtilisateur.Email = "Flo@monadresse.fr" HUtilisateur.Téléphone = "01.67.40.47.58"
HUtilisateur.Groupe = "ADMIN"+ RC +"TEST"
 // Ajout de l'utilisateur
SI HAjouteUtilisateur(MaConnexion)= Vrai ALORS
   Info("Utilisateur ajouté")
FIN 

Début de la page

HSupprimeBaseDeDonnees (en anglais HDeleteDatabase)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Suppression de la base de données
 HSupprimeBaseDeDonnées ("MaConnexion")

Début de la page

HSupprimeFichier (en anglais hDeleteFile)

// Supprime des fichiers du serveur
HSupprimeFichier (MaConnexion,".\sauvegarde\fichierclient_sov.fic")


Début de la page

HSupprimeFichier (en anglais hDeleteFile)

SI PAS HSupprimeFichier (Cx_test,".\Cedex.FIC") ALORS
   Erreur(HErreurInfo())
FIN

Début de la page

HSupprimeGroupe (en anglais HDeleteGroup)

// Description de la connexion
HDécritConnexion("MaConnexion", "Julie", "MotDePasse", ...
              "MonServeurHF", "MaBaseDeDonnées", ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion("MaConnexion")
// Association du fichier de données à la connexion

HChangeConnexion(Client, "MaConnexion")
...
SI HSupprimeGroupe ( "MaConnexion","Util1" )= Vrai ALORS
   Info("Groupe Util1 supprimé")
FIN 

Début de la page

HsupprimeLiaison (en anglais HDeleteLink)

MaLiaison est une description de liaison
// Description de la liaison "HABITE"
 MaLiaison ..Nom = "HABITE"
MaLiaison ..FichierSource = ".\MaBase\ville.fic"
MaLiaison ..FichierRelié = ".\MaBase\client.fic"
MaLiaison ..CléSource = "NOMVILLE"
MaLiaison ..CléReliée = "VILLECLI"
// Liaison par défaut (0-1, 0-1)
HSupprimeLiaison (MaConnexion, MaLiaison)  


Début de la page

HSupprimeUtilisateur (en anglais HDeleteUser)

// Description de la connexion
HDécritConnexion ( "MaConnexion" , "Julie" , "MotDePasse" , ...
              "MonServeurHF" , "MaBaseDeDonnées" , ...
              hAccèsHFClientServeur , HOLecture )
// Ouverture de la connexion
 HOuvreConnexion ( "MaConnexion" )
// Association du fichier de données à la connexion

HChangeConnexion ( Client , "MaConnexion" )
...
SI HSupprimeUtilisateur ( "MaConnexion","Flo" )= Vrai ALORS
   Info ( "Utilisateur Flo supprimé" )
FIN 

Début de la page