[delphi-br] uso de query com fildbyname

2008-11-12 Por tôpico luislact 
Boa tarde pessoal. estou tentando migrar aos poucos do uso da table 
para query com paradox e estou tendo algumas dificuldades. Sei que 
muitos vao dizer para nao usar o paradox e coisa e tal mas no momento 
não tenho muita alternativa. Hoje uso uma pesquisa no campo 
edit1.text e nessa pesquisa uso Table1.FindNearest([Edit1.Text]); .. 
isso me localiza o registro que quero em uma dbgrid. Com isso eu 
posso pesquisar o cliente e no evento afterscroll da table consigo 
fazer com que o nome do cliente apareça completo com o cnpj em 
edit1.text e edit2.text. Agora vem o meu maior problema .. não 
consigo fazer isso com a query. Hoje consigo localizar atraves da 
select sem problema mas não consigo fazer com que ao passear pela 
dbgrid o nome e o cnpj do cliente apareça nos respectivos edit1 e 
edit2. Não posso usar dbedit nesse caso. Agradeço alguma ajuda sobre 
o assunto.

procedure TFormCadaOrca.Table2AfterScroll(DataSet: TDataSet);
begin
edit50.Text := Table2.fieldbyname('descricaoitem').AsString;
combobox3.Text := Table2.fieldbyname('und').AsString;
edit51.Text := Table2.fieldbyname('pesoitem').AsString;
edit52.Text := Table2.fieldbyname('valorkg').AsString;
end;

Re: [delphi-br] uso de query com fildbyname

2008-11-12 Por tôpico Joao Morais 
2008/11/12 luislact [EMAIL PROTECTED]:
 não consigo fazer com que ao passear pela
 dbgrid o nome e o cnpj do cliente apareça nos respectivos edit1 e
 edit2. Não posso usar dbedit nesse caso. Agradeço alguma ajuda sobre
 o assunto.

 procedure TFormCadaOrca.Table2AfterScroll(DataSet: TDataSet);
 begin
edit50.Text := Table2.fieldbyname('descricaoitem').AsString;
combobox3.Text := Table2.fieldbyname('und').AsString;
edit51.Text := Table2.fieldbyname('pesoitem').AsString;
edit52.Text := Table2.fieldbyname('valorkg').AsString;
 end;

Taí uma das coisas que lembro dos meus tempos de tdataset: salvo
engano, o tdatasource possui (ou possuia) um evento que é disparado
quando os dados mudam. Se um determinado parâmetro for nil, ocorreu
uma troca de registro. Se ele não for nil, estará apontando para o
campo que foi alterado.

polemicaVocês chamam isso de vida?/polemica

Joao Morais

Re: [delphi-br] uso de query com fildbyname

2008-11-12 Por tôpico Leodinei Bielak 
2008/11/12 luislact [EMAIL PROTECTED]:
 Boa tarde pessoal. estou tentando migrar aos poucos do uso da table
 para query com paradox e estou tendo algumas dificuldades. Sei que
 muitos vao dizer para nao usar o paradox e coisa e tal mas no momento
 não tenho muita alternativa. Hoje uso uma pesquisa no campo
 edit1.text e nessa pesquisa uso Table1.FindNearest([Edit1.Text]); ..
 isso me localiza o registro que quero em uma dbgrid. Com isso eu
 posso pesquisar o cliente e no evento afterscroll da table consigo
 fazer com que o nome do cliente apareça completo com o cnpj em
 edit1.text e edit2.text. Agora vem o meu maior problema .. não
 consigo fazer isso com a query. Hoje consigo localizar atraves da
 select sem problema mas não consigo fazer com que ao passear pela
 dbgrid o nome e o cnpj do cliente apareça nos respectivos edit1 e
 edit2. Não posso usar dbedit nesse caso. Agradeço alguma ajuda sobre
 o assunto.

 procedure TFormCadaOrca.Table2AfterScroll(DataSet: TDataSet);
 begin
 edit50.Text := Table2.fieldbyname('descricaoitem').AsString;
 combobox3.Text := Table2.fieldbyname('und').AsString;
 edit51.Text := Table2.fieldbyname('pesoitem').AsString;
 edit52.Text := Table2.fieldbyname('valorkg').AsString;
 end;

Se você está fechando e abrindo a busca após o select, talvez deva
utilizar o evento AfterOpen.
É o que eu utilizo com o Zeus.

-- 
Leodinei Bielak
http://leodinei.blogspot.com/

The whole point of getting things done is knowing what to leave undone.

Re: [delphi-br] uso de query com fildbyname

2008-11-12 Por tôpico Alex Leão 
Você já tentou parametrizar sua query?

  - Original Message - 
  From: luislact 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 12, 2008 4:58 PM
  Subject: [delphi-br] uso de query com fildbyname


  Boa tarde pessoal. estou tentando migrar aos poucos do uso da table 
  para query com paradox e estou tendo algumas dificuldades. Sei que 
  muitos vao dizer para nao usar o paradox e coisa e tal mas no momento 
  não tenho muita alternativa. Hoje uso uma pesquisa no campo 
  edit1.text e nessa pesquisa uso Table1.FindNearest([Edit1.Text]); .. 
  isso me localiza o registro que quero em uma dbgrid. Com isso eu 
  posso pesquisar o cliente e no evento afterscroll da table consigo 
  fazer com que o nome do cliente apareça completo com o cnpj em 
  edit1.text e edit2.text. Agora vem o meu maior problema .. não 
  consigo fazer isso com a query. Hoje consigo localizar atraves da 
  select sem problema mas não consigo fazer com que ao passear pela 
  dbgrid o nome e o cnpj do cliente apareça nos respectivos edit1 e 
  edit2. Não posso usar dbedit nesse caso. Agradeço alguma ajuda sobre 
  o assunto.

  procedure TFormCadaOrca.Table2AfterScroll(DataSet: TDataSet);
  begin
  edit50.Text := Table2.fieldbyname('descricaoitem').AsString;
  combobox3.Text := Table2.fieldbyname('und').AsString;
  edit51.Text := Table2.fieldbyname('pesoitem').AsString;
  edit52.Text := Table2.fieldbyname('valorkg').AsString;
  end;



   

[As partes desta mensagem que não continham texto foram removidas]