Fórum pesquisa com selecao através do radiobuttom #232531

tente +/- isso:

if radiobutton.itemindex = 0 then begin //caso ele escolha a 1ª opcao
//pesquisa
end else if radiobutton.itemindex = 1 then begin // caso ele escolha a 2ª
//pesquisa2
end;

no lugar da pesquisa vc pode usar o findnearest.... ou o locate.... ou um comando sql sei lah

e assim por diante....

Não conheço estrutura das sua tabelas mas vamos tentar:

Vou chamar uma tabela de venda com os seguintes campos:
ide_venda
dtc_venda
nom_vendedor
nom_comprador

Vamos colocar uma query que chamaremos de qry_venda 03 radiobuttons e nomeá-los da seguinte forma:
rdb_data, rdb_vendedor e rdb_comprador

No evento OnClick do rdb_data coloque o seguinte código.
[b:382e8b0d7d]begin[/b:382e8b0d7d]
with qry_venda do
[b:382e8b0d7d]begin[/b:382e8b0d7d]
close;
sql.text := ´select * from venda order by dtc_venda´;
open;
[b:382e8b0d7d]end;[/b:382e8b0d7d]
[b:382e8b0d7d]end;[/b:382e8b0d7d]


No evento OnClick do rdb_vendedor coloque o seguinte código.
[b:382e8b0d7d]begin[/b:382e8b0d7d]
with qry_venda do
[b:382e8b0d7d]begin[/b:382e8b0d7d]
close;
sql.text := ´select * from venda order by nom_vendedor´;
open;
[b:382e8b0d7d]end;[/b:382e8b0d7d]
[b:382e8b0d7d]end;[/b:382e8b0d7d]

No evento OnClick do rdb_compradorcoloque o seguinte código.
[b:382e8b0d7d]begin[/b:382e8b0d7d]
with qry_venda do
[b:382e8b0d7d]begin[/b:382e8b0d7d]
close;
sql.text := ´select * from venda order by nom_comprador;
open;
[b:382e8b0d7d]end;[/b:382e8b0d7d]
[b:382e8b0d7d]end;[/b:382e8b0d7d]

Valeu
Boa Sorte

Caros Amigos,


Vou testar o código que vcs me passaram e depois responderei para saberem se consegui ok!!!!

Muito Obrigado!


Sucesso pra vcs!!


[/b]

Amigos!!! Fiz e testei esse código e tb deu certo!!!!!!
{radiobutton = optcodigo}

if
optcodigo.checked:= true then
begin
try
strtoint(text.txt);
except
exit
end;
end;
dm.tblnome.locate(´Codigo´,strtoint(txt1.text),[lopartialkey,locaseinsensitive]);
end;

O de vc eu usei e deu certo, aí tentei dessa forma acima e tb dá certo ok!
Mais uma vez, muito obrigado!