utilisation de FindKey

**Abou Zar** · 12/07/2010, 21h56

Bonjour,
je veux faire une recherche selon le numero (clé primaire)
Voici le bout de code

Code :

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

1
2
3
4
5
6
7
8
9
 
Procedure TForm1.Button2Click (Sender : TObject) ;
Var Rech : integer ;
Begin
Rech := strtoint ( Inputbox (‘Recherche’,’Entrez le numéro de l’’Employé’’,’1’)) ; 
If not Table1.FindKey ([rech]) then 
Messagedlg(‘Le Numéro De l’’Employé que vous avez saisis n’’existe pas’,
mtInformation,[mbok],0) ;
End ;

Quand je lance l'execution il me dit que l'identifiant Findkey non declaré.
J'utilise Delphi7.
Merci de m'aider à corriger le code!

**redoran** · 13/07/2010, 09h18

salut, est ce que vous avais indexé le champs N° employer.
apparemment votre code est correcte.

[edit]
j'ai relit votre message , avec une clé primaire ca devrait marché revoit votre table si le N° employé est bien la clé primaire, sinon ajoute mot DB dans les uses de la form " normalement c'est pour la recherche par lopartialkey...."

**Franck SORIANO** · 13/07/2010, 13h11

Envoyé par Abou Zar

Quand je lance l'execution il me dit que l'identifiant Findkey non declaré.

Quel est le type du composant Table1 ?

FindKey est une méthode du composant TTable. De plus, tu dois avoir cette erreur à la compilation (Ctrl+F9) plutôt qu'à l'exécution.

**Abou Zar** · 13/07/2010, 19h43

mon composant est de type IBTable.
coment gerer mon problème avec ce type?

**redoran** · 14/07/2010, 08h09

Salut: excuse pour le retard voila deux solutions que j'utilise sous ADO pour la recherche est c'est a vous de les adapter a ton composant.
Recherche avec filtre dans l'évènement onchange :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFregistre.Edit2Change(Sender: TObject);
begin
if edit2.Text<>'' then
begin
DM1.table1.Filtered:=false;
DM1.table1.Filter:='nreg = '+ QuotedStr(edit2.Text);
DM1.table1.Filtered:=true;
end
else
dm1.table1.Filtered:=false;
end;

ou une autre méthode findkey
button recherche:

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
procedure TFmConsulEqp.BitRechClick(Sender: TObject);
var
   rech:string;
begin
rech:= ' ';
rech:=InputBox('Recherche d''équipement','Veuillez saisir le N° de Série S.V.P','');
if rech <> ' ' then
             	 begin
 			  DM.TblEqp.IndexFieldNames:= 'N_S_Eqp';
   			TriNSerie.Checked:=true;
          			 if  not DM.TblEqp.FindKey([rech]) then
                 		 begin
             		Beep();
            		 ShowMessage('Désolé on ne peut donner suite à votre requête ,'+#13+
             		' N° de série introuvable');
                  end;
              end;
end;