Discussion :

[mls]

Bonjour à tous,

Voilà, il faut que j'utilise Crystal Report pour mes états avec une future application Delphi.
pour l'instant, j'arrive bien à lancer/exécuter mon état Crystal Report à partir de Delphi.
Mais ce que je ne sais pas faire c'est passer un paramètre simple (par exemple un texte saisie dans un TEdit) pour qu'il s'affiche sur mon état Crystal Report. Et là, j'ai beau chercher de tous les côtés (forum + Google) la plupart des personnes n'utilise pas Delphi avec Crystal

Merci d'avance...

[BONNEFOI Patrick]

Salut,

c'est vrai qu'il n'y quasiment rien sur delphi et crystal. Par contre, tu peut aller sur leur site il y a quelque exemples

Avant de pouvoir récupérer ou passer des param il faut se positionner correctement

Code :

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

1
2
 
CrEtat.ParamFields[LbParamListe.ItemIndex];

Sinon pour récupérer la valeur par défuat d'un paramétre d'un état crystal, il faut faire

Code :

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

1
2
3
 
LblPrompt.Caption       := CrEtat.ParamFields.Item.Prompt;
EdCurrentValue.Text     :=CrEtat.ParamFields.Item.CurrentValue;

Prompt correspond au prompt qui s'affiche lorsqu'on lance l'état à partir de Crystal et CurrentValue la valeur par défaut

Pour passer un param tu fais

Code :

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

1
2
 
CrEtat.ParamFields.Item.CurrentValue := edCurrentValue.Text

Si t'as installé la VCL crystal t'as un exemple CrystalVCL qui est bien fait

A+[/code]

[mls]

Bonjour,

Merci beaucoup pour votre réponse. J'ai réussi à trouver un exemple sur le site de Bussiness Object (appli Delphi 7 + Crystal Report).
Voici la syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
var
  crReport : IReport;
begin
  crReport := CRApplication1.OpenReport('C:\Rapport1.rpt' ,crOpenReportByTempCopy);
  crReport.DiscardSavedData;
 
  crReport.ParameterFields.GetItemByName ('NomParametre', '').AddCurrentValue(Edit1.Text);
 
  CrystalActiveXReportViewer1.ReportSource := crReport;
  CrystalActiveXReportViewer1.ViewReport;
 
end;

Voilà, merci encore pour votre aide...