GARANTIR DESCONTO

Fórum IndexName #357626

25/04/2008

0

OLa Pessoal!
Estou com um problema aqui gostaria que alguem pude-se me ajudar.
Eu tenho um form de Consulta de Cidades dai eu tenho um DBGrid que ja esta granando normal só que embaixo do DBGrid eu tenho um edt queria programar pra quando eu clico dentro dele a primeira letra ja vai aparecendo dentro do DBGrid.

O nome do meu data module é DM.
O nome do meu ClientDataSet é cdsCidade.
O nome do form de cadastro de cidade é frmCadCidade.
O nome do edt é edtBuscIncle.
O nome do botão de confirma é btnConfirma

procedure TfrmConsulCidades.edtBusIncleChange(Sender: TObject);
begin

BEGIN
frmCadCidade.cdsCidade.IndexName := ´CIDADE´;
if edtBusIncle.Text <> ´´ then
frmCadCidade.btnConfirma.FindChildControl([edtBusIncle.text]);

end;
end;

Tente ai Me Ajudar.
Obrigado!


Rodlima

Rodlima

Responder

Posts

25/04/2008

Mahdak

amigo se é que entendi sua duvida voce gostaria que automaticamente fosse aparecendo do dbgrid o que voce fosse digitando no edit, estou certo? se sim, basta voce mudar de componente. ao inves de TEdit, use um TDBEdit que o que voce quer vai acontecer sem precisar de codigo algum.

só tome algumas precaussoes como por exemplo linkar o edit e o dbgrid ao mesmo dataset....

flwww


Responder

Gostei + 0

25/04/2008

Rodlima

amigo se é que entendi sua duvida voce gostaria que automaticamente fosse aparecendo do dbgrid o que voce fosse digitando no edit, estou certo? se sim, basta voce mudar de componente. ao inves de TEdit, use um TDBEdit que o que voce quer vai acontecer sem precisar de codigo algum. só tome algumas precaussoes como por exemplo linkar o edit e o dbgrid ao mesmo dataset.... flwww


Caro Amigo eu troquei o TEdit pelo TDBedit só que eu estou usando o seguinte código:

procedure TfrmConsulCidades.DBEdit1Change(Sender: TObject);
DM.cdsCidade.IndexName := ´CIDADE´;
if DBEdit1.Text <> ´´ then
frmCadCidade.btnLocalizar.FindChildControl([DBEdit1.text]);

O nome do meu data module é DM.
O nome do meu ClientDataSet é cdsCidade.
O nome do form de cadastro de cidade é frmCadCidade.
O nome do DBEdit é DBEdit1
O nome do botão de confirma é btnConfirma

antes eu estava usando esse aqui:

procedure TfrmConsulCidades.edtBusIncleChange(Sender: TObject);
BEGIN
frmCadCidade.cdsCidade.IndexName := ´CIDADE´;
if edtBusIncle.Text <> ´´ then
frmCadCidade.btnConfirma.FindChildControl([edtBusIncle.text]);
end;


Responder

Gostei + 0

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

Aceitar