busquedas en delphi
 

buenas quisiera saber si por casualidad algunos de ustedes tendria ya realizado un ejemplo en delphi donde salgan varias maneras de realizar busquedas ya sea por combobox, checkbox entre otros

Hola.

No me queda claro si lo que querés es seleccionar el tipo de busqueda (burbuja, inserción, shell, quicksort, etc) mediante los componentes que mencionas o buscar dentro del contenido de ellos.

Si es esto último es muy sencillo en aquellos que tienen la propiedad TStrings.

Te doy algunos ejemplos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  lb,me,cb: string;
begin
  lb:= ListBox1.Items[ListBox1.Items.IndexOf('hola mundo')];
  cb:= ComboBox1.Items[Combobox1.Items.IndexOf('perro verde')];
  me:= Copy(Memo1.Text,Pos('casa', Memo1.Text), Length('casa'));
  ShowMessage(lb + #10#13 + cb + #10#13 + me);
end;

Pero te juro que no se me ocurre la manera de hacerlo con un CheckBox... :rolleyes:
Saludos. :)

si mira yo lo que quisiera hacer es esto un formulario donde tengo 2 checkbox donde uno se llama usuario y otro departamento y que cuando yo presione usuario e ingrese el usuario me realize la busqueda solo de los usuarios, al igual si presiono el checkbox de departamento.. y si utilizo un query que codificacion tendria que hacer.

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.