Quero fazer uma pesquisa no banco digitando num TEdit e apertando ENTER, Veja a imagem (Delphi)

Question

Quero Digitar o Cofigo neste teclado virtual e quando apertar enter quero que o Tedit ja fa�a a pequisa no banco e liste num segundo t editImagem>>> https://s21.postimg.org/peplwxg7r/Sem_t_...

Robson Morais · Answer

no TEdit tem um evento OnEnter, s� colocar a query que busca esses dados nesse evento, sobre ser num segundo a listagem, vai depender muito do seu banco de dados, se ele est� configurado corretamente, se os relacionamentos est�o corretos, index e etc....

Joao Ishiwatari · Answer

Voc� pode usar os controles DBWare da biblioteca Jedi que possuem recursos de busca recursiva, n�o � aconselh�vel para uso em tabelas com muitos registros visto que eles precisariam de um (Select * from) e isso n�o � ideal, voc� pode usar o evento OnChange do Tedit... mais ou menos assim

begin
  if Length(Trim(Edit1.Text)) > 0 then
    begin
      Qr.Close;
      Qr.SQL.Text := 'SELECT NUM FROM COMANDAS WHERE NUM LIKE ' + QuotedStr(Trim(edit1.text) + '%');
      Qr.Open;
      Qr.First;
      Edit2.Text := Qr.FieldByName('NUM').asString;
    end;
end;

Com esse codigo, cada vez que o usu�rios digitasse um n�mero no edit1 ele executaria uma consulta no banco e colocaria o primeiro registro encontrado no edit2.

Essa � uma forma de fazer.

F�rum Quero fazer uma pesquisa no banco digitando num TEdit e apertando ENTER, Veja a imagem (Delphi) #570316