Consulta especificada

[coluna 0]

Bom dia, quero fazer uma consulta especificada como pendentes, geral, e 2meses .... estou usando o codigo:if checkbox1.Checked = true ThenzQuery1.Close;zQuery1.SQL.Text := 'select * from sistematelefone where status like ''OK''';zQuery1.Open;da tudo certo....mais quando eu acrescendo no mesmo botao esse codigo e mais 2 codigo de condição ele não da certo....não aceita Else nem And nem OR ... pq???quero deixar +ow- assimif checkbox1.Checked = true ThenzQuery1.Close;zQuery1.SQL.Text := 'select * from sistematelefone where status like ''OK''';zQuery1.Open;Elseif checkbox2.Checked = true ThenzQuery1.Close;zQuery1.SQL.Text := 'select * from sistematelefone where status like ''Pendente''';zQuery1.Open;Elseif checkbox3.Checked = true ThenzQuery1.Close;zQuery1.SQL.Text := 'select * from sistematelefone where status like ''geral''';quero deixar assim porque são 3 tipos de teste de condição de 3 ckeckbox...mais so da pra deixa 1 porque???até mais, e obrigado

[epassos 0]

Bom dia, quero fazer uma consulta especificada como pendentes, geral, e 2meses ....

 

estou usando o codigo:

 

if checkbox1.Checked = true Then

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''OK''';

zQuery1.Open;

 

 

da tudo certo....mais quando eu acrescendo no mesmo botao esse codigo e mais 2 codigo de condição ele não da certo....não aceita Else nem And nem OR ... pq???

 

 

quero deixar +ow- assim

 

if checkbox1.Checked = true Then

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''OK''';

zQuery1.Open;

 

Else

 

if checkbox2.Checked = true Then

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''Pendente''';

zQuery1.Open;

 

 

Else

 

if checkbox3.Checked = true Then

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''geral''';

 

 

quero deixar assim porque são 3 tipos de teste de condição de 3 ckeckbox...

 

 

mais so da pra deixa 1 porque???

 

 

 

até mais, e obrigado

Não será porque os blocos de código entre o if e o else não tem que estar entre Begin e End? Assim ó:

 

if checkbox1.Checked = true Then

begin

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''OK''';

zQuery1.Open;

end;

Else

 

if checkbox2.Checked = true Then

begin

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''Pendente''';

zQuery1.Open;

end;

 

 

Else

 

if checkbox3.Checked = true Then

begin

zQuery1.Close;

zQuery1.SQL.Text := 'select * from sistematelefone where status like ''geral''';

end;

 

Veja se é isso?

 

Um abraço