Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda, Comando BUSCA!


Felipe - Iniciante-Delphi

Pergunta

http://img526.imageshack.us/i/ajudaw.jpg/

Galera, estou criando um programa interno para minha empresa.

Nele marca-se os dados dos funcionarios, e eu implementei um comando de " BUSCA ", nele, a pessoa digitaria o nome e apertaria OK, dai, pularia direto para a linha do DBGRID onde tem aquele nome.

Será , que alguém poderia me ajuda fazer isso ? =)

Obrigado galera, ;)

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Nele marca-se os dados dos funcionarios, e eu implementei um comando de " BUSCA ", nele, a pessoa digitaria o nome e apertaria OK, dai, pularia direto para a linha do DBGRID onde tem aquele nome.

Será , que alguém poderia me ajuda fazer isso ? =)

Exemplo usando o comando FindNearest

procedure TForm1.Button1Click(Sender: TObject);
begin
   TCadProd1.FindNearest([trim(Edit1.Text)]);
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
não consegui usar esse comando =/

TCadProd1 é o nome do componente TTable

Voce deve abrir a tabela e depois executar o comando de Busca

exemplo:

procedure TForm1.FormActivate(Sender: TObject);
begin
   Table1.Active := false;
   Table1.Active := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Table1.FindNearest([trim(Edit1.Text)]);
end;

Já que voce é iniciante no delphi, veja nestes tópicos, encontrará links para apostilas em delphi

http://scriptbrasil.com.br/forum/index.php...postilas+delphi

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Me esqueci de um detalhe ... para fazer a pesquisa usando o FindNearest voce precisa indexar a tabela pelo campo que voce quer procurar

procedure TForm1.FormActivate(Sender: TObject);
begin

   Table1.Active := false;

   Table1.IndexDefs.Clear;
   Table1.IndexName := 'CODPROX';  // indexar pelo campo Codigo do produto
   Table1.IndexDefs.Update;

   Table1.Active := true;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Table1.FindNearest([trim(Edit1.Text)]);  // pesquisar pelo código do produto
end;

OBS: CODPROX é o nome do indice dado ao campo COD_PROD ( Código do Produto ) da tabela

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...