Problème avec rapport de notes
Salut tout le monde du forum,
J'ai un problème avec un rapport des notes des étudiants de l'université et je réclame votre aide s'il vous plaît.
Mon problème, c'est que je suis en train de réaliser un rapport des relevés des notes d'un étudiant à l'université. J'utilise des champs comme "Matiere", "Session", "Note1", "Note2".
Je voudrais que si la session est 1, la note se trouve sous la Note1 dans le cas contraire sous la note2 ; mais ça n'a pas fonctionné. Tout dépend du dbgrid1 : si le curseur se focus dans un registre où la matière est de sessionI, dans le rapport toutes les notes se trouvent sous la Note1, dans le cas contraire sous la note2.
Voici mon code :
Code:
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 TFRMPARA.Button1Click(Sender: TObject);
begin
FRMRELEVE.QuickRep1.DataSet:=ADOQuery1;
FRMRELEVE.QRDBText1.DataSet:= ADOQuery1;
FRMRELEVE.QRDBText1.DataField:='description' ;
// Inicializo
FRMRELEVE.QRDBText3.DataSet:= nil;
FRMRELEVE.QRDBText2.DataSet:= nil;
if ADOQuery1.FieldValues['cession'] ='II' then
begin
FRMRELEVE.QRDBText3.DataSet:= ADOQuery1;
FRMRELEVE.QRDBText3.DataField:='notetotal';
end
else
if ADOQuery1.FieldValues['cession'] ='I' then
begin
FRMRELEVE.QRDBText2.DataSet:= ADOQuery1;
FRMRELEVE.QRDBText2.DataField:='notetotal';
end; |
