Discussion :

[Antichoc]

Salut, j'arrive vraiment pas à maitriser ce component CRYSTAL Report sous delphi 5 PRO, en effet, j'y trouve aucune doc !

Mon problème : comment séléctionner uniquement les pages de mon états suivant UN critère de séléction saisie par l'utilisateur sous delphi ...

(Il choisi une plage de date sous delphi et le combobox renvoit un code qui me sert de groupe sous CR) mais je n'arrive pas à lier les deux

Pliz ! Elpmi

[sur_uix]

Sous Delphi tu utilise la CRPE32 ou la CRAXDRT ?

[Antichoc]

crpe32

[sur_uix]

This code sample passes a new Group Selection formula into the Report, replacing the one that was currently there:

Code :

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

1
2
3
4
5
6
7
8
9
Crpe1.ReportName := 'C:\Company.rpt';
 
Crpe1.GroupSelection.Formula.Clear;
 
Crpe1.GroupSelection.Formula.Add('Sum({company.SALES}, {company.STATE}) > 30000.00');
 
{or Crpe1.GroupSelection.Formula.Text := }
 
Crpe1.Show

Avec le composant VCL pour la CRPE32

[Antichoc]

J'ai utilisé une autre méthode :

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
19
20
21
22
23
24
25
26
27
28
29
procedure LoadCR(const Crpe1 : TCrpe;const files,formule : string);
var	IniFile : TIniFile;	
	Fichier : String;
begin
Crpe1.ReportName := files;
Crpe1.ConnectMethod := useConnect;
Crpe1.Connect.Retrieve;
try
		try
		Fichier := ChangeFileExt(Application.ExeName, '.INI');
		IniFile := TIniFile.Create(Fichier);
                {Set the Connect Attributs}
                crpe1.Connect.Password :=  IniFile.ReadString('CONNEXION','PASSWORD','');
                crpe1.Connect.UserID :=  IniFile.ReadString('CONNEXION','USER_NAME','');
                crpe1.Connect.DatabaseName :=  IniFile.ReadString('CONNEXION','ODBC_DSN','');
		except
		ShowMessage('Paramètres de connexion incorrects');
	        end;
	finally
	//Libération de l'objet
	IniFile.free;
	end;Crpe1.DiscardData;
Crpe1.Formulas.Formula.Clear;
Crpe1.Formulas.Formula.Add(formule);
Crpe1.Output := toWindow;
Crpe1.WindowState := wsMaximized;
Crpe1.Execute;
 
end;

Ell marche bien