VPF::Вывод отчетов - Форум программистов

Алкоголик

Дата 25.6.2009, 08:15 (ссылка)

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

Загрузка ...

Бывалый

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

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

Здраствуйте.
В программке нужно отправить напечать небольшой документик.
Содержит постоянную картинку, пару таблиц берущихся из StringGrid'a и постоянный текст...
Начал изучать по этой теме мануалы, но ничего не понял. Какой из генераторов отчетов бесплатный и сразу бы примерчик по работе с ним..
Заранее спасибо..

Это сообщение отредактировал(а) Алкоголик - 25.6.2009, 08:16

Frees

Дата 25.6.2009, 08:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

http://www.reportingfor.info/ru/

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

Кольцов Виктор Владимирович

pseud

Дата 25.6.2009, 12:16 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

рекомендую FastReport.
раньше сидел по привычке на QuickReport - не ркуомендую, особенно как начинающему, граблей не оберешься.
FastReport - сила.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Алкоголик

Дата 25.6.2009, 18:46 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

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

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

Прошу подсказать наипростейший способ для решения этой задачи. Вообщем надо распечатать страницу которая состоит из картинки(всегда одной и той же), потом таблица1 в которую текст из переменных берется, таблица2( данные берутся из StrinGrida) и текст(всегда постоянный)...
Пробовал передавать в ворд

Код


function SaveAsWordFile(AGrid: TStringGrid): Boolean;
Function zamena (findtext_,pastetext_:string; w : Variant): boolean;
begin
 zamena:=true;
 try
        W.Selection.End:=0;
        W.Selection.Start:=0;
        W.Selection.Find.Forward:=true;
        W.Selection.Find.Text:= findtext_;
  if W.Selection.Find.Execute then begin
        W.Selection.Delete;
        W.Selection.InsertAfter (pastetext_);
  end
        else zamena:=false;
 except
  zamena:=false;
 end;
end;

var
  WordApp, NewDoc, WordTable: OLEVariant;
  iRows, iCols, iGridRows, jGridCols,g: Integer;
  qw, nams:string;


begin
try
   WordApp := CreateOleObject('Word.Application');
except
   Exit;
end;
  NewDoc:=WordApp.Documents.Add(extractfilepath(paramstr(0))+'doc.dot',EmptyParam);
  zamena('#klient',Fmain.Klient, WordApp);
  zamena('#tel',Fmain.Tel, WordApp);
  zamena('#mail',Fmain.Mail, WordApp);
  zamena('#name',Fmain.Name, WordApp);
  zamena('#num',Fmain.NumP, WordApp);
  zamena('#date',Fmain.Dat, WordApp);
  WordApp.Selection.MoveDown(EmptyParam,3,EmptyParam);
  iCols := AGrid.ColCount;
  iRows := Agrid.RowCount;
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iRows, iCols);
  WordTable.Borders.InsideLineStyle:=1;
  WordTable.Borders.OutsideLineStyle:=1;
   for iGridRows := 1 to iRows do
     for jGridCols := 1 to iCols do
       WordTable.Cell(iGridRows, jGridCols).Range.Text := AGrid.Cells[jGridCols - 1, iGridRows - 1];
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(1).PreferredWidth:=20;
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(2).PreferredWidth:=50;
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(3).PreferredWidth:=300;
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(4).PreferredWidth:=35;
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(5).PreferredWidth:=40;
     WordApp.ActiveDocument.Tables.Item(2).Columns.Item(6).PreferredWidth:=50;
  WordApp.ActiveDocument.PrintOut;
  wordapp.ActiveDocument.Close;
  wordapp.Quit;
  WordApp := Unassigned;
  NewDoc := Unassigned;
end;

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

Добавлено через 1 минуту и 57 секунд
Можно, через какие-нибудь репортсы, но только спримером пожалуйста.. Нет совсем времени изучать хорошо и эксперементировать...

insoft

Дата 26.6.2009, 13:37 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

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

Цитата

Можно, через какие-нибудь репортсы, но только спримером пожалуйста.. Нет совсем времени изучать хорошо и эксперементировать...

используй FastReport
пример по работе со StringGrid есть в примерах поставляемых с генератором...
ну и смотри ссылку ту что дал Frees... там много информации о всех генераторах ;)

Данкинг

Дата 28.6.2009, 11:10 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(insoft @ 26.6.2009, 14:37

)

используй FastReport

Да, там и справка хорошая есть. smile

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

There's nothing left but silent epitaphs.

Rohoss

Дата 28.6.2009, 11:16 (ссылка)

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

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

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

Цитата(Данкинг @ 28.6.2009, 11:10

)

Да, там и справка хорошая есть.

Причём русскоязычная

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

Файловый менеджер Explorer.Net скачать video

Romikgy

Дата 28.6.2009, 22:19 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

кса я freefastreport так и не удалось привязать к дельфи , требует кучу доп. компонент (((

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

insoft

Дата 29.6.2009, 07:47 (ссылка)

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

Загрузка ...

Бывалый

Цитата(Romikgy @ 28.6.2009, 22:19

)

кса я freefastreport так и не удалось привязать к дельфи , требует кучу доп. компонент (((

какие именно?

Romikgy

Дата 29.6.2009, 10:09 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

чет из серии RX требовало и еще чето ...., у них там один компонент был сделан из компаненты rxspeedbutton , это точно помню,
у мя на машине rx никогда не стояли и косяк ((

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

hkdkest

Дата 1.7.2009, 10:21 (ссылка)

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

Загрузка ...

Опытный

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

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

• Создание отчетов - самоучитель для начинающих

flomaster

Дата 1.7.2009, 19:38 (ссылка)

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

Загрузка ...

Новичок

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

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

FreeReport - самодостаточный инструмент. Других библиотек не требует.
При установке компонент сообщение об отсутствии чего-либо скорее всего говорит, что проигнорированы инструкция по установке или readme.txt
У меня FR прижился еще до знакомства с rx, eh и пр. Lib.

Это сообщение отредактировал(а) flomaster - 1.7.2009, 19:40

Romikgy

Дата 1.7.2009, 20:02 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

flomaster, перепроверил еще раз
дельфи 7 открываю FREEREP7.DPK
нажимаю компиляцию и

Код


[Fatal Error] FREEREP7.dpk(35): Required package 'IBO_D6' not found

как лечить?
зачем этот ибо?
PS я никогда не пишу того что не было

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

flomaster

Дата 1.7.2009, 23:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Подобная проблема может возникать если вместо "Compile" нажать "Build".
В этом случае компилятор подпортит исходники и без допусилий ничего не выйдет.
Проще всего заново распаковать исходники и откомпилировать без лишних телодвижений.

Romikgy

Дата 2.7.2009, 11:16 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

Ув. flomaster, я юзаю дельфи уже уйму лет , компоненты ставил и некоторые писал сам
так что фраза типа

Цитата(flomaster @ 1.7.2009, 22:35

)

если вместо "Compile" нажать "Build".

думаю ко мне мало подходит .... ИМХО!

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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