VPF::DBGrid - Форум программистов

Palladin

Дата 20.3.2006, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Как распечатать содержимое DBGrid???????????????????? smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Foley

Дата 20.3.2006, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Фсемба Яцца

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7

Воспользуйся QuickReport'om или RaveDesigner'om или Excel'om... Пример печати при помощи Эксель без шаблона Эксель:

Код


var Col: Integer;
    i :integer;
    Excel, WorkBook, Sheet: variant;
   begin
   dm.T_otch_gruppi.Filtered:=true;
   dm.T_otch_gruppi.Filter:='Gruppa='''+ComboBox1.Text+'*''';
   //**       перевод отчета в Excel
   Excel:=CreateOleObject('Excel.Application');
   Excel.SheetsInNewWorkbook:=1;
   //**   создание новой рабочей книги
   WorkBook:=Excel.Workbooks.Add;
   Sheet:=WorkBook.WorkSheets[1];
   Sheet.Name:='Отчет по группам';

   Col:=1;
   //**   заголовки и параметры
         Sheet.Cells.Item[1,Col+1]:='Специальность '+dm.T_otch_gruppiSpecialnost.AsString;
         Sheet.Cells.Item[1,Col+1].HorizontalAlignment:=-4152;
         Sheet.Cells.Item[1,Col+1].VerticalAlignment:=-4108;

         Sheet.Cells.Item[2,Col+1]:='Группа '+dm.T_otch_gruppiGruppa.AsString+'  классный руководитель  '+dm.T_otch_gruppiFamklruk.AsString;
         Sheet.Cells.Item[2,Col+1].HorizontalAlignment:=-4108;
         Sheet.Cells.Item[2,Col+1].VerticalAlignment:=-4108;
   // установка размера ширины столбца
         Sheet.Columns[Col].ColumnWidth:=32;
         Sheet.Cells.Item[5,Col]:='Фамилия, Имя, Отчество: ';
         dm.T_otch_gruppi.First;
// и так далее

FRAGNATIC

Дата 21.3.2006, 00:52 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 2
Всего: 11

Код


Печать содержимого DBGrid через QuickReport 
--------------------------------------------------------------------------------


Частенько у пользователя возникает необходимость распечатать отчёт из базы данных. Естественно, что он начинает просить Вас добавить такую возможность в приложение. Как оказалось, при помощи TQuickRep данную задачу можно очень легко решить. 

Итак, приступим. Для начала создайте новую форму, назвав её 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;

Код


(C) DelphiWorld DelphiWorld.narod.ru
на сайте есть ещё пару примеров!

Palladin

Дата 21.3.2006, 01:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Фрагнатик сенкс и тебе фолей тоже!!!!!!!!!!!!!!!!!!!!!!!!!!!1

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

FRAGNATIC

Дата 21.3.2006, 03:15 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 2
Всего: 11

Отредактил твой курсач немного) и отправил те на мыло. Добавил ф-ю печати. Вроде пашет.
Под себя я думаю ты справишся её переделать.
Если что оброщайся

Palladin

Дата 21.3.2006, 03:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17

Сенкс фрагнат, помог, жил бы в моём городе я б тебе пиво точно поставил, 5 дней мучился с печатью мля smile

(((( Плюс решил поставить а не могу, пишет что надо сто сообщений smile

Народ фрагнат действительно помг, плюс ктонить ему киньте!!!!!!!!!
Ещё раз спасибо!!!!!!!!!!

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

sexton

Дата 21.3.2006, 08:49 (ссылка)

(нет голосов)

Загрузка ...

sexton=Пономарь (eng)

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9

Я поставил +.

--------------------

Поставить +

ЖЖ
Рассылка Рассылок

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »