Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-08-2004
MaJeSTiC MaJeSTiC is offline
Miembro
 
Registrado: jul 2004
Ubicación: Villa Urquiza Cap. Fed - Buenos Aires - Argentina
Posts: 30
Poder: 0
MaJeSTiC Va por buen camino
Busqueda en ADOTable y RadioButtons

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
Responder Con Cita
  #2  
Antiguo 06-08-2004
MaJeSTiC MaJeSTiC is offline
Miembro
 
Registrado: jul 2004
Ubicación: Villa Urquiza Cap. Fed - Buenos Aires - Argentina
Posts: 30
Poder: 0
MaJeSTiC Va por buen camino
creo ke lo resolvi!

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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:18:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi