Вычисление "EXPIRE-DAY" в Fast Report

Delphi , Базы данных , Отчеты

Вычисление "EXPIRE-DAY" в Fast Report при работе с Delphi и MyDAC

При работе с отчетами в Fast Report при использовании Delphi и MyDAC может возникнуть потребность вычислять значение "EXPIRE-DAY" для каждого ряда отчета. В этой статье мы рассмотрим несколько способов решения этой задачи.

Способ 1: Использование функций FR для добавления дней

Одним из способов вычисления "EXPIRE-DAY" является использование функций FR для добавления дней к текущей дате. Для этого можно использовать функцию DateAdd следующим образом:

[DateAdd("d", [SHELF-LIFE], Today())]

Этот код добавляет к текущей дате количество дней, хранящееся в поле "SHELF-LIFE", и возвращает результат в формате даты.

Способ 2: Использование переменной в FR и вычисление в Delphi через событие .OnGetValue

Другой способ вычисления "EXPIRE-DAY" заключается в использовании переменной в Fast Report и вычислении значения в Delphi через событие .OnGetValue. Для этого необходимо создать переменную в Fast Report и задать ей значение, вычисленное в Delphi. Например:

В Delphi:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with FReport1.Report.Variables do
    BeginUpdate;
    Try
      Add('ExpireDay', ftDateTime, 0);
      ExpireDay.Value := DateAdd('d', Self.DataSource.DataSet.FieldByName('SHELF_LIFE').AsInteger, Now);
    Finally
      EndUpdate;
    End;
end;

В Fast Report: [ExpireDay]

Этот код вычисляет значение "EXPIRE-DAY" в Delphi и задает его переменной "ExpireDay", которая затем используется в Fast Report для отображения значения в отчете.

Способ 3: Добавление вычисления "EXPIRE-DAY" к MySQL-запросу

Третий способ вычисления "EXPIRE-DAY" заключается в добавлении вычисления к MySQL-запросу, который используется для получения данных для отчета. Например:

SELECT ID, NAME, SHELF_LIFE, DATE_ADD(CURDATE(), INTERVAL SHELF_LIFE DAY) AS EXPIRE_DAY
FROM PRODUCTS

Этот запрос возвращает столбец "EXPIRE_DAY", в котором значение вычисляется как текущая дата плюс количество дней, хранящееся в поле "SHELF_LIFE".

Вывод

В этой статье мы рассмотрели три способа вычисления "EXPIRE-DAY" в Fast Report при работе с Delphi и MyDAC. Каждый из способов имеет свои преимущества и может быть использован в зависимости от конкретной задачи и требований к отчету.

Создано по материалам из источника по ссылке.

Описаны три способа вычисления "EXPIRE-DAY" в отчетах Fast Report при работе с Delphi и MyDAC: использование функций FR для добавления дней, использование переменной в FR и вычисление в Delphi через событие .OnGetValue, добавление вычисления "EXPIRE-DAY"

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::