Fórum Form controle Financeiro #581839

28/05/2017

0

Delphi Automação Comercial Banco de Dados

Amigos do DevMedia, mais uma vez venho pedir ajuda para resolver uma duvida,
Tenho uma form com uma dbGrid ligada a um DataSource que claro me retorna dados de uma tabela chamada TBL_DIZIMOS
Preciso Buscar o NOME na tabela MEMBRO e adicionar na TBL_DIZIMO
isso ja acontece quando eu digito nome no Edit mas eu preciso que o Edit filtre em tempo real de digitação,
Exemplo : se eu for pesquisar o JOÃO DAS COUVES
entao no dbedit eu começo a digitar [JO] e o sitema me mostre os relacionados a estes caracteres.
JONAS DAS COUVES
JOEL DAS COUVES
JONATHAN DAS COUVES
Se me resolverem isso ja resolve mas o bom mesmo é preencher o dbgrid com nome e ID

Espero sr compreendido por que eu axo que fiz uma salada de informações
Janilto Oliveira

Janilto Oliveira

Responder

Post mais votado

29/05/2017

Não entendi bem, mas você pode filtrar no evento onChange do Edit.
cds.Filtered := False;
cds.Filter := ' NOME LIKE ' + QuotedStr('%' + edit.text + '%');
cds.Filtered := True

Gabriel Baltazar

Gabriel Baltazar
Responder

Gostei + 1

Mais Posts

29/05/2017

Janilto Oliveira

Esse CDS é o que ? Seria ClientDataSet ?

Me desculpe é que sou iniciante!!
Responder

Gostei + 0

29/05/2017

Gabriel Baltazar

Sim, você está usando ele? Senão, como está buscando os dados ?
Responder

Gostei + 1

29/05/2017

Janilto Oliveira

por enquanto eu havia apenas colocado um DBedit direto na tabela mas sei que não é o correto e o que preciso é o seguinte
Edit Nome >> Buscando e filtrando dados da tabela MEMBROS para inserir na tabela VALORES
Minha Form tem vários Edits mas o único que pega valor de outra tabela é o Edit NOME os demais são preenchidos na própria form
Edit Nome >> Filtra dados da table Membro
Se tiver o procedimento completo pra eu fazer aqui agradeço
Responder

Gostei + 0

30/05/2017

Janilto Oliveira

Boa noite , no Onchange da Edit eu add o seguinte 
DM.QNome.Close;
DM.QNome.Parameters.ParamByName('pnome').Value := Edit1.Text + '%';
DM.QNome.Open;



Ma esta dando uma erro de Objeto Parameter definido incorretamente na sei o que fazer kkkk
Responder

Gostei + 0

30/05/2017

Marco Antônio

Bom dia, é soh vc seguir a ideia do ''Baltazar'' alterando o nome do seu componente

DM.QNome.Filtered := False;
DM.QNome.Filter := '' NOME LIKE '' + QuotedStr(''%'' + edit.text + ''%'');
DM.QNome.Filtered := True

Lembrando como ele falo, deverá ser implementado na rotina ''onChange'' do edit.

Abc
Responder

Gostei + 1

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar