Discussion :

[juju1988]

Bonjour à tous,

Voilà je bosse sous Delphi 7 j'ai un tableau (voir pièces jointes) et j'aimerai faire une différence de couleurs. A chaque commande différente je met change de couleurs.

Sur mon exemple en pièce jointe cela ferait :
1° ligne en blanc
3 lignes suivantes en gris

Voici ma requête me permettant d'afficher mon tableau :

Code :

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

1
2
3
4
5
6
    SQL.Add('SELECT colxcol, cdexent,CAST(0 AS SMALLINT) AS REGROUPER, NUMXCOL FROM ENTXRES E JOIN COLXRES C ON NUMXENT=NUMXCOL');
    SQL.Add('WHERE CODXENT =:cod ');
    SQL.Add('and TOUXENT =:tou ');
    SQL.Add('and MARXENT =:mar ');
    SQL.Add('and FLAXCOL ='+QuotedStr('7') );
    SQL.Add('and (REFXCOL is not null) group by CDEXENT, COLXCOL, NUMXENT, NUMXCOL');

Sergio Master m'a aidé dans cette discussion

A utiliser ma requête pour gérer une colonne couleur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    SQL.Add('WITH C1 AS (select CDEXENT,NUMXENT from ENTXRES GROUP BY CDEXENT,NUMXENT)');
    SQL.Add(', C2 AS (SELECT CDEXENT,NUMXENT,ROWNUM AS RN FROM C1)');
    SQL.Add('select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,MAX(c2.RN) AS COLCOULEUR, NUMXCOL');
    SQL.Add('from ENTXRES E JOIN COLXRES C ON E.NUMXENT=C.NUMXCOL JOIN C2 ON C2.CDEXENT=E.CDEXENT AND C2.NUMXENT=E.NUMXENT');
    SQL.Add('JOIN C2 ON C2.NUMXENT=C1.NUMXENT');
    SQL.Add('where CODXENT =:cod ');
    SQL.Add('and TOUXENT =:tou ');
    SQL.Add('and MARXENT =:mar ');
    SQL.Add('and refxcol is not null');
    SQL.Add('and FLAXCOL ='+QuotedStr('7') );  // <-plus joli pour pas se planter avec les ''
    SQL.Add('group by E.CDEXENT, C.COLXCOL, E.NUMXENT, NUMXCOL');
    SQL.Add('order by E.CDEXENT, C.COLXCOL');

POur qu'en fonction de cette colonne couleur je modifie les couleurs de mes lignes :

Code :

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

1
2
3
4
5
if Odd(dbgrid_select.DataSource.DataSet.FieldByName('COLCOULEUR').asinteger)  then
      dbgrid_select.Canvas.Brush.Color:=clRed
    else
      dbgrid_select.Canvas.Brush.Color:=clWindow;
    x_cmd := dbgrid_select.DataSource.DataSet.FieldByName('CDEXENT').AsString;

Cependant cela ne fonctionne pour le moment pas. Mais nous ne sommes pas sûr de l'utilisation de RowNum sous Oracle...

Avez vous des idées pour ma requête ?

[Waldar]

Essayez quelque chose comme ça :

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
With SR as
(
   SELECT DISTINCT 
          colxcol
        , cdexent
        , NUMXCOL
     FROM ENTXRES E
     JOIN COLXRES C
       ON NUMXENT = NUMXCOL
    WHERE CODXENT =:cod
      and TOUXENT =:tou
      and MARXENT =:mar
      and FLAXCOL ='7'
      and REFXCOL is not null
)
  select colxcol
       , cdexent
       , CAST(0 AS SMALLINT) AS REGROUPER
       , NUMXCOL
       , rank() over(order by colxcol asc)     AS rk
    from SR
order by colxcol asc;

Sur un autre sujet, ne construisez pas votre requête dans votre code applicatif. C'est mauvais pour les performances, la sécurité et la maintenabilité. Utilisez des procédures et/ou des vues.

[juju1988]

Essayez quelque chose comme ça :

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
With SR as
(
   SELECT DISTINCT 
          colxcol
        , cdexent
        , NUMXCOL
     FROM ENTXRES E
     JOIN COLXRES C
       ON NUMXENT = NUMXCOL
    WHERE CODXENT =:cod
      and TOUXENT =:tou
      and MARXENT =:mar
      and FLAXCOL ='7'
      and REFXCOL is not null
)
  select colxcol
       , cdexent
       , CAST(0 AS SMALLINT) AS REGROUPER
       , NUMXCOL
       , rank() over(order by colxcol asc)     AS rk
    from SR
order by colxcol asc;

Sur un autre sujet, ne construisez pas votre requête dans votre code applicatif. C'est mauvais pour les performances, la sécurité et la maintenabilité. Utilisez des procédures et/ou des vues.

Si je copie la requête en PL/SQl (avant de la mettre dans mon code) ça me dit "Toutes les variables ne sont pas liées" sur la ligne du rank. A quoi correspond t-il ?

[Waldar]

Si je copie la requête en PL/SQl (avant de la mettre dans mon code) ça me dit "Toutes les variables ne sont pas liées" sur la ligne du rank. A quoi correspond t-il ?

À ces trois variables :

Code :

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

1
2
3
    WHERE CODXENT =:cod
      AND TOUXENT =:tou
      AND MARXENT =:mar

Il suffit de les remplacer par l'autre bout de code :

Code :

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

1
2
3
    WHERE CODXENT = '00400'
      AND TOUXENT = 'DUCFRA'
      AND MARXENT = 'RO'

[juju1988]

OK ça fonctionne au niveau de la requête.

Code :

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

1
2
3
4
5
6
7
8
    sql.Add('WITH SR AS (SELECT DISTINCT colxcol, cdexent, NUMXCOL FROM ENTXRES E JOIN COLXRES C ON NUMXENT = NUMXCOL');
    sql.Add('WHERE CODXENT =:cod AND TOUXENT =:tou AND MARXENT =:mar AND FLAXCOL =''7'' AND REFXCOL IS NOT NULL)');
    sql.Add('SELECT colxcol, cdexent, CAST(0 AS SMALLINT) AS REGROUPER, NUMXCOL, rank() over(ORDER BY colxcol ASC) AS rk FROM SR ORDER BY colxcol ASC');
 
    ParamByName('cod').AsString := zx_cli;
    ParamByName('tou').AsString := x_tournee;
    ParamByName('mar').AsString := x_transport;
    tryquery1(q_select,'open','Erreur affichage cmd regroupables (MS42 -008)',4);

Mais au niveau de mon test :

Code :

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

1
2
3
4
5
  if Odd(dbgrid_select.DataSource.DataSet.FieldByName('RK').asinteger)  then
      dbgrid_select.Canvas.Brush.Color:=clRed
    else
      dbgrid_select.Canvas.Brush.Color:=clWindow;
    x_cmd := dbgrid_select.DataSource.DataSet.FieldByName('CDEXENT').AsString;

ça ne fonctionne pas ...

[Waldar]

Pour la partie delphi, ne connaissant pas ce langage je ne peux pas vous aider.
La colonne RK renvoie simplement un numéro différent pour chaque colxcol.
Si vous voulez que les id soit continus, vous pouvez utiliser la fonction dense_rank() au lieu de rank().

[pacmann]

Salut,

Si tu veux numéroter les lignes selon l'ordre de sortie qui est defini par l'order by, utilise plutôt row_number :

select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,MAX(c2.RN) row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL
...

De plus, il vaut mieux que ton order by soit déterministe, pour être sûr que le row_number retourne la même chose que l'order by (même si ça a de grandes chances d'être le cas). Le meux serait d'inclure toutes les colonnes du GROUP BY partout.

[juju1988]

Salut,

Si tu veux numéroter les lignes selon l'ordre de sortie qui est defini par l'order by, utilise plutôt row_number :

select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,MAX(c2.RN) row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL
...

De plus, il vaut mieux que ton order by soit déterministe, pour être sûr que le row_number retourne la même chose que l'order by (même si ça a de grandes chances d'être le cas). Le meux serait d'inclure toutes les colonnes du GROUP BY partout.

Quelque chose comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL
from ENTXRES E JOIN COLXRES C ON E.NUMXENT=C.NUMXCOL 
 
where CODXENT ='00400' 
and TOUXENT ='DUCFRA' 
and MARXENT ='RO' 
and refxcol is not null
and FLAXCOL ='7'
group by COLXCOL, E.CDEXENT,REGROUPER ,COLCOULEUR, NUMXCOL
order by COLXCOL, E.CDEXENT,REGROUPER ,COLCOULEUR, NUMXCOL

je l'ai mis dans PL/SQ (pour tester avant de mettre dans mon code) mais ça me dit COLCOULEUR identificateur non valide...
Il me reconnait pas la couleur..