busquedas en delphi

[ecfisa]

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.