Discussion :

[kroma23]

salut
delphi 7 , interbase, quickreport
jais une table agent(num_agent,nom_agent,prenom_agent,grade)
je cherche une requette sql dans le quel je peut afficher dans un quickreport les agent par order de grade , de tel facon si les agent qui ont un grade pareil termine j'affiche les autre agent qui ont un autre grade dans une autre page et pas dans la meme page et en ce de suit pour les autre agent
cette requtte me donne mais pas comme je veux

Code :

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

1
2
3
4
5
6
7
8
 
with ibquery1 do
begin
close;
sql.clear;
sql.add('select * from agent order by grade');
open;
end;

vous pouvez m'aider svp.
merci d'avance

[SergioMaster]

La requête en elle même est correcte , quoique puriste j'aurais suggéré de mettre les champs

Code sql :

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

select num_agent,nom_agent,prenom_agent,grade from agent order by grade

Maintenant que :

cette requtte me donne mais pas comme je veux

ne nous indique absolument pas le problème

[jaduta]

Bonjour,

à mon avis, ton idée, c'est d'avoir la liste des personnes, par grade ordonné, ainsi, que par nom/prénom

donc la requête doit être :

Code :

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

select * from agent order by grade,nom_agent,prenom_agent

[akli_agha]

Le problème est dans Quick !
Moi j'aurai fais ceci :
j'ajouterai un autre query, une bande QRGroup et une autre bande QRSubDetail à ton rapport. Tu supprime la bande détail existante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
with ibquery1 do
begin
  if Active then Close;
  SQL.Text := 'SELECT num_agent,nom_agent,prenom_agent FROM agent WHERE GRADE=:GRADE ORDER BY nom_agent,prenom_agent'
end;
 
with qGrade do begin
  if Active then Close;
  SQL.Text := 'SELECT DISTINCT GRADE FROM AGENT ORDER BY GRADE';
  Open;
end;

Tu informes la propriété DataSet du QRSubDetail par ibQuery1, la propriété Expression du QRGroup par qGrade.Grade et dans son événement BeforPrint tu ouvres ta requête

Code :

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

1
2
3
4
 
ibquery1.Close;
ibquery1.ParamByName('GRADE').AsString := qGrade.FieldByName('GRADE').AsString;
ibquery1.Open;

Dans l’événement BeforePrint du QRSubDetail tu place tes champs.

En principe, ça devrait fonctionner.

[SergioMaster]

@Ali_Agha ta solution est trop complexe : le Quickreport gère très bien les groupes , pas besoin de passer par des Querys intermédiaires !

Kroma23 ne nous a pas indiqué pourquoi son ordre ne lui plaisait pas , toutes les suppositions sont donc permises comme celle de jaduta

soit encore par exemple en ordre par grade,numero

Code SQL :

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

SELECT num_agent,nom_agent,prenom_agent,grade FROM agent ORDER BY 4,1

par grade,prénom,nom

Code SQL :

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

SELECT num_agent,nom_agent,prenom_agent,grade FROM agent ORDER BY 4,3,2

et ceci sans utiliser les ASC ou DESC

[akli_agha]

Oui, mais lui il veut faire un saut de page au changement du grade, donc il faut lui indiquer comment. Ce n'est pas simplement une histoire d' "ORDER BY".

C'est pour ça que j'ai suggéré le QRGroup.

[SergioMaster]

tout à fait d'accord avec le QRGroup , il faut simplement encadrer la QRDetailBand avec un GroupHeader (dans lequel on indique que l'on fait un GROUPE sur le Grade
et un GroupFooter (avec alignBottom :=true)
Rien de compliqué . Et ce n'est pas ce que j'ai lu sur la question , la demande est :

je cherche une requête sql ....cette requête me donne mais pas comme je veux

le code montré est bien la requête .
S'il s'agissait de Quickreport et de comment faire des groupes j'ose espérer que la demande aurait été indiqué et dans ce cas j'aurais dit (entre autre) qu'il y a un forrum spécifique pour les générateurs d'états

[akli_agha]

@SergioMaster

Il n'ya rien de mal, mais je vous rassure qu'il a bien citer QuickReport et qu'il a même parlé de page. L'essentiel est de donner un coup de main quand on peut.
Au passage, je d'accord avec vous pour le GroupHeader mais j'ai toujours préféré le QRGroup et QRSubDetail qui me semblent plus appropriés à ce type de traitement.

Bonne fin de journée.

[kroma23]

Re
effictivement AKLI ces ca ce que je veux , un saut de page au changement de grade mais jais pas comprie vraiment ta reponce tu me expliqué un peut plus stp
par exemple ou je vais metre ton premier code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
with ibquery1 do
begin
  if Active then Close;
  SQL.Text := 'SELECT num_agent,nom_agent,prenom_agent FROM agent WHERE GRADE=:GRADE ORDER BY nom_agent,prenom_agent'
end;
 
with qGrade do begin
  if Active then Close;
  SQL.Text := 'SELECT DISTINCT GRADE FROM AGENT ORDER BY GRADE';
  Open;
end;

et jais pas comprie ces quoi qGrade
Merci d'avance

[SergioMaster]

pourquoi faire simple quant on peut faire compliqué ?

bon , un dessin vaut mieux qu'un long discours

Code SQL :

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

1
2
 
SELECT Grade,num_agent,nom_agent,prenom_agent FROM agent  ORDER BY Grade,nom_agent,prenom_agent

et pas une ligne de code

[akli_agha]

Oh SergioMaster, y a pas de quoi se taper la tête dans le mur, voyons !

@kroma23
Tu ouvres ta requête dans l'événement BeforePrint du rapport et tu suis ce qu'a dit SergioMaster plus haut

[kroma23]

Re
oui vous avez raison @sergio
tout ce qui est simple et beau
merci bien mon probleme et resolu grace vous et merci aussi pour @akli