[resolvido] Problema No Botão De Localizar.

[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 Junho 12, 2007 por Micheus
Respeite as regras do forum. Não GRITE enquanto escreve! (não digite todo o texto em letras maiúsculas) - Reincidência

[*_Felipe_*]

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);

[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.

[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.

[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 Junho 12, 2007 por Micheus
Adicionadas as tag's de código ([code]..[/code]) para melhor visualização