Discussion :

[guirat]

Salut

Je Récupère une Résultat d'une requette dans une dbegrid .
je voudrais ajoute une case à couche dans le DBGRID pour importer les lignes dont laquelle la case est couche dans un fichier Excel
je ne pas arriver ni avec l'ajout de case à Couche ni l'importation des lignes
quelqu’un peut m'aide .vraiment je suis BLOQUE

Merci Infiniment

[Mirmillon]

C'est impossible d'ajouter une case à cocher dans un dbGrid.
Va voir sur la FAQ Delphi
Mirmillon

[Rayek]

C'est impossible d'ajouter une case à cocher dans un dbGrid.
Va voir sur la FAQ Delphi
Mirmillon

La prouve le contraire :
http://delphi.developpez.com/faq/?pa...eacocherdbgrid

[Delfino]

Le composant JvDBGrid de la http://homepages.borland.com/jedi/jvcl/ permet l'ajout automatique d'une case a cocher..

[evarisnea]

Salut

Je Récupère une Résultat d'une requette dans une dbegrid .
je voudrais ajoute une case à couche dans le DBGRID pour importer les lignes dont laquelle la case est couche dans un fichier Excel
je ne pas arriver ni avec l'ajout de case à Couche ni l'importation des lignes
quelqu’un peut m'aide .vraiment je suis BLOQUE

Merci Infiniment

question magique: la case à cocher est-elle pour un champ de ta BD ou simplement pour signaler les lignes à exporter ?
parce que si c'est un champ de ta BD, les posts ci dessus sont corrects (avec la JVCL tu as des composants grille de données avec case à cocher automatique, et des composants pour exporter ton DBGrid vers Excel )
dans le cas contraire, je ne sais pas si c'est faisable, vu que à priori un DBGrid n'affiche que des données issues d'un DataSet/DataSource ...

[LadyWasky]

Salut,

Ce que tu peux faire...
Soit tu passe par les bookmark (signets) de ta base de données (qui fera très bien office de case à cocher :
Dans l'exemple, j'ai utilisé Un TDBGrid avec ses données, un TButton (ButtonCopier), et une TListBox.

- La propriété Options-->dgMultiSelect du DBGrid est à true
- La sélection s'éffectue au clavier+souris en faisant Ctrl+Bouton gauche sur l'élément "à cocher"

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 TForm1.ButtonCopierClick(Sender: TObject);
var i,j:Integer;
    s:string;
    ABookMarkList:TBookmarkList;
    ADataSet:TDataSet;
begin
  ABookMarkList:=DBGrid1.SelectedRows;
  ADataSet:=DBGrid1.DataSource.DataSet;
 
  if ABookMarkList.Count>0 then
      for i:=0 to ABookMarkList.Count-1 do
      begin
        //se positionner sur le signet
        ADataSet.GotoBookmark(pointer(ABookMarkList.Items[i]));
        //copie des données
        s:='';
        for j :=0 to ADataSet.FieldCount-1 do
        begin
           if (j>0) then s:=s+',';
           s:=s+ADataSet.Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
     end;
end;

Sinon, il existe un composant gratuit qui le fait, il s'appelle SMDBGrid et est vraiment très bien (facile à utiliser, offre de nombreuses possibilités) :
http://www.scalabium.com/smdbgrid.htm

Le fichier de resources pour avoir ce Grid en français se trouve en bas de la page

Bon dev

[ALWEBER]

Tu peux mettre un champ de type alphanumériqe de longueur 1 et ajouter
le code suivant. Mon champ ici a pour nom "SelectNotice" et utiliser l'évènement OnCellClick

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormSaisie.DBGrid1CellClick(Column: TColumn);
begin
  Table1.Edit;
  if Table1SelectNotice.Value  = 'x'then
    Table1SelectNotice.Value := ' '
  else
    Table1SelectNotice.Value := 'x';
  Table1.post;
end;