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 44
| SI SAI_Adresse~=""ALORS
Erreur("vous devez renseigner la machine qui contient le Hyper File")
RepriseSaisie(SAI_Adresse)
FIN
SI SAI_Port = 0 ALORS
Erreur("Vous devez renseigner le numero du port")
RepriseSaisie(SAI_Port)
FIN
SI SAI_Utilisateur~="" ALORS
Erreur("vous devez renseigner l'utilisateur a utiliser pour la connexion")
RepriseSaisie(SAI_Utilisateur)
FIN
MaConnexion est une Connexion
MaConnexion..Provider = hAccèsHFClientServeur
MaConnexion..Utilisateur = SAI_Utilisateur
MaConnexion..MotDePasse= SAI_Mot_Passe
MaConnexion..Serveur= SAI_Adresse+ ":"+ SAI_Port
MaConnexion..BaseDeDonnées= SAI_BD
MaConnexion..Cryptage=hCryptageNon
SI HOuvreConnexion(MaConnexion) =Vrai ALORS
Info("Connexion établie")
HChangeConnexion("*",MaConnexion)
HCréationSiInexistant("*")
INIEcrit("connexion","serveur",SAI_Adresse,fRepExe()+"\param.ini")
INIEcrit("connexion","base_de_données",SAI_BD,fRepExe()+"\param.ini")
INIEcrit("connexion","Utilisateur",Crypte(SAI_Utilisateur,"AAA"),fRepExe()+"\param.ini")
INIEcrit(("connexion","mot_de_passe",,Crypte(SAI_Mot_Passe,"AAA"),fRepExe()+"\param.ini"))
Ouvre (CNR)
Ferme()
SINON
Erreur("connexion non établie.....")
FIN
GLOBAL
HMode(hModeMulti)
HCréationSiInexistant("*")
MaConnexion est une Connexion |
Partager