Ver Mensaje Individual
  #4  
Antiguo 06-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola alejito.

No conviene usar un CheckBox en el caso que ponés, por que la selección no es excluyente, es decir alguién podría
elegir la busqueda por ambos casos y no es lo que deseas.

Te hago un ejemplo con TRadioGroup (items:'USUARIO' y 'DEPARTAMENTO'). Podés usar un TComboBox con iguales
resultados o si lo deseas, dos TRadioButtons.

Hay un TEdit, un TRadioGroup y un TDBGrid para el ejemplo. Use un IBQuery, pero es igual con un TQuery.
Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  Consulta: string;
begin
  if RadioGroup1.ItemIndex = 0 then
    Consulta:= 'SELECT * FROM TU_TABLA WHERE USUARIO = '+
               QuotedStr(Edit1.Text)
  else
    Consulta:= 'SELECT * FROM TU_TABLA WHERE DEPARTAMENTO = '+
               QuotedStr(Edit1.Text);
  IBQuery1.Close;
  IBQuery1.SQL.Text:= Consulta;
  IBQuery1.Open;
end;

Saludos.

Última edición por ecfisa fecha: 06-09-2010 a las 19:27:24.
Responder Con Cita