Biolab 1.0

[[José Luis Garcí]]

Chirs, ahora que he solucionado el problema con mi base de datos de la empresa, te pongo el código de búsqueda que tengo (más que seguro que tu también lo conoces) e imágenes para expresar mejor lo que hablaba de las búsquedas.

Código

Código Delphi [-]
procedure TFcontactos.Button2Click(Sender: TObject);
//------------------------------------------------------------------------------
//***********************************************[ REALIZAR LA BUSQUEDA ]*******
//------------------------------------------------------------------------------
begin
  if Edit1.Text<>'' then
  begin
    if CheckBox1.Checked=false then
    begin       //Mejor busqueda pero no admite acentos
      IBDContactos.Active:=False;
      IBDContactos.SelectSQL.Clear;
      IBDContactos.SelectSQL.Add('select * from CONTACTOS WHERE UPPER (EMPRESA) LIKE '+QuotedStr('%'+UpperCase(Edit1.Text)+'%'));
      IBDContactos.Active:=True;
    end else
    begin         //Busque ignorando los acentos
      IBDContactos.Locate(RemoveAcentos(UpperCase('EMPRESA')),
                          RemoveAcentos(UpperCase(edit1.Text)),
                          [ loCaseInsensitive,loPartialKey]);
    end;
  end;
end;

imagen de la base sin búsqueda


Segunda imagen ya buscando


y Tercera imagen


Como te comentaba, según realiza la búsqueda, sólo van quedando los que coinciden, es verdad que si pones búsqueda sin acentos (se que tengo que corregir el acento de búsqueda), ya no se habilita esta opción, pues aún no he descubierto la manera de hacerlo, pero aún así se ira posicionando en el registro según la búsqueda.

Por cierto RemoveAcentos es una función que me baje de un foro de delphi brasileño, si hace falta pongo la función.