Recherche alphabétique dans un DBGrid

**heart100** · 25/04/2016, 17h21

salut a tous , j'ai un dbgrid des données delphi , je sais comment filtrer avec un edit ou chercher avec un edit en utilisant locate , mais ce que je cherche , c'est comment chercher dans un champ dbgrid sans edit et sans combobox ,, seulement quand j'appuie sur un touche clavier par exemple "A" , l'indicateur va automatiquement sur l'enregistrement qui commence par A.

**tourlourou** · 25/04/2016, 17h31

Il faut utiliser les événements du clavier, comme OnKeyDown.

**heart100** · 26/04/2016, 10h39

Oui je le savais l'idée mais comment programmer ?

**FOCUS77** · 27/04/2016, 21h17

Bonsoir à tous

voila je te propose un code.

// DBGrid1.ReadOnly:=True ;
//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then   // uniquement les touches alphabétiques.
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'] ;
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

**heart100** · 05/05/2016, 11h11

Envoyé par FOCUS77

Bonsoir à tous

voila je te propose un code.

// DBGrid1.ReadOnly:=True ;
//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then   // uniquement les touches alphabétiques.
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'] ;
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

Malheuresement votre code ne marche pas . et Merci pour l'aide

**FOCUS77** · 05/05/2016, 12h04

Bonjour heart100

je l'ai essayé (avec Lazarus 1.6RC2) de 2 méthodes différentes et il marche très bien

vérifiez si vous n'avez rien oubliez. merci.

//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

//Form1.KeyPreview:=False ;

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
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
end;

**heart100** · 05/05/2016, 12h19

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
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then   // uniquement les touches alphabétiques.
 begin
 ibTable1.Filtered:=false  ;
 ibTable1.Filter:='NOM like'+Quotedstr((Chr(Key)+'*'));
 ibTable1.Filtered:=True;
 
 if ibTable1.FieldValues['NOM']<> Null then
 Val:=ibTable1.FieldValues['NOM'] ;
      ibTable1.Filtered:=false  ;
      ibTable1.Locate('NOM',Val,[])  ;
 end;
 end;

Voila mon code et ça marche pas , et n'oublier pas que je suis sur delphi7
par contre avec l'utilisation d'un edit ça marche parce que je suis déja habitué d'utriliser le filtre avec edit

**FOCUS77** · 05/05/2016, 12h33

Remplacez ce code:

Code :

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

ibTable1.Filter:='NOM like'+Quotedstr((Chr(Key)+'*'));

par celui là:

Code :

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

ibTable1.Filter:='NOM='+Quotedstr((Chr(Key)+'*'));

et n'oubliez pas la valeur de Keypreview!!

merci

**heart100** · 05/05/2016, 12h34

Nom : p1.png
Affichages : 1192
Taille : 43,9 Ko

Nom : p2.png
Affichages : 1146
Taille : 39,6 Ko

Nom : p3.png
Affichages : 1155
Taille : 24,5 Ko

**heart100** · 05/05/2016, 12h38

Envoyé par FOCUS77

Bonjour heart100

je l'ai essayé (avec Lazarus 1.6RC2) de 2 méthodes différentes et il marche très bien

vérifiez si vous n'avez rien oubliez. merci.

//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

//Form1.KeyPreview:=False ;

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
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
end;

Toujours ne marche pas , malgré ja'i changé like par = , je pense que ça marche pas sur delphi7