quickreport в delphi7 построение отчёта

[Lexp1]

Помогите с таким вопросом: Необходимо чтобы в одном quickrep1 выводилась одна запись с adoquery_prepod хотя их много,

все записи с ADOquery_PublikaciiPrepoda и все записи с ADOquery_MethodRazrabotki.

Выборка сделана, только как в quickrep1 отобразить?

[Lexp1]

Хм... только обнаружил, что через QRBand1>BandTipe>RBSubDeteil не появляются внём свойства как DataSet, HeaderBand и т.д. там чтото не то что нужно было. Только когда переносишь QRSubDeteil из вкладки QReport тогда всё норм... разобрался... видимо разные вещи...

[Lexp1]

Получилось так:

в самом QuickReport1 в DataSet таблица преподов

в нём

вверху QRBand rbDeteil с тремя полями из шести из таблицы преподов

ниже GroupHeader1

после SubDeteil1 (в HeaderBand значение GroupHeader1 в DataSet - тбл публикации) где поля таблицы публикации

ещё один GroupHeader2

и SubDeteil2 (в HeaderBand значение GroupHeader2) где поля таблицы методразработки

а КАК дальше ниже дополнить остальные поля таблицы преподов?

[bayarookie]

можешь попробовать сделать ещё GroupHeader и к нему GroupFooter

QRGroup1.Master := QuickRep1;

QRGroup1.FooterBand := QRBand2;

QRGroup1.Expression := 'здесь уникальное поле';

что-то типа того

[Lexp1]

Есчё вопрос: в таблице поле длинное что в отчёте (QRDBText) выходит за край, как же отобразить в несколько строк?

[bayarookie]

QRDBText1.AutoSize := False;

QRDBText1.Width := сколько надо

QRDBText1.Height := тоже

[Lexp1]

это понятно. Но в несколько строк надо чтоб выводило...

т.е. "длинная фраза"

как

"длинная фра

за"

[bayarookie]

а ну это только в QRBand2BeforePrint создать что-то типа такого:

procedure TForm1.QRBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  s: string;
  i: integer;
begin
  QRMemo1.Lines.Text := '';
  s := ADOQuery1AREA.Value;
  i := 10;
  while Length(s) > 0 do
  begin
    QRMemo1.Lines.Add(Copy(s, 1, i));
    Delete(s, 1, i);
  end;
end;

QRBand2 - это details,

и не учитывается ширина символов шрифта, это отдельный геморрой