Fórum Consulta DBCheckBox #530721
04/09/2015
0
Tenho a pesquisa abaixo através de um edit que filtra a situação de processos que eu digitando e vai filtrando, que só tem duas situações PENDENTE ou RESOLVIDO.
Eu preciso fazer essa pesquisa através do DBCheckBox ou seja vou inserir 02 DBCheckBox no frmPesquisa, um para PENDENTE e outro para RESOLVIDO e quando eu selecionar por ex: o dbcheckbox - PENDENTE ele mim retorna no DBGrid todos os PENDENTES de igual forma no DBCheckBox - RESOLVIDO
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * ');
ADOQuery1.SQL.Add('FROM Reservista ');
ADOQuery1.SQL.Add('WHERE (SITUACAO) LIKE (' + '''' + '%' + EDIT1.Text + '%' + '''' +')');
ADOQuery1.Open;
Eu preciso fazer essa pesquisa através do DBCheckBox ou seja vou inserir 02 DBCheckBox no frmPesquisa, um para PENDENTE e outro para RESOLVIDO e quando eu selecionar por ex: o dbcheckbox - PENDENTE ele mim retorna no DBGrid todos os PENDENTES de igual forma no DBCheckBox - RESOLVIDO
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * ');
ADOQuery1.SQL.Add('FROM Reservista ');
ADOQuery1.SQL.Add('WHERE (SITUACAO) LIKE (' + '''' + '%' + EDIT1.Text + '%' + '''' +')');
ADOQuery1.Open;
Paulo
Curtir tópico
+ 0
Responder
Posts
04/09/2015
Raimundo Pereira
CRIE UMA VAR: V_SITUACAO:STRING;
COLOQUE UM CHECKBOX NOME CHK_SITUACAO;
Nova rotina:
VAR: V_SITUACAO:STRING;
BEGIN
V_SITUACAO:='';
IF (CHK_SITUACAO.CHECKED=TRUE) THEN
BEGIN
V_SITUACAO:='RESOLVIDO';
END
ELSE
BEGIN
SITUACAO:='PENDENTE';
END;
BEGIN
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.TEXT:=('SELECT * FROM Reservista WHERE SITUACAO ='''+V_SITUACAO+''');
ADOQuery1.Open;
END;
Não testei, mais verifique se ajuda.
Aguardo retorno.
COLOQUE UM CHECKBOX NOME CHK_SITUACAO;
Nova rotina:
VAR: V_SITUACAO:STRING;
BEGIN
V_SITUACAO:='';
IF (CHK_SITUACAO.CHECKED=TRUE) THEN
BEGIN
V_SITUACAO:='RESOLVIDO';
END
ELSE
BEGIN
SITUACAO:='PENDENTE';
END;
BEGIN
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.TEXT:=('SELECT * FROM Reservista WHERE SITUACAO ='''+V_SITUACAO+''');
ADOQuery1.Open;
END;
Não testei, mais verifique se ajuda.
Aguardo retorno.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)