Fórum Adcionar mensagem... #254577

15/10/2004

0

Delphi

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

Responder

Posts

15/10/2004

Gandalf.nho

Tente usar isso:

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


Responder

Gostei + 0

15/10/2004

Peninha

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.


Responder

Gostei + 0

15/10/2004

Rafs

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;



Responder

Gostei + 0

15/10/2004

Paulo_amorim

Olá

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

Até+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar