Dbedit
nacimadop
Messages postés
2
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
25 janvier 2009
-
24 janv. 2009 à 12:04
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 24 janv. 2009 à 16:58
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 24 janv. 2009 à 16:58
1 réponse
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
13
24 janv. 2009 à 16:58
24 janv. 2009 à 16:58
bonjour,
et tous va va enregistre dans une autre table3
pas trop compris cette dernière manip..
mais pour la première, il y a beaucoup de solutions :
traduction brute :
un edit1, on tape le code et sur la touche Entrée tu affiches le résultat dans un autre edit2 si il existe dans la table :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Designation :variant;
begin
Edit2.text := '';
if Key = VK_RETURN then
begin
Designation := Query1.Lookup('Code_Prod', Edit1.text, 'desgn_prod');
if Designation <> Null then
Edit2.text : = Designation
else
showmessage('Ce code n''existe pas..');
end;
end;
cantador
et tous va va enregistre dans une autre table3
pas trop compris cette dernière manip..
mais pour la première, il y a beaucoup de solutions :
traduction brute :
un edit1, on tape le code et sur la touche Entrée tu affiches le résultat dans un autre edit2 si il existe dans la table :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Designation :variant;
begin
Edit2.text := '';
if Key = VK_RETURN then
begin
Designation := Query1.Lookup('Code_Prod', Edit1.text, 'desgn_prod');
if Designation <> Null then
Edit2.text : = Designation
else
showmessage('Ce code n''existe pas..');
end;
end;
cantador
