Tri dbrid croissant et decroissant

Télécharger le projet
Commenter

Description

comment integrer un headercontrol dans un dbgrid avec une image de tri + archivage be base de donne !!!

Source / Exemple : 


procedure TForm1.HeaderControl1SectionClick(HeaderControl: THeaderControl;
  Section: THeaderSection);
var i:integer; result:string;
    begin
 for i:= 0 to headercontrol1.Sections.Count-1 do
       headercontrol1.Sections[i].ImageIndex :=-1;
   result:='select * from produit  ';
   with query1 do
  begin
 // if  (Pos(' DESC', result)= 0) then  begin
  if Tri = 0 then                begin
           result :=result + ' order by ' dbgrid1.columnssection.index].Field.FieldName   + ' DESC';
           Close;
           SQL.Clear;
           SQL.Text:=result;
           Active:=true;
          STATUSBAR1.Panels[0].Text:='Tri Décroissant Selon Le Champ  '
          +dbgrid1.columns[section.index].Field.FieldName ;
           Tri:=1;  //pour inverser le tri
           section.ImageIndex :=0 end
   else  begin
           result :=result+' order by ' + dbgrid1.columns[section.index].Field.FieldName +' ASC' ;
           Close;
           SQL.Clear;
           SQL.Text:=result;
           Active:=true;
           STATUSBAR1.Panels[0].Text:='Tri  Croissant Selon Le Champ '+ dbgrid1.columns[section.index].Field.FieldName ;
           Tri:=0; //pour inverser le tri
           section.ImageIndex :=1 end;
    end; end;
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_walidlam)