Consulta DBCheckBox

Delphi

04/09/2015

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;
Paulo

Paulo

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

04/09/2015

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.
GOSTEI 0
POSTAR