Discussion :

[BuzzLeclaire]

Bonjour tout le monde,

J'ai installé cette Grid gratuite qui est vraiment pas mal.

Je me heurt à un probleme dans la fontionnalité de tri sur titleclick.
Pourtant j'ai vue des posts où tout celka devrait fonctionné tout seul.

J'ai regarder la FAQ de SMDB, j'ai ouvert les démo fournis... mais toujours pareil d'ailleur la démo cela fonctionne pas non plus.

j'ai essayé cela sur l'évenement titleClick

Code :

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

1
2
3
  (Column.Grid as TSMDBGrid).ClearSort;
  if Column is TSMDBColumn then
    TSMDBColumn(Column).SortType := stAscending;

ou même cela

Code :

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

  (Column.Grid as TSMDBGrid).SetSortField(Column.Field, stDescending);

A part l'appration d'un mini fléche dans les colonnes je n'ai rien d'autre !!

Les champs apparaissent bien ainsi que les données, ma source point sur un ADOTable.

Merci de vos lumières.

[Félix Guillemot]

Bonjour tout le monde,

J'ai installé cette Grid gratuite qui est vraiment pas mal.

Je me heurt à un probleme dans la fontionnalité de tri sur titleclick.
Pourtant j'ai vue des posts où tout celka devrait fonctionné tout seul.

J'ai regarder la FAQ de SMDB, j'ai ouvert les démo fournis... mais toujours pareil d'ailleur la démo cela fonctionne pas non plus.

j'ai essayé cela sur l'évenement titleClick

Code :

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

1
2
3
  (Column.Grid as TSMDBGrid).ClearSort;
  if Column is TSMDBColumn then
    TSMDBColumn(Column).SortType := stAscending;

ou même cela

Code :

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

  (Column.Grid as TSMDBGrid).SetSortField(Column.Field, stDescending);

A part l'appration d'un mini fléche dans les colonnes je n'ai rien d'autre !!

Les champs apparaissent bien ainsi que les données, ma source point sur un ADOTable.

Merci de vos lumières.

Parfois c'est lié au type de DataSet qu'il ya derrière. teste sur autre chose que un TADOTable pour voir

[SergioMaster]

ça tombe bien , je viens juste d'utiliser à nouveau une SmDbGrid pour un programme

Bon bien sur pas avec un TADOTable (tu connais mon sentiment envers Access) et voilà ce que j'ai fait pour ce type 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
26
27
28
29
30
31
 
procedure TForm11.SMDBGrid1TitleClick(Column: TColumn);
var i : Word;
    tri : string;
begin
if SMDBGrid1.Columns[Column.Index].SortType=stAscending then
    SMDBGrid1.Columns[Column.Index].SortType:=stDescending
  else begin
     if SMDBGrid1.Columns[Column.Index].SortType=stDescending
       then SMDBGrid1.Columns[Column.Index].SortType:=TSMSortType(stNone)
       else SMDBGrid1.Columns[Column.Index].SortType:=stAscending ;
  end;
Tri:='';
for I := 0 to SMDBGrid1.ColCount-2  do
 begin
   case SMDBGrid1.Columns[i].SortType of
     stDescending : begin
                     if length(Test)>0 then Test:=Test+';';
                     Tri:=Test+SMDBGrid1.Columns[i].Field.FieldName+' Desc';
                    end;
     stAscending  : begin
                     if length(Test)>0 then Test:=Test+';';
                     Tri:=Tri+SMDBGrid1.Columns[i].Field.FieldName+' Asc';
                    end;
   end;
 end;
Contacts.IndexFieldNames:=Tri;      // en fait c'est ici que cela joue
if Length(Test)>0 then Label20.Caption:='TRIEES'
                  else Label20.Caption:='NON TRIEES' ;
Label21.Caption:=Label20.Caption;
end;

Contacts étant la table (composant zeos) affiché dans la dbgrid

il y a aussi une autre astuce (mais Alzheimer est passé par là ) dès que je la retrouve je t'en fait part

[Edit] Oubliez la dernière phrase il s'agissait d'un truc sur les filtres et le dialogue associé

[BuzzLeclaire]

Salut sergio,

Avec ton exemple j'ai fais cela qui fonctionne (me reste 2 prob)

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
procedure TFEngins.SMDBGrid1TitleClick(Column: TColumn);
begin
  With DataModule1 do
  Begin
    SourceTableEngins.DataSet.DisableControls;
 
    if SMDBGrid1.Columns[Column.Index].SortType=stAscending
    then
      Begin
        SMDBGrid1.Columns[Column.Index].SortType:=stDescending;
        ADOEngins.Sort :=  SMDBGrid1.Columns[Column.Index].FieldName + ' DESC';
      end
    else
      Begin
        SMDBGrid1.Columns[Column.Index].SortType:=stAscending;
        ADOEngins.Sort := SMDBGrid1.Columns[Column.Index].FieldName + ' ASC';
      end;
 
    SourceTableEngins.DataSet.EnableControls;
  end;
end;

Donc là le tri fonctionne, en fait la smdbgrid ne fait rien de plus qu'une Dbgrid en terme de tri... il faut le faire soit même !!!

2 problèmes reste encore en suspent.
1) lorsque je tri, donc je clique sur une colonne, apparait alors un petit symbol du sens du tri, mais si je choisi de trier ensuite sur une autre colonne, ce fameux symbole reste apparent sur la colonne précédemment trié + la nouvelle que je clique.
concretement il y a-t-il un moyen simple d'effacer à chaque nouveau clique colonne ce symbole où réinitialisé l'apparence du grid

2) Cela ne fonctionne pas sur les champs tMemo, moi qui pensait qu'avec la smdbgrid j'aurai régler mon problème de tri sur les colonnes de type tMemo lorsqu'on utilise un TAdoTable.

Merci.

[BuzzLeclaire]

Bon pour le 1) j'ai fais cela

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
  if SMDBGrid1.Columns[Column.Index].FieldName <> OldRef then (Column.Grid as TSMDBGrid).ClearSort;
  With DataModule1 do
  Begin
    SourceTableEngins.DataSet.DisableControls;
    OldRef := SMDBGrid1.Columns[Column.Index].FieldName;
    if SMDBGrid1.Columns[Column.Index].SortType=stAscending
    then
      Begin
        SMDBGrid1.Columns[Column.Index].SortType:=stDescending;
        ADOEngins.Sort :=  OldRef + ' DESC';
      end
    else
      Begin
        SMDBGrid1.Columns[Column.Index].SortType:=stAscending;
        ADOEngins.Sort := OldRef + ' ASC';
      end;
 
    SourceTableEngins.DataSet.EnableControls;
  end;

Me reste plus que le 2. Sachant que j'affiche cela dans les colonnes de Type tMemo.

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
procedure TDataModule1.ADOEnginsAfterOpen(DataSet: TDataSet);
Var
  i : integer;
Begin
  // on redirige les zones memo vers memoGetText
  for i := 0 to DataSet.FieldCount - 1 do
    if (DataSet.Fields[i] is TMemoField) then
      DataSet.Fields[i].OnGetText := MemoGetText
    else
      if (DataSet.Fields[i] is TFloatField) then
        {MISE EN FORME Numérique}
        TFloatField(dataset.Fields[I]).DisplayFormat :='#0.00';
 
end;
 
Procedure TDataModule1.MemoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  i : integer;
begin
 
  try
    Text := sender.AsString;
    if displayText then
    begin
      i := pos(#13,Text); // On récupère la position du retour à la ligne
      if i > 0 then
        Text := copy(Text,1,i-1) + '...'; // Text étant la valeur à afficher pour un TMemo on aura 1 ligne si il y a plusieur ligne dans le Tmemo
    end;
  Except
    on E : Exception do
    Begin
      ShowMessage();
    end;
  end;

Merci pour vos lumières

[Andnotor]

Une idée serait d'ajouter un champ calculé à ton DataSet de type string que tu remplis avec les données de ton champ mémo et tu affiche ce nouveau champ à la place du mémo .

[SergioMaster]

+1 avec toi AndNotOr mais pas forcé de l'afficher c'est a buzz et sa routine que revient le travail

Donc là le tri fonctionne, en fait la smdbgrid ne fait rien de plus qu'une Dbgrid en terme de tri... il faut le faire soit même !!!

Ben oui , encore que j'ai un doute , il se peut que que cela soit notre faute ou notre paresse (ça marche pas la peine de chercher + loin) et le manque cruel de doc sur le sujet

[EDIT] finalement non ce n'est pas notre faute au vu de la réponse de l'auteur ici

1) lorsque je tri, donc je clique sur une colonne, apparait alors un petit symbol du sens du tri, mais si je choisi de trier ensuite sur une autre colonne, ce fameux symbole reste apparent sur la colonne précédemment trié + la nouvelle que je clique.
concretement il y a-t-il un moyen simple d'effacer à chaque nouveau clique colonne ce symbole où réinitialisé l'apparence du grid

