[firebase-br] lentidao para abrir a lista de precos 2

[Zottis]

Verifique se o Edit de busca está vazio e se estiver mostre uma mensagem que
se deixar vaizio a pesquisa poderá demorar dependendo da Quantidade de 
registros.
ou então faça uma busca apenas de quantidades menores.

outra coisa: a tabela ta indexada? por indice e por descricao?

Espero que ajude.


Zottis(TeamFB Users)

Zottis Sistemas - 2008 Ano XI
Programação Delphi/PHP/Firebird/MySQL

"Um homem só tem o direito de olhar
  a um outro de cima para baixo, quando
  vai ajuda-lo a levantar-se".
                   Gabriel Garcia Marquez
----- Original Message ----- 
From: "Anderson" <infosag em terra.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, June 02, 2008 1:42 PM
Subject: Re: [firebase-br] lentidao para abrir a lista de precos 2


sinceramente, nao entendi. ou e muito obvio ou a concordancia ta dificil de
entender.


----- Original Message ----- 
From: "Rubens - Solucao Empresarial" <rubens em solucaoempresarial.net>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, June 02, 2008 1:09 PM
Subject: [firebase-br] lentidao para abrir a lista de precos 2


agradeco as outras respostas

como faço em vez de buscar 10000 itens de vez buscar apenas 50 - se eu
digitar LIVRO busque apenas LIVRO  para baixo -


Bom dia Pessoal to precisando de uma mao
tenho um cadastro de 10000 itens e leva 25 segundos para abrir
a seguinte rotina - se o usuario clicar no campo descricao ele coloca os
produtos em ordem alfabetica e /ou se clicar no codigo ele abre a lista em
ordem de codigo, pelo que pude entenbder ele esta puxando os 10000 itens
toda vez como posso agilizar isso?
Alguem pode me dar uma ideia?
Agradeco a atencao - abaixo ta a rotina que uso

procedure Tpesq_produto.edt_descricaoEnter(Sender: TObject);
begin
//  edt_codigo.Clear;
  edt_descricao.Text := '';
  if edt_codigo.Text = '' then
    begin
    Dados.Produtos.Close;
    Dados.Produtos.SQL[0] := 'Select * from produtos';
    Dados.Produtos.SQL[1] := 'order by Descricao';
    Dados.Produtos.Open;
    edt_descricao.SetFocus;
    end
end;

procedure Tpesq_produto.edt_codigoEnter(Sender: TObject);
begin
  edt_descricao.Clear;
  edt_codigo.Text    := '';
  Dados.Produtos.Close;
  Dados.Produtos.SQL[0] := 'Select * from produtos';
  Dados.Produtos.SQL[1] := 'order by codigo1';
  Dados.Produtos.Open;
  edt_codigo.SetFocus
end;
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use:
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa