Discussion :

[wwilly17]

Bonjour,

Voici mon souci : je remplis un dbgrid via un Tsqlquery dès l' ouverture de ma fiche.
Dans ce dggrid, en fonction de la valeur d'un champ, je colorie de façons différentes mon champ : vert si disponible , rouge si indisponible.
Mon souci serait que j'aimerais récuperer le nombre de badges disponibles et le nombre mis en rouge sans avoir à passer par un autre TSQLquery.
Peut-on ajouter un compteur au cours du remplissage du dbgrid et le faire afficher à la fin ?
Y a-t-il un événement pour cela ?
J'ai essayé la solution ci-dessous mais elle ne fonctionne pas :

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
 
procedure Tfrm_bd_temp.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
  Column: TColumn; AState: TGridDrawState);
begin
   with (sender as Tdbgrid) do
  begin
      if datasource.dataset.fields[3].AsString='1' then
      begin
         if column.index=2 then
           canvas.Font.color:=clgreen;
         nb_dispo:=nb_dispo+1;
         lbl_dispo.caption:='Badges disponibles '+ inttostr(nb_dispo);
      end;
      if datasource.dataset.fields[3].AsString='2'  then
         if column.index=2 then
            canvas.Font.color:=clred;
      if datasource.dataset.fields[3].AsString='3' then
        if  column.index=2 then
          canvas.Font.color:=strtoint('$EDD38C');
      if datasource.dataset.fields[3].AsString='4' then
        if  column.index=2 then
          canvas.Font.color:=strtoint('$CCCCCC');
  end;
end;

Merci d avance.

[gvasseur58]

J'ai essayé la solution ci-dessous mais elle ne fonctionne pas

Bonjour,

Plus précisément : qu'est-ce qui ne fonctionne pas ? Rien ne se passe ? Les résultats sont faux ? ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Tfrm_bd_temp.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
  Column: TColumn; AState: TGridDrawState);
begin
   with (sender as Tdbgrid) do
  begin
      if datasource.dataset.fields[3].AsString='1' then
      begin
         if column.index=2 then
           canvas.Font.color:=clgreen;
         nb_dispo:=nb_dispo+1;
         lbl_dispo.caption:='Badges disponibles '+ inttostr(nb_dispo);
      end; // [...]

Par exemple, ce bout de code incrémente nb_dispo quel que soit l'index de la colonne, même si le canvas n'est pas mis au vert : est-ce ce qui est voulu ?
Quand ce problème aura été traité, on essaiera de simplifier le code .

Cordialement,

Gilles

[ThWilliam]

Bonjour,

De toutes façons, il ne faut pas placer une incrémentation de nb_dispo dans un événement OnPrepareCanvas ou OnDrawColumnCell.
Pourquoi ?
pcq ces événements sont appelés à chaque fois que le DBGrid doit redessiner une cellule. Ce qui est très fréquent.

Cordialement
Thierry

[wwilly17]

Bonjour,
pour répondre à la première réponse, ce qui ne fonctionne pas c'est la modification du caption de mon libellé... il ne fait rien.
Ensuite je veux bien ne pas placer ce code dans cet événement, mais dans lequel alors ?
Cordialement

[tintinux]

Bonjour

Je confirme qu'il ne faut pas chercher à faire cela dans un événement, et surtout pas dans OnPrepareCanvas.

Pour utiliser une seule requête, une première solution serait de commencer par compter les "disponibles " en parcourant toute la requête comme le propose Gilles, en ayant désactivé son lien à la grille, puis de se remettre au début sans la fermer et la relier à la grille pour afficher ses premières lignes. Au lieu de parcourir, il est plus élégant d'appliquer un Filter et de lire RecordCount, mais il faut vérifier que cette propriété tient bien compte du filter (je ne m'en rappelle plus car j'utilise peu SqlDb).

Mais écrire et utiliser une autre requête basée sur un Count me paraîtrait cependant plus simple et plus lisible et ne devrait pas être trop consommateur si la table est indexée sur le champ "disponible".

Et si tu as un SGBD digne de ce nom, acceptant une sous-requête dans la requête principale, qui retournerait sur chaque ligne le même nombre de "disponibles", ce serait une bonne solution.