Discussion :

[AlexB59]

Bonjour,

mon but est le filtrage de données dans un formulaire.
J'explique le process :
1 - L'utilisateur clic sur le filtrage; la requête de données du formulaire est transférée au formulaire de filtrage.
2 - Après ouverture du formulaire de filtrage, l'utilisateur peut choisir parmi les champs de la requête et établir des conditions. (suivant l'ordre : Champs; Tri; Critères 1; Critères 2; ..)
3 - L'utilisateur clic sur un bouton pour valider son filtrage. Il y a construction de la chaine de condition et insertion dans la requête du formulaire parent. Le formulaire parent est filtré.

Mon soucis est le suivant : les composants IB ne permettant pas le filtrage, il me faut les intégrer dans la requête SQL. Ca se complique un peu lorsque dans une requête SQL on commence à voir l'apparition des clauses WHERE ou HAVING.
N'y a t'il pas un meilleur moyen que de procéder comme ça ?

Alexandre

[Guile]

les composants IB ne permettant pas le filtrage :

pourtant TIBTable et TIBQuery disposent bien des propriétés filter et filtered ainsi que le l'evenement OnFilterRecord

Je les ai déjà utilisé et ça fonctionne bien

[Andry]

les composants IB ne permettant pas le filtrage :

pourtant TIBTable et TIBQuery disposent bien des propriétés filter et filtered ainsi que le l'evenement OnFilterRecord

Je les ai déjà utilisé et ça fonctionne bien

Salut Guile,

Moi aussi, j'ai tenté de filtrer un TIBquery mais ça n'as pas marché.
Peux tu nous dire comment tu as fait ?


Merci

[AlexB59]

Bonjour,

tout comme Andry j'ai tenté mais sans réussir.
Après avoir beaucoup cherché sur le net, j'ai lu que les filtres n'étaient implémentés que par l'évênement OnFilterRecord (pas facile à gérer).

Tu faisais ça avec quelle version de Delphi ?

Merci

[Guile]

Je suis sous DELPHI 7 aussi.

Là, de mémoire, il me semble que ça, ça marchait bien :

Code :

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

1
2
3
4
5
6
7
8
 
with query1 do
begin
   filtered := false;
   filter := 'AGE > 20';
   filtered := true;
   open;
end;

une fois le query ouvert, il est possible de changer le filtre de cette manière :

Code :

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

1
2
3
4
5
6
7
 
with query1 do
begin
   filtered := false;
   filter := 'AGE > 15';
   filtered := true;
end;

sinon, la deuxième manière dans le onFilterRecord serait :

Code :

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

1
2
3
4
5
 
with query1 do
begin
   if FieldByName('AGE').AsInteger < 15 then Accept := false;
end;

C'est de mémoire donc à vérifier quand même, mais j'espère que ça pourra vous guider

[AlexB59]

tu es bien avec un composant IBQuery ?
j'ai testé, mais ça ne marche pas chez moi.

Merci,

Alexandre.

[Guile]

Oui oui, IBQuery. Etrange
Je ne me souviens plus si un Refresh suffisait pour rafraichir ou s'il fallait faire un query.Close, query.Open après un changement de filtre par contre.
Je ne suis quand même pas le seul à avoir fait marcher les filtres des composants Interbase

[Guile]

Tiens, j'ai même retrouvé ça qui marche très bien :

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
 
procedure TfSlides.qyListeFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  inherited;
  with qyListe do
  begin
    Case rgFiltre.ItemIndex of
      0 : Accept := FieldByName('SLD_ACTIF').AsBoolean; //Actifs
      1 : Accept := not FieldByName('SLD_ACTIF').AsBoolean;  //Inactifs
      2 : Accept :=(QyListe.FieldByName('SLD_DTDEB').IsNull or
                     (QyListe.FieldByName('SLD_DTDEB').AsDateTime <= DmMain.JourneeOuverte)) 
                          and
                          (QyListe.FieldByName('SLD_DTFIN').IsNull or
                          (QyListe.FieldByName('SLD_DTFIN').AsDateTime >= DmMain.JourneeOuverte)); //En cours
      3 : Accept := true;  //Tous
    end;
  end;
end;
 
procedure TfSlides.rgFiltreClick(Sender: TObject);
begin
  inherited;
  qyListe.Close;
  qyListe.Open;
end;

rgFiltre étant un TRadioGroup sur lequel on clique pour filtrer l'affichage

[AlexB59]

J'ai tout essayé pour avec filter et filtered. J'ai essayé en fermant et en réouvrant le query, en faisant un refresh du query et de mon dbgrid ...

Par l'évênement OnFilterRecord ça marche parfaitement.
Seul soucis c'est qu'en client serveur je ne sais pas si au niveau ressource ça peut poser problème pour les grosses tables.

Je vais me pencher sur le filtrage par sql. Je voudrais faire quelque chose de propre au niveau de la requête, sans ajouter mes critères en verrue ...

Merci pour ton aide.

[Andry]

Salut,

J'ai pas essayer avec l'evenement OnFilterRecord, mais pour le reste, j'ai déjà tester comme AlexB59 l'a fait.
En faites, j'ai déjà une grille qui affiche la liste complète ou le résultat de la recherche qui fournit le filtre qui ne necessite pas de toucher l'instruction Sql mais comme ça n'as pas marché alors j'ai jetté l'eponge et donc a finalement rajouter la condition where dans la reqête.
Je vais essayer le OnFilterRecord.

Merci

[AlexB59]

Pour le OnFilterRecord je te dirais de faire attention.
Place un brake dans la procédure et tu verras que pour chacun des enregistrements visible, il rentre dans la procédure pour vérifier sil elle correspond aux critères (Accept := MonChamp > 2).
Au niveau ressource je pense que ça en prend plus que le simple fait de modifier l'instruction sql.

[Andry]

J'ai bien fait alors de gerer la conditiopn where dynamiquement que d'utiliser cette evenement.

Merci à toi.

Cdt

[mondanikoffi]

si par exple c'est 1 combobox ki contient les élts svts lesquels on doit filter la table il faut taper ce coder sur son évènement on change :

ibtable1.filter := 'nom_champ = ' + combobox1.text ;
ibtable1.filtered := true ;