Создание отчётов на печать с DBGrid в QuickReport

[Irina_87]

Нашла в Интернете код программы, которая делает такие действия, только мне выдает полно ошибок((( Пожалуйста подскажите, как сделать отчёт???

[mihali4]

http://www.qusoft.com/WebInfoPage.aspx?WebInfoID=623

[Irina_87]

Что-то мне эта ссылка не очень помогла)) Может есть другая литература или источники???

[mihali4]

Вы только "разжеванный" материал потребляете?
Думать - голова болит?

[Irina_87]

Я как начинающий программист, точнее программист-лузер, думаю сначала над разжеванным материалом и понимаю, что делать.. А тогда можно над более сложным материалом подумать...)))

[mihali4]

Не обижайтесь.
Давайте конкретно по справке КвикРепорта. Что для решения вашей проблемы непонятно?
Только давайте так - по-простому...
Вы вообще "банды" ставить умеете?
Если да, то в чем вопрос?
Ваша формулировка

Нашла в Интернете код программы, которая делает такие действия, только мне выдает полно ошибок((( Пожалуйста подскажите, как сделать отчёт???

не выдерживает никакой критики, ибо не несет смысла...
Весьма похоже на "пойди туда - не знаю куда, сделай то - не знаю что..."
Единственное понятное слово - DBGrid.

[Irina_87]

Мне всё не понятно)))
В Интернете нашла следующий код:

Для начала создайте новую форму, назвав её TGridReport, и
поместите на неё TQuickRep. Переименуйте QuickRep в GridRep. Затем сделайте
следующию процедуру, которая получает в качестве параметра DBGrid:

procedure TGridReport.Preview(Grid: TDBGrid);
var
  i, CurrentLeft, CurrentTop : integer;
  BMark: TBookmark;
begin
  GridRep.Dataset:=Grid.DataSource.DataSet;

  if not GridRep.Bands.HasColumnHeader then
    GridRep.Bands.HasColumnHeader:=true;

  if not GridRep.Bands.HasDetail then
    GridRep.Bands.HasDetail:=true;

  GridRep.Bands.ColumnHeaderBand.Height:=Abs(Grid.TitleFont.Height) + 10;
  GridRep.Bands.DetailBand.Height:=Abs(Grid.Font.Height) + 10;
  CurrentLeft := 12;
  CurrentTop := 6;

  {Запись, на которой пользователь останавливается в DBGrid}
  BMark:=Grid.DataSource.DataSet.GetBookmark;
  {Запретим мерцание грида в процессе работы отчёта}
  Grid.DataSource.DataSet.DisableControls;
  try
    for i:=0 to Grid.FieldCount - 1 do
    begin
      if (CurrentLeft + Canvas.TextWidth(Grid.Columns[i].Title.Caption)) >
      (GridRep.Bands.ColumnHeaderBand.Width) then
      begin
        CurrentLeft := 12;
        CurrentTop := CurrentTop + Canvas.TextHeight('A') + 6;
        GridRep.Bands.ColumnHeaderBand.Height :=
        GridRep.Bands.ColumnHeaderBand.Height + (Canvas.TextHeight('A') + 10);
        GridRep.Bands.DetailBand.Height :=
        GridRep.Bands.DetailBand.Height + (Canvas.TextHeight('A') + 10);
      end;
      {Создадим заголовок отчёта при помощи QRLabels}
      with TQRLabel.Create(GridRep.Bands.ColumnHeaderBand) do
      begin
        Parent := GridRep.Bands.ColumnHeaderBand;
        Color := GridRep.Bands.ColumnHeaderBand.Color;
        Left := CurrentLeft;
        Top := CurrentTop;
        Caption:=Grid.Columns[i].Title.Caption;
      end;
      {Создадим тело отчёта при помощи QRDBText}
      with TQRDbText.Create(GridRep.Bands.DetailBand) do
      begin
        Parent := GridRep.Bands.DetailBand;
        Color := GridRep.Bands.DetailBand.Color;
        Left := CurrentLeft;
        Top := CurrentTop;
        Alignment:=Grid.Columns[i].Alignment;
        AutoSize:=false;
        AutoStretch:=true;
        Width:=Grid.Columns[i].Width;
        Dataset:=GridRep.Dataset;
        DataField:=Grid.Fields[i].FieldName;
        CurrentLeft:=CurrentLeft + (Grid.Columns[i].Width) + 15;
      end;
    end;

    lblPage.Left := bdTitle.Width - lblPage.Width - 10;
    lblDate.Left := bdTitle.Width - lblDate.Width - 10;

    {Далее вызовем метод предварительного просмотра из QuickRep}
    GridRep.PreviewModal; {либо, если желаете, то PreviewModal}

  finally
    with Grid.DataSource.DataSet do
    begin
      GotoBookmark(BMark);
      FreeBookmark(BMark);
      EnableControls;
    end;
  end;
end;

Причём он везде пишет мне ошибки.. Как переделать этот код под мою базу, под мои данные в DBGrid???
Или может есть другой код или описание действий по созданию отчётов??

[mihali4]

Причём он везде пишет мне ошибки

Хотел отделаться привычным "экстрасенсы в отпуске"...
Но... Давайте по-порядку. Какие ошибки? Приведите их.
Потихоньку, конкретненько...
Разберемся. И доставим вам удовольствие от того, что и вы тоже разберетесь...

[Irina_87]

ну во-первых, он пишет, что незнакомый идентификатор - Grid: TDBGrid

[mihali4]

Сообщение от Irina_87

ну во-первых, он пишет, что незнакомый идентификатор - Grid: TDBGrid

Кто "он" ?
Поймите, трудно разбираться в коде, не имея его перед собой...