Ayuda al usuario para realizar búsquedas

[[Lepe]]

Aplicación práctica de lo comentado por Rochi:

En la paleta BDE de delphi, eliges un componente Tquery, lo pones en el formulario; en el inspector de objetos:

- la propiedad DatabaseName, la despliegas, si has creado un Alias con el BDE administrator, eliges esa, si no has creado ninguna, pones la ruta de tu base de datos C:\prueba\tablas
- En la propiedad SessionName, eliges la que haya.
- En la propiedad sql, le das a los 3 puntos y pones:
SELECT Nombre FROM Clientes.DB ORDER BY Nombre
(Esto quiere decir, que vas a recoger todos los nombres de tu tabla clientes y ordenarlo ascendentemente por nombre.)

En la paleta de componentes "Data Access" eliges el TDatasource y lo pones en la ventana, en su popiedad dataset, eliges el Query1.

En el DBEdit que tienes de búsqueda, en su propiedad DataSource, le asignas el DAtasource1 que acabas de añadir, con esto enlazas el DBedit a la consulta que acabas de crear.

En la ventana de búsqueda, en el evento OnCreate, añades Query1.Open, y en el evento OnClose de la ventana: Query1.Close;

Por último en el evento OnKeyDown de tu DBEdit, pones :
Autocompleta(DBEdit1, Query1, 'Nombre');

De esta forma, has construido una consulta "oculta para el usuario", y que siempre va a estar ordenada alfabeticamente (muy util para las búsquedas)

Probablemente tengas que añadir en tus uses las librerias: Math, strUtils para las funciones ifthen y RightStr. Y eliminar la palabra "codigoutil."

Un saludo y espero te sirva.

PD:Masticalo despacio, ya que hay mucho contenido condensado.