pesquisa com selecao através do radiobuttom
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]
Por favor me ajudem!
meu email: claudenir_antunes@ig.com.br
[/u]
Claudenir.antunes
Curtidas 0
Respostas
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....
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
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
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
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]
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
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!
{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