Создание связи Master-Detail в Delphi для быстрого отчета

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

При работе с базами данных часто бывает необходимо отобразить данные из нескольких таблиц, связанных между собой. В данной статье мы рассмотрим, как создать связь Master-Detail в Delphi для отображения данных из двух таблиц в быстром отчете.

Описание проблемы

У нас есть две таблицы: Country и City. В таблице Country поле country_id является первичным ключом, а в таблице City это поле является внешним ключом, ссылающимся на таблицу Country.

Нам нужно создать связь между двумя запросами для отображения данных в быстром отчете. Какой компонент использовать для создания такой связи? Какой должна быть структура связей?

Решение проблемы

Для создания связи Master-Detail в Delphi между двумя запросами можно использовать компонент TDataSource. Тут есть два варианта: связать запросы на стороне сервера или на стороне клиента.

Вариант 1: Связь на стороне сервера

При связывании запросов на стороне сервера, нужно написать параметризованный запрос для детализированной таблицы, где параметр равен первичному ключу мастер-запроса. Например:

Select * from City where country_id = :country_id

В таком случае, связь между мастер-запросом и детализированным запросом устанавливается через свойство DataSource детализированного запроса.

Вариант 2: Связь на стороне клиента

При связывании запросов на стороне клиента, нужно установить связь между мастер- и детализированным наборами данных с помощью свойства MasterSource детализированного набора данных.

После того, как связь между мастером и детализированным набором данных установлена, она будет работать с любым генератором отчетов, в том числе и с FastReports.

Пример кода

Вот пример кода, демонстрирующий связь Master-Detail на стороне клиента:

procedure TForm1.FormCreate(Sender: TObject);
var
  CountryQuery: TSQLQuery;
  CityQuery: TSQLQuery;
  CountryDataSource: TDataSource;
  CityDataSource: TDataSource;
begin
  CountryQuery := TSQLQuery.Create(nil);
  try
    CountryQuery.Connection := Connection;
    CountryQuery.SQL.Add('SELECT * FROM Country');
    CountryQuery.Open;

    CityQuery := TSQLQuery.Create(nil);
    try
      CityQuery.Connection := Connection;
      CityQuery.SQL.Add('SELECT * FROM City');
      CityQuery.Open;

      CountryDataSource := TDataSource.Create(nil);
      try
        CountryDataSource.DataSet := CountryQuery;

        CityDataSource := TDataSource.Create(nil);
        try
          CityDataSource.MasterSource := CountryDataSource;
          CityDataSource.DataSet := CityQuery;
        finally
          CityDataSource.Free;
        end;

        // Связь установлена, можно использовать в быстром отчете
      finally
        CountryDataSource.Free;
      end;
    finally
      CityQuery.Free;
    end;
  finally
    CountryQuery.Free;
  end;
end;

Заключение

В данной статье мы рассмотрели, как создать связь Master-Detail в Delphi для быстрого отчета. Мы рассмотрели два варианта связывания запросов: на стороне сервера и на стороне клиента. Также мы привели пример кода, демонстрирующий связь Master-Detail на стороне клиента.

Помните, что после установки связи, вы можете использовать ее в любом генераторе отчетов, в том числе и в FastReports.

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

Данный текст является технической документацией, описывающей процесс создания связи Master-Detail в среде разработки Delphi для быстрого отчета из данных двух связанных таблиц базы данных.

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

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

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