Filtrage des enregistrements en delphi 7

**laguesbo** · 08/08/2011, 21h06

bonjour à tous chers programmeurs en delphi.
Voilà j'ai un problème avec le filtre. J'aimerai que lors de mes recherches, quand j'entre un caractère ou une lettre correspondant à un nom dans ma base de donnée, que tous ceux dont les noms ne commencent pas par cette lettre s'effacent. Mais le hic c'est que lorsque j'entre un caractère, c'est tout qui disparait. Voici mon code source:

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
procedure TForm12.Edit1Change(Sender: TObject);
var Filtre : string;
begin
 
// Constrcuction du Filtre avec le texte saisi dans la zone TEdit
Filtre := 'Nom_client =''' + Edit1.Text + '*''';
// Test si il n'y a rien dans le TEdit
if Edit1.Text ='' then
begin
// Arrête le filtrage de la table
form4.client.Filtered:=false;
// Quitte la méthode
exit;
end;
// Mise en place du filtre
form4.client.Filter := Filtre;
// Activation du filtre
form4.client.Filtered := true;
end;'

Pourriez-vous me dire où est le problème?
Merci de vos réponses.

**Rayek** · 09/08/2011, 09h59

Envoyé par laguesbo

bonjour à tous chers programmeurs en delphi.
Voilà j'ai un problème avec le filtre. J'aimerai que lors de mes recherches, quand j'entre un caractère ou une lettre correspondant à un nom dans ma base de donnée, que tous ceux dont les noms ne commencent pas par cette lettre s'effacent. Mais le hic c'est que lorsque j'entre un caractère, c'est tout qui disparait. Voici mon code source:

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
procedure TForm12.Edit1Change(Sender: TObject);
var Filtre : string;
begin
 
// Constrcuction du Filtre avec le texte saisi dans la zone TEdit
Filtre := 'Nom_client =''' + Edit1.Text + '*''';
// Test si il n'y a rien dans le TEdit
if Edit1.Text ='' then
begin
// Arrête le filtrage de la table
form4.client.Filtered:=false;
// Quitte la méthode
exit;
end;
// Mise en place du filtre
form4.client.Filter := Filtre;
// Activation du filtre
form4.client.Filtered := true;
end;'

Pourriez-vous me dire où est le problème?
Merci de vos réponses.

Essai plutôt comme cela

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
procedure TForm12.Edit1Change(Sender: TObject);
var Filtre : string;
begin
  // Constrcuction du Filtre avec le texte saisi dans la zone TEdit
  Filtre := 'Upper(Nom_client) like ' + QuotedStr(UpperCase(Edit1.Text) + '*');
  // Arrête le filtrage de la table
  form4.client.Filtered:=false;
  // Test si il n'y a rien dans le TEdit
  if Edit1.Text ='' then
  begin
    form4.client.Filter := Filtre;
    // Activation du filtre
    form4.client.Filtered := true;
  end;
end;'

**ShaiLeTroll** · 09/08/2011, 11h39

Pour Paradox, la méthode du Filter est très efficace
Pour les DB Distantes comme Oracle, SQL Server, MySQL ... mieux vaut préférer une Query (et un nombre restreint d'enregistrement)
L'ajout d'un index sur le champ peut améliorer les performances de l'égalité strict, pour le like l'amélioration dépend de la DB

Sinon, attention au ' parasite en fin de bloc, on peut simplifier encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm12.Edit1Change(Sender: TObject);
begin  
  // Arrête le filtrage de la table
  form4.client.Filtered:=false;
  // Test si il n'y a rien dans le TEdit
  if Trim(Edit1.Text) = '' then
  begin
    // Construction du Filtre avec le texte saisi dans la zone TEdit
    form4.client.Filter := 'Upper(Nom_client) like ' + QuotedStr(UpperCase(Edit1.Text) + '*');
    // Activation du filtre
    form4.client.Filtered := true;
  end;
end;

Attention au choix des noms de variables, Form4, Form12, Edit1, que cela soit pour un devoir ou un projet pro, autant que cela soit propre !
De tels noms n'aide pas à s'y retrouver !

**laguesbo** · 11/08/2011, 12h31

bonjour et merci de vos réponses. Mais lorsque je les essaye çà marche toujours pas!! en fait je constate plutôt vos codes convertissent les caractères minuscules en caractère majuscule!! est ce necessaire pour effectuer le tri? Parce que là je suis perdu!!

Bon je reexplique un peu mieux mon problème. Voilà je veux effectuer un tri qui est de telle sorte que quand j'entre par exemple la lettre " K " tous les noms ne commençant pas par cette lettre disparaissent. Avec vos codes ca ne marche pas. Alors SVp auriez-vous quelque chose d'autre?

**Zatoobux** · 11/08/2011, 13h06

Plusieurs problèmes :
1- Faute de frappe ?

Code :

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

if Trim(Edit1.Text) = '' then

Tu n'actives donc jamais le filtre.
Je pense que tu voulais écrire :

Code :

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

if Trim(Edit1.Text) <> '' then

2- TDataset.filter ne gère que peux d'instruction,
2.a - UpperCase n'est pas géré.
A la place il faut affecter :

Code :

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

TDataset.FileterOptions = [foCaseInsensitive]

2.b - like n'est pas géré
si foNoPartialCompare n'est pas dans TDataset.FileterOptions alors l'opérateur = ce comporte comme un like.

Donc dans ton cas ca devrait donner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm12.Edit1Change(Sender: TObject);
begin  
  // Arrête le filtrage de la table
  form4.client.FilterOptions := [foCaseInsensitive];
  form4.client.Filtered:=false;
  // Test si il n'y a rien dans le TEdit
  if Trim(Edit1.Text) <> '' then
  begin
    // Construction du Filtre avec le texte saisi dans la zone TEdit
    form4.client.Filter := 'Nom_client = ' + QuotedStr(Edit1.Text + '*');
    // Activation du filtre
    form4.client.Filtered := true;
  end;
end;

PS : attention aux termes : Trier = classer les données ce que tu veux n'est pas un tri mais un filtre !

**ShaiLeTroll** · 11/08/2011, 14h12

Tu as l'oeil Zatoobux !
On a laissé trainer des coquilles comme = au lieu de <>, mais bon je pense que laguesbo avait corrigé le problème car comme tout code étranger, il est bon de le comprendre et de l'adapter si nécessaire

Sinon, oui le TTable, BDE, c'est très léger !
Est-ce sur Paradox ? ACCESS ou DBase
Le Filter reste le plus rapide
Si c'est autre chose comme Oracle ou SQL Server : toujours le même conseil : le TQuery qui est plus simple que toutes ces options

Enfin, BDE, c'est obselète depuis 10 ans, tu dois forcément utiliser cela ?
Par conséquence Paradox, c'est pas mieux !
Rien que les problématiques de déploiement du BDE, au final sont plus pénible qu'un package comme "MySQL Essentials" via ADO\ODBC

**Zatoobux** · 11/08/2011, 14h20

<HORS SUJET>
Je ne veux pas lancer de débat... mais il n'a jamais été question ni de BDE ni de Paradox ici...

Tdataset.Filter est très efficace dans de très nombreux cas et n'est pas dépendant du BDE.
Tu peux utiliser TDataset.Filter sur un TClientDataset chargé depuis n'importe quoi !
Tu peux utiliser TDataset.Filter sur des composants lié au BDE mais aussi à ADO ou dbExpress !!!
Le seul inconvénient à mon avis à ne pas filtrer en amont, c'est que l'on charge TOUTES les données.
Par contre une fois les données chargées ca fonctionne super bien.
Faire un filtre dynamique dans le onChange d'un TEdit en renvoyant une requête à chaque fois sera moins efficace que l'utilisation de TDataset.filter.
</HORS SUJET>

**Rayek** · 11/08/2011, 15h28

Envoyé par Zatoobux

2.b - like n'est pas géré
si foNoPartialCompare n'est pas dans TDataset.FileterOptions alors l'opérateur = ce comporte comme un like.

Le like est géré (en tout cas avec les composants ADO j'en suis sûr car je l'utilise dans plusieurs programmes)

**ShaiLeTroll** · 11/08/2011, 15h33

Envoyé par Zatoobux

Je ne veux pas lancer de débat... mais il n'a jamais été question ni de BDE ni de Paradox ici...

Un Troll qui éviterait le débat ...

A part que ta réponse soit très complète, cela devrait aider laguesbo
@laguesbo, si tu as Delphi 7, si tu as les Demos, regarde FishFact, cela pourrait t'inspirer pour les manipulations DB

un ujet dans la section "Débutant" avec aucune précision de lib et DB avec comme titre "Filtrage des enregistrements en delphi 7", je devine un amalgame, la séparation Delphi\BDE\Paradox étant flou au possible pour un débutant

Possible que je me trompe ! non en fait j'y crois pas !

Sinon, quand tu dis LIKE n'est pas géré, tout dépend de l'implémentation :
Le TIBTable le gère parfaitement !

Le TMyTable de Devart, le gère aussi

En ADO, aucune idée, j'utilise ADOQuery, filter, ça doit bien faire 10 ans que je n'ai pas touché à ça, je vais pas m'amuser à récupérer une table 300 000 clients pour filtrer tous les Dupont

ça fait bien longtemps que j'ai aussi abandonné les filtres incrémentales, comme tu le dis, trop couteux, un bouton "recherche" multi-critère (dont une case à cocher genre "recherche partielle" ou "nom complet"), une petite fenêtre de patience pour les énervés du clavier)

Sinon, un point important c'est les espaces, il faut être propre et le ne pas coler les éléments comme = et ', il est fragile la dessus !

**Zatoobux** · 11/08/2011, 15h41

j'avoue, j'ai vérifié vite fait les points 2.a et 2.b... avec une TTable... donc le BDE

!

Et tu coup ce que j'ai dit ne s'applique pas avec ADO car TADOTable et TADOQuery ne publient pas TDataset.FilterOptions !!!

**Rayek** · 11/08/2011, 15h48

Envoyé par Zatoobux

j'avoue, j'ai vérifié vite fait les points 2.a et 2.b... avec une TTable... donc le BDE

!

Bouuuuuhhhhh, le BDE est a bannir c'est complétement obsolète

**laguesbo** · 12/08/2011, 09h55

rolalala!!! vos réponses bien qu'elles soient intéressantes sont vraiment à couper de souffle. Je me rends compte vu vos débats j'ai encore du progrès à faire en delphi là. Bon pour essayer de clarifier les choses @Zatoobux merci de la remarque sur me " = " mais je l'avais déjà vu et même modifié!

.J'utilise un ADO pour ma connexion et mes tables sont faites sous access (c'est vrai j'aurai dû commencer par là désolé)et j'utilise un ADOTable et là vous me parlez de BDE. du coup bah ya de quoi être au nord là. c'est vrai je sais aussi utiliser un BDE avec PARADOX mais je constate juste c'est pas assez fun et disons même un peu archaïque je trouve. Alors il n' y a pas de solutions à mon problème?

Mais bon je pense j'adopterai au cas contraire une nouvele méthode qui m'est passé par la tête parce que je constate sur la majeure partie des applications, cette méthode est récurrente quoi!! merci Tout de même cher Programmeur car vous me faites murir en Delphi

**Zatoobux** · 12/08/2011, 10h05

Si tu utilises ADO alors ignore ma remarque a propos de TDataset.FilterOptions.
Mais utilise ce que les autres ont proposé :

Code :

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

1
2
3
...
ADOTable1.Filter := 'nomduchamp like ' + QuotedStr(Edit1.Text + '*');
..

**ShaiLeTroll** · 12/08/2011, 10h32

Envoyé par laguesbo

j'utilise un ADOTable et là vous me parlez de BDE. du coup bah ya de quoi être au nord là. c'est vrai je sais aussi utiliser un BDE avec PARADOX mais je constate juste c'est pas assez fun et disons même un peu archaïque je trouve.

Lol trouve le couple ADO\ACCESS plus fun que BDE\Paradox, ça va c'est gentil, que dira tu avec ADO\SQL Server ou MyDAC\MySQL, ça c'est vraiment efficace !

Sinon, en fait, comme on utilisait LIKE depuis le début, tu avais juste le = '' à corriger en <> '' et la solution de Rayek fonctionnait !

Envoyé par Zatoobux

Et tu coup ce que j'ai dit ne s'applique pas avec ADO car TADOTable et TADOQuery ne publient pas TDataset.FilterOptions !!!

mais FilterOptions est public dès le TDataSet donc accessible par code mais toute modification provoque une Exception EDatabaseError avec le message "FilterOptions non prises en charge" (bon c'est ce que j'ai dans le code de ADODB.TCustomADODataSet.SetFilterOptions de 2007)

Il est vrai le TTable les publies pour l'utilisation avec l'IDE, le BDE c'est pour les fous du clicodrome !

Envoyé par laguesbo

lors il n' y a pas de solutions à mon problème?

Si si, il y a une !
Le TADOQuery !
Mais insiste sur le Filter, si Rayek l'utilise c'est que cela fonctionne ! Persévère avec le LIKE !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm12.Edit1Change(Sender: TObject);
begin  
  // Arrête le filtrage de la table
  form4.client.Filtered:=false;
  // Test si il n'y a rien dans le TEdit
  if Trim(Edit1.Text) <> '' then
  begin
    // Construction du Filtre avec le texte saisi dans la zone TEdit
    form4.client.Filter := 'Nom_client like ' + QuotedStr(Edit1.Text + '*');
    // Activation du filtre
    form4.client.Filtered := true;
  end;
end;

Filtrage des enregistrements en delphi 7

Delphi

Discussions similaires

Partager

Partager