| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Jonatan500
Colaborador
Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO
|
 Enviada: Sex Dez 30, 2011 9:09 am Assunto: CheckBox [Resolvido] |
 |
|
Ola tenho uma consulta normal de cliente, ai quero que se eu marcar uma checkbox ele pesquisar o cliente tal com o status tal.
_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower
Editado pela última vez por Jonatan500 em Sex Dez 30, 2011 11:12 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
nildglan
Colaborador
Registrado: Sábado, 16 de Agosto de 2008
Mensagens: 1564
Localização: Goianésia do Pará
|
| Enviada: Sex Dez 30, 2011 9:12 am Assunto: |
|
|
| passe como vc ta fazendo a consulta |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sex Dez 30, 2011 9:21 am Assunto: Re: CheckBox |
|
|
| Jonatan500 escreveu: | | Ola tenho uma consulta normal de cliente, ai quero que se eu marcar uma checkbox ele pesquisar o cliente tal com o status tal. |
Seria algo + ou - assim
| Código: | var
sSQL: String;
begin
sSQL := ' SELECT * FORM suatable ';
//vc faz cfe o checkbox
//se o checkbox for true faça algo
if checkbox1.checked then
sSQL := sSQL + ' WHERE campo_status = '+QuotedStr('X') //aqui vc define o que quer
else //se não faça outra coisa
sSQL := sSQL + ' WHERE campo_status = '+QuotedStr('Y'); //aqui vc define o que quer
//Depois é só passar o comando para o query
with query do
begin
Close;
Sql.Clear;
Sql.Text := sSQL;
Open;
end;
end; |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
Jonatan500
Colaborador
Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO
|
| Enviada: Sex Dez 30, 2011 10:39 am Assunto: |
|
|
Oi, minha consulta atual esta assim:
| Código: | case RadioGroup1.ItemIndex of
0: begin
DM.ADOCHAMADO.Close;
DM.ADOCHAMADO.SQL.Clear;
DM.ADOCHAMADO.SQL.Add('select *');
DM.ADOCHAMADO.SQL.Add('from Chamado');
DM.ADOCHAMADO.SQL.Add('where Cliente like ''%'+Edit1.Text+'%''');
DM.ADOCHAMADO.Open;
end; |
Quero pesquisar por cliente, e pelo status, exemplo eu quero o cliente Jhonatan mais so com o status em aberto ou fechado, entendeu, agradeço
_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower |
|
| Voltar ao Topo |
|
|
Jonatan500
Colaborador
Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO
|
| Enviada: Sex Dez 30, 2011 10:43 am Assunto: |
|
|
Adriano , não entedi muito o seu código
| Código: | var
sSQL: String;
begin
sSQL := ' SELECT * FORM Chamado';
//vc faz cfe o checkbox
//se o checkbox for true faça algo
if checkbox1.checked then
sSQL := sSQL + ' WHERE cliente = '+QuotedStr('X') //aqui vc define o que quer
else //se não faça outra coisa
sSQL := sSQL + ' WHERE status = '+QuotedStr('Y'); //aqui vc define o que quer
//Depois é só passar o comando para o query
with DM.ADOCHAMADO do
begin
Close;
Sql.Clear;
Sql.Text := sSQL;
Open;
end;
|
_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Sex Dez 30, 2011 10:49 am Assunto: |
|
|
| Código: | var
sSQL: String;
begin
sSQL := ' SELECT * FORM Chamado' +
' where Cliente like ''%'+Edit1.Text+'%''';
//vc faz cfe o checkbox
//se o checkbox for true faça algo
if checkbox1.checked then
sSQL := sSQL + ' AND status= '+QuotedStr('ABERTO') //aqui vc define o que quer
else //se não faça outra coisa
sSQL := sSQL + ' AND status = '+QuotedStr('FECHADO'); //aqui vc define o que quer
//Depois é só passar o comando para o query
with DM.ADOCHAMADO do
begin
Close;
Sql.Clear;
Sql.Text := sSQL;
Open;
end; |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
