Ayuda al usuario para realizar búsquedas

[rochi]

Hola, estoy realizando una aplicación en Delphi 7, con Firebird 1.5, usando las IBX. Pues bien, como ya dije totalmente nueva en esto, y tengo el siguiente problema que no se como encarar. Despliego los campos de la tabla X de mi bd en DBEdits. Supongamos que X tiene 2 campos: cod:integer;
nom_cod:string. El cod es clave primaria de la tabla.
Quisiera crear un mecanismo de búsqueda para que el usuario, si no recuerda el código, mientras digite el nombre aparezca una lista con los nombres que se aproximan en contenido, a lo digitado. Entonces, de ahí selecciona uno y listo.
Sobre un DBEdit no puedo hacerlo, me lo toma como una modificación de un campo.
Usé un DBLookUp para editar el campo, pero creo que algo hice mal, porque si digito nom1, tengo en la lista nom1,nom 2,nom3,....,nom_n
pero solo puedo buscar hacia adelante, si estoy en nom3 y pongo nom2, no vuelve hacia atrás y no cambia el registro en la tabla (si lo hace hacia adelante). No se si usar un IBQuery, en fin, desorientación total.
Sigo leyendo y experimentando a medida que leo, pero de todos modos, quisiera alguna visión mas experimentada del problema, o algun enlace con algo al respecto.

(Estuve buscando mensajes similares al mío pero no he encontrado nada...)

Gracias, saludos

[fredo]

prueba con un combobox normal
carga los valores que necesites en la propiedad itmes
(Items .add('Valor'));
cambla la propiedad style a Simple
y eso es todo....

Saludos

[rochi]

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]

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]

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

[[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
        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