OUI le fameux ClearSort te fais ça en une fois voici dans mon cas ce que je fais :

Code :

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

1
2
3
4
5
6
procedure TForm11.NoTris1Execute(Sender: TObject);
begin
SmDbGrid1.ClearSort;
Contacts.IndexFieldNames:='';
Label20.Caption:='NON TRIEES';
end;

le hic c'est que si tu fait un clearsort avant tu n'as plus de colonne triées donc plus de le sorttype de la colonne, attention a le mémoriser avant

[BuzzLeclaire]

Merci Sergio pour les infos, cela me rassure.... comme je travail qu'avec ADO... ca va pas le faire... est-ce une erreur ? je sais pas..

Bref.
Je suis passé de ADOTable à ADOQuery pour voir. Cette fois si les champs TMemo ne posent aucun problème...va comprendre pourtant j'ai exactement la même procédure que dans ma ADOTable concernant l'évenement AfterOpen que je redonne au passage :

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
procedure TFTravail.QueryAfterOpen(DataSet: TDataSet);
Var
  i : integer;
Begin
  // on redirige les zones memo vers memoGetText
  for i := 0 to DataSet.FieldCount - 1 do
    if (DataSet.Fields[i] is TMemoField) then
      DataSet.Fields[i].OnGetText := MemoGetText;
end;
 
