Discussion :

[yacinew]

Bonjour,

j'utilise QReport avec delphi 7 , je connait pas bien les composants de la palette.
j'ai une requête Query1 qui retourne 18 résultat (chaqu'une contient un titre)à l’impression j'ai 9 pages, dans chaque page 2 titre,

je cherche à numéroté les titre de 1 à 18.

est ce que il y a un moyen avec le QRExpr, pour faire ça !



merci

[SergioMaster]

Bonjour,

plusieurs manières de faire me viennent à l'esprit mais aucune avec QRExpression , en effet à ma connaissance Quickreport n'a pas de variable état et je ne pense pas qu'une expression du genre numero=numero+1 fonctionnerai.

Je remarque que toutes vos questions sur quickreport omette toujours l'option utilisation des évènements OnPrint (pour les QRDBText,QRLabel) onBefore, on AfterPrint pour les bandes et j'en oublie certainement.

Déjà, pour un problème de ce genre je commencerai par savoir s'il n'est pas possible d'obtenir le numéro à sa source, c'est à dire directement dans la Query mais ça toute les SGBD ne le font pas !
si oui alors pas de problème ce n'est qu'un champ de plus
si non
solution simple
utiliser Query.RecNo il y aura alors simplement besoin d'un évènement OnPrint sur le QRLabel (en lieu et place du QRExpression)

solution simple mais moins élégante :
1 - une variable globale à l'unité
2 - un evénement beforeprint du Quickreport pour initialiser la variable à zéro
3 - un évènement BeforePrint sur la bande titre où la variable sera incrémentée et le QRLabel renseigné

solution casse-cou : jouer sur le numéro de page à mon avis solution à ne pas envisager sans maitrise

[yacinew]

Bonjour,

j'ai essayé la solution avec un Query.RecNo sur l’événement OnPrint, à l'affichage toujours le QRLabel.Caption =1

pourquoi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFaffaires.QRLabel38Print(sender: TObject; var Value: String);
begin
    QRLabel.Caption:=inttoSTR(Query1.RecNo) ;
end;

Bonjour,

plusieurs manières de faire me viennent à l'esprit mais aucune avec QRExpression , en effet à ma connaissance Quickreport n'a pas de variable état et je ne pense pas qu'une expression du genre numero=numero+1 fonctionnerai.

Je remarque que toutes vos questions sur quickreport omette toujours l'option utilisation des évènements OnPrint (pour les QRDBText,QRLabel) onBefore, on AfterPrint pour les bandes et j'en oublie certainement.

Déjà, pour un problème de ce genre je commencerai par savoir s'il n'est pas possible d'obtenir le numéro à sa source, c'est à dire directement dans la Query mais ça toute les SGBD ne le font pas !
si oui alors pas de problème ce n'est qu'un champ de plus
si non
solution simple
utiliser Query.RecNo il y aura alors simplement besoin d'un évènement OnPrint sur le QRLabel (en lieu et place du QRExpression)

solution simple mais moins élégante :
1 - une variable globale à l'unité
2 - un evénement beforeprint du Quickreport pour initialiser la variable à zéro
3 - un évènement BeforePrint sur la bande titre où la variable sera incrémentée et le QRLabel renseigné

solution casse-cou : jouer sur le numéro de page à mon avis solution à ne pas envisager sans maitrise

[SergioMaster]

Bonjour,

j'ai essayé la solution avec un Query.RecNo sur l’événement OnPrint, à l'affichage toujours le QRLabel.Caption =1

pourquoi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TFaffaires.QRLabel38Print(sender: TObject; var Value: String);
begin
    QRLabel.Caption:=inttoSTR(Query1.RecNo) ;
end;

Parce que c'est Value qu'il faut changer pas Caption !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Value:=inttoSTR(Query1.RecNo) ;

[yacinew]

oui exactement merci