Discussion :

[LuckyLuke56]

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

[philnext]

Je ne sais pas si c'est OK dans D4 mais regardes la notion de TColumn associé à la DBGRID.

[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

[anapurna]

salut

il te suffit de derive TDbGrid

exemple

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
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

[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

[rsc]

Pour ma part, j'essaierais, en supposant que les noms de champs à afficher sont stockés dans un StringList ListeChamps :

Code :

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

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.

[anapurna]

salut

quel version de delphi ?

voici le code complet de mon essai et il marche parfaitement

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
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

[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.

[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

[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