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
| sServeur est une chaîne
sBase est une chaîne
sConnexion est une chaîne
sUser est une chaîne
sPassWord est une chaîne
Mael est une chaîne
// Lit la valeur 'SERVEUR'
sServeur = INILit("CONFIG_CONNEXION", "SERVEUR", "192.168.1.2", fRepExe()+"\AccèServeur.ini")
sBase = INILit("CONFIG_CONNEXION", "BASE", "Nos finances", fRepExe()+"\AccèServeur.ini")
sConnexion = INILit("CONFIG_CONNEXION", "CONNEXION", "MaConnexion1", fRepExe()+"\AccèServeur.ini")
sUser = INILit("CONFIG_CONNEXION", "USER", "Admin", fRepExe()+"\AccèServeur.ini")
sPassWord = INILit("CONFIG_CONNEXION", "PASSWORD", "", fRepExe()+"\AccèServeur.ini")
SI ErreurDétectée ALORS
Erreur()
FIN
HDécritConnexion(sConnexion,sUser,sPassWord,sServeur,sBase,hAccèsHFClientServeur,hOLectureEcriture,"")
HChangeConnexion("*",sConnexion)
HOuvreConnexion(sConnexion)
//gpwOuvreConnexion(sConnexion,sUser,sPassWord,sServeur,sBase,hAccèsHFClientServeur,hOLectureEcriture,"")
HCréationSiInexistant(COMPTE)
HCréationSiInexistant(DEVISE)
HCréationSiInexistant(OPERATION)
HCréationSiInexistant(PREVISION)
HCréationSiInexistant(AGENT)
HCréationSiInexistant(TYPE_POSTE)
HCréationSiInexistant(TYPE_COMPTE)
HGèreIntégrité("*","*",hCardinalité+hEnModification+hEnSuppression,Faux) |
Partager