FR отчет

Комментарии

• -=Den=-

  April 2006 отредактировано 21:33

  Перед формированием отчета проверьте датасет на наличие записей и если записей нет, тогда ShowMessage().
  Датасет дабавляется через скрипт или в Delphi?
• Лена

  April 2006 отредактировано 21:33

  >Датасет дабавляется через скрипт или в Delphi?
  
  Все реализовано через скрипт.
  
• -=Den=-

  April 2006 отредактировано 21:33

  Тогда попробуйте так:
  DataSet_Name.Open;
  If DataSet_Name.RecordCount = 0 then
  ShowMessage('В БД нет записей');
• YuraZ

  April 2006 отредактировано 21:33

  написал:

  Тогда попробуйте так:
  DataSet_Name.Open;
  If DataSet_Name.RecordCount = 0 then
    ShowMessage('В БД нет записей');

  
  Это не совсем правильно. Обычно датасет выдает не все записи, а только необходимое их кол-во. Вызов функции RecordCount заставит его считать все записи из базы и посчитать их кол-во. Понятно, что это может достаточно сильно нагрузить сервер и занять определенное время. Правильней использовать функцию IsEmpty (или Empty в зависимости от реализации датасета). Если таких функций нет, то можно произвести проверку функций Eof и Bof. Для пустого датасета они обе возвратят значение True.
  
  С уважением, Забурдаев Юрий
• Лена

  April 2006 отредактировано April 2006

  Спасибо. Вроде получилось:
  

  void DialogPage1OnShow(TfrxComponent Sender)
  {
    ADOTableType.Open();
    ADOTableSystem.Open();
    ADOTableCTP.Open();
    ADOQuery2.Open();
  }
  
  
  void DialogPage1OnCloseQuery(TfrxComponent Sender, bool &CanClose)
  {
   ADOQuery1.Open();//cодержит записи
   if(ADOQuery1.RecordCount==0)ShowMessage("Нет данных");
  }