Discussion :

[cjo]

Bonjour,

Je dois impromer en utilisant les quickreport, mais je ne sais pas lier le Quickreport à une datasource.

Quel instruction dois-je utiliser pour avoir une nouvelle page.

Si je mets simplement ceci,

Code :

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

1
2
 
  QuickRep1.NewPage;

je n'obtiens pas deux ou trois pages.

Que faire

Merci

[evarisnea]

place le composant Quickreport sur une form, ainsi qu'un composant d'accès aux données, TADOTable par exemple, configure le composant d'accès aux données.
Pour le composant quikreport, change sa propriété Datasource (ou quelque chose comme ca), ajoute un detailband sur le composant et place des QRLabel pour les étiquettesn, QRText pour afficher les données
Pour les composants QRText, tu configure leurs propriétés Datasource (ou quelque chose comme ca) sur TADOTable, et DataField sur le champ qui devra s'afficher dans l'état
Pour afficher l'état, tu t'assures juste que le composant d'accès aux données est ouvert et tu fais

Code :

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

QrEtat.Preview

Deja en phase de conception tu peux prévisualier ton état à l'aide du menu contextuel

[cjo]

Merci, mais cela, je l'avais déjà fait. J'ai mal formulé ma question.

En fait dans QRBand, je place dynamiquement les qrlabel. Lorsque j'ai rempli le QRBand, je souhaite obtenir une nouvelle page pour pouvoir y faire figurer des informations complémentaires.


OU

Si j'utilise la solution qui m'est proposée, je voudrais faire figurer sur une même ligne de qrband deux QRDBTexts faisant référence à la même table au même champs, mais des enregistrements différents qui ne se suivent pas. (en claire faire deux colonnes. La première est remplie de haut en bas ensuite, c'est la seconde. Lorsque la seconde est pleine, générer une autre page et remplir à nouveau les colonnes suivant les informations à ajouter.


Merci.

[anapurna]

salut

pour assigner dynamiquement un qrdbtext existant il faut que tu fasse une petite manip

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  TXT   : TQRDBText;
begin
  TXT := TQRDBText(FindComponent('DBTEXT' + IntToStr(i+1)));
  if Assigned(TXT) Then
  begin
     with TXT  do
     begin
        Datafield := NomDuChampsBd;
     end;
  end;
...

pour forcer un saut de page faire dans l'entete du groupe

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  Grp := TQRGroup(FindComponent('QRGRP' + IntToStr(i+1)));
  if Assigned(Grp) Then
  begin
    with Grp  do
    begin
        ForceNewPage := True;
        Enabled := True;
   end;
...

@+ Phil