Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как для вертикального Masterdata сделать

Автор: Delphist 31.3.2009, 00:44

Имеется три вертикальных MasterData, каждый из которых согласно данным в датасете формирует колонки,
и вот хотелось бы чтобы у каждого набора колонок принадлежацие своему MasterData был общий заголовок.
Как это сделать?

Автор: Kbl4AH 31.3.2009, 07:15

Delphist, это ты для FR интересуешься?

Автор: pseud 31.3.2009, 09:16

Цитата(Delphist @ 31.3.2009, 00:44

)

Имеется три вертикальных MasterData, каждый из которых согласно данным в датасете формирует колонки,и вот хотелось бы чтобы у каждого набора колонок принадлежацие своему MasterData был общий заголовок.Как это сделать?

Цитата(Kbl4AH @ 31.3.2009, 07:15

)

Delphist, это ты для FR интересуешься?

больше похоже на мысли вслух.

Автор: Delphist 31.3.2009, 09:19

Цитата(Kbl4AH @ 31.3.2009, 08:15

)

Delphist, это ты для FR интересуешься?

Да для FastReport'a 4.х, извините забыл сказать.

Автор: Kbl4AH 31.3.2009, 09:26

http://ipicture.ru/
Delphist, это?

Автор: Delphist 31.3.2009, 09:43

Цитата(Kbl4AH @ 31.3.2009, 10:26

)

Delphist, это?

Мастер даты расположены абсолютно верно, что касается расположения Header, то они не решают моей проблемы, так как такое расположение Header'a позволит выводить заголовок или перед или после отработки мастер даты. А мне нужно, чтобы заголовок размещался над колонками сгенерированные MasterDat'ой.

Автор: Kbl4AH 31.3.2009, 09:59

Цитата(Delphist @ 31.3.2009, 10:43

)

А мне нужно, чтобы заголовок размещался над колонками сгенерированные MasterDat'ой.

эммм, если я правильно понял, то вариант - выбирать в датасетах доп. поле-заголовок и выводить его в самом верху бэнда...

Автор: jsa 31.3.2009, 10:02

Цитата(Delphist @ 31.3.2009, 14:43

)

А мне нужно, чтобы заголовок размещался над колонками сгенерированные MasterDat'ой

а что мешает добавить свои данные на мастердату?

Автор: Kbl4AH 31.3.2009, 10:04

Цитата(jsa @ 31.3.2009, 11:02

)

а что мешает добавить свои данные на мастердату?

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

Автор: Delphist 31.3.2009, 10:19

Вообщем должно быть так:

Автор: jsa 31.3.2009, 10:42

Delphist, посмотри в сторону кросс-таблиц, у ФР есть хороший пример, сам не разбирался

Автор: Kbl4AH 31.3.2009, 10:47

вот так выполняетсяhttp://ipicture.ru/
вот так в дизайнереhttp://ipicture.ru/
вот так код

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  OracleDataSet1.Active := True;
  (frxReport1.FindObject('MemoHeader') as TfrxMemoView).Width :=
    (frxReport1.FindObject('SysMemo1') as TfrxSysMemoView).Width *
    OracleDataSet1.RecordCount;
  (frxReport1.FindObject('MemoHeader') as TfrxMemoView).Text :=
    'Заголовок для ' + IntToStr(OracleDataSet1.RecordCount) + ' колонок';
  frxReport1.ShowReport(True);
  OracleDataSet1.Active := False;
end;