procedure TFrmListCLie.BitBtn5Click(Sender: TObject);
var l:boolean;
begin
if RadioButton1.Checked then
begin
L:=ADOtable1.locate('id_clie', edit1.text,[loCaseInsensitive]);
{aquí locaseinsensitive indica
que la búsqueda será de cualquier texto que coincida sin importar
que se hayan intercambiado mayúsculas por minúsculas o viceversa.}
if L then
showmessage('El Nombre "'+edit1.text+'" fue encontrado en la tabla')
else
showmessage('El Nombre "'+edit1.text+'" no fue encontrado en la tabla')
end;
{*-*-*-*-*-*-*-*-*}
if RadioButton2.Checked then
begin
L:=ADOTable1.Locate('ra_so', edit1.Text,[loCaseInsensitive]);
if L then
ShowMessage('El Nombre "'+edit1.Text+'" fue encontrado en la tabla')
else
ShowMessage('El Nombre "'+edit1.Text+'" no fue encontrado en la tabla')
end;
{*-*-*-*-*-*-*-*-*}
if RadioButton3.Checked then
begin
L:=ADOTable1.Locate('no_fa', edit1.Text,[loCaseInsensitive]);
if L then
ShowMessage('El Nombre "'+edit1.Text+'" fue encontrado en la tabla')
else
ShowMessage('El Nombre "'+edit1.Text+'" no fue encontrado en la tabla')
end;
end;
end.
al menos asi me funciona a mi....
jajajajajja
