Consulta Codigo

[iglesio]

Amigos, como faço uma pesquisa por codigo, usando um edit.

No qual vou digitando e os dados vai aparecendo numa grid.

Uso delphi 6 com um query.

[Micheus]

como faço uma pesquisa por codigo, usando um edit.

No qual vou digitando e os dados vai aparecendo numa grid.

Utilize o método locate da query dentro de evento OnChange do Edit. Tem dois post's meus, aqui no forum, que podem ser aproveitados:

-> Link1

-> Link2

[]s

[Eder Moraes]

Tenho outro exemplo tambem muito útil pra você:

procedure Tfrm_alunos.Edit1Change(Sender: TObject);

var

campo,inicio,fim:string;

begin

if radiobutton1.Checked then begin campo := 'codigo'; inicio := '="'; fim := '"'; end;

if radiobutton2.Checked then begin campo := 'aluno'; inicio := 'like "%'; fim := '%"'; end;

if radiobutton3.Checked then begin campo := 'tutor'; inicio := 'like "%'; fim := '%"'; end;

with dm.qr_alunos do begin if Active then close;

sql.Clear;

sql.Add('SELECT * FROM alunos WHERE '+campo+' '+inicio+''+edit1.Text+''+fim);

Open;

end

end;

//de acordo com radiobutton1 selecionado ele muda a forma de pesquisa.

//ou voce pode também usar o locate('nomeCampo',edit1.text,[loPartialKey]); caso não queira limpar a consulta.