Procedure TFTravail.MemoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  i : integer;
begin
 
    Text := sender.AsString;
    if displayText then
    begin
      i := pos(#13,Text); // On récupère la position du retour à la ligne
      if i > 0 then
        Text := copy(Text,1,i-1) + '...'; // Text étant la valeur à afficher pour un TMemo on aura 1 ligne si il y a plusieur ligne dans le Tmemo
    end;
end;

Mais maintenant dans ma procédure de titlteclique de ma SMDBGrid1, il m'est impossible d'afficher la petit flèche sans un message d'erreur (aucun intérêt de le mettre ici, elle n'est pas exploitable l'erreur.)

Voici ce que je fais dans ma procédure de tri sur l'évenement titleclique

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
43
44
45
46
47
procedure TFTravail.SMDBGrid1TitleClick(Column: TColumn);
Var
  t: Cardinal;
begin
 
  ColonneCliqueeRefOld := ColonneCliqueeRef;
  if SMDBGrid1.ValidFieldIndex(Column.Index) then
  Begin
    if not (Column.Field.DataType in [ftBlob]) then
    Begin
      t :=  GetTickCount;
      Screen.Cursor := crSQLWait;
      ShowStatus('En cours...',0);
      ColonneCliqueeRef := Column.Index;
 
  SMDBGrid1.DataSource.DataSet.DisableControls;
  With Query Do
  Begin
      SQL.Clear;
      Sql.Add(Requete.Text);
      if ColonneCliqueeRef >= 0 then
      Begin
        if (ColonneCliqueeRef = ColonneCliqueeRefOld) Then // on clique sur la meme colonne 'reclic'
        Begin
          if Tri = ' ASC'
          Then Tri := ' DESC'
          else Tri := ' ASC';
        end
        else
          Tri := ' ASC';
        Sql.Add(' Order By '+ InttoStr(ColonneCliqueeRef+1) + Tri);
      end;
      Active := True;
      //Open;
 
      StatusBar1.Panels[4].Text := IntToStr(SMDBGrid1.DataSource.DataSet.RecordCount) + ' enregistrement(s)';
      showstatus('Terminé.',1);
    end;
  end;
  SMDBGrid1.DataSource.DataSet.EnableControls;
 
 
      StatusBar1.Panels[1].Text := 'Tps écoulé : '+ TraductionTickEnTemps(GetTickCount-t);
      Screen.Cursor := crDefault;
    end;
  end;
end;

Que je mets ou pas la procédure suivante ou une autre dans la procédure ci-dessus soit il se passe rien soit bing boom erreur :

Celle-ci

Code :

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

1
2
3
  (Column.Grid as TSMDBGrid).ClearSort;
  if Column is TSMDBColumn then
    TSMDBColumn(Column).SortType := stAscending;

Ou même celle-ci

Code :

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

1
2
3
4
5
    if SMDBGrid1.Columns[Column.Index].SortType=stAscending
    then
      Begin
        SMDBGrid1.Columns[Column.Index].SortType:=stDescending;
// ...

Où même la tienne Sergio. Rien à faire...


Je pourrais éventuellement dessiner cette flèche, est-ce que vous savez utiliser l'évenement de la SMDBGrid :

Code :

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

1
2
3
4
5
6
procedure TFTravail.SMDBGrid1DrawColumnTitle(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 
end;

Apparement on peut atteindre le titre de colonne ici.
Comment je pourrais faire pour afficher une petit fleche à coter du titre de la colonne, j'ai tentez certaine chose mais je suis encore tombé sur pas mal d'erreur non exploitable.

Merci Pour Vos remarques

[SergioMaster]

Bon , je ne sais pas trop , mais je crois que ton erreur vienne du fait que tu fermes et réouvres le SQL .

Une suggestion : Utilises un TADODataset au lieu d'un TADOSQL et après "ma suggestion de code"

Contacts étant un TADODataset
Contacts.Command= le SQL

Code suggestion SQL :

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

1
2
 
SELECT CHAMP1,CHAMP2,CHAMPBLOB,CAST(CHAMPBLOB AS VARCHAR(20)) AS TRIBLOB FROM TABLE

nota dans le SQL, au niveau du CAST y a peut etre un substring extract ou autre de Access a faire ( mais , une fois de plus moi+Access = ) pour éviter une erreur

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
procedure TForm11.SMDBGrid1TitleClick(Column: TColumn);
var i : Word;
      tri : string;     // c'est surtout pour un test debug facile 
     s : TSortType; // mémorisation su tri de la colonne 
begin
s:=SMDBGrid1.Columns[Column.Index].SortType;
SMDBGrid1.Clearsort;
case s of 
  stNone :   begin  SMDBGrid1.Columns[Column.Index].SortType:=stAscending;
         tri:= Column.FieldName+' Asc';
                   end;
 stAscending : begin   SMDBGrid1.Columns[Column.Index].SortType:=stDescending;
         tri:= Column.FieldName+' Desc';
                  end;
  else begin
         SMDBGrid1.Columns[Column.Index].SortType:=stNone ;
         tri:='';
  end;
Contacts.IndexFieldNames:=Tri;      // en fait c'est ici que cela joue
end;

te restes a traiter le cas clic sur la colonne Blob genre :
si je clicque sur la colonne blob alors je n'utilise pas column.fieldname mais le nom du champ blob


Enfin tu connais la musique ? tu excuseras également ma présentation de code c'est fait à la volée
TOUT CECI ETANT TOTALEMENT SPECULATIF ET NE DEVANT PAS ETRE PRIS COMME PAROLE D'EVANGILE

[BuzzLeclaire]

Salut sergio,

Rien à faire même avec un AdoDataset et sa propriété commandtext j'a exactement le même résultat une belle erreur lors du tri sur un champs Mémo.

J'en est marreeeeeeee ....lol

Donc en résumé :
Avec un AdoTable ou ADOdataset les champs mémo pas triable
Avec un AdoQuery champs mémo no probleme mais je n'ai plus la petite fléche qui apparait dans les titres de colonnes.


Je vais donc remettre en AdoQuery malfré tout en espérant trouver ici un âme charitable qui pourrais me montrer comment dessiner cette fléche dans l'evenement Ondrawtitle de cette smdbgrid.

Merci.

[SergioMaster]

S les champs mémo pas triable

les champs memo non , et c'etait pour cela l'astuce du sql , tu affiches le memo, mais tu tries sur une partie du mémo transformé en varchar

et ça je pense que ça aurait du fonctionner !

bon évidemment je peux pas tester sans jeu d'essai

[BuzzLeclaire]

les champs memo non , et c'etait pour cela l'astuce du sql , tu affiches le memo, mais tu tries sur une partie du mémo transformé en varchar

et ça je pense que ça aurait du fonctionner !

bon évidemment je peux pas tester sans jeu d'essai

Ma procédure MeMoText (au dessus) fais déjà à moins que je me trompe...
Et d'ailleur si je place un AdoQuery à la place d'un AdoTable ou AdoDataSet avec cette procédure AfterOpen comportant l'affichage des memo en string le tri au clique title fonctionne parfaitement mais je perd la petit fleche !!!

On se mort la queue....