Aide sur notre procedure d'affichage

Posté par Anonyme le 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,"")
-----------------------------------------------------------