Holas amigos... si soy yo de nuevo
tengo otro problema ke quizas uds me podrian ayudar a resolver, ahi va:
Tengo 3 Radiobuttons, un Edit y un BitBtn que con los cuales kiero hacer determinadas buskedas en una ADOTable. me explico....
si selecciono el perimero e ingreso una determinada palabra debera buscar en ese campo (ej: nombre de cliente), si seleciono otro (ej: razon social) debera buscar en ese campo....
aca esta el codigo
procedure TFrmListCLie.BitBtn5Click(Sender: TObject);
var l:boolean;
begin
if RadioButton1.Checked
//then
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')
{*-*-*-*}
else 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')
{*-*-*-*}
else if radioButton2.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.
pero kreo ke hay un error o varios en el bucle...
Bueno, muchas gracias a todosy nos vemooosssss
