Buscar por:

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}