Discussion :

[Laurent Dardenne]

Salut,
utilisant la grille TSMDBGrid j'aimerais savoir comment gérer au mieux la modifications des critères de tri ?

Aujourd'hui j'utilise des tableaux pour les gérer, comme par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure SetTableauTri(ATriCroissant : Boolean; Var ATAbleau : Array of TSMSortType; ATypeTriColonne: Array of TSMSortType);
Var I: Integer;
begin
 for I := 0 to High(ATypeTriColonne) do
 begin
  if ATriCroissant
   then ATableau[I]:=ATypeTriColonne[I]
   else if ATypeTriColonne[I]=stAscending
         then ATableau[I]:=stDescending
         else ATableau[I]:=ATypeTriColonne[I]
 end;
end;

Ce tableaux permet par la suite de construire la clause Order By.

Existe-t-il une autre approche ?

Merci.

[LadyWasky]

Donc tu essais de trier sur un TQuery, c'est ça ?

[edam]

je préfère

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure SetTableauTri(ATriCroissant : Boolean; Var ATAbleau : Array of TSMSortType; ATypeTriColonne: Array of TSMSortType);
Var I: Integer;
begin
 for I := 0 to High(ATypeTriColonne) do
 begin
     if ATriCroissant then ATableau[I]:=ATypeTriColonne[I]
     else ATableau[I]:=stDescending;
 end;
end;

[LadyWasky]

OOOOOOOOOOOOKAY, je vois aussi...

Non, le truc que je fais n'a rien à voir avec une table, (quoique très similaire à ta méthode).

A la place d'une table, j'utilise un ensemble qui représente l'ensemble des champs ordonnés par ordre décroissants (ceux qui sont absents de l'ensemble sont supposés l'être par ordre croissant, ce qui est l'ordre par défaut d'une base de donnée en général) :

Code :

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

1
2
3
4
 
type 
TMesChamps=(mcChamp1,mcChamp2,mcChamp3); //3Champs dans ma table
var SortDescSet=set of TMesChamps;

ou alors (mais c'est moins documentant) :

Code :

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

1
2
 
var SortDescSet:set of byte; //si 0 est présent dans mon ensemble, le champ n°0 sera trié par ordre décroissant,etc...

Après quoi, si je clique sur mon entète de colonne pour changer l'ordre de tri :

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
//OnClick de la colonne :
begin
...
if index in SortDescSet then exclude(SortDescSet,index)
                               else exclude(SortDescSet,index);
MiseAJourOrderBy;
 
...
end;
 
 
procedure MiseAJourOrderBy;
var i:integer;
     ClauseOrderBy:string;
begin
  ...
  ClauseOrderBy:='Order by ';
  for i:=0 to FieldCount-1 do
  begin 
     if i in SortDescSet 
     then ClauseOrderBy:=ClauseOrderBy+FieldbyIndex(i).FieldName+' desc'
     else  ClauseOrderBy:=ClauseOrderBy+FieldbyIndex(i).FieldName+' asc';
     if i<FieldCount-1 then ClauseOrderBy:=ClauseOrderBy+',';
  end;
end;

Bien sur, c'est du à la louche, c'est surtout pour te montrer le principe que j'utilise.

ça m'évite de me trimbaler des tables à tout bout de champ et de bouffer la mémoire vive

voilà

[edam]

pour ma part je fait simple mais le trie et fait sur un seul colonne que l'utilisateur à cliké

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
 
Const
    Instr:String='select * from Eleves';
var
   Cole:Integer;
   Direct:Boolean;
procedure TFArticles.Initialise;
begin
     cole:=-1;
     Direct:=false;
end;
procedure TFArticles.DBGrid1TitleClick(Column: TColumn);
var s:string;
begin
     s:=Instr+' ORDER BY ['+column.Field.FieldName+'] ';
     if Cole<>column.Field.FieldNo then
       begin
         Cole:=column.Field.FieldNo;
         Direct:=false;
       end
     else
       begin
          Direct:=not Direct;
       end;
     if Direct then s:=s+' DESC;';
end;

[Laurent Dardenne]

Donc tu essais de trier sur un TQuery, c'est ça ?

Oui

je préfère

Oui tu as raison mais, n'ayant pas tout communiqué sur le contexte d'usage, cela ne convient dans mon cas.
A l'origine l'utilisateur sélectionne le type de tri par menu (cas de tri combiné) et je ne fais qu'inverser la clause "order by" et dans ce cas.
Donc les colonnes indiquées "stNone" ne sont pas concernées par la modification de la clause.

Je n'utilise pas de table mais des tableaux.
Pour l'utilisation d'un ensemble au lieu d'un tableau l'approche est identique, bien que l'opérateur "in" facilite le code.
Pour l'évenement onclick de la colonne je ne pense pas que dans mon cas cela m'aide.

Je vais regarder ça de plus prés. En tout cas je vous remercie pour votre aide.