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
|
smyConnexion est une chaîne = "ma_connexion"
sLibelléConnexion est une chaîne = "Connexion au serveur"
sTypeConnexion est une chaîne = "WinDevClientServeurHF"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = INILit("connection","Serveur","",fRepExe()+"\config.ini")
sNomBase est une chaîne = INILit("connection","BaseDeDonnées","",fRepExe()+"\config.ini")
sNomUtilisateur est une chaîne = "USER"
sMotDePasse est une chaîne = "PASS"
sInfoEtendus est une chaîne = ";Cryptage = aucun;Initial Catalog=SYGASIG_LD;Compression=aucun"
SI gpwOuvreConnexion(smyConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès,sInfoEtendus)=Faux ALORS
Erreur(HErreurInfo())
SINON
ntest est un entier = gpwOuvre()
SI ntest <> gpwOk ALORS
SELON ntest
CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo())
CAS gpwUtilisateurInconnu : Erreur("Utilisateur non enregistré.")
CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
FIN
FinProgramme()
FIN
HChangeConnexion(File1,smyConnexion)
HChangeConnexion(File2,smyConnexion)
HChangeConnexion(File3,smyConnexion)
FIN |
Partager