Discussion :

[Mirmillon]

Bonjour à tous,

J'ai un datamodule avec un IBQuery qui effectue un ordre SELECT sur plusieurs champs avec un ORDER BY sur un champ T_PAT_NOM et une fiche avec un DBGRid qui affiche le résultat de IBQuery

Comme cette requete renvoie plus de 200 noms je voudrais filtrer le résultat en utilisant l'évènement onChange d'un TEdit. Mais rien ne marche.
J'utilise D7 + Firebird 2.0

Voici le code de l'événement onChange que j'ai trouvé sur le forum mais pas d'effet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TF_GESTION_DOSSIER.Edit1Change(Sender: TObject);
begin
 if (Length(Edit1.Text) > 0) then
    begin
      DM_2.Q_DOS_1.Filter := 'T_PAT_NOM = ' + QuotedStr (Edit1.Text + '*') ;
      DM_2.Q_DOS_1.Filtered := True;
    end
  else
    begin
      DM_2.Q_DOS_1.Filtered := False;
    end;
end;

J'ai essayé par l'évènement Onfilter de l'IBQuery avec le code suivant mais la DBGrid se vide

Code :

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

Accept := DataSet['T_PAT_NOM'] = F_GESTION_DOSSIER.Edit1.Text;

Ou est l'erreur ?

D'avance merci

Mirmillon

[Cl@udius]

Salut

Avec la propriété filter:

Code :

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

1
2
  DM_2.Q_DOS_1.Filter := 'T_PAT_NOM LIKE ' + QuotedStr (Edit1.Text + '%') ;

Ou dans l'evènement OnFilterRecord, il faut que tu compare les 1° caractères du champ avec la contenu du TEdit.
Dans ton exemple cela donne a peut près cette condition 'EXEMPLE' = 'EX'. Pas bon.

@+ Claudius

[Mirmillon]

Bonjour,

Merci pour ta réponse. Pour Filter ça ne marche toujours pas, il s'agit d'une requete sur deux tables.


Et le OnFilterRecord j'avoue ne pas comprendre.

Mirmillon

[Cl@udius]

Salut

Essaye ceci dans OnFilterRecord:

Code :

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

1
2
3
4
5
6
7
 
var
  S: string;
begin
  S := Copy(DataSet.FieldByName('T_PAT_NOM').AsString, 1, Length(Edit1.Text));
  Accept := CompareText(Edit1.Text, S) = 0;
end;

@+

[Mirmillon]

Claudius,

Merci pour ton aide. La piste est bonne ça filtre mais uniquement sur la première lettre ce qui est déjà pas mal. Je vais étudier le code pour filtrer sur plusieurs lettres.

Merci encore.

Mirmillon

[Cl@udius]

a piste est bonne ça filtre mais uniquement sur la première lettre ce qui est déjà pas mal.

Le code que je t'ai proposé est censé filtrer sur la ou les lettres saisies dans le TEdit.