Quick Report

Comment on fais pour transférer un résultat d'un edit dans le quickReport??

Je ne sais pas du tout comment faire

2 solutions :

1/ Si le contenu de ton champs TEdit vient d'une source de données (table, requêtes, ...), tu poses un composant de type QRDBText sur ton QuickReport et tu le fais pointer sur la même source de données.

2/ Si le contenu de ton TEdit est saisi par l'utilisateur, ou calculé par ton application, il faut que tu fasses passer sa valeur au QuickReport par une variable avant d'afficher ton QuickReport.
Form (TEdit.Text) => QuickReport (Variable : String)
Ensuite tu poses un TQRLabel sur ton QuickReport et sur l'évènement OnPrint de celui-ci tu affecte le paramètre Value avec le contenu de ta variable

Citation:

---

Envoyé par Creenshaw

2 solutions :

1/ Si le contenu de ton champs TEdit vient d'une source de données (table, requêtes, ...), tu poses un composant de type QRDBText sur ton QuickReport et tu le fais pointer sur la même source de données.

2/ Si le contenu de ton TEdit est saisi par l'utilisateur, ou calculé par ton application, il faut que tu fasses passer sa valeur au QuickReport par une variable avant d'afficher ton QuickReport.
Form (TEdit.Text) => QuickReport (Variable : String)
Ensuite tu poses un TQRLabel sur ton QuickReport et sur l'évènement OnPrint de celui-ci tu affecte le paramètre Value avec le contenu de ta variable

---

comment ca ce fait avec la deuxième solutions
surtout avec ce que tu a mis :
Form (TEdit.Text) => QuickReport (Variable : String)
un exemple s'il te plait (ca m'interesse beaucoup de cela, car moi je le veux pour plusieurs edit.text et je veux que pour les edits qui n'ont rien recu ne sort pas dans le Qreport

je suis bien intéressé par cette solution ! et merci

Citation:

---

un exemple s'il te plait (ca m'interesse beaucoup de cela, car moi je le veux pour plusieurs edit.text et je veux que pour les edits qui n'ont rien recu ne sort pas dans le Qreport

---

2 TForm:
- Form2 contenant les TEdit
- Form1 contenant le TQuickRep avec une bande contenant les TQRLabel

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRLabel1.Enabled := (Form2.Edit1.Text <> '');
QRLabel2.Enabled := (Form2.Edit2.Text <> '');
...
end;

Est-ce la réponse?

je rajoute bien entendu que sur le TForm1.QuickRep1BeforePrint, il faut rajouter les affectations des TEdit aux TQRLabel, ce qui donne:

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRLabel1.Enabled := (Form2.Edit1.Text <> '');
QRLabel2.Enabled := (Form2.Edit2.Text <> '');
QRLabel1.Caption := Form2.Edit1.Text;
QRLabel2.Caption := Form2.Edit2.Text;
end;

merci bien pour ton aide et l'explication (didier.cabale et même creenshaw ),

je ne sais pas si c'est clair pour derrick23 pour qu'on clique sur résolu pour ce sujet

normalement c'est OK pour ca !