J'ai un projet RvReport2.rav contenant un Report1 avec une seule page permettant d'imprimer le bulletin d'un étudiant en saisant son matricule.
Dans Delphi, j'utilise la req suivante dans un composant IBDataSet :
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 select b.numbull, b.codecl, b.matricule,codefil, nom, prenom,statut, k.redoublant, nomprof, l.codemat, l.moy, l.rang, l.coeff, l.moycoef, b.periode, b.annee, bilan1, total, moybull, rangbull, moyan, rangan from BULLETIN b, LIGNEBULL l, etudiant e, moyennes m, classe c, professeur p, classeetudiant k where ((b.numbull = l.numbull) and (l.codemat in ('COMPOSITION FRANCAISE','HISTOIRE-GEOGRAPHIE','ANGLAIS','PHILOSOPHIE')) and (l.matprof = p.matprof) and (b.matricule = e.matricule) and (b.codecl = c.codecl) and (c.codecl = k.codecl) and (k.matricule = e.matricule) and(e.matricule = m.matricule) and (b.matricule= :matricule) and (b.periode = :periode) and (b.annee = :annee)) order by l.codemat.
Dans le formulaire d'impression je saisie les paramètres : annee, periode et matricule :
Pour imprimer un bulletion voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Datamodule1.IBDataSet3.Close; Datamodule1.IBDataSet3.ParamByName('annee').AsString := DBLookupComboBox1.KeyValue; Datamodule1.IBDataSet3.ParamByName('periode').AsString := DBLookupComboBox2.KeyValue; Datamodule1.IBDataSet3.ParamByName('matricule').AsString := DBLookupComboBox4.KeyValue; Datamodule1.IBDataSet3.Open;
Je voudrais créer dynamiquement plusieurs Pages dans le Report1 afin d'imprimer simultanément plusieurs bulletins. Je n'y arrive pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3RvProject2.Open; RvProject2.Execute; RvProject2.Close;
Je compte bcp sur vos suggestions.
Partager