Fonctions gpw

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

gpwInitAnalyse (en anglais gpwInitAnalysis)

// initialisation de l'analyse du groupware utilisateur
SI PAS gpwInitAnalyse () ALORS
Erreur(ErreurInfo())
FIN

Début de la page

gpwLogin (en anglais gpwLogin)

//récupération du login dans une fenêtre perso
Login est une chaîne
MotPasse est une chaîne
Ouvre( MaFenetreLogin , Login , MotPasse )
//vérification du login
nRes est un entier = gpwLogin ( Login , MotPasse )
// si le login a échoué
SI nRes <> gpwOk ALORS
   SELON nRes
      CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.")
      CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
      CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
   FIN
   FinProgramme ()
FIN
// récupération du prénom de l?utilisateur
Prenom est une chaîne = gpwRecupInfoUtilisateur ( gpwPrenom )
Info( "Bienvenue" + Prenom )

Début de la page

gpwOuvre (en anglais gpwOpen)

// ouverture de la fenêtre de login du groupware utilisateur
nRes est un entier= gpwOuvre ("c:\GpwUtilisateur")
// si le login a échoué
SI nRes<> gpwOk ALORS
   SELON nRes
      CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.")
      CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
      CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
   FIN
   FinProgramme()
FIN
// récupération du prénom de l'utilisateur
Prenom est une chaîne = gpwRecupInfoUtilisateur ( gpwInfoPrenom )
Info( "Bienvenue" + Prenom )

Début de la page

GPwOuvreConnexion (en anglais gpwOpenConnection)

// Utilisation des fichiers du groupware utilisateur avec
// une base MySQL
SI PAS gpwOuvreConnexion("gpwCx","Test","mysql",...
                         "Serveur_apollon","TEST", hAccèsNatifMySQL ) ALORS
   Erreur(ErreurInfo())
SINON
    // Les fichiers du Groupware utilisateur sont automatiquement créés
     // si l'utilisateur à les droits sur MySQL.
    nRes est un entier= gpwOuvre()
    // si le login a échoué
    SI nRes<> gpwOk ALORS
       SELON nRes
           CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.",ErreurInfo())
           CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
           CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
       FIN
    FIN
    // Utilisation de la même connexion pour tous les fichiers de données
    HChangeConnexion("*","gpwCx")
    Trace(HNbEnr(CEDEX))
FIN

Début de la page

gpwRecupInfoFichier (en anglais gpwGetFileInfo)

// récupération du répertoire du fichier des utilisateurs
RepUtilisateur est une chaîne = gpwRecupInfoFichier ( gpwInfoRepUtilisateur )

Début de la page

gpwRecupInfoUtilisateur (en anglais gpwGetUserInfo)

// récupération du prénom de l'utilisateur
Prenom est une chaîne = gpwRecupInfoUtilisateur ( gpwInfoPrenom )

Début de la page