Discussion :

[delphi2019]

salut J'ai cinq composants frxReport1 de fastreport dans la form1
Et tous ces composants ont été utilisés dans son événement OnGetValue
le mème code suivant (sauf: frxReport4 , frxReport5 Ils contiennent le même code et plus d'autres codes en dessous):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.frxReport1GetValue(const VarName: String;var Value: Variant);
begin
if VarName = 'variable_sex' then
begin
 if RadioGroup1.ItemIndex=0 then Value := 'M'
 else if RadioGroup1.ItemIndex=1 then Value := 'F'
end;
with FDQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('Select code_etudiant from etudiantes');
  Open;
end;
if VarName = 'variable_code_etud' then
Value := FDQuery1.FieldByName('code_etudiant').Value;
end;

Comment puis-je convertir ce code en procedure nous mettons un événement pour chaque composant frxReport
Alors je l'ai mis dans chaque événement

Code :

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

1
2
3
4
5
6
 
procedure TForm1.frxReport1GetValue(const VarName: String;var Value: Variant);
begin
 
//appele d'une procedure pour executer le code précédent
end;

[Paul TOTH]

si je comprend bien la question, il suffit de faire pointer tous les événements vers la même procédure, qu'on renommera pour l'occasion en frxReportsGetValue

cela se fait directement dans l'IDE en sélectionnant frxReport1 et en changeant le nom de la procédure directement dans l'inspecteur d'objets
ensuite il suffit de sélectionnenr tous les frxReport concernée est de choisir cette procédure dans la combo de l'inspecteur d'objets...les autres copies peuvent être supprimées.

[ShaiLeTroll]

Sinon, pour des rapports, pourquoi ne pas utiliser un SELECT avec des constructions type IF, CASE WHEN ou des tables thésaurus avec Jointure ?

FastReport, je ne connais pas mais utiliser plusieurs sources, c'est possible ? une source pour l'entête, une source pour le listing voir même des sous-rapports

[delphi2019]

si je comprend bien la question, il suffit de faire pointer tous les événements vers la même procédure, qu'on renommera pour l'occasion en frxReportsGetValue

cela se fait directement dans l'IDE en sélectionnant frxReport1 et en changeant le nom de la procédure directement dans l'inspecteur d'objets
ensuite il suffit de sélectionnenr tous les frxReport concernée est de choisir cette procédure dans la combo de l'inspecteur d'objets...les autres copies peuvent être supprimées.

vous avez bien compris ma question ..
Et j'ai compris ta réponse
Le problème reste pour ( frxReport4 , frxReport5 Ils contiennent le même code et plus d'autres codes en dessous)
comment le résoudre ?

[delphi2019]

ShaiLeTroll
Je suis un débutant dans le domaine de fastreport
La requête que j'ai définie n'est qu'un exemple .. bien sûr, j'ai oublié de la mettre WHERE et parametre
Mais cela ne résout pas le problème

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.frxReport5GetValue(const VarName: String;var Value: Variant);
begin
  FrxReport1GetValue(VarName, Value);
  ///
  code en plus
end;

[delphi2019]

Merci,Paul TOTH la solution était faite