Ayuda al usuario para realizar búsquedas

rochi · #1 25-11-2004

hola, te agradezco la sugerencia, lo probaré. De todos modos, lo que yo quiero, quizás no fui clara, es que lo que ingreso en el comobox o lo que sea, permita posicionarme en el registro adecuado. Que haya una sincronización, y no me queda claro con tu ejemplo como lograrlo

Recorda que la idea es que yo si ingreso Rod...vayan apareciendo en la lista todos los 'rodriguez' por ejemplo. O sea, que lo que se despliega sea 'sensible' a lo que el usuario va digitando, para ese modo facilitar las búsquedas.
El DBComboBox no me resolvio el problema,quizás algo que inicialicé incorrectamente.

Gracias de todos modos, veremos que sucede.
Saludos, rochi

fredo · #2 25-11-2004

Lo que hace el ejemplo que te di es sugerirte el mas cercano(ve como funciona primero... autocompletar...), pero no te da una lista, lo de mover el puntero del dataset lo puedes hacer con un locate en el evento on OnKeypress, pero por lo que me explicas deberas hacer un refresco en la query de donde se listan los datos y recargar el combobox..., yo creo que lo que quieres logra te va a complicar la vida... depende de la cantidad de registros que tienes que listar, lo de la ayuda asi como te la di funciona, actualizando datos del combo va a requerir abrir y cerrar la query cada vez que preciones una tecla, y recargar nuevamente todo su contenido ... lo cual si son muchos, te vas a tener que ir a tomar un cafe antes de apretar otra tecla....

Saludos.

rochi · #3 26-11-2004

bueno, no pensé que fuera tan complicado...veré como lo resuelvo. Pro ahora a investigar. gracias igual

saludos, rochi

[Lepe] · #4 26-11-2004

en Firebird, puede que tengas que hacer un query.last para que recupere todos los registros, pero en fin, esto es para tablas paradox.

Código Delphi [-]  // constantes para el AutoCompleta
  const NO_BUSCAR = 1;
        BUSCAR = 0;
        BUSCAR_SI_CAMBIA = 2; // si no lo encuentra la 1ª vez, no sigue buscando hasta
                             //  que se borre caracteres anteriores
procedure AutoCompleta( Ctr:TcustomEdit; qry:TDataset;const NombreCampo:string); overload;
procedure AutoCompleta( Ctr:TComboBox; qry:TDataset;const NombreCampo:string);overload;


procedure AutoCompleta(Ctr:TcustomEdit;  qry:TDataset;const NombreCampo:string);
const checking :Boolean = False;
      OldText:string='';

var Campo:TField;
begin
  case key of
  vk_DELETE,VK_BACK :
            begin
              Ctr.SelText := '';
              Ctr.Tag:= codigoutil.IfThen(Ctr.Tag=BUSCAR_SI_CAMBIA,BUSCAR, NO_BUSCAR);
            end;
  VK_LEFT,VK_CAPITAL, VK_RIGHT, VK_HOME, VK_END: Ctr.Tag:= NO_BUSCAR;
  else
    Ctr.Tag := codigoutil.IfThen(Ctr.Tag=BUSCAR_SI_CAMBIA,NO_BUSCAR, BUSCAR);
  end;

  if Ctr.Tag = BUSCAR then
  begin
    if checking then Exit;
    checking:= True;
    if (Ctr.SelStart = 0) then
      OldText := Ctr.Text
    else
    OldText:= Copy(Ctr.Text,1,Ctr.SelStart);//+Key;
    if not qry.Active then
      qry.Open;
    if qry.Locate(NombreCampo, OldText  ,[locaseinsensitive, lopartialkey]) then
    begin
      Campo :=qry.FindField(NombreCampo);
      if Campo = nil then
        raise Exception.Create('proc AutoCompleta: Campo '+QuotedStr(NombreCampo)+' no encontrado')
      else
      begin
        if Key = vk_return then
          Ctr.Text:= Campo.AsString
        else
          Ctr.Text:= OldText + Rightstr(Campo.AsString,Length(Campo.AsString)-Length(OldText));
        Ctr.SelStart:= Length(OldText);
        Ctr.SelLength := Length(Ctr.Text);
  //      SetCaretPos(Length(OldText),1);
        Ctr.Tag:= BUSCAR;
      end;
    end
    else
    begin
      Ctr.Tag:= BUSCAR_SI_CAMBIA;
    end;
    checking:= False;

  end;


