Discussion :

[chekkal]

Bonjour à tous,


j'ai une table produit listé dans un dbgrid et à chaque appui sur les touches clavier j'utilise l'evenement onkeypress pour faire une recherche sur un produit spécifique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm7.dbg2KeyPress(Sender: TObject; var Key: Char);
begin
        if ((sender as Tdbgrid).selectedfield.fieldname='PRO')or((sender as Tdbgrid).selectedfield.fieldname='DES') then
        begin
              che:=che+key; ///che variable globale
              FDM.PRO.locate((sender as Tdbgrid).selectedfield.fieldname,che,[lopartialkey]);
              FDM.PROafterscroll(FDM.PRO);
        end;
 
end;

et dés fois locate et lente dans la recherche et je ne sais pas s'il ya une autre methode de recherche sans changemement de la liste des produits séléctionnée.
cad

Code :

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

1
2
3
4
 
///le code sql de selection des produits
FDM.PRO.sql.strings[0]:='select * from PRO order by pro'
///et je veut faire une recherche par code sql

merci

[SergioMaster]

Bonjour,

Rappel : il est toujours bon de rappeler la version de DELPHI et le set de composants utilisé pour les connections à la base de données (tant qu'à faire le type de SGBD aussi)

une suggestion : essayer des DBgrids alternatives (TMSGrid payante ou SmDBGrid gratuite) qui ont des fonctions de recherches (+ ou -) intégrées.

une remarque :

Code :

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

1
2
 
FDM.PROafterscroll(FDM.PRO);

je ne suis pas sur que cela soit adéquat et nécessaire

Autrement , faire une recherche via une query indépendante

Code SQL :

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

SELECT CLE FROM PRO WHERE CLE STARTING WITH :C

ce qui ne positionnera pas sur la grille , il faut ensuite trouver le moyen de faire concorder avec la 1° Query et on retombe sur le locate