1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| SI gpwOuvreConnexion("MaConnexion", "Nom utilisateur", "Mot de passe","localhost", "cm_db", hAccèsNatifPostgreSQL) = Faux ALORS
Erreur(ErreurInfo())
SINON // Les fichiers du groupware utilisateur
// sont automatiquement créés
// si l'utilisateur a les droits sur PostgreSQL.
nRes est un entier = gpwOuvre()
// Si le login a échoué
SI nRes <> gpwOk ALORS
SELON nRes
CAS gpwErreur :
Erreur("Erreur à l'initialisation.", ErreurInfo())
CAS gpwUtilisateurInconnu :
Erreur("Utilisateur inconnu.")
CAS gpwMotPasseInvalide :
Erreur("Mot de passe invalide.")
CAS gpwAnnulation :
//quitter l'application
FinProgramme()
FIN
FIN
// Utilisation de la même connexion pour tous les fichiers de données
HChangeConnexion("*", "MaConnexion")
FIN |
Partager