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
svp
jai une table produit
jai placet un tedit et un dbedit et je veux a chak fois ke je saisie mon code produit le dbedit maffiche automatiquement la designation de ce produit  et son unite de mesure
table produit
code_prod
desgn_prod
unité-m(unite de mesure)
jai place encore untcombobox dune autre table qui sappl unité(code, disgn)
quand je choisi lunité (departement) je sais le code produit dc il ma ffichera son designation plus unité de mesure
et tous va va enregistre dans une autre table3
merci

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 14
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
0