Téléchargé 21 fois
Vote des utilisateurs
4
0
Détails
Licence : Libre
Mise en ligne le 15 décembre 2018
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Le lycéen
Le lycéen
Le lycéen est une application basique réalisée avec:
-Lazarus 1.8 RC5
-Firebird 2.5.7 32
-Flamerobin
-Paquets installés: LazReport, BGRA Controls.
ayant pour but la gestion des notes des élèves dans les
établissements éducatifs lycées CEMs Institues etc.
Cette gestion est l'objet de:
-Inscription des notes.
-Calcul des moyennes de ces notes.
-Affichage et impression des bulletins.
-L'établissement offre plusieurs options(spécialités).
-Chaque option contient plusieurs classes.
-Chaque classe contient plusieurs élèves.
-Afin d'établir un bulletin, on a besoin de tous ces paramètres
mais aussi de l'année de l'opération.
Nos ressources disponibles
Bonsoir,
J'allais achevé ce travail, mais j'ai rencontré un problème sérieux au niveau de Lazreport:
-Dans le formulaire principal, une cellule laissée à blanc veut dire que le candidat
n'a pas fait l'examen.
par contre si la cellule contient la valeur zéro(0), le candidat a fait son examen
théoriquement ça ne doit pas donner le même résultat.
Mais pratiquement, le mémo de Lazreport ne fait pas la différence entre la valeur
Null et la valeur zéro ce qui fausse le résultat.
- un mémo relié à un champ de type n'affiche pas le zéro mais un cell vide.
- un mémo relié à un champ persistant affiche un zéro si le cell est vide.
- le mémo relié à un champ persistant résultant d'un calcul n'est pas formaté s'il est de
type décimal.
quel dommage !!
Cependant, l'application est un bon exemple pour les utilisateurs de Datamodule sous FireBird, y compris le paramétrage des tables et requêtes.
Comme elle contient des codes:
Sur la relation Maître-détail à double niveaux
Sur la manipulation des filtres multi-champs
Sur l’événement OnCalcfield()
Sur le LazReport
et bien d'autres ...
merci encore.
J'allais achevé ce travail, mais j'ai rencontré un problème sérieux au niveau de Lazreport:
-Dans le formulaire principal, une cellule laissée à blanc veut dire que le candidat
n'a pas fait l'examen.
par contre si la cellule contient la valeur zéro(0), le candidat a fait son examen
théoriquement ça ne doit pas donner le même résultat.
Mais pratiquement, le mémo de Lazreport ne fait pas la différence entre la valeur
Null et la valeur zéro ce qui fausse le résultat.
- un mémo relié à un champ de type n'affiche pas le zéro mais un cell vide.
- un mémo relié à un champ persistant affiche un zéro si le cell est vide.
- le mémo relié à un champ persistant résultant d'un calcul n'est pas formaté s'il est de
type décimal.
quel dommage !!
Cependant, l'application est un bon exemple pour les utilisateurs de Datamodule sous FireBird, y compris le paramétrage des tables et requêtes.
Comme elle contient des codes:
Sur la relation Maître-détail à double niveaux
Sur la manipulation des filtres multi-champs
Sur l’événement OnCalcfield()
Sur le LazReport
et bien d'autres ...
merci encore.
Bonsoir à tous,
Mais si il suffit d'ajouter la fonction FormatFloat().
merci.
Mais si il suffit d'ajouter la fonction FormatFloat().
Code : | Sélectionner tout |
1 2 3 4 5 6 | procedure TMDT.Q_NOTECalcFields(DataSet: TDataSet); var c,x1,x2,x3,i1,i2,i3:variant; begin if i1+i2+i3<>0 then Q_NOTE.FieldValues['MOYENNE']:=Formatfloat('0.00',(x1+x2+x3)/(i1+i2+i3)); end; |
Bonjour à tous
Cette nouvelle version de l'application est enrichie de:
1-La manipulation des images (photos des élèves).
2-la recherche rapide et facile d'un élève.
merci à tous.
Cette nouvelle version de l'application est enrichie de:
1-La manipulation des images (photos des élèves).
2-la recherche rapide et facile d'un élève.
merci à tous.
C'est génial comme projet.
Bonjour à tous
@inspirateur
Merci pour ce poste, c'est vraiment encourageant
J'ai ajouté à cette version la gestion de l'archive.
Les enregistrements ainsi que les photos des élèves sortis sont nettement séparés de ceux des élèves existants,
comme j'ai ajouté la moyenne globale de cursus.
fig:
Merci pour votre Intérêt.
@inspirateur
Merci pour ce poste, c'est vraiment encourageant
J'ai ajouté à cette version la gestion de l'archive.
Les enregistrements ainsi que les photos des élèves sortis sont nettement séparés de ceux des élèves existants,
comme j'ai ajouté la moyenne globale de cursus.
fig:
Merci pour votre Intérêt.
Bonjour à tous,
Finalement la distinction entre la valeur '0' et la valeur 'Null' est devenue possible avec
cet evènement de frReport.
Finalement la distinction entre la valeur '0' et la valeur 'Null' est devenue possible avec
cet evènement de frReport.
Code : | Sélectionner tout |
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 | procedure TF_MAINFORM.frBulletinEleveEnterRect(Memo: TStringList; View: TfrView); begin View.FillColor:=clWhite; if (View .Name = 'Memo13') and (umdt.MDT.Q_NOTE.FieldByName('EXM1_NT').AsString='0') then Memo.Text := '0' ; if (View .Name = 'Memo13') and (umdt.MDT.Q_NOTE.FieldByName('EXM1_NT').IsNull) then begin Memo.Text := 'Abs' ;View.FillColor:=clsilver end; if (View .Name = 'Memo14') and (umdt.MDT.Q_NOTE.FieldByName('EXM2_NT').AsString='0') then Memo.Text := '0' ; if (View .Name = 'Memo14') and (umdt.MDT.Q_NOTE.FieldByName('EXM2_NT').IsNull) then begin Memo.Text := 'Abs' ;View.FillColor:=clsilver; end; if (View .Name = 'Memo15') and (umdt.MDT.Q_NOTE.FieldByName('EXM3_NT').AsString='0') then Memo.Text := '0' ; if (View .Name = 'Memo15') and (umdt.MDT.Q_NOTE.FieldByName('EXM3_NT').IsNull) then begin Memo.Text := 'Abs' ;View.FillColor:=clsilver; end; if (View .Name = 'Memo29') and (umdt.MDT.Q_NOTE.FieldByName('MOYENNE').AsString='0') then Memo.Text := '0' ; if (View .Name = 'Memo29') and (umdt.MDT.Q_NOTE.FieldByName('MOYENNE').IsNull) then begin Memo.Text := 'Abs' ;View.FillColor:=clsilver; end; end; |
Bonjour
Je ne connais pas ce type de messages et je connais pas grand chose au système.
tout d'abord l'application doit être compilée avec Laz 1.8 rc5 32/64 pas avec une version antérieure.
et utilise SGDB Firebird 2.5.7
merci
Je ne connais pas ce type de messages et je connais pas grand chose au système.
tout d'abord l'application doit être compilée avec Laz 1.8 rc5 32/64 pas avec une version antérieure.
et utilise SGDB Firebird 2.5.7
merci
Bonsoir
D'après cette discussion: https://stackoverflow.com/questions/...-in-flamerobin
et d'après le message vous utilisez une version fireBird 3.0 plus récente que la BDD faite avec Firebird 2.5.7 et FB 3.0 ne lit pas les versions précédentes.
essayez de télécharger: FireBird 2.5.7 32 bits. et ça va marcher.
D'après cette discussion: https://stackoverflow.com/questions/...-in-flamerobin
et d'après le message vous utilisez une version fireBird 3.0 plus récente que la BDD faite avec Firebird 2.5.7 et FB 3.0 ne lit pas les versions précédentes.
essayez de télécharger: FireBird 2.5.7 32 bits. et ça va marcher.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.