Discussion :

[masterdash]

Salut tous le monde, je voudrais savoir es possible de coloriser le résultat des lignes obtenue d'une requête SQL sur deux table exemple: les lignes de la table1 en couleur Jaune et les lignes de la table2 en couleur Bleu, es possible de le faire directement dans la requête sql ses ce que je cherche vraiment si non dans un dbgrid delphi.

Base de données utiliser : ORACLE EDI: DELPHI 2010
MERCI TOUS LE MONDE

[SergioMaster]

Bonjour,

je voudrais savoir s'il est possible de coloriser le résultat des lignes obtenues d'une requête SQL sur deux table exemple: les lignes de la table1 en couleur Jaune et les lignes de la table2 en couleur Bleu,
est-ce possible de le faire directement dans la requête sql , ce que je cherche vraiment, si non dans un dbgrid delphi.

Coloriser veut dire faire voir à l'écran , il n'est pas possible de mettre des couleurs dans un résultat (requête) non visible tel quel , mais visible via des composants visuels , donc c'est bien sur le composant visuel (Grid, Treeview) qu'il va falloir travailler pour l'affichage


Cependant c'est sur les données, pour fournir les indications d'affichage, qu'il faut aussi se pencher. Surtout s'il s'agit d'une requête d'union par exemple en affectant une valeur (qui peut à l'occasion être un "entier Couleur"), il faudra également faire attention au tri

par exemple :

Code :

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

1
2
3
4
SELECT 1 AS COULEUR,* FROM TABLE1
UNION
SELECT 2,* FROM TABLE2   
ORDER BY CLECOMMUNE,COULEUR

[masterdash]

Salut tous le monde et merci à sergio pour ça réponse mais je n'est pas compris cette solutions, mon bute est d’afficher sur un dbgrid les lignes de la table1 avec une couleur différente des lignes de la table2

Select Rownum, (t.numassure||cle(t.numassure)) as No_assure,t.Nom,t.Prenom,t.Naissance,t.CodCentre From Table1 t.codassure like :ValHcode
Union All
Select Rownum, (t.numassure||cle(t.numassure)) as No_assure,t.Nom,t.Prenom,t.Naissance,t.CodCentre From Table2 t.codassure like :ValHcode
les deux tables sont pareils sur certain colonnes et des différents sur d'autres.

[SergioMaster]

C'est bien ce que je proposais , il suffit de rajouter une colonne dans la query

Code SQL :

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

1
2
3
4
Select Rownum, (t.numassure||cle(t.numassure)) as No_assure,t.Nom,t.Prenom,t.Naissance,t.CodCentre,1 as COLOR From Table1 t.codassure like :ValHcode
Union All
Select Rownum, (t.numassure||cle(t.numassure)) as No_assure,t.Nom,t.Prenom,t.Naissance,t.CodCentre,2 From Table2 t.codassure like :ValHcode

cette colonne COLOR permettra de distinguer les tables .
reste la question du tri , je ne suis pas sur que RowNum soit le critère prioritaire je mettrai en 1° par exemple le No_Assure, Rownum,puis COULEUR
Ainsi sur la Grille on aurait tous les enregistrements de la table1 d'un assuré suivi de tous les enregistrements de la table2 du même assuré , etc...
le tri peut se faire en changeant l'ordre des champs dans la Query ou en mettant une clause ORDER BY (selon le SGBD le temps de réponse pourrait alors différé)


Puis de se mettre à la codification de l'évènement OnDrawColumnCell de la DBGrid selon la FAQ ici
en simplifiant si c'est juste de l'affichage cela donnera

Code :

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

1
2
3
4
5
6
with (Sender as TDBGrid).Canvas do
begin
 if Query1COULEUR.asInteger=1 then Brush.Color:=clYellow
                                       else Brush.Color:=clLime;
 (Sender as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;