ActiveDelphi

[FJCABRAL]

Boa Tarde,

Estou Desenvolvendo um form para consultar todos os Agendamentos cadastrados em um determinado periodo. No form contem 2 componentes TdateEdit onde digito a data inicial e a final e consulta no intervalo e exibe o resultado.

Esta funcionando, porem, preciso de uma auxilio para colocar uma mensagem no Codigo abaixo, informado que nao tem agendamentos cadastrado para aquele periodo, caso o resultado seja vazio. segue o codigo:

procedure TFormAgendaPeriodo.btnRelatClick(Sender: TObject);
begin
DMCliente.QConsAgendaPer.Close;
DMCliente.QConsAgendaPer.ParamByName('DATAINI').AsDate := StrToDate(DateEditIni.Text);
DMCliente.QConsAgendaPer.ParamByName('DATAFIM').AsDate := StrToDate(DateEditFim.Text);
DMCliente.QConsAgendaPer.Open;
end;

DATA INI e DATA FIM são paramentros passado no SQL do componente TZQuery

[CesarRocha]

Tenta assim, logo apos o open:

[FJCABRAL]

Cesar deu Certo Muito Obrigado.