Incluir Mensagem no Codigo de Consulta

28/02/2013

1

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
Responder

Posts

28/02/2013

Marcio

Blz,

coloque o código logo abaixo do open:


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;

  if DMCliente.QConsAgendaPer.IsEmpty then
  begin
    ShowMessage("Não há agendamento para este período informado!");
  end;
end;



falow!
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira