1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| //////////////////////////////////////////////////
sValeur est une chaîne = "localhost"
// Modifie la valeur 'ADRESSE'
INIEcrit("RESEAU", "ADRESSE", sValeur, "C:\Mes Projets\GS-hamdi\config.ini")
SI ErreurDétectée ALORS
Erreur()
FIN
//connexion à la base
sAdresseip est une chaîne
/////////////////////////////////////////////
// je lis l'adresse reseau dans mon fichier init
sAdresseip = INILit("RESEAU","ADRESSE", "", fRepEnCours()+"\config.ini")
// je gere le groupeware avec .
// cette première partie permet de génerer les tables du groupeware dans ma base de données. Il en fait également une gestion automatique.
// gpwCx : c'est le nom que je donne à ma connexion pour les table de groupeware .
// gpwCx : c'est pour dire : "groupeware Connection"
SI gpwOuvreConnexion("gpwCx","postgres","sakhri",sAdresseip,"DataBaseHamdi",hAccèsNatifPostgreSQL) = Faux ALORS
Erreur(ErreurInfo())
SINON
// Les fichiers du Groupware utilisateur sont automatiquement créés
// si l'utilisateur a les droits sur postgresql.
nRest est un entier = gpwOuvre()
// si le login a échoué
SI nRest <> gpwOk ALORS
SELON nRest
CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo())
CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
FIN
SINON
// cnxgres : connexion que je peut utiliser dans mon projet .,cnxgres : juste pour dire : "ma connexion à postgresql"
SI PAS HDécritConnexion("cnxgres","postgres","sakhri",sAdresseip,"DataBaseHamdi",hAccèsNatifPostgreSQL,hOLectureEcriture) ALORS
Info("Connexion echouée")
SINON
HChangeConnexion("*","cnxgres")
HOuvre("*")
FIN
FIN
FIN
/////////////////////////////////////////////////////////////////////////// |
Partager