Forums PostgreSQL.fr

//////////////////////////////////////////////////
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

Ouvre("GPWHistoriqueConnexion") 

PROCEDURE Initialisation()

// par défaut on filtre sur le projt en cours d'exécution
Application=ProjetInfo(piNomEXE)
// si c'est un exécutable qui est lancé
SI Application<>"" ALORS
	sNomCourt est une chaîne=fExtraitChemin(Application,fFichier)
	Application=sNomCourt
	// si c'est un GO sous l'éditeur
SINON
	Application=ProjetInfo()
FIN
// exécute le code de clic du bouton Filtre
ExécuteTraitement(Filtre,trtClic)
// exécution de la requête
sSQL est une chaîne=[
SELECT COUNT(*) AS NbConnexion, Left(GPWHISTORIQUECONNEXION.HeureConnexion,2) AS HeureJournee
FROM GPWHISTORIQUECONNEXION
WHERE GPWHISTORIQUECONNEXION.DateConnexion='%1'
GROUP BY Left(GPWHISTORIQUECONNEXION.HeureConnexion,2)
ORDER BY Left(GPWHISTORIQUECONNEXION.HeureConnexion,2)
]
sSQL=ChaîneConstruit(sSQL,DateDuJour())
SI PAS HExécuteRequêteSQL(gReqConnexion,sSQL) ALORS
	Erreur(HErreurInfo())
SINON
	// affichage du résultat de la requête dans le graphe
grSourceSérie(GRF_Connexion,1,grRubrique,gReqConnexion,"NbConnexion")
	grSourceEtiquetteCatégorie(GRF_Connexion,grRubrique,gReqConnexion,"HeureJournee")
	grDessine(GRF_Connexion)
FIN