Ir para conteúdo
Entre para seguir isso  
dani_bladt

Form Pesquisa

Recommended Posts

Boa Tarde,

 

Eu Uso o SQL Server, uso ADOConnection, ADODataSet, ADOQuery e DataSource.

 

Estou com um problema em um formulário de Pesquisa... Eu uso DBEdit no Edit do Fornecedor.

 

bXEimAG.png

 

Essa tela seria o Formulário Principal, onde é o cadastro de Produtos, no Botão da Lupa, ele abre outro form, que é o form de pesquisa.

 

 

jJMXZSw.png

Eu gostaria de fazer o seguinte, no formulario de pesquisa, ele já está aparecendo no DBGrid o nome dos fornecedores, eu gostaria de digitar no campo do DBEdit da pesquisa, por exemplo letra B, e aparecer todos que começam com a letra B no DBGrid automático.

 

Eu cheguei a colocar esse código no OnKeyPress do DBGrid:

procedure Tform_pesquisaF.grid_pesquisaFKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
    begin
      if Assigned(form_fornecedor) then
        begin
          form_fornecedor.db_fornecedorF.DataSource.DataSet.FieldByName('FORNECEDOR').Value := grid_pesquisaF.DataSource.DataSet.FieldByName('FORNECEDOR').Value;
        end;
    end;
end;

Só que ele dá esse Erro:

 

PQRvoMr.png

 

Gostaria de saber como proceder, que código eu poderia por pra que as funções ocorram do jeito que eu gostaria.

 

Espero que possam me ajudar.

 

Obrigada.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Use o filtro do clientdataset... dê uma olhada neste tópico já resolvido aqui do fórum pra ter uma idéia de como fazer: http://forum.imasters.com.br/topic/268056-resolvido-filtrar-registros-de-dataset-sem-fazer-outro-select/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.