end;

En cuanto a eficiencia [...] es otro tema, pero si lo pide el usuario, pues se hace.

La funcion codigoutil.ifthen es la misma que tienes en delphi, pero segun los parámetros, estan desperdigadas por varias units, buscalas en la ayuda.

Esto funciona para un Edit, DBEdit, etc.

Saludos

[Lepe] · #5 26-11-2004

Creo que es obvio, pero la llamada seria en el OnkeyPress por ejemplo del DBEdit

la query, puede ser una tabla o una consulta oculta de la aplicación para este propósito.

Y como veis, usa el Tag del DBedit así que cuidadito con usarlo.

Espero que sea viable; saludos

Delfino · #6 27-11-2004

la suite JVCL tiene componentes para hacer el autocomplete sin escribir codigo, TJvDBFindEdit y TJvDBSearchEdit, seguro q te sirven..

inexperto · #7 30-11-2004

porque no usas filtros.......
yo realizo una busqueda a la tabla utilizando un edit y coloco el sgte codigo en el evento onchange:

if length(edit1.Text) <> 0 then
begin
miTabla.Filter := 'miCampo =' + QuotedStr(Edit1.Text+'*');
miTabla.Filtered := true;
end
else
begin
mitabla.Filtered := false;
end;

ademas conecto un dbgrid al componente miTable atravez de una dataSource, en el dbgrid se produce el efecto de descarte de acuerdo a las letras que estes ingresando en el componente edit1.

bueno espero que sea lo que buscas...chau

gregorio · #8 26-04-2005

Cita:

Empezado por Lepe

en Firebird, puede que tengas que hacer un query.last para que recupere todos los registros, pero en fin, esto es para tablas paradox.

Código Delphi [-]// constantes para el AutoCompleta
const NO_BUSCAR = 1;
BUSCAR = 0;
BUSCAR_SI_CAMBIA = 2; // si no lo encuentra la 1ª vez, no sigue buscando hasta
// que se borre caracteres anteriores
procedure AutoCompleta( Ctr:TcustomEdit; qry:TDataset;const NombreCampo:string); overload;
procedure AutoCompleta( Ctr:TComboBox; qry:TDataset;const NombreCampo:string);overload;
 
 
procedure AutoCompleta(Ctr:TcustomEdit; qry:TDataset;const NombreCampo:string);
const checking :Boolean = False;
OldText:string='';
 
var Campo:TField;
begin
case key of
vk_DELETE,VK_BACK :
begin
Ctr.SelText := '';
Ctr.Tag:= codigoutil.IfThen(Ctr.Tag=BUSCAR_SI_CAMBIA,BUSCAR, NO_BUSCAR);
end;
VK_LEFT,VK_CAPITAL, VK_RIGHT, VK_HOME, VK_END: Ctr.Tag:= NO_BUSCAR;
else
Ctr.Tag := codigoutil.IfThen(Ctr.Tag=BUSCAR_SI_CAMBIA,NO_BUSCAR, BUSCAR);
end;
 
if Ctr.Tag = BUSCAR then
begin
if checking then Exit;
checking:= True;
if (Ctr.SelStart = 0) then
OldText := Ctr.Text
else
OldText:= Copy(Ctr.Text,1,Ctr.SelStart);//+Key;
if not qry.Active then
qry.Open;
if qry.Locate(NombreCampo, OldText ,[locaseinsensitive, lopartialkey]) then
begin
Campo :=qry.FindField(NombreCampo);
if Campo = nil then
Exception.Create('proc AutoCompleta: Campo '+QuotedStr(NombreCampo)+' no encontrado')
else
begin
if Key = vk_return then
Ctr.Text:= Campo.AsString
else
Ctr.Text:= OldText + Rightstr(Campo.AsString,Length(Campo.AsString)-Length(OldText));
Ctr.SelStart:= Length(OldText);
Ctr.SelLength := Length(Ctr.Text);
// SetCaretPos(Length(OldText),1);
Ctr.Tag:= BUSCAR;
        end;
    end
else
begin
Ctr.Tag:= BUSCAR_SI_CAMBIA;
end;
checking:= False;
 
end;
 
 
end;

En cuanto a eficiencia [...] es otro tema, pero si lo pide el usuario, pues se hace.

La funcion codigoutil.ifthen es la misma que tienes en delphi, pero segun los parámetros, estan desperdigadas por varias units, buscalas en la ayuda.

Esto funciona para un Edit, DBEdit, etc.

Saludos

¿Pueden explicar mejor soy principiante?.
¿que es un query, con que se relaciona, porque me da un errer
vk_DELETE,VK_BACK : [Error] Unit5.pas(57): Incompatible types: 'Char' and 'Integer'?
¿Con que elemetos debo relacionarlo?
Tengo una TableCliente Paradox 7, un DBEdit relacionado con un TTable y un DataSourse,

rochi · #9 26-04-2005

Cita:

¿Pueden explicar mejor soy principiante?.
¿que es un query, con que se relaciona, porque me da un errer
vk_DELETE,VK_BACK : [Error] Unit5.pas(57): Incompatible types: 'Char' and 'Integer'?
¿Con que elemetos debo relacionarlo?

Hay ejemplos que vienen con Delphi y algunos artículos de este y otros sitios relacionados con bdatos y su manejo, que pueden ayudarte. Lo mío será una referencia superficial para que te sirva como guía, nada más, algo así como saber que existe 'eso' y listo.

Brevemente, una query es una consulta que se hace sobre una o mas tablas. Por lo tanto una query/consulta se relaciona con una o mas tablas.
El instrumento para realizarla es el lenguaje SQL (Structured Query Language). Casi todos los motores de bd traen uno incorporado, con sus estandares y dialectos. En Delphi, hay varios componentes que representan una 'query', con sus propiedades, métodos, eventos, etc. Esto dependerá de cual motor de bd estás usando, y el componente respectivo para trabajar con el motor. En BDE creo que es el TQuery, y si usas Interbase/Firebird, están los componentes IBX, que tiene el TIBQuery para las consultas. Las consultas se usan para extraer parte de los registros de una tabla o mas tablas, según cierto criterio de búsqueda. Y básicamente son datos que ese componente no puede modificar, sino solo extraer. Una consulta, conceptualmente, no modifica los datos. (Aunque verás que se usan consultas para extraer datos que otros componentes sí pueden modificar, por ejemplo los TIBClientDataSets)

La ventaja de trabajar con un lenguaje basado en SQL, es que no es necesario traer todos los datos de una tabla, sino los necesarios.
Es muy util en las tecnologías cliente-servidor, lo cual aligera el tráfico de datos entre ambos y lo hace menos propenso a errores.

Todos los componentes query tienen una propiedad SQL donde pones una sentencia SQL, que podría ser: 'Select cod_prod from Productos Where cod_prod > 100'. Donde Productos es una tabla asociada a una TTAble, y seleccionas aquellos producto con cód > 100.
Asocias un dataSource al TQuery para desplegar sus datos, por ejemplo en una grilla.
TQuery es un descendiente indirecto de TDataSet, por lo cual tiene algunos de los métods/eventos/prop. de este, por ej First, Locate, AfterClose, EOF,etc,etc. (No tiene Insert, no puede modificarse)

En cuanto a tu error, no se cómo estás manipulando los datos, ni que tenés en el código. Pero tal vez estás asociando la propiedad Text del dbEdit, con un campo de la tabla que no es string. ¿Podrías ser mas específico?.

Yo también estoy en mis comienzos, pero me decidí por Interbase/Firebird (cliente-servidor, tecnología mas nueva y con ventajas) y los componentes IBX o los dbexpress, y me encuentro probando Zeos. Tengo entendido que BDE es algo ya vetusto, parece medio pesado, y que Borland no se ocupará de mejorarlo, mas bien lo congeló. No se si viene con la versión 2005. Tengo d7.

Probablemente algun agregue algo más a lo mío. Suerte

rochi

[Lepe] · #10 26-04-2005

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.

Nelson Polanco · #11 26-04-2005

Saludos amigos.

Atención Rochi, visita este link http://delphi.about.com/od/usedbvcl/l/aa050499.htm
y encontrará un ejemplo claro y sencillo de lo que necesitas.

Espero le ayudes a todos los que necesitan realizar busqueda incremental.

Nelson Polanco
Rep. Dom.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado