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

[resolvido] Problema No Botão De Localizar.


Guest --ROBINHO --

Pergunta

Guest --ROBINHO --

Ola pessoal, estou com outro problema:

Tenha uma janela que é a principal, pois ela faz os cadastros dos clientes, e o botão de localizar dos clientes eu fiz e esta funcionando beleza.

mas o problema é que tem outra aba que tem um campo para fazer busca no caso, eu fiz outro botão e deixei nesta aba para que o usuario possa saber, eu tenho uma unit de funções onde esta tudo as funções do meu programa e nas janelas eu so puxa as informações e passo os comandas para as demais funcionalidade:

vou colocar aqui o que eu fiz no botão de localizar, tentei usar o if e else, mas não consegui:

procedure Tfrmalunos.spbpesClick(Sender: TObject);
begin
 with vcpo do
      begin
         clear;
         add ('Codigo');
         add ('Nome');
         add ('Cpf');
         add ('Processos')
      end;
   with vvlr do
      begin
         clear;
         add ('Codigo');
         add ('Nome');
         add ('Cpf');
         add ('Processos')
      end;

   with tfrmpesquisa.create (application) do
      begin
         try
            tabela := 'alunos';
            camporetorno := 'codigo';
            showmodal;
         finally
            free;
      end;
   end;
   if (retorno<> '') then
      begin
      inherited;
         leregistro();
      end;
end;

procedure Tfrmalunos.leregistro;
begin
    consultaregistros('alunos', 'codigo, nome, cpf, processos','codigo=' + retorno);
      txtmat.text := ledados ('codigo');
      txtnom.text := ledados ('nome');
      txtcpf.text := ledados ('cpf');
      txtpro.text := ledados ('processos');
end;

-----------------------------------------------------------------

esta procedure leregistro esta feita no formulario de funcoes que são buscadas.

se alguém poder me ajudar eu agradeço

Editado por Micheus
Respeite as regras do forum. Não GRITE enquanto escreve! (não digite todo o texto em letras maiúsculas) - Reincidência
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

são duas abas de busca então??

porq tu não junta em uma só?

pelo que eu entendi o erro está nesta linha:

consultaregistros('alunos', 'codigo, nome, cpf, processos','codigo=' + retorno);

bota assim:

consultaregistros('alunos', 'codigo', 'nome', 'cpf', 'processos','codigo=' + retorno);

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --Robinho --

Não amigo isso não deu certo.

É que a na outra aba que tem o outro botão de busca é para buscar outra coisa, nessa campo ele vai buscar os atendentes.

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --Robinho --

Botão de Pesquisa

Ola pessoal.

Tenho um form que tem dois botões de pesquisa, um é para a pesquisa de clientes e outro seria para pesquisa de atendentes, em meu projeto fou feito uma unit de funções para o programa então nela eu usa uma procedure leregistro, mas essa procedure já faz a leitura do botão de localizar, me falaram para eu usar os seguintes procedimentos ( IF, ELSE e THEN), mas eu não sei usar esses são os dados da procedure leregistro:

procedure Tfrmalunos.leregistro;

begin

consultaregistros('alunos', 'codigo, nome, cpf, processos','codigo=' + retorno);

txtmat.text := ledados ('codigo');

txtnom.text := ledados ('nome');

txtcpf.text := ledados ('cpf');

txtpro.text := ledados ('processos');

end;

Com esses dados eu localizo normal o botão de pesquisa do alunos e teria que usar o else e then ai mas eu não sei, alguém PODE ME AJUDAR.

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --Robinho --

Resolvido.

Tentei tanto que acabei conseguindo usar o if e o else ficou assim, para quem tiver algum problema parecido a este.

procedure Tfrmalunos.leregistro;
begin
    IF
    consultaregistros('alunos', 'codigo, nome, cpf, processos','codigo=' + retorno) then
       begin
      txtmat.text := ledados ('codigo');
      txtnom.text := ledados ('nome');
      txtcpf.text := ledados ('cpf');
      txtpro.text := ledados ('processos');
       end;
    if
    consultaregistros('usuarios', 'codigo, nome','codigo=' + retorno) then
      begin
      txtcodi.text := ledados ('codigo');
      txtusu.text := ledados ('nome');
      end;
end;

Editado por Micheus
Adicionadas as tag's de código ([code]..[/code]) para melhor visualizaçã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,7k
×
×
  • Criar Novo...