Ver Mensaje Individual
  #1  
Antiguo 12-12-2010
elsamurai elsamurai is offline
Miembro
NULL
 
Registrado: nov 2010
Posts: 38
Reputación: 0
elsamurai Va por buen camino
ayuda con radiobutton

hola a todos,estaba poniendo una forma de buscar registro en mi aplicacion y dedici utilizar los radiobutton para que el usuario pudiera escojer por cual campo quiere realizar la busqueda,lo malo es que al correr el programa delphi no me tira ningun errror y se ejecuta bien pero en ves de localizarme el registro solo se sale del formulario actual,aqui les dejo el codigo a ver si me pueden ayudar

Código Delphi [-]
procedure TFRMCLIENTES.BitBtn1Click(Sender: TObject);
begin
  inherited;
  begin
if radiobutton1.Checked=true then
begin
DM.ADOCLIENTE.Locate('NOMBRE',Edit1.Text,[lopartialkey]);
end
else
if radiobutton2.Checked=true then
begin
 dm.ADOCLIENTE.Filter:='apellido='''+edit1.Text+'''';
 end
 else
 if radiobutton3.Checked=true then
 begin
 dm.ADOCLIENTE.Filter:='cedula='''+edit1.Text+'''';
 end
 else
 if radiobutton4.Checked=true then
 begin
 dm.ADOCLIENTE.Filter:='fecha='''+edit1.Text+'''';
 end
 else
 if radiobutton5.Checked=true then
 begin
 dm.ADOCLIENTE.Filter:='telefono1='''+edit1.Text+'''';
 end
 else
 begin
 showmessage('seleccione una opcion para realizar la busqueda');

 end
end;
  end;
end.

Última edición por Casimiro Noteví fecha: 12-12-2010 a las 14:37:22. Razón: Poner etiquetas [delphi] ...... [/delphi]
Responder Con Cita