Fiquei na dúvida, vc está usando um checkbox, a pesquisa pode ser feita
tanto por CPF ou Por nome? Pq não um ComboBox ou radio Group assim fica
mais lógico.
Tente fazer assim:
if rbnome.Checked then
begin
with dmSIGAE.ibqAluno do
begin
close;
SQL.Clear;
SQL.Add('SELECT *' );
SQL.Add('FROM ALUNO');
SQL.Add('WHERE NOMECOMPLETO LIKE :CAMPO');
ParamByName('CAMPO').AsString := Edit1.Text + '%';
Open;
end;
end;
Qualquer coisa posta aí.
[]'s
Em 06-08-2010 16:53, Farmy G. Ferreira da Silva escreveu:
>
> Darkzad,
>
> Na verdade não deveria estar, já que só entro na função cpf quando o
> campo
> edit1.text tem números e o ifrbcpf.Checked = truethen é verdadeiro,
> mesmo sendo
> falso esse cheque ele pega o conteúdo que está em edit e passa para a
> função
> cpf, tentei utilizar um braek quando entrar no ifrbNome.Checked =
> truethen, mas
> ele acusa erro também, não estou encontrando saída para fazer com que
> a opção de
> busca possa ser alterada de forma rápida e dinamicamente.
>
> [ ]'s
>
> ---------------------------------
> *********************************
> ---------------------------------
> Farmy Gonçalves Ferreira da Silva
> Engenheiro de Software
> Mestrando em saúde mental.
> Laboratório de integração SensórioMotaraIPUB/UFRJ. IBBN.
> ---------------------------------
> *********************************
> ---------------------------------
> www.profissionaisdetecnologia.com.br
> profissionaisdetecnologia-subscr...@yahoogrupos.com.br
> <mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br>
> ---------------------------------
> *********************************
> ---------------------------------
> farmysi...@yahoo.com.br <mailto:farmysilva%40yahoo.com.br>
> farmyferre...@yahoo.com.br <mailto:farmyferreira%40yahoo.com.br>
> farmysi...@hotmail.com <mailto:farmysilva%40hotmail.com>
> Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
>
> ________________________________
> De: Darkzad <dark...@yahoo.com.br <mailto:darkzad%40yahoo.com.br>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Sexta-feira, 6 de Agosto de 2010 8:37:18
> Assunto: Re: [delphi-br] consulta em interbase
>
> Parece que o seu problema está na função CPF, não?
>
> []'s
>
> Em 05-08-2010 15:30, Farmy G. Ferreira da Silva escreveu:
> >
> > Pessoal, estou com dois problemas:
> >
> > 1º minha consulta
> > procedureTfrmPesqAluno.Button2Click(Sender: TObject);
> > begin
> > // codigo para fazer a pesquisa pelo nome
> >
> > ifrbnome.Checked = TRUEthen
> > begin
> > withdmSIGAE do
> > begin
> > withibqAluno do
> > begin
> > close;
> > SQL.Clear;
> > SQL.Add('SELECT *' );
> > SQL.Add('FROM ALUNO');
> > SQL.Add('WHERENOMECOMPLETOLIKE''%'+Edit1.Text+'%'';');
> > Open;
> > end;
> > end;
> > end;
> >
> > //codigo para realizar a pesquisa por cpf
> > ifrbcpf.Checked = truethen
> > begin
> > //verifica validade do cpf
> > ifCPF(Edit1.Text) = falsethen
> > begin
> > Edit1.Color := clred;
> > ShowMessage('CPF inválido Digite novamente!');
> > Edit1.SetFocus;
> > end
> > else
> > begin
> > Edit1.Color := clwindow;
> > end;
> >
> > //busca cpf no banco de dados
> > withdmSIGAE do
> > begin
> > withibqAluno do
> > begin
> > close;
> > SQL.Clear;
> > SQL.Add('SELECT *' );
> > SQL.Add('FROM ALUNO');
> > SQL.Add('WHERECPF= '''+Edit1.Text+''';');
> > Open;
> > end;
> > end;
> > end;
> > end;
> >
> > retorna um erro na primeira letra digitada dizendo que: "A" não é um
> > valor
> > inteiro valido, e meus campos de pesquisa sõavarchar.
> > Segundo problema eu preciso realizar um update nos dados retornados pela
> > pesquisa alguem tem algum material sobre o componente TIBUpdateSql da
> > paleta
> > interbase do d2009?
> >
> > []'s
> >
> > ---------------------------------
> > *********************************
> > ---------------------------------
> > Farmy Gonçalves Ferreira da Silva
> > Engenheiro de Software
> > Mestrando em saúde mental.
> > Laboratório de integração SensórioMotaraIPUB/UFRJ. IBBN.
> > ---------------------------------
> > *********************************
> > ---------------------------------
> > www.profissionaisdetecnologia.com.br
> > profissionaisdetecnologia-subscr...@yahoogrupos.com.br
> <mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br>
> > <mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br>
> > ---------------------------------
> > *********************************
> > ---------------------------------
> > farmysi...@yahoo.com.br <mailto:farmysilva%40yahoo.com.br>
> <mailto:farmysilva%40yahoo.com.br>
> > farmyferre...@yahoo.com.br <mailto:farmyferreira%40yahoo.com.br>
> <mailto:farmyferreira%40yahoo.com.br>
> > farmysi...@hotmail.com <mailto:farmysilva%40hotmail.com>
> <mailto:farmysilva%40hotmail.com>
> > Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
