Aide sur notre procedure d'affichage |
Sujet: Aide sur notre procedure d'affichage par Anonyme sur 25/9/2005 23:29:46 Bonsoir Nous sommes un groupe d'enseignants au primaire qui developpent une application de gestion des examens. On a créé un procedure pour afficher le nombre de garçons et filles par etablissement ayant réussi à l'essai d'examen scolaire. Cette procedure actuellement ne lit pas tous les candidats admis avant d'afficher le résultat.C'est seulement quand on lit le dernier etablissement qu'on obtient un compte correct. ça fait 4 jours et nuits on travaille la dessus. On sollicite votre aide pour déceler ce qui n'est pas correct. Merci de nous aider voici la procédure ----------------------------------------------------------- PROCEDURE Dotreatement(Etabmeno,Nbfilles est un entier,Nbgarcons est un entier,pannee,stotal est un entier) petab est une chaîne=Etabmeno padmis est une chaîne="A" pmale est une chaîne="M" pfemale est une chaîne="F" sLigne est une chaîne sSeparateur est une chaîne = TAB Nbfilles =0 Nbgarcons =0 stotal =0 etabSql est une chaîne Rsetab est une Source de Données etabSql = "SELECT Etablissement AS Etablissement, Neleve AS Neleve, Noessaidept As Noessaidept, Anneescolaire AS Anneescolaire, Sexe AS Sexe, Admis AS Admis"+ " FROM EssaiDepartementalentreesixieme " + " WHERE Anneescolaire = '" + pannee + "' AND Etablissement ='"+petab+ "' AND Admis='"+padmis+ "' " //HExécuteRequête(Reqdepesadetab, hRequêteDéfaut, pannee, Etabmeno) SI PAS HExécuteRequêteSQL(Rsetab,hRequêteDéfaut,etabSql) ALORS Erreur(HErreurInfo()) RENVOYER Faux FIN HLitPremier(Rsetab) TANTQUE PAS HEnDehors() //Ici On affiche les admis par sexe d'un etablissement SI Rsetab.sexe="M" ALORS Nbgarcons+=1 FIN SI Rsetab.sexe="F" ALORS Nbfilles+=1 FIN HLitSuivant(Rsetab) Garcons=Nbgarcons Filles=Nbfilles stotal=Filles+Garcons Total=stotal FIN Info("Etablissement:",Etabmeno,"Filles4:",Filles,"Garcons4:",Garcons,"Total4:",stotal) sLigne=Etabmeno+sSeparateur +Filles +sSeparateur +Garcons+sSeparateur +Total TableAjoute(tblreusetab,sLigne) // TableAjoute(tblreusetab,"") ----------------------------------------------------------- |