pesquisa com selecao através do radiobuttom

Delphi

15/05/2004

Caros Amigos, preciso fazer uma consulta em que o usuário selecione as opções através do Tradio button. Ex: O usuário seleciona a pesquisa por data da venda, nome do cliente, endereço, etc, através do radio button, digita o que quer procurar no edit e exibe no dbgrid. Tudo isso em um mesmo formulario! Obs: uso paradox!!!!!!

Por favor me ajudem!


meu email: claudenir_antunes@ig.com.br


[/u]


Claudenir.antunes

Claudenir.antunes

Curtidas 0

Respostas

Andcarpi

Andcarpi

15/05/2004

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


GOSTEI 0
Ruysalles

Ruysalles

15/05/2004

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


GOSTEI 0
Claudenir.antunes

Claudenir.antunes

15/05/2004

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]


GOSTEI 0
Claudenir.antunes

Claudenir.antunes

15/05/2004

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!


GOSTEI 0
POSTAR