Discussion :

[Nzs26]

Bonjour,

J'exécute un moteur de recherche lorsque l'utilisateur renseigne une zone de saisie.

Dès qu'un nouveau caractère est saisis, une requête avec l'agrégat LIKE est exécutée et le résultat obtenu s'affiche dans un dbGrid. J'obtient l'équivalent d'un moteur de recherche.

Cela dit, j'hésite pour l'évènement de la zone de saisie qui indique l'appuye d'une touche.

Voici ma liste d'hésitation :

- onChange
- onKeyDown
- onKeyPress
- onKeyUp

J'aimerais connaître votre avis sur les avantages et les inconvénients de chacun, l'évènement que vous utilisez généralement et pourquoi afin de me décider !

Merci par avance,

NZs

[Cl@udius]

Salut

Dans le cas présent, j'utiliserais l'évènement OnChange. Cela simplement parce que tu ne dois réagir uniquement qu'aux changements du texte dans le TEdit.

Les autres évènements sont utiles lorsque tu veux effectuer, par exemple, des contrôles sur la saisie avant modification. (Interdire la saisie de chiffres par exemple).

@+ Claudius

[Lung]

Dans le cas présent, j'utiliserais l'évènement OnChange.

+1
C'est ce que j'utilise aussi.

[Kaféine]

Salut,

moi je met un bouton "Rechercher" en default à true. l'utilisateur tape son texte de recherche dans le edit et tape la touche entrée pour envoyer la recherche....

C'était juste pour dire que je n'utilisais pas un évènement de l'edit comme mes 2 confrères

[Nzs26]

Rapidité, précision, efficacité, que demandez de mieux !
Merci à vous ^^

J'ai donc utilisé l'évènement onChange mais je me trouve maintenant face à un problème :

Quand je saisie la première touche, celle-ci renvoie la valeurs vide.

Quand je saisie la seconde touche, celle-ci renvoie la valeur de la première touche ainsi de suite ce qui me provoque une erreur dans ma requête SQL.

Voici mon code :

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
procedure TfrmCtrlmp.zsNumlotKeyPress(Sender: TObject; var Key: Char);
var
  boolVide : boolean;
begin
  inherited;
  try
    if self.zsNumlot.Text <> '' then
    begin
    strQuery := ' select Id, date, heure, numlot, qterecep, datefab, residu '
              + ' from process_labo_mp_tarrivee'
              + ' where Id_mp = '
              + self.zsIdMp.Text
              + ' and numlot like "%'
              + self.zsNumlot.Text
              + '" and del = 0 '
              + ' order by date desc';
    _frmData.prRequete(self.cdsRechRecep, self.sqlRechRecep, strquery);
  end;
  except
  exit;
  end;
end;

Mon soucis est donc que les résultats affiché dans mon dbGrid ont toujours un train de décalage .

Je pense donc que je doit mal utiliser l'évènement ?

NZs

[Lung]

J'ai donc utilisé l'évènement onChange

...

Code :

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

procedure TfrmCtrlmp.zsNumlotKeyPress(Sender: TObject; var Key: Char);

Il y a un truc que je comprend pas.
Tu dis que tu utilises Onchange et je vois OnKeyPress.

[Nzs26]

Effectivement,

J'avais effectuer mes traitements sur les 3 évènements pour tenter de choisir le mieux adpater, j'en ai supprimé deux sur trois, mais apparement le mauvais ...

Je m'en vais de ce pas tester avec le bon évènement,

Merci de la remarque !

NZs

[Kaféine]

Le OnChange aura pour effet de lancer la requête à chaque appui sur une touche ?!

[Nzs26]

Alors modification effectuée :

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
procedure TfrmCtrlmp.zsNumlotChange(Sender: TObject);
begin
  inherited;
   try
  if self.zsNumlot.Text <> '' then
  begin
  strQuery := ' select Id, date, heure, numlot, qterecep, datefab, residu '
            + ' from process_labo_mp_tarrivee'
            + ' where Id_mp = '
            + self.zsIdMp.Text
            + ' and numlot like "%'
            + self.zsNumlot.Text
            + '" and del = 0 '
            + ' order by date desc';
            showmessage('change' + strQuery);
  _frmData.prRequete(self.cdsRechRecep, self.sqlRechRecep, strquery);
  end;
  except
  exit;
  end;
end;

Le résultat est exactement celui que je souhaitais merci beaucoup

J'ai juste le petit soucis que malgrès le fait que je test si ma chaîne et vide ou pas avant d'exécutée la requête, ma requête s'exécute tout le temps !

Je me penche la dessus

NZS

[Nzs26]

Alors j'ai résolu mon problème de condition : il considéré que ma zone de saisie contenait un espace au départ donc la condition ne passait pas :

Code :

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

if self.zsNumlot.Text <> '' then

J'ai donc rajouté un espace :

Code :

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

if self.zsNumlot.Text <> ' ' then

Au passage j'ai décelé une erreur dans ma requête SQL : l'agrégat LIKE ne s'utilise pas avec des guillements mais avec des côtes ( peut-être que cela pourra aider quelqu'un) :

Code :

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

1
2
3
4
5
6
7
8
 strQuery := ' select Id, date, heure, numlot, qterecep, datefab, residu '
            + ' from process_labo_mp_tarrivee'
            + ' where Id_mp = '
            + self.zsIdMp.Text
            + ' and numlot like ''%'
            + self.zsNumlot.Text
            + '%'' and del = 0 '
            + ' order by date desc';

Voilà Merci à tous pour votre aide

NZs