Quickreport

Version imprimable

24/02/2006, 11h54
cjo

Quickreport
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:

1 2 QuickRep1.NewPage;
je n'obtiens pas deux ou trois pages.

Que faire

Merci
25/02/2006, 20h21
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:

QrEtat.Preview

Deja en phase de conception tu peux prévisualier ton état à l'aide du menu contextuel
27/02/2006, 15h23
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.

salut

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

Code:

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:

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