Modification des colonnes dans un dbgrid

Version imprimable

28/01/2009, 20h35
LuckyLuke56

Modification des colonnes dans un dbgrid

Slt à tous,
Dans une application, j'affiche un dbgrid affichant les champs d'une table qui selon le menu sélectionné par l'utilisateur doit afficher certaines colonnes et pas d'autres et dans un ordre différent que celui de la table. Est-il possible en delphi 4 uniquement par le code ou dois-je installer plusieurs dbgrid qui seraient activés selon le menu choisi ?

Merci
28/01/2009, 21h37
philnext

Je ne sais pas si c'est OK dans D4 mais regardes la notion de TColumn associé à la DBGRID.
29/01/2009, 08h43
LuckyLuke56

Merci de ton info.
J'ai vu effectivement pas mal de propriétés à ce sujet mais je ne trouve pas (à moins que je ne sois pas assez perspicace) la propriété qui détermine la position de la colonne dans le dbgrid. A mon regret, Je n'ai pas de composant supplémentaire permettant de gérer d'autres propriétés des dbgrid que ceux de delphi 4. En existe-t-il encore disponible? Mon souhait est que par exemple le champ 6 de ma table selon le tri choisi par le menu de mon application s'affiche tantôt en 6° position tantôt en première position.
Merci si tu peux m'en dire plus

salut

il te suffit de derive TDbGrid

exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type
 
  TDBGrid = Class(DBGrids.TDBGrid)
    procedure MoveColumn(FromIndex, ToIndex: Longint);
  end;
 
// on declar la form normalement
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ....
end;
 ...
 
implementation
 
{$R *.dfm}
// on rappelele la methode qui se trouve dans TCustomGrid
 procedure TDBGrid.MoveColumn(FromIndex, ToIndex: Longint);
 begin
   inherited;
 end;
 
// ici on l'utilise selon c'est besoin 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DBGrid1.MoveColumn(1, 3);
end;

@+ Phil

17/03/2009, 07h00
LuckyLuke56

Me revoilà à nouveau.
La compilation me donne une erreur :
Identificateur non déclaré : MoveColumn
et le point d'insertion vient juste après!
J'ai pourtant bien déclaré le tout comme proposé.

merci
17/03/2009, 08h47
rsc
Pour ma part, j'essaierais, en supposant que les noms de champs à afficher sont stockés dans un StringList ListeChamps :
Code:

1 2 3 4 DbGrid.Columns.Clear; for i := 0 to ListeChamps.Count - 1 do with DbGrid.Columns.Add do FieldName := ListeChamps[i];
Le code doit sans doute être affiné, mais c'est en gros comme ça qu'on procède quand on définit les colonnes à la conception.

salut

quel version de delphi ?

voici le code complet de mon essai et il marche parfaitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
unit UTestMove;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, DBTables;
 
type
  TDBGrid = Class(DBGrids.TDBGrid)
    procedure MoveColumn(FromIndex, ToIndex: Longint);
  end;
 
  TForm1 = class(TForm)
    DBGrid1 : TDBGrid;
    BitBtn1  : TBitBtn;
    Table1   : TTable;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 procedure TDBGrid.MoveColumn(FromIndex, ToIndex: Longint);
 begin
   inherited;
 end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DBGrid1.MoveColumn(1, 3);
end;
 
end.

@+ Phil

17/03/2009, 10h22
LuckyLuke56

Suis en delphi4 et l'aide me donne bien ce type de procédure.
Je ne suis pas un grand delphiste faut-il le dire? L'implantation des déclarations aurait-elle de l'importance car mon application est très volumineuse et peut-être ai-je mal déclaré le Movecolumn puisque le reste passe sans problème?
merci de votre aide.
17/03/2009, 10h32
anapurna

salut

as tu bien regarde mon code
j'utilise un astuce pour accéder aux élément protected
la méthode movecolumn existe dans le TCustomGrid mais dans la parti protected
le TDBGRID de delphi n'a pas augmenté la visibilitée de cet méthode

je dérive donc TDBGRID et l'appelle TDBGRID pour que l'on ai pas a changer tous les composant GRID de la forme

dans le TDBGRID dérivé je rend visible la méthode ce qui me permet ensuite
de l'utiliser dans la même unités

@+ Phil
17/03/2009, 19h15
LuckyLuke56

Merci à tous les intervenants.
Solution trouvée. Un mauvais positionnement de la déclaration de "movecolumn" provoquait cette erreur d'identification.
Cela fonctionne comme souhaité.
Mille mercis