Tri dbrid croissant et decroissant

Soyez le premier à donner votre avis sur cette source.

Vue 4 200 fois - Téléchargée 1 043 fois

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;

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_cantador
Messages postés
4716
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
9 -
Bonjour,

On ne pas dire que ce source soit d'une grande originalité...
J'ai compté pas moins d'une bonne dizaine de programmes déjà déposés faisant la même chose.

Il faudrait peut-être au lieu de refaire ce qui existe déjà imaginer au contraire
des softs utilisant le dbgrid et surtout réaliser quelque chose d'utile répondant à un besoin.

et là dans ce domaine, il y a de quoi faire !
cs_walidlam
Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1 -
voici la procedure qui fait la connection automatique
{procedure CreateAlias;
const
FDbDriver = 'PARADOX';
SubDir = 'dossier de la base \'; //il faut ajouter '\'
var
FAlias: string; chemin:string;
FAliasDir: string;
begin
FAlias := 'nom alias';
chemin := ExtractFilePath(ParamStr(0))+SubDir; {ParamStr(0)c 'est le chemin d'executable ou on peut mettre (application.ExeName )}
Session.ConfigMode := cmPersistent;
if not Session.IsAlias(FAlias) then
begin try begin
FAliasDir := ExtractFilePath(chemin);
Session.AddStandardAlias(FAlias, FAliasDir, FDbDriver); end finally
DbiCfgSave(nil, nil, True);
end; end; end;}
cs_walidlam
Messages postés
111
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
29 avril 2013
1 -
bonsoir
merci yvessimon
j ai deja fait la connexion automatique au bde au "application alias +excel"
mon objectif le tri du sql
yvessimon
Messages postés
644
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
Bonjour,

Dommage la connexion à la base n'est pas automatique produit.DB

Mais bon programme

Salutations

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.