void openCnx(){ String IPServer = cnxWin.ppCfgFile.Get("SERVERIP",NULL); port = cnxWin.ppCfgFile.Get("PORT",NULL); cnxWin.userIDEds.Clear(); cnxWin.userIDEds.SetFocus(); cnxWin.passwordEds.Clear(); if(cnxWin.ExecuteOK()){ user = AsString(cnxWin.userIDEds.GetText()); password = AsString(cnxWin.passwordEds.GetText()); if(AsString(cnxWin.serverIDEds.GetText())!= "")server = AsString(cnxWin.serverIDEds.GetText()); else server = IPServer; ppParamCnx.Add(user); ppParamCnx.Add(password); ppParamCnx.Add(server); ppParamCnx.Add(port); if(ppMainWinSession.Connect(user,password,"papyrus",server,ScanInt(port,NULL,10))){ ppMainWinBar.Set(THISBACK1(setppMainWinBar,false)); setMesUserContainer(1); Sql ppSql(ppMainWinSession); ppSql.Execute("select count(*) from maindoc"); if(ppSql[0]==0)Exclamation("Vous devez d'abord créer les types de documents de votre SMQ. Pressez F3"); } else { Exclamation("Impossible de se connecter à la base de données !"); ppParamCnx.Clear(); } } ppMainWinSession.Close(); }