[Delphi 7 + Interbase] Formulaire de filtrage

Version imprimable

24/01/2006, 10h46
AlexB59

[Delphi 7 + Interbase] Formulaire de filtrage

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
24/01/2006, 10h53
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 :wink:
24/01/2006, 12h59
Andry

Citation:

Envoyé par 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 :wink:

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
24/01/2006, 14h01
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
24/01/2006, 14h15
Guile
Je suis sous DELPHI 7 aussi.

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

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:

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:

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 :wink:
25/01/2006, 11h09
AlexB59

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

Merci,

Alexandre.
25/01/2006, 11h20
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 8O

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

Code:

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

25/01/2006, 12h37
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.
27/01/2006, 12h08
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
27/01/2006, 12h37
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.
27/01/2006, 12h41
Andry

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

Merci à toi.

Cdt
28/01/2006, 13h32
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 ;