FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
|
|
|