[DELPHI] Code Source Recherche
*Composants:
edit1
RadioButton1 /// Nom
Radiobutton2 /// Prenom
Table1 : Champ Obligatoire : Nom & Prenom
///recherche
begin
if RadioButton1.Checked then if not Table1.Locate('nom',edit1.text,[])
then
showmessage('non trover') ;
if RadioButton2.Checked then if not Table1.Locate('Prenom',edit1.text,[])
then
showmessage('non trover');
end;
Leave a Comment