Discussion :

[drake56]

Bonjour,

Je souhaiterai mettre en place un sytème de Drag & Drop dans un même DBGrid pour modifier l'ordre des pièces.
Par exemple, si j'ai 2 lignes et que je mets la 1ère à la place de la 2ème, je souhaiterai échanger leurs id.
J'avais trouvé un exemple mais je bloque à la fin, je pense il faudrait que je fasse un update mais il faudrait que je fasse un refresh aussi enfin voilà le code :

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
procedure TF_Operation.CRDB_PiecesDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var gc     : TGridCoord;
    ordre  : Integer;
begin
  gc := CRDB_Pieces.MouseCoord(X,Y);
  if (gc.X > 0) AND (gc.Y > 0) then
  begin
    if DM_Operation.Q_ChargerPiecesOpe.RecordCount = 0 then exit;
 
    ordre := DM_Operation.Q_ChargerPiecesOpePIE_ID.AsInteger;
   { with CRDB_Pieces do
    begin
      DataSource.DataSet.MoveBy (gc.Y - Row);
      DataSource.DataSet.Edit;
      Columns.Items[-1 + gc.X].Field.AsInteger := ordre;
    end;  }
  end;
end;

Merci d'avance pour votre aide

[Ph. B.]

Bonjour,

Je souhaiterai mettre en place un sytème de Drag & Drop dans un même DBGrid pour modifier l'ordre des pièces.
Par exemple, si j'ai 2 lignes et que je mets la 1ère à la place de la 2ème, je souhaiterai échanger leurs id.

Changer l'ID n'est pas un geste anodin contrairement à changer une valeur d'une colonne qui sert à ordonner l'affichage dans une grille. Cela a des impacts sur la table de la base de données sous jacente et des tables qui peuvent y être liées via une clé étrangère !!!
C'est une opération qui doit être murement réfléchie car mal faite, elle peut aboutir à mettre une pagaille monstre dans la base de données !

J'avais trouvé un exemple mais je bloque à la fin,
je pense il faudrait que je fasse un update mais il faudrait que je fasse un refresh aussi enfin voilà le code :

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
procedure TF_Operation.CRDB_PiecesDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var gc     : TGridCoord;
    ordre  : Integer;
begin
  gc := CRDB_Pieces.MouseCoord(X,Y);
  if (gc.X > 0) AND (gc.Y > 0) then
  begin
    if DM_Operation.Q_ChargerPiecesOpe.RecordCount = 0 then exit;
 
    ordre := DM_Operation.Q_ChargerPiecesOpePIE_ID.AsInteger;
   { with CRDB_Pieces do
    begin
      DataSource.DataSet.MoveBy (gc.Y - Row);
      DataSource.DataSet.Edit;
      Columns.Items[-1 + gc.X].Field.AsInteger := ordre;
    end;  }
  end;
end;

L'exemple dont vous avez tiré ce code s'appuyait sur un descendant du composant TDBGrid, un THackDBGrid qui faisait passer la propriété Row du statut protégé au statut public et pour des données provenant d'un autre composant. C'est donc inapplicable en l'état...

[drake56]

Bonjour,

Merci pour votre réponse, finalement j'ai créé un nouveau champ qui gère l'ordre puis vu que je n'ai pas réussi à faire de drag & drop, j'ai contourné le problème en mettant un TEdit modifiable dans mon Grid.