Discussion :

[Epether]

Bonsoir,

J'ai relié mon DBGrid à ma base de donnée (qui concerne des Bandes Dessinées).
En fonction de la BD sélectionnée dans le Grid, j'aimerais afficher une Checkbox cochée si cette BD appartient à une série (table bd et appartient) et décochée dans le cas contraire.
Si elle n'appartient pas à une série, le no_bd n'est pas dans la table appartient.

J'ai beau essayé, je n'arrive pas à faire en sorte qu'elle se coche/décoche automatiquement (pas de OnClick).

J'espère avoir été assez clair, merci d'avance.

Bonne soirée à vous

[Whiler]

Salut,

Je ne sais pas comment tu as procédé, mais dans le principe, j'utiliserai un CommandType := ctQuery dans mon DataSet et non pas un ctTable...

Dans ma requête, je prendrais tous les champs nécessaires de la table bd à l'affichage de la DBGrid, auxquels j'ajouterais une colonne supplémentaire (que je n'affiche pas dans la grid) avec une jointure sur la table appartient pour récupérer le "statut" de l'appartenance ou non à une série... (dans le genre : un max(count(appartient.bd_id), 1), du coup la colonne ne devrait avoir que des 0 et des 1)...
Ensuite, je relis la valeur de cette colonne à mon DBCheckBox...

Pour la syntaxe SQL, ça dépend de la base...

Sinon, étant donné l'utilisation d'un même dataset pour la dbgrid et le dbcheckbox, cela se cochera/décochera automatiquement...

[SergioMaster]

Il y a bien sur la FAQ

Mais voici ma version personnelle pour mettre une case à cocher dans un DBGrid

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
uses ... Windows,Math, grids, DBgrids ....  
// Permet de dessiner une case a cocher dans une cellule
// (a lier) a l'évènement OndrawCell de la grille
procedure GrillePDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; wG: TGrille);
var
 r : Trect;
begin
if (Arow>0) AND (aCol>0) then
 begin
  r.Top:=Rect.Top+4;
  r.Bottom:=Rect.Bottom-4;
  r.Left:=Rect.Left+4;
  r.Right:=Rect.Right-4;
  DrawFrameControl((Sender as TStringGrid).Canvas.Handle,r,DFC_BUTTON,
IfThen(wG[acol,2]=1,       // <<<<<<  ici la condition >>>>>>               
DFCS_CHECKED,DFCS_BUTTONCHECK));
 end;
end;

Reste plus qu'a définir cette fameuse condition mais je pense que @Whiler a plus ou moins donné la piste