IdentifiantMot de passe
Mot de passe oublié ?Je m'inscris ! (gratuit)
Télécharger
Téléchargé 22 fois
Vote des utilisateurs
4 
0 
Détails
W. Y
Membre éclairé
680 points
Voir tous les téléchargements de l'auteur
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 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
Signaler un problème
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 05/09/2017 à 22:10
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.
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 06/09/2017 à 20:37
Bonsoir à tous,

Citation Envoyé par FOCUS77 Voir le message


- le mémo relié à un champ persistant résultant d'un calcul n'est pas formaté s'il est de
type décimal.
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;
merci.
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 20/09/2017 à 7:40
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.
alanglet
Avatar de alanglet
Membre confirmé https://www.developpez.com
Le 23/11/2017 à 17:23
Citation Envoyé par inspirateur Voir le message
Merci pour l'explication alanglet. Normalement, c'est le développeur ou l'utilisateur qui devrait faire ce "backup" ? Un simple utilisateur pourrait ne pas avoir de connaissance sur les structures (11.2 ou 12.0).
Pour un logiciel livré "clés en main", sans vouloir être désobligeant, il y a encore du travail à faire. Mais pour un exercice... n'est-on pas ici sur un forum qui s'appelle "developpez.net"?

André
inspirateur
Avatar de inspirateur
Membre averti https://www.developpez.com
Le 01/11/2017 à 11:54
C'est génial comme projet.
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 02/11/2017 à 21:29
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.
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 22/11/2017 à 3:36
Bonjour à tous,

Citation Envoyé par FOCUS77 Voir le message
Bonsoir,

J'allais achever 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.


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;
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 22/11/2017 à 15:01
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
FOCUS77
Avatar de FOCUS77
Membre éclairé https://www.developpez.com
Le 22/11/2017 à 18:42
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.
Consultez l'ensemble des 20 commentaires  Poster un commentaire
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.