Buscar

Busca usando RadioGroup e filtros

Código

{Nesta dica veremos como criar uma busca incremental usando o componente RadioGroup , para isso inseri um componente RadioGroup e na propriedade Itens , cadastrei (Nome , Telefone REsid , Telefone CEl , a busca irá usar estes itens para realizar um filtro , para isso no Evento Filter Record da tabela Pessoa , crie o seguinte código }


procedure TForm_Cons_Rapida.TB_PessoasFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
{Aqui estamos indicando que se o componente RadioGroup em seu 1º item for selecionado }
  if RadioGroup1.ItemIndex = 0 Then
{iremos fazer uma busca do que for digitado no componente Edit1 do tipo texto na Tabela PEssoa , campo de nome 'Cli_Pessoa'}
  if(pos(uppercase(Edit1.Text),uppercase(TB_PessoasCli_Nome.AsString)))<> 0 then
{o Filtro será aceito }
  accept:=True
{caso não seja esta opção }
  else
{o Filtro é falso }
  accept:=False;
{ai ele inicia um novo paramentro identico ao que ele fez anteriormente modificando somente os parametros da busca)
  if RadioGroup1.ItemIndex = 1 Then
  if(pos(uppercase(Edit2.Text),uppercase(TB_PessoasCli_Telefone_Residencial.AsString)))<> 0 then
  accept:=True
  else
  accept:=False;
  if RadioGroup1.ItemIndex = 2 Then
  if(pos(uppercase(Edit3.Text),uppercase(TB_PessoasCli_Telefone_Celular.AsString)))<> 0 then
  accept:=True
  else
  accept:=False;
end;

{ espero que ajude , pode ser feito tambem com o componente chckedBox , ampliando as opções de buscas}

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 15/11/10
Por: Claudinho Wylde
Visualizada: 7092 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009