Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Autocompletar (https://www.clubdelphi.com/foros/showthread.php?t=39745)

Raistlin 29-01-2007 11:25:07

Autocompletar
 
Hola, estoy haciendo una aplicacion de calzado.
Se crean modelos de zapatos añadiendo los articulos que lo forman.
Esto se hace trabajando sobre un grid introduciendo el nombre de los articulos.
Lo que quisiera hacer es introdicir la primera letra del articulo y que se gestione un autocompletar, ademas de ir metiendo mas letras y se autocomplete de forma mas especifica.
Pero no se como plantear esto.
¿ Alguna idea o guia?
Muchas Gracias!!!

Héctor Randolph 29-01-2007 12:05:35

Hola Raistlin!

No has mencionado que manejador de base de datos utilizas, por lo pronto puedo sugerirte usar el evento OnChange de un TEdit, de esta forma mientras el usuario escribe el texto puedes ir modificando el query asociado al grid para mostrar los registros filtrados.

Este ejemplo que te pongo funciona en Interbase/Firebird, algo similar puedes hacer con otros manejadores

Código Delphi [-]
procedure TForm1.EditArticuloChange(Sender: TObject);
begin
  // ocurre el evento cada vez que cambia el texto
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CLAVE, DESCRIPCION FROM ARTICULOS');
    SQL.Add('WHERE DESCRIPCION STARTING WITH :Texto');
    // Envías como parámetro el texto contenido en el TEdit
    ParamByName('Texto').AsString:=EditArticulo.Text;
    Open;
  end;
end;

Saludos


La franja horaria es GMT +2. Ahora son las 01:46:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi