Discussion :

[dav999]

Salut,

je reviens à la charge, avec lazreport, j'ai déjà posté mais avec la réponse obtenue je ne suis pas arrivé à faire quelque chose.

Je cherche donc à afficher dans un rapport des variables venant d'un tedit par exemple.

Est ce que vous pouvez m'envoyer un exemple qui fonctionne chez vous, car avec les svn de lazarus je ne sais jamais si c'est un soucis sur la version, si c'est le compo qui est foireux ou moi qui ne comprend pas/ sais pas coder avec ce composant.

pouvez vous me faire un petit projet avec un tedit 1 bouton qui affiche le report et l'imprime et lazreport, afin de voir comment ca fonctionne svp ?

J'ai 2 partitions ou j'ai la version 0.9.26-4 et la 0.9.27 du 20/04/09

Merci pour votre aide

David

[dav999]

j'ai trouvé un autre morceau de code sur le net qui fait que maintenant ca fonctionne.

Donc voiçi la méthode complète pour ceux interessés :

1°) ajouter un frreport et un fruserdataset
2°) lier le frreport au fruserdataset (propriété dataset)
3°) Ouvrir la fenêtre du concepteur (frreport)
4°) aller dans le menu fichier - liste de variables
5°) cliquer sur le bouton variables
6°) Rajouter vos variables et valider avec Ok (x2)
7°) placer sur la feuille de report un rectangle par exemple et taper dedans [nom_de_votre_variable] (dans notre exemple test1 et test2)
8°) Sauvegarder votre feuille et fermer le concepteur
9°) aller dans le ongetvalue du frreport
10°) taper ce code par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tfrm_depart.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
 
  var local_var, local_var2 : string;
begin
 
local_var := 'Test pour voir ce que ca donne';
local_var2 := 'Essai avec une 2ème variable';
 
if parname = 'test1' then parvalue := local_var;
if parname = 'test2' then parvalue := local_var2;
 
end;

11°) Aller modifier les propriétés du fruserdataset, et mettre "rangeend" à "recount"
et "rangeendcount" à 1
12°) ajouter un bouton et mettre :

Code :

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

1
2
3
4
5
6
7
8
procedure Tfrm_depart.Button1Click(Sender: TObject);
begin
 
 
frReport1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'options/report.lrf');
frReport1.ShowReport;
 
end;

Compilez, ca fonctionne bien chez moi avec la version, 0.9.27 svn (20/04/2009) sous ubuntu 9.04

Bon codage
David