Choix multiple + clause WHERE

Bonjour à tous,

J'ai 4 CheckBox que l'on va nommer chk1, chk2, chk3, chk4.
En fonction du choix je dois créer des filtres sur mes champs
mais les choix peuvent être combinés.

En fait il faudrait que je puisse additionner mes filtres du style :
if chk1.Checked then
Filter := Filtrer + 'Status = ''Ok'''
else
Filter := Filtrer - 'Status = ''Ok'''

il te faut utiliser les ensembles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

type TOption = (Opt1, Opt2, Opt3, Opt4); TOptions = set of TOption;   Var options : TOptions;   Options := []; // Vide Options := [Opt2, Opt4]; // Affectation de 2 choix Options := Options + [Opt3, Opt1]; // Ajout de 1 ou plusieurs choix Options := Options - [Opt1, Opt2]; // Suppression de 1 ou plusieurs choix

---

Une autre solution tres tres proche de celle ci serait d'utiliser les bits.
Une variable Integer est codee sur 4 octets, donc 4*8 = 32 bits.
Soit un ensemble de 32 valeurs (0=Absent, 1=Present).

Pour ajouter une valeur on fait un OR sur l'entier designant l'eneble et l'entient contenant uniquement le bit de la valeur a affecter.
00000001 or 00000010 = 00000011 => Ajout du 2e element

Pour la suppression c'est pareil mais avec un And :
00000011 and 11111101 = 00000001

Pour effectuer ces operations on se base sur les entiers :
00000001 = 1
00000010 = 2
00000100 = 4
00001000 = 8
Etc ...
Donc :

Soit : Var Options : Integer = 0;

Options or 4 = Ajout de la 3e option
Options or 8 = Ajout de la 4e option.

Pour la suppression, on il faut utiliser l'inverse de l'entier :
00000001 => 11111110 = not 1
Donc : Options or (not 8) = Suppression du 4e element ....

Ca reviens au meme que les set Of mais ca fait du bien de la savoir :D

Clorish je crois que tu es aller un peu trop loin par rapport a ce qu'il veut (je pense)

Pour le cas de multiple Option tu peux utiliser une TStringList pour Cumuler tes options à mettre dans un filter

A mettre dans la partie onClick des checkbox pour un effet en direct sur le dataset.

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

var lst : TStringList; i : integer; begin lst := TStringList.Create; try if chk1.checked then lst.Add('MonFiltre1');   if chk2.checked then lst.Add('MonFiltre2');   MonCompoDb.Filtered := False; if lst.count > 0 then begin MonCompoDb.Filter := lst.Strings[0]; for i := 1 to lst.count -1 do MonCompoDb.Filter := MonCompoDb.Filter + ' and ' + lst.Strings[i]; MonCompoDb.Filtered := true; end;   finally lst.free; end; end;

---

il y a peut être mieux mais en général je fais comme ca.

Citation:

---

Envoyé par Rayek

Clorish je crois que tu es aller un peu trop loin par rapport a ce qu'il veut (je pense)

---

Je ne pense pas :)
Les "Set of" sont fait pour ca ;)
Par contre, l'explication qui vient apres n'est pas utile, mais sert juste a expliquer une astuce fort utile dans cetains ca.
D'ailleur les "Set of" se base sur une technique proche de celel la :)

Citation:

---

Envoyé par Rayek

Pour le cas de multiple Option tu peux utiliser une TStringList pour Cumuler tes options à mettre dans un filter

---

Tout a fait ... dans la mesure ou ce que l'on souhaite stocker est une chaine de caractere a manipuler en tant que tel.
Sinon les entiers sont plus simple. Il exite tout une serie d'operateurs qui marchent directement sur les ensemble et on 'utilise qu'un entier au lieu d'une classe.
Quitte a faire un case sur la variable ensemble pour generer la chaine textuelle d'une requette SQL (si j'ai bien compris le domaine d'application)

Citation:

---

Envoyé par Rayek

il y a peut être mieux mais en général je fais comme ca.

---

Code:

---

1 2 3 4 5 6 7 8 9 10

type TOption = (Opt1, Opt2, Opt3, Opt4); TOptions = set of TOption;   Var options : TOptions;   Options := []; // Vide Options := [Opt2, Opt4]; // Affectation de 2 choix Options := Options + [Opt3, Opt1]; // Ajout de 1 ou plusieurs choix Options := Options - [Opt1, Opt2]; // Suppression de 1 ou plusieurs choix

---

;)

Note : Je me suis inspiré de son exemple qui ressemble etrangement a celui qui est utilisé dans l'usage de variable "ensemble".

Merci pour vos idées... je les garde bien en mémoire...

J'ai travaillé un peu autrement. J'ai créé une procédure qui est appelée à chaque fois que je clique sur un checkbox :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure ConstStrWhere(); var strWhere : string; begin strWhere := ''; if chk1.Checked then strWhere := strWhere + ' OR (ma recherche sur chk1)'; if chk2.Checked then strWhere := strWhere + ' OR (ma recherche sur chk2)'; if chk3.Checked then strWhere := strWhere + ' OR (ma recherche sur chk3)'; if chk4.Checked then strWhere := strWhere + ' OR (ma recherche sur chk4)'; strWhere := copy(strWhere, 5, length(strWhere)); //pour supprimer le OR du début

---

ensuite je n'ai plus qu'a compléter ma requête du style :

Code:

---

'SELECT * FROM matable WHERE ' + strWhere

---

et voilà...

Citation:

---

Envoyé par yamino

ensuite je n'ai plus qu'a compléter ma requête du style :

Code:

---

'SELECT * FROM matable WHERE ' + strWhere

---

---

Attention au cas ou StrWhere est vide ;)

Sinon, juste pour info, l'usage d'un Set Of te permet d'utiliser un case au lieu de plusieurs IF. C'est plus rapide ;)

Citation:

---

Envoyé par Clorish

Attention au cas ou StrWhere est vide ;)

Sinon, juste pour info, l'usage d'un Set Of te permet d'utiliser un case au lieu de plusieurs IF. C'est plus rapide ;)

---

Avec ou sans le Set Of il sera obligé de faire des if, car c'est un cumul d'option qu'il veut pas l'utilisation d'une option unique.

A la fin il sera obligé quand même de faire

Code:

---

1 2 3

if Opt2 in Options then result := result + 'Critère2'; if Opt3 in Options then result := result + 'Critère3';

---

Citation:

---

Envoyé par Rayek

Avec ou sans le Set Of il sera obligé de faire des if, car c'est un cumul d'option qu'il veut pas l'utilisation d'une option unique.

---

Autant pour moi .... petit passage a vide :)