Problemas na grid, com o Scroll e Atualiza��o

08/12/2005

Ol� Pessoal...
venho aki pedir ajuda de vcs...
tenho uma grid comum ligada a uma query(Trabalho com Delphi 7, Zeos e PostgreSql), essa query com aproximadamente 48 campos de uma tabela... onde 6 desses campos s�o c�digos do tipo int e s�o chave estrangeira de outras tabelas....

para esses 6 campos criei campos lookup para exibir informa��es como a descri��o do campo que estava em outra tabela e coloquei nessa grid, para navegar pelo grid tah ok por�m quando fa�o um scroll na grid ele fica muito lento.

Uso um componente..Key Navigator que controla essa navega��o pela grid e nele tem o c�digo


procedure TFFrotaTerc.KnFrtTrcKeyPress(Sender: TObject; Key: Word;
  var Action: TEvNavAction);
      if (Key = VK_DOWN) and (offset < qQtd.FieldByName(�qtd�).AsInteger-limite+1) and (qFrtTrc.RecNo = limite) then begin
         Inc(offset);
         AtualizaqFrtTrc;
         qFrtTrc.Last;
      end;
      if (Key = VK_UP) and (offset > 0) and (qFrtTrc.RecNo = 1) then begin
         Dec(offset);
         AtualizaqFrtTrc;
         qFrtTrc.First;
      end;
procedure TFFrotaTerc.AtualizaqFrtTrc;
begin
   qFrtTrc.Close;
   qFrtTrc.ParamByName(�offset�).AsInteger := offset;
   qFrtTrc.Open;
end;

procedure TFFrotaTerc.qFrtTrcAfterOpen(DataSet: TDataSet);
begin
   qQtd.Close;
   qQtd.SQL.Clear;
   qQtd.SQL.Add(�select count(*) as qtd from frttrc�);
   qQtd.Open;
end;

por favor analise e vejam se podem me ajuda nesse meu problema com a grid....por quando fa�o o scrool eu fecho e abro a query...
quando tem um ou dois campos lookup ele roda legal..mais acima de 3 ele fica lento....
tentei trazer os campos na query por sql por�m tamb�m ficou lento..
por favor..analisem e vejam se podem me ajudar
Agrade�o desde j�

Thiago Coleti

Curtir t�pico + 0

Responder