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.