Quadruple filtre sur ADOQuery

**andreditdd** · 19/02/2007, 15h18

ReBonjour à tous...
Me revoila avec mes interrogations:
Suite à un post précédent, j'ai réussi à faire un filtrage du type "si 1 ou 2 = vrai"
En fait je devrais faire un tri plus précis du type "si ((1 et 2)et(3 ou 4))".
J'ai essayé avec 3 conditions mais je pense que je ne comprend pas bien la syntaxe car ça ne fonctionne pas:

Code :

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

ADOQuery1.Filter:='(Gr=' + QuotedStr(comp) + ') AND ((Dates=' + QuotedStr(d) + ') OR (Dates=' + QuotedStr(e)+ '))';

Un ptit coup de main siouplai...
Merci,
André

**Cl@udius** · 19/02/2007, 15h33

Salut

Lorsque les conditions de filtre deviennent plus complexes j'utilise l'évènement OnFilterRecord du DataSet.
Il suffit d'examiner la valeur des champs et de renseigner la variable Accept pour inclure ou exclure l'enreg.

@+ Claudius

**andreditdd** · 19/02/2007, 16h38

Oups...
Merci pour ta réponse, mais je débute, ce qui explique mes nombreuses questions.
Pourrais tu me donner un exemple car je ne comprend pas.
Merci,
André

**Cl@udius** · 19/02/2007, 16h51

Salut

Tout les compos héritant du DataSet possèdent cet évènement: OnFilterRecord.

Son utilisation vient en remplacement de la propriété Filter. Donc dans ce cas inutile de la renseigner.

Je te donne un exemple bateau.
L'évènement OnFilterRecord va être appelé pour chaque enregistrement contenu dans le DataSet. La variable booléenne Accept que tu devras renseigner va déterminer si l'enregistrement en cours fait partie du filtre (True) ou non (False).

Une condition simple:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.DataSet1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := (DataSet1.FieldByName('Gr').Value = comp);
end;

Une condition multiple:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DataSet1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := (DataSet1.FieldByName('Gr').Value = comp) and
                ((DataSet1.FieldByName('Dates').Value = '01/01/2007') or
                 (DataSet1.FieldByName('Dates').Value = '01/02/2007'); 
end;

Remarque: La condition sur les dates est à adapter en fonction de ton SGBD.

[edit]
Pour compléter, l'event OnFilterRecord ne sera appellé uniquement si la propriété Filtered est à True.
[/edit]

Voilà pour l'info

@+ Claudius

**andreditdd** · 19/02/2007, 17h11

Merci Cl@udius,
Je vais essayer, je vous tient au courant.

André

**andreditdd** · 19/02/2007, 17h39

Bon voila, j'ai ajouté ton code et bonne nouvelle, je n'ai pas de message d'erreur

Comment appeler cette fonction à un évenement boutonclick car pour l'instant, j'avais employé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Active:=True;
ADOQuery1.Filter:='(Dates=' + QuotedStr(d) + ') OR (Dates=' + QuotedStr(e)+ ')';
ADOQuery1.Filtered:=True;
nbredenregistr := IntTostr(ADOQuery1.Recordcount );
 d := DateToStr(Form1.DateTimePicker1.Date);
 e := DateToStr(Form1.DateTimePicker1.Date+1);
 StatusBar1.Panels[0].Text:='Récapitulatif de la garde du '+ d + '                     Nombre de sorties: ' + nbredenregistr;
end;

André

**Cl@udius** · 19/02/2007, 17h47

Envoyé par andreditdd

Bon voila, j'ai ajouté ton code et bonne nouvelle, je n'ai pas de message d'erreur

Euuh, j'ai un doute. Quand tu dis j'ai ajouté ton code tu parles de l'implémentation du OnFilterRecord ?
Car là je vois que tu utilises toujours la propriété Filter.

@+

**andreditdd** · 19/02/2007, 17h54

Non, pour l'essai, j'ai neutralisé ce code par des {} mais je voulais montrer comment j'appelais le filtre.
Jai mit le filtrage que tu as donné mais je ne sais pas comment l'appeler par un Btnclick.

André

**Cl@udius** · 19/02/2007, 17h59

L'évènement OnFilterRecord sera automatiquement appelé dès que la propriété Filtered basculera à True.

Donc tout simplement:

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Active:=True;
  d := DateToStr(Form1.DateTimePicker1.Date);
  e := DateToStr(Form1.DateTimePicker1.Date+1);
  ADOQuery1.Filtered := True;