Adcionar mensagem...

Delphi

15/10/2004

Ola Pessoal.
Este código esta funcionando corretamente.
With Dmbasedados.IBQ_OsPeriodo DO
       Begin
         Close;
         Sql.Clear;
         Sql.Add(´Select * From Tab_abertura_Os´);
         Sql.Add(´WHERE Data_Abertura_Os BETWEEN :Inicio AND  :Fim´);
         Sql.Add(´Order By Data_Abertura_Os´);
         ParamByname(´Inicio´).AsDate:=StrToDate(Maskedit1.Text);
         ParamByname(´Fim´).AsDate:=StrToDate(Maskedit2.Text);
         Open;
         Application.CreateForm(TfrmRel_OsPeriodo,FrmRel_OsPeriodo);
         FrmRel_OsPeriodo.QuickRep1.Preview;
         Maskedit1.Text:=´´;
         Maskedit2.Text:=´´;
        End;

Nele faço uma pesquisa por período, mas gostaria de saber como posso adcionar uma mensagem nese mesmo botão para que quando não houver nenhum registro dentro das datad determinadas?
Já tentei mas não consegui, será que poderiam me ajudar.
Peninha


Peninha

Peninha

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

15/10/2004

Tente usar isso:

if Dmbasedados.IBQ_OsPeriodo.IsEmpty then
// Coloque sua mensagem aqui


GOSTEI 0
Peninha

Peninha

15/10/2004

Aimiga, amensagem até funcionou, mas em toda disposição que adcionei o seu código, o meu relatório continua sendo aberto, vazio ou não.
Peninha.


GOSTEI 0
Rafs

Rafs

15/10/2004

Coloque o preview do relatório dentro do bloco else, assim só irá apresentar o relatório caso haja resultados na pesquisa.

if Dmbasedados.IBQ_OsPeriodo.IsEmpty then
  ShowMessage(´Sem registros´)
else
begin
  Application.CreateForm(TfrmRel_OsPeriodo,FrmRel_OsPeriodo); 
  FrmRel_OsPeriodo.QuickRep1.Preview;
  Maskedit1.Text:=´´; 
  Maskedit2.Text:=´´;
end;



GOSTEI 0
Paulo_amorim

Paulo_amorim

15/10/2004

Olá

Você colocou o comando 
Exit;
após a mensagem?

Até+


GOSTEI 0
POSTAR