DBGRID versus EDIT

warlockplus · 8 de julho de 2008

Bom dia Galera!

Sou bastante cru no Delphi, não sei mexer muito direito. Preciso do seguinte:

Tenho um DBGRID com uma serie de dados de clientes(nome, endereco, etc) e abaixo um Edit, gostaria que a medida que um nome fosse sendo inserido no edit o dbgrid fosse atualizado de acordo com o filtro informado no edit.

Teria q ser tipo OnKeyPress, faria tal coisa.... mais eu não sei bem de delphi como falei.

Valeu galera.

joaquimlmeireles · 8 de julho de 2008

No evento OnChange do Edit, nesse caso: edtConsulta:

try

if edtConsulta.Text <> '' then

dmPrincipal.cdsClientes.FindNearest([edtConsulta.Text]);

except

MessageDlg('Valor de localização inválido!',mtWarning,[mbOk],0);

edtConsulta.Text := '';

edtConsulta.SetFocus;

end;

Em compania do edtConsulta, uso o cbxOrdem (TComboBox), onde defino os indices de classificação, no evento OnChange dele:

case cbxOrdem.ItemIndex of

0: dmPrincipal.cdsClientes.IndexName := 'IndexCodigo';

1: dmPrincipal.cdsClientes.IndexName := 'IndexNome';

end;

edtConsulta.Text := '';

edtConsulta.SetFocus;

Não se esqueça de criar os indices na propriedade IndexDefs da tabela, informando o nome do indice na propriedade Name e o campo na propriedade Fields

O método "FindNearest" localizará de acordo com o que estiver definido no cbxOrdem.

Espero ter ajudado!