Fastreport 5 Руководство Пользователя

Icloud116: Новости

Новости

Fastreport Руководство Пользователя

Для первоначального входа в систему использовать имя пользователя FastReport ( руководство пользователя дизайнера отчетов прилагается). a.

FastReport 4.6 Руководство программиста © 1998-2008 Fast Reports Inc. I FastReport 4.6 Руководство программиста Содержание Глава I Работа с компонентом TfrxReport 2 1 Чтение и. запись отчета 2 2 Запуск дизайнера. 3 3 Выполнение. отчета 3 4 Предварительный. просмотр 4 5 Печать отчета. 4 6 Запись и. считывание готового отчета 5 7 Экспорт. отчета 5 8 Создание. собственных окон предварительного просмотра 5 9 Построение. композитных отчетов (пакетная печать) 6 Нумерация страниц. 7 Объединение. отчетов в пакете 7 10 Интерактивные. отчеты 7 11 Доступ к. объектам отчета из кода 9 12 Создание. формы отчета с помощью кода 10 13 Создание. диалоговой формы с помощью кода 14 14 Изменение. свойств страницы отчета 15 15 Построение. отчета с помощью кода 16 16 Печать. массива 19 17 Печать. TStringList 20 18 Печать. файла 20 19 Печать. TStringGrid 20 20 Печать. TTable, TQuery 21 21 Наследование. отчетов 21 22 Многопоточность. 24 23 Кэширование. отчета 24 24 MDI архитектура. 25 Глава II Работа со списком переменных 27 1 Создание. списка переменных 28 2 Очистка. списка переменных 29 3 Добавление. категории 29 4 Добавление. переменной 30 5 Удаление. переменной 31 6 Удаление. категории 31 7 Изменение. значения переменной 32 © 1998-2008 Fast Reports Inc. Содержание II 8 Скриптовые. переменные 33 9 Передача. переменных в TfrxReport.OnGetValue 34 Глава III Работа со стилями 36 1 Создание. набора стилей 38 2 Изменение/добавление/удаление. стиля 40 3 Очищение. стилей отчета 42 4 Создание. библиотеки стилей 42 5 Отображение. списка наборов стилей и применение выбранного стиля 43 6 Изменение/добавление/удаление. набора стилей 43 7 Сохранение/восстановление. библиотеки 44 © 1998-2008 Fast Reports Inc. I FastReport 4.6 Руководство программиста © 1998-2008 Fast Reports Inc. Глава I Работа с компонентом TfrxReport 2 FastReport 4.6 Руководство программиста 1.1 Чтение и запись отчета По умолчанию форма отчета хранится вместе с формой проекта, т.е. в файле DFM. В большинстве случаев этого достаточно и вам не нужно принимать специальных мер для загрузки отчета. Если вы решили хранить форму отчета в файле или в BLOb-поле БД (это дает большую гибкость - вы можете изменять отчет, не перекомпилируя саму программу), вам придется использовать методы компонента TfrxReport для чтения/записи отчета: function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; Загружает отчет из файла с заданным именем. Если второй параметр равен True и файл не найден, то генерирует исключение. Если файл загружен успешно, возвращает True. procedure LoadFromStream(Stream: TStream); Загружает отчет из потока. procedure SaveToFile(const FileName: String); Записывает отчет в файл с заданным именем. procedure SaveToStream(Stream: TStream); Записывает отчет в поток. Файл с формой отчета имеет по умолчанию расширение FR3. Примеры: Pascal: frxReport1.LoadFromFile(c:\\1.fr3); frxReport1.SaveToFile(c:\\2.fr3); C++: frxReport1-LoadFromFile(c:\\\\1.fr3); frxReport1-SaveToFile(c:\\\\2.fr3); © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 3 1.2 Запуск дизайнера Вызов дизайнера отчета осуществляется методом TfrxReport.DesignReport. Дизайнер должен быть включен в ваш проект (для этого достаточно использовать компонент TfrxDesigner или включить модуль frxDesgn в список uses). Пример: frxReport1.DesignReport; Метод DesignReport имет два параметра по умолчанию: procedure DesignReport(Modal: Boolean = True; MDIChild: Boolean = False); Первый параметр определяет, надо ли запускать дизайнер в модальном режиме; второй - будет ли окно дизайнера являться дочерним (для работы в MDI приложении). Так же можно запускать дизайне в 1.3 Выполнение отчета Запуск отчета на выполнение осуществляется одним из двух методов TfrxReport: procedure ShowReport(ClearLastReport: Boolean = True); Запускает отчет на выполнение и показывает результат в окне предварительного просмотра. Если параметр ClearLastReport равен False, то отчет добавляется к ранее построенному, иначе ранее построенный отчет очищается (по умолчанию). function PrepareReport(ClearLastReport: Boolean = True): Boolean; Запускает отчет на выполнение, без окна предварительного просмотра. Назначение параметра такое же, как и в методе ShowReport. Если отчет был построен успешно, возвращает True. В большинстве случаев удобнее использовать первый метод. Он сразу показывает окно предварительного просмотра, отчет тем временем продолжает строиться. Параметр ClearLastReport удобно использовать в случае, когда к ранее построенному отчету надо добавить еще один (такая техника применяется для пакетной печати отчетов, будет рассмотрена позже). Пример: © 1998-2008 Fast Reports Inc. 4 FastReport 4.6 Руководство программиста frxReport1.ShowReport; 1.4 Предварительный просмотр Показать отчет в окне предварительного просмотра можно двумя способами: вызовом метода TfrxReport.ShowReport (см. Выполнение отчета), либо с помощью метода TfrxReport.ShowPreparedReport. Во втором случае построения отчета не происходит, а показывается уже готовый отчет. Это значит, что вы должны его предварительно построить с помощью метода PrepareReport, либо загрузить ранее построенный отчет из файла (см. Загрузка/сохранение готового отчета). Пример: Pascal: if frxReport1.PrepareReport then frxReport1.ShowPreparedReport; C++: if(frxReport1-PrepareReport(true)) frxReport1-ShowPreparedReport(); В этом случае сначала полностью строится отчет, затем показывается в окне просмотра. Построение большого отчета может занять много времени, именно поэтому вместо PrepareReport/ShowPreparedReport лучше использовать асинхронный метод ShowReport. Задать настройки просмотра по умолчанию можно с помощью свойства TfrxReport.PreviewOptions. 1.5 Печать отчета В большинстве случаев печатать отчет вы будете из окна предварительного просмотра. Распечатать отчет вручную можно с помощью метода TfrxReport.Print, например: frxReport1.Print; При этом будет выведен диалог, в котором можно настроить параметры печати. Задать настройки по умолчанию, а также отключить диалог печати можно с помощью свойства TfrxReport.PrintOptions. © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 5 1.6 Запись и считывание готового отчета Это можно сделать из окна предварительного просмотра. Вручную это делается с помощью методов TfrxReport.PreviewPages: function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; procedure SaveToFile(const FileName: String); procedure LoadFromStream(Stream: TStream); procedure SaveToStream(Stream: TStream); Назначение и параметры аналогичны соответствующим методам TfrxReport. Файл с готовым отчетом имеет по умолчанию расширение FP3. Пример: Pascal: frxReport1.PreviewPages.LoadFromFile(c:\\1.fp3); frxReport1.ShowPreparedReport; C++: frxReport1-PreviewPages-LoadFromFile(c:\\\\1.fp3); frxReport1-ShowPreparedReport(); Обратите внимание, что после считывания готового отчета его просмотр осуществляется с помощью метода ShowPreparedReport! 1.7 Экспорт отчета Это можно сделать из окна предварительного просмотра. Вручную это делается с помощью метода TfrxReport.Export. В единственном параметре этого метода надо указать тот фильтр экспорта, который вы хотите использовать: frxReport1.Export(frxHTMLExport1); Компонент фильтра экспорта должен быть доступен (вы должны положить его на форму своего проекта) и настроен соответствующим образом. 1.8 Создание собственных окон предварительного просмотра FastReport показывает отчеты в стандартном окне предварительного просмотра. Если по каким-то причинам вас это не устраивает, можно создать собственную форму предварительного просмотра. Для этих целей служит © 1998-2008 Fast Reports Inc. 6 FastReport 4.6 Руководство программиста компонент TfrxPreview из палитры компонентов FastReport. Чтобы вывести отчет в ваше окно, надо присвоить ссылку на этот компонент свойству TfrxReport.Preview. При использовании компонента TfrxPreview обычно возникает два вопроса: он не реагирует на клавиши управления (стрелки, PgUp, PgDown и пр.) и на колесо прокрутки мыши (если она им оборудована). Чтобы заставить компонент реагировать на клавиши, достаточно установить фокус управления на этот компонент: frxPreview1.SetFocus; Это можно сделать, например, в событии OnShow формы. Для того, чтобы компонент реагировал на колесо прокрутки мыши, надо создать обработчик события формы OnMouseWheel и вызвать в нем метод TfrxPreview.MouseWheelScroll: procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin frxPreview1.MouseWheelScroll(WheelDelta); end; 1.9 Построение композитных отчетов (пакетная печать) В некоторых случаях требуется организовать печать нескольких отчетов одним заданием, или формирование и отображение нескольких отчетов в одном окне просмотра. Для этого в FastReport есть средства, позволяющие построить новый отчет в дополнение к уже существующему. Метод TfrxReport.PrepareReport имеет один необязательный параметр ClearLastReport: Boolean, по умолчанию он равен True. Этот параметр определяет, надо ли очищать страницы ранее построенного отчета. Следующий пример показывает, как построить пакет из двух отчетов: Pascal: frxReport1.LoadFromFile(1.fr3); frxReport1.PrepareReport; frxReport1.LoadFromFile(2.fr3); frxReport1.PrepareReport(False); frxReport1.ShowPreparedReport; C++: frxReport1-LoadFromFile(1.fr3); frxReport1-PrepareReport(true); frxReport1-LoadFromFile(2.fr3); frxReport1-PrepareReport(false); frxReport1-ShowPreparedReport(); © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 7 Мы загружаем первый отчет и строим его, не показывая на экране. Затем загружаем второй отчет в этот же объект TfrxReport и строим его с параметром ClearLastReport = False. При этом отчет добавляется к ранее построенному. После этого мы показываем готовый отчет в окне предварительного просмотра. 1.9.1 Нумерация страниц Вы можете использовать системные переменные Page, Page#, TotalPages, TotalPages# для отображения номера страницы/общего количества страниц. В композитных отчетах эти переменные работают следующим образом: Page - номер страницы в текущем отчете Page# - номер страницы в пакете TotalPages - всего страниц в текущем отчете (отчет должен быть двухпроходным) TotalPages# - всего страниц в пакете. 1.9.2 Объединение отчетов в пакете Как говорилось выше, свойство страницы отчета Печатать на предыдущей странице (PrintOnPreviousPage) позволяет печатать страницы внахлест, т.е. на свободном месте предыдущей страницы. В композитных отчетах это позволяет начать формирование нового отчета на свободном месте последней страницы предыдущего отчета. Для этого надо включить свойство Печатать на предыдущей странице у первой страницы отчета. 1.10 Интерактивные отчеты В интерактивных отчетах можно определить реакцию на щелчок мышью на том или ином объекте отчета в окне предварительного просмотра. Например, пользователь может щелкнуть мышью на строке данных и тем самым сформировать новый отчет с детальными данными по выбранной строке. Интерактивным можно сделать любой отчет. Для этого надо всего лишь создать обработчик для события TfrxReport.OnClickObject. Ниже приведен пример такого обработчика: Pascal: procedure TForm1.frxReport1ClickObject(Page: TfrxPage; View: TfrxView; Button: TMouseButton; Shift: TShiftState; var Modified: Boolean); begin if View.Name = Memo1 then © 1998-2008 Fast Reports Inc. 8 FastReport 4.6 Руководство программиста ShowMessage(Memo1 contents: + #13#10 + TfrxMemoView(View).Text); if View.Name = Memo2 then begin TfrxMemoView(View).Text := InputBox(Edit, Edit Memo2 text. TfrxMemoView(Vi Modified := True; end; end; C++: void __fastcall TForm1::frxReport1ClickObject(TfrxView *Sender, TMouseButton Button, TShiftState Shift, bool Modified) TfrxMemoView * Memo; if(Memo = dynamic_cast TfrxMemoView * (Sender)) if(Memo-Name == Memo1) ShowMessage(Memo1 contents:\ \\r + Memo-Text); if(Memo-Name == Memo2) Memo-Text = InputBox(Edit, Edit Memo2 text. Memo-Text); Modified = true; В обработчике OnClickObject вы можете делать следующее: - менять содержимое переданного в обработчик объекта или страницы (при этом надо выставить флаг Modified, чтобы учесть изменения); - вызывать метод TfrxReport.PrepareReport для построения отчета заново. В этом примере щелчок на объекте с именем Memo1 выведет сообщение с содержимым этого объекта. При щелчке на Memo2 выведется диалог, в котором можно поменять содержимое объекта. Установка флага Modified в True позволяет зафиксировать изменения и отобразить их на экране. Таким же образом можно определить другую реакцию на щелчок, например, формирование нового отчета. Здесь необходимо отметить следующее. В версии FastReport 3 один компонент TfrxReport может отображать отчет только в одном окне предварительного просмотра (в отличие от версии 2). Поэтому формировать новый отчет придется либо в отдельном объекте TfrxReport, либо в том же, но с затиранием текущего отчета. Для подсказки пользователю, на какие объекты можно щелкать мышью, удобно менять форму курсора при прохождении мыши над объектом. Для этого достаточно установить свойству Cursor у нужных объектов значение, отличное от crDefault. Это делается в дизайнере отчета. Еще один момент касается определения того, на каком объекте пользователь щелкнул мышью. В простых отчетах это можно определить по имени объекта или его содержимому. Однако это не всегда удается сделать в более сложных случаях. Например, необходимо сформировать детальный отчет по выбранной строке © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 9 данных. Пользователь щелкнул на объекте Memo1 с содержимым 12. К какой строке данных относится этот объект? Для этого нужно знать первичный ключ, который однозначно идентифицирует эту строку. FastReport позволяет сопоставить каждому объекту отчета строку, содержащую любые данные (в нашем случае данные первичного ключа). Эта строка хранится в свойстве TagStr. Рассмотрим это на примере отчета, который входит в демо FRDemo.exe Simple list. Это список клиентов некоторой фирмы - имя клиента, адрес, контактное лицо и пр. Источник данных - таблица Customer.db из демонстрационной базы DBDEMOS. У этой таблицы есть первичный ключ - поле CustNo, которое в отчете не присутствует. Наша задача - по щелчку на любом объекте из сформированного отчета определить, к какой записи он относится, т.е. узнать значение первичного ключа. Для этого достаточно занести в свойство TagStr всех объектов, которые лежат на бэнде Master Data, следующее значение: [Customers.CustNo] Во время формирования отчета содержимое свойства TagStr вычисляется таким же образом, как и содержимое текстовых объектов, т.е. вместо всех переменных подставляются их значения. Переменная в данном случае - это то, что заключено в квадратные скобки. Поэтому после формирования отчета в свойстве TagStr объектов, лежащих на Master Data, будут содержаться строки типа 1005, 2112 и т.д. Простое преобразование из строки в число даст нам значение первичного ключа, по которому можно найти нужную запись. Если первичный ключ составной, т.е. содержит несколько полей, то содержимое свойства TagStr может быть следующим: [Table1.Field1];[Table1.Field2] После построения отчета свойство TagStr будет содержать значения типа 1000;1, из которых также нетрудно извлечь значения ключа. 1.11 Доступ к объектам отчета из кода Объекты FastReport (такие, как страница отчета, бэнд, мемо-объект) напрямую недоступны из вашего кода. Это означает, что вы не можете обратиться к объекту по его имени, как, например, обращаетесь к кнопке на вашей форме. Чтобы обратиться к объекту, надо найти его с помощью метода TfrxReport.FindObject: Pascal: var Memo1: TfrxMemoView; Memo1 := frxReport1.FindObject(Memo1) as TfrxMemoView; C++: TfrxMemoView * Memo = © 1998-2008 Fast Reports Inc. 10 FastReport 4.6 Руководство программиста dynamic_cast TfrxMemoView * (frxReport1-FindObject(Memo1)); после этого можно обращаться к свойствам и методам объекта. К страницам отчета можно обращаться с помощью свойства TfrxReport.Pages: Pascal: var Page1: TfrxReportPage; Page1 := frxReport1.Pages[1] as TfrxReportPage; C++: TfrxReportPage * Page1 = dynamic_cast TfrxReportPage * (frxReport1-Pages[1]); Обратите внимание - к первой странице отчета надо обращаться по индексу [1]. Индекс 0 имеет страница Данные. 1.12 Создание формы отчета с помощью кода Как правило, большинство отчетов вы будете создавать с помощью дизайнера. Тем не менее, в некоторых случаях (например, форма отчета заранее неизвестна) необходимо создавать отчет вручную, с помощью кода. Для создания отчета вручную необходимо выполнить следующие шаги: - очистить отчет - добавить источники данных - добавить страницу Данные - добавить страницу отчета - добавить бэнды на страницу - настроить свойства бэндов и подключить их к данным - добавить объекты на каждый бэнд - настроить свойства объектов и подключить их к данным Рассмотрим создание простого отчета типа список. Предполагается, что у нас есть компоненты frxReport1: TfrxReport и frxDBDataSet1: TfrxDBDataSet (последний подключен к данным из DBDEMOS, таблица Customer.db). Наш отчет будет содержать одну страницу с бэндами report title и master data. На бэнде report title будет объект с текстом Hello FastReport. а на master data - объект со ссылкой на поле CustNo. Pascal: var DataPage: TfrxDataPage; Page: TfrxReportPage; © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport Band: TfrxBand; DataBand: TfrxMasterData; Memo: TfrxMemoView; очищаем отчет frxReport1.Clear; добавляем источник данных в список доступных для отчета frxReport1.DataSets.Add(frxDBDataSet1); добавляем страницу Данные DataPage := TfrxDataPage.Create(frxReport1); добавляем страницу Page := TfrxReportPage.Create(frxReport1); создаем уникальное имя Page.CreateUniqueName; устанавливаем размеры полей, бумаги и ориентацию по умолчанию Page.SetDefaults; меняем ориентацию бумаги Page.Orientation := poLandscape; добавляем report title Band := TfrxReportTitle.Create(Page); Band.CreateUniqueName; для бэнда достаточно установить координату Top и высоту обе координаты - в пикселах Band.Top := 0; Band.Height := 20; добавляем объект на report title Memo := TfrxMemoView.Create(Band); Memo.CreateUniqueName; Memo.Text := Hello FastReport!; Memo.Height := 20; этот объект будет растянут на ширину бэнда Memo.Align := baWidth; добавляем master data DataBand := TfrxMasterData.Create(Page); DataBand.CreateUniqueName; DataBand.DataSet := frxDBDataSet1; координата Top не должна пересекать ранее добавленный бэнд! DataBand.Top := 100; DataBand.Height := 20; добавляем объект на master data Memo := TfrxMemoView.Create(DataBand); Memo.CreateUniqueName; подключаем к данным Memo.DataSet := frxDBDataSet1; Memo.DataField := CustNo; Memo.SetBounds(0, 0, 100, 20); выравниваем текст по правому краю объекта Memo.HAlign := haRight; показываем отчет frxReport1.ShowReport; 11 © 1998-2008 Fast Reports Inc. 12 FastReport 4.6 Руководство программиста C++: TfrxDataPage * DataPage; TfrxReportPage * Page; TfrxBand * Band; TfrxMasterData * DataBand; TfrxMemoView * Memo; // очищаем отчет frxReport1-Clear(); // добавляем источник данных в список доступных для отчета frxReport1-DataSets-Add(frxDBDataset1); // добавляем страницу Данные DataPage = new TfrxDataPage(frxReport1); // добавляем страницу Page = new TfrxReportPage(frxReport1); // создаем уникальное имя Page-CreateUniqueName(); // устанавливаем размеры полей, бумаги и ориентацию по умолчанию Page-SetDefaults(); // меняем ориентацию бумаги Page-Orientation = poLandscape; // добавляем report title Band = new TfrxReportTitle(Page); Band-CreateUniqueName(); // для бэнда достаточно установить координату Top и высоту // обе координаты - в пикселах Band-Top = 0; Band-Height = 20; // добавляем объект на report title Memo = new TfrxMemoView(Band); Memo-CreateUniqueName(); Memo-Text = Hello FastReport!; Memo-Height = 20; // этот объект будет растянут на ширину бэнда Memo-Align = baWidth; // добавляем master data DataBand = new TfrxMasterData(Page); DataBand-CreateUniqueName(); DataBand-DataSet = frxDBDataset1; // координата Top не должна пересекать ранее добавленный бэнд! DataBand-Top = 100; DataBand-Height = 20; // добавляем объект на master data Memo = new TfrxMemoView(DataBand); Memo-CreateUniqueName(); // подключаем к данным Memo-DataSet = frxDBDataset1; Memo-DataField = CustNo; Memo-SetBounds(0, 0, 100, 20); // выравниваем текст по правому краю объекта © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport Memo-HAlign = haRight; // показываем отчет frxReport1-ShowReport(true); 13 Поясним некоторые моменты. Все источники данных, которые будут использованы в отчете, необходимо добавить в список источников данных. В нашем случае это делается с помощью строки frxReport1.DataSets.Add(frxDBDataSet1). Если этого не сделать, отчет работать не будет. Страница Данные в отчете должна присутствовать для того, чтобы можно было создавать внутренние источники данных в отчете. Вызов Page.SetDefaults не обязателен - в этом случае страница будет иметь формат А4 и поля по 0мм. SetDefaults устанавливает поля по 10мм, и берет размер и ориентацию страницы, которую имеет принтер по умолчанию. Добавляя бэнды на страницу, вы должны следить, чтобы они не пересекались друг с другом. Для этого достаточно установить соответствующие координаты Top и Height. Координаты Left и Width менять смысла не имеет – горизонтальный бэнд всегда имеет ширину страницы, на которой он расположен (это не так, если речь идет о вертикальном бэнде – в этом случае надо устанавливать свойства Left и Width, а свойства Top и Height не менять). Кроме того, следует помнить, что порядок расположения бэндов на странице имеет значение. Всегда располагайте бэнды таким образом, как вы это сделали бы в дизайнере. Координаты и размеры объектов задаются в пикселах. Т.к. свойства Left, Top, Width, Height всех объектов имеют тип Extended, вы можете указывать нецелочисленные значения. Для перевода пикселов в сантиметры и дюймы определены следующие константы: fr01cm fr1cm fr01in fr1in = = = = 3.77953; // 96 / 25.4 37.7953; 9.6; 96; Например, задать высоту бэнда, равную 5мм, можно так: Band.Height := fr01cm * 5; Band.Height := fr1cm * 0.5; © 1998-2008 Fast Reports Inc. 14 FastReport 4.6 Руководство программиста 1.13 Создание диалоговой формы с помощью кода В отчете, как мы знаем, могут содержаться диалоговые формы. Следующий пример демонстрирует создание диалоговой формы, на которой расположена кнопка ОК: Pascal: для работы с диалоговыми объектами надо использовать этот модуль uses frxDCtrl; var Page: TfrxDialogPage; Button: TfrxButtonControl; добавляем страницу Page := TfrxDialogPage.Create(frxReport1); создаем уникальное имя Page.CreateUniqueName; устанавливаем размеры Page.Width := 200; Page.Height := 200; устанавливаем позицию Page.Position := poScreenCenter; добавляем кнопку Button := TfrxButtonControl.Create(Page); Button.CreateUniqueName; Button.Caption := OK; Button.ModalResult := mrOk; Button.SetBounds(60, 140, 75, 25); показываем отчет frxReport1.ShowReport; C++: // для работы с диалоговыми объектами надо использовать этот модуль #include frxDCtrl.hpp TfrxDialogPage * Page; TfrxButtonControl * Button; // добавляем страницу Page = new TfrxDialogPage(frxReport1); // создаем уникальное имя Page-CreateUniqueName(); // устанавливаем размеры Page-Width = 200; Page-Height = 200; // устанавливаем позицию Page-Position = poScreenCenter; // добавляем кнопку Button = new TfrxButtonControl(Page); Button-CreateUniqueName(); © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport Button-Caption = OK; Button-ModalResult = mrOk; Button-SetBounds(60, 140, 75, 25); // показываем отчет frxReport1-ShowReport(true); 15 1.14 Изменение свойств страницы отчета Иногда необходимо бывает сменить настройки страницы отчета из кода, например, поменять ориентацию или размер бумаги. Класс TfrxReportPage содержит следующие свойства, определяющие размер листа: property property property property Orientation: TPrinterOrientation default poPortrait; PaperWidth: Extended; PaperHeight: Extended; PaperSize: Integer; Свойство PaperSize задает формат бумаги. Это одно из стандартных значений, определенных в Windows.pas, например, DMPAPER_A4. Если присвоить значение этому свойству, FastReport сам заполнит свойства PaperWidth и PaperHeight (размеры бумаги в миллиметрах). Если в качестве формата задать значение DMPAPER_USER (или 256), это означает, что задан пользовательский размер бумаги. В этом случае свойства PaperWidth и PaperHeight надо заполнить самостоятельно. Следующий пример показывает, как поменять параметры первой страницы (предполагается, что у нас уже есть отчет): Pascal: var Page: TfrxReportPage; первая страница отчета имеет индекс [1]. Индекс [0] у страницы Данные. Page := TfrxReportPage(frxReport1.Pages[1]); меняем размер Page.PaperSize := DMPAPER_A2; меняем ориентацию бумаги Page.Orientation := poLandscape; C++: TfrxReportPage * Page; // первая страница отчета имеет индекс [1]. Индекс [0] у страницы Данные. Page = (TfrxReportPage *)frxReport1.Pages[1]; // меняем размер Page-PaperSize = DMPAPER_A2; // меняем ориентацию бумаги Page-Orientation = poLandscape; © 1998-2008 Fast Reports Inc. 16 FastReport 4.6 Руководство программиста 1.15 Построение отчета с помощью кода Построением отчета обычно занимается ядро FastReport. Оно выводит бэнды отчета в определенной последовательности столько раз, сколько имеется данных, формируя таким образом готовый отчет. Иногда необходимо вывести отчет нестандартной формы, который ядро FastReport сформировать не в состоянии. В этом случае можно воспользоваться возможностью построения отчета вручную, с помощью события TfrxReport.OnManualBuild. Если определить обработчик этого события, ядро FastReport передаст управление ему. При этом распределение обязанностей по формированию отчета меняется следующим образом: Ядро: - подготовка отчета к формированию (инициализация скрипта, источников данных, формирование дерева бэндов) - все вычисления (агрегатные функции, обработчики событий) - формирование новых страниц/колонок (автоматический вывод page/column header/footer, report title/summary) - прочая рутинная работа Обработчик: - вывод бэндов в определенном порядке Т.е. суть обработчика OnManualBuild состоит в том, чтобы давать ядру FastReport команды на вывод определенных бэндов. Все остальное ядро сделает самостоятельно: сформирует новую страницу, когда место на текущей закончится, выполнит скрипты и т.д. Ядро представлено классом TfrxCustomEngine. Ссылка на экземпляр этого класса находится в свойстве TfrxReport.Engine. Ядро имеет следующие свойства и методы: procedure NewColumn; Формирует новую колонку. Если колонка была последней, формирует новую страницу. procedure NewPage; Формирует новую страницу. procedure ShowBand(Band: TfrxBand); overload; Показывает бэнд. procedure ShowBand(Band: TfrxBandClass); overload; Показывает бэнд заданного типа. © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport function FreeSpace: Extended; 17 Возвращает количество свободного места на странице (в пикселах). После вывода очередного бэнда это значение уменьшается. property CurColumn: Integer; Возвращает/устанавливает номер текущей колонки. property CurX: Extended; Возвращает/устанавливает текущую позицию X. property CurY: Extended; Возвращает/устанавливает текущую позицию Y. После вывода очередного бэнда это значение увеличивается. property DoublePass: Boolean; Является ли отчет двухпроходным. property FinalPass: Boolean; Является ли текущий проход последним. property FooterHeight: Extended; Возвращает высоту page footer. property HeaderHeight: Extended; Возвращает высоту page header. property PageHeight: Extended; Возвращает высоту области печати страницы. property PageWidth: Extended; Возвращает ширину области печати страницы. property TotalPages: Integer; Возвращает количество страниц в готовом отчете (только на втором проходе двухпроходного отчета). Приведем пример простого обработчика. В отчете имеется два бэнда master data, не подключенных к данным. Обработчик выведет эти бэнды в чередующемся порядке, каждый по 6 раз. После шести бэндов будет сделан небольшой промежуток. Pascal: var i: Integer; Band1, Band2: TfrxMasterData; находим нужные бэнды Band1 := frxReport1.FindObject(MasterData1) as TfrxMasterData; © 1998-2008 Fast Reports Inc. 18 FastReport 4.6 Руководство программиста Band2 := frxReport1.FindObject(MasterData2) as TfrxMasterData; for i := 1 to 6 do begin выводим бэнды друг за другом frxReport1.Engine.ShowBand(Band1); frxReport1.Engine.ShowBand(Band2); делаем небольшой промежуток if i = 3 then frxReport1.Engine.CurY := frxReport1.Engine.CurY + 10; end; C++: int i; TfrxMasterData * Band1; TfrxMasterData * Band2; // находим нужные бэнды Band1 := dynamic_cast TfrxMasterData * (frxReport1-FindObject(MasterData1)); Band2 := dynamic_cast TfrxMasterData * (frxReport1-FindObject(MasterData2)); for(i = 1; i = 6; i++) // выводим бэнды друг за другом frxReport1-Engine-ShowBand(Band1); frxReport1-Engine-ShowBand(Band2); // делаем небольшой промежуток if(i == 3) frxReport1-Engine-CurY += 10; Следующий пример выведет две группы бэндов рядом друг с другом. Pascal: var i, j: Integer; Band1, Band2: TfrxMasterData; SaveY: Extended; Band1 := frxReport1.FindObject(MasterData1) as TfrxMasterData; Band2 := frxReport1.FindObject(MasterData2) as TfrxMasterData; SaveY := frxReport1.Engine.CurY; for j := 1 to 2 do begin for i := 1 to 6 do begin frxReport1.Engine.ShowBand(Band1); frxReport1.Engine.ShowBand(Band2); if i = 3 then frxReport1.Engine.CurY := frxReport1.Engine.CurY + 10; end; frxReport1.Engine.CurY := SaveY; frxReport1.Engine.CurX := frxReport1.Engine.CurX + 200; © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport end; C++: int i, j; TfrxMasterData * Band1; TfrxMasterData * Band2; Extended SaveY; 19 Band1 = dynamic_cast TfrxMasterData * (frxReport1-FindObject(MasterData1)); Band2 = dynamic_cast TfrxMasterData * (frxReport1-FindObject(MasterData2)); SaveY = frxReport1-Engine-CurY; for(j = 1; j = 2; j++) for(i = 1; i = 6; i++) frxReport1-Engine-ShowBand(Band1); frxReport1-Engine-ShowBand(Band2); if(i == 3) frxReport1-Engine-CurY += 10; frxReport1-Engine-CurY = SaveY; frxReport1-Engine-CurX += 200; 1.16 Печать массива Исходный код примера находится в каталоге FastReport Demos\\PrintArray ( FastReport Demos\\BCB Demos\\PrintArray). Поясним некоторые моменты. Для печати массива используем отчет с одним бэндом Master Data, который будет выведен столько раз, сколько элементов в массиве. Для этого положим на форму компонент TfrxUserDataSet и настроим его свойства (можно сделать это в коде, как в нашем примере): RangeEnd := reCount RangeEndCount := кол-во элементов в массиве После этого подключим дата-бэнд к компоненту TfrxUserDataSet. Для отображения элемента массива положим на бэнд Master Data текстовый объект со строкой [element] внутри. Переменная element заполняется в событии TfrxReport.OnGetValue. © 1998-2008 Fast Reports Inc. 20 FastReport 4.6 Руководство программиста 1.17 Печать TStringList Исходный код примера находится в каталоге FastReport Demos\\PrintStringList (FastReport Demos\\BCB Demos\\PrintStringList). Принцип работы абсолютно такой же, как в примере с массивом. 1.18 Печать файла Исходный код примера находится в каталоге FastReport Demos\\PrintFile (FastReport Demos\\BCB Demos\\PrintFile). Поясним некоторые моменты. Для печати файла используется отчет с бэндом Master Data, который будет напечатан один раз (для этого его надо подключить к источнику данных, содержащему одну запись - выбрать из списка источник с именем Одна строка/Single row). У бэнда включено растягивание (Stretch) и разрыв (Allow Split). Это означает, что бэнд растянется таким образом, чтобы уместить все имеющиеся на нем объекты. Если при этом бэнд не поместится на странице, он будет выведен по частям на отдельных страницах. Содержимое файла отображается объектом Текст, который содержит переменную [file]. Эта переменная, как и в предыдущих примерах, заполняется в событии TfrxReport.OnGetValue. У объекта также включено растягивание (пукнт Stretch из контекстного меню или свойство StretchMode = smActualHeight). 1.19 Печать TStringGrid Исходный код примера находится в каталоге FastReport Demos\\PrintStringGrid (FastReport Demos\\BCB Demos\\PrintStringGrid). Поясним некоторые моменты. Компонент TStringGrid представляет собой таблицу с произвольным количеством строк и столбцов. Т.е. при печати отчет будет расти не только в высоту, но и в ширину. Чтобы напечатать такой компонент, используем объект Cross-tab (он становится доступен при добавлении в проект компонента TfrxCrossObject). Этот объект как раз предназначен для печати табличных данных с заранее неизвестным количеством строк и столбцов. Объект имеет две разновидности: TfrxCrossView для печати пользовательских данных, и TfrxDBCrossView для печати специально подготовленных данных из таблицы БД. Используем TfrxCrossView. Объект предварительно надо настроить. Для этого зайдем в дизайнер отчета и вызовем редактор объекта, сделав на нем двойной щелчок мышью. Нам нужно указать степень вложенности заголовков строк и колонок, а также количество значений в ячейках таблицы. В нашем случае все эти значения должны быть равны 1. В нашем примере также отключены заголовки © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 21 строк и колонок, и суммарные значения по строкам и колонкам. Заполнять объект значениями из StringGrid необходимо в событии TfrxReport.OnBeforePrint. Значение добавляется с помощью метода TfrxCrossView.AddValue. Его параметры следующие: составной индекс строки, колонки и значение ячейки (также составное - ведь объект может содержать несколько значений в ячейке). 1.20 Печать TTable, TQuery Исходный код примера находится в каталоге FastReport Demos\\PrintTable (FastReport Demos\\BCB Demos\\PrintTable). Принцип работы тот же, что в примере с TStringGrid. В данном случае индекс строки - ее порядковый номер, индекс колонки - имя поля таблицы, значение ячейки - значение поля таблицы. Важный момент - в редакторе объекта Cross-tab надо отключить функции для элемента ячейки (поскольку в ячеке содержатся данные разного характера, это приведет к ошибке формирования таблицы) и отключить сортировку для заголовка колонки (иначе колонки будут отсортированы по алфавиту). 1.21 Наследование отчетов Наследование отчетов было описано в соответствующей главе в Руководстве пользователя. Здесь мы опишем некоторые ключевые моменты. Если вы храните отчеты в файлах, вам нужно указать каталог, в котором FastReport будет искать базовые отчеты. Точнее, это каталог, содержимое которого будет показано в окнах Файл|Новый. и Отчет|Настройки. © 1998-2008 Fast Reports Inc. 22 FastReport 4.6 Руководство программиста Для этого используется свойство компонента TfrxDesigner.TemplateDir. По умолчанию оно пустое, FastReport показывает шаблоны в каталоге, где находится исполняемый файл (.exe). В это свойство можно поместить либо абсолютный путь, либо относительный. Если вы храните отчеты в базе данных, придется написать немного кода для загрузки базового отчета и для получения списка доступных шаблонов. Для загрузки базового отчета используйте обработчик события TfrxReport. OnLoadTemplate: property OnLoadTemplate: TfrxLoadTemplateEvent read FOnLoadTemplate write FOnLoadTe TfrxLoadTemplateEvent = procedure(Report: TfrxReport; const TemplateName: String) o Обработчик этого события должен загрузить отчет с именем TemplateName в компонент Report. Вот возможный пример такого обработчика: procedure TForm1.LoadTemplate(Report: TfrxReport; const TemplateName: String); var BlobStream: TStream; begin ADOTable1.First; while not ADOTable1.Eof do begin if AnsiCompareText(ADOTable1.FieldByName(ReportName).AsString, TemplateName) begin BlobStream := TMemoryStream.Create; TBlobField(ADOTable1.FieldByName(ReportBlob)).SaveToStream(BlobStream); © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport BlobStream.Position := 0; Report.LoadFromStream(BlobStream); BlobStream.Free; break; end; ADOTable1.Next; end; end; 23 Для получения списка доступных шаблонов (в окнах Файл|Новый. и Отчет|Настройки. ) надо использовать обработчик события TfrxDesigner.OnGetTemplateList: property OnGetTemplateList: TfrxGetTemplateListEvent read FOnGetTemplateList write TfrxGetTemplateListEvent = procedure(List: TStrings) of object; Обработчик этого события должен загрузить список доступных отчетов в параметр List. Вот возможный пример такого обработчика: procedure TForm1.GetTemplates(List: TList); begin List.Clear; ADOTable1.First; while not ADOTable1.Eof do begin List.Add(ADOTable1.FieldByName(ReportName).AsString); ADOTable1.Next; end; end; Fast Report может наследовать и уже созданные отчеты, для этого нужно воспользоваться функцией TfrxReport.InheritFromTemplate(const templName: String; InheriteMode: TfrxInheriteMode = imDefault): Boolean. Функция позволяет наследовать текущий загруженный отчет, от указанного отчета. Первый параметр функции путь и имя шаблона предка, второй - параметр позволяет выбрать режим наследования(imDefault - выводить диалог с предложением переименовать/Уудалить дубликаты, imDelete - удаляь все дублирующиеся объекты, imRename - переименовывать все дублирующиеся объекты). Внимание, поиск шаблона предка осуществляется относительно текущего шаблона, т.е. необходимо соблюдать структуру каталогов в месте хранения отчетов. Fast Report использует относительные пути поэтому, не стоит беспокоится о переносе приложения (исключением является, когда текущий шаблон и шаблон предок расположены на разных носителях или используются сетевой путь). © 1998-2008 Fast Reports Inc. 24 FastReport 4.6 Руководство программиста 1.22 Многопоточность FastReport может работать независимо в разных потоках, но имеется ряд особенностей: - Нельзя создавать TfrxDBDataSet с одинаковыми именами даже в разных потоках, т.к. для поиска используется глобальный список и обращение всегда будет происходить к первому созданному TfrxDBDataSet(использование глобального списка можно отключить, по умолчанию активен); - Если во врем выполнения отчета происходит изменение св-в объектов(для примера Memo1.Left := Memo1.Left + 10 в скрипте), то следует помнить, что при последующим выполнении если св-во TfrxReport.EngineOptions.DestroyForms := False шаблон отчета уже будет модифицирован и его необходимо заново загрузить или использовать TfrxReport.EngineOptions.DestroyForms := True. При восстановления из потока нельзя использовать интерактивные отчеты, т.к. объекты скрипта уничтожаются после восстановления, поэтому в некоторых случаях рациональней использовать TfrxReport.EngineOptions.DestroyForms := False и восстанавливать шаблон самостоятельно при следующем цикле построения. При необходимости глобальный список, по которому осуществляется поиск экземпляров TfrxDBDataSet можно отключить. DestroyForms можно отключить, если каждый раз восстанавливать отчет из файла или потока FReport.EngineOptions.DestroyForms := False; FReport.EngineOptions.SilentMode := True; Данное св-во отключает поиск по глобальному списку FReport.EngineOptions.UseGlobalDataSetList := False; EnabledDataSets играет роль локального списка, нужно устанавливать до загрузки шаблона FReport.EnabledDataSets.Add(FfrxDataSet); FReport.LoadFromFile(ReportName); FReport.PrepareReport; 1.23 Кэширование отчета Отчеты и их данные можно кэшировать как в памяти (для увеличения быстродействия), так и в файл на диске (для экономии ресурсов ОЗУ). Можно выделить следующие виды кэширования в Fast Report: © 1998-2008 Fast Reports Inc. Работа с компонентом TfrxReport 25 - TfrxReport.EngineOptions.UseFileCache - если св-во установлено в True, то весь текст и объекты построенного отчета сохраняются во временный файл на диске, при этом TfrxReport.EngineOptions.MaxMemoSize указывает, сколько мегабайт отводится шаблону в ОЗУ. - TfrxReport.PreviewOptions.PagesInCache - кол-во страниц которое может хранится в памяти, существенно ускоряет работу предварительного просмотра, но расходует много памяти (особенно если в шаблоне есть рисунки). - TfrxReport.PreviewOptions.PictureCacheInFile - если св-во включено, то все картинки построенного отчета сохраняются во временный файл на диске, значительно уменьшает потребление памяти в отчетах с больным кол-вом рисунков, но снижает быстродействие. 1.24 MDI архитектура В Fast Report есть возможность создания MDI приложений, как для предварительного просмотра, так и для дизайнера. Пример Исходный код примера находится в каталоге FastReport Demos\\MDI Designer. Стоит отметить, что для каждого окна предварительного просмотра или дизайнера нужно создавать свой TfrxReport, иначе все окна будут ссылаться на один и тот же отчет. © 1998-2008 Fast Reports Inc. Глава II Работа со списком переменных Работа со списком переменных 27 Переменные были подробно рассмотрены в соответствующей главе руководства пользователя. Кратко напомним суть. В отчете можно определить одну или несколько переменных. Каждой переменной можно присвоить значение или выражение, которое будет автоматически вычисляться при обращении к переменной. Переменные можно визуально вставлять в отчет, пользуясь окном Дерево данных. Переменные удобно использовать для замещения сложных выражений, которые часто используются в отчете. Для работы с переменными необходимо использовать модуль frxVariables. Переменная представлена классом TfrxVariable. TfrxVariable = class(TCollectionItem) published property Name: String; Имя переменной property Value: Variant; Значение переменной end; Список переменных представлен классом TfrxVariables. Он содержит все необходимые методы для работы со списком. TfrxVariables = class(TCollection) public function Add: TfrxVariable; Добавляет переменную в конец списка function Insert(Index: Integer): TfrxVariable; Добавляет переменную в указанную позицию списка function IndexOf(const Name: String): Integer; Возвращает индекс переменной с заданным именем procedure AddVariable(const ACategory, AName: String; const AValue: Variant); Добавляет переменную в заданную категорию procedure DeleteCategory(const Name: String); Удаляет категорию и все ее переменные procedure DeleteVariable(const Name: String); Удаляет переменную procedure GetCategoriesList(List: TStrings; ClearList: Boolean = True); Возвращает список категорий © 1998-2008 Fast Reports Inc. 28 FastReport 4.6 Руководство программиста procedure GetVariablesList(const Category: String; List: TStrings); Возвращает список переменных в заданной категории property Items[Index: Integer]: TfrxVariable readonly; Список переменных property Variables[Index: String]: Variant; default; Значения переменных end; Если список переменных велик, удобно сгруппировать его по категориям. Например, имея список переменных: название предприятия р/счет итого итого ндс мы можем представить его в виде: Реквизиты название предприятия р/счет Итоги итого итого ндс Имеются следующие ограничения: - обязательно наличие хотя бы одной категории - категории образуют первый уровень дерева данных, переменные - второй - категории не могут быть вложенными - имена переменных должны быть уникальны в пределах всего списка, а не в пределах категории 2.1 Создание списка переменных Ссылка на список переменных отчета хранится в свойстве TfrxReport.Variables. Для создания списка вручную надо выполнить следующие шаги: - очистить список - создать категорию © 1998-2008 Fast Reports Inc. Работа со списком переменных 29 - создать переменные - повторить шаги 2 и 3 для создания других категорий. 2.2 Очистка списка переменных Производится с помощью метода TfrxVariables.Clear: Pascal: frxReport1.Variables.Clear; C++: frxReport1-Variables-Clear(); 2.3 Добавление категории Вы должны обязательно создать хотя бы одну категорию. Физически и переменные, и категории хранятся в одном списке. Категория отличается от переменной наличием пробела в качестве первого символа имени. Все переменные, находящиеся в списке после категории, считаются принадлежащими этой категории. Добавить категорию в список можно двумя способами: Pascal: frxReport1.Variables[ + My Category 1] := Null; C++: frxReport1-Variables-Variables[ My Category 1] = NULL; или Pascal: var Category: TfrxVariable; Category := frxReport1.Variables.Add; Category.Name := + My category 1; C++: TfrxVariable * Category; Category = frxReport1-Variables-Add(); © 1998-2008 Fast Reports Inc. 30 FastReport 4.6 Руководство программиста Category-Name = My category 1; 2.4 Добавление переменной Переменные можно добавлять после того, как добавлена категория. Все переменные, находящиеся в списке после категории, считаются принадлежащими этой категории. Имена переменных должны быть уникальны в пределах всего списка, а не в пределах категории. Добавить переменную в список можно несколькими способами: Pascal: frxReport1.Variables[My Variable 1] := 10; C++: frxReport1-Variables-Variables[My Variable 1] = 10; этот способ добавляет переменную, если ее не существует, либо изменяет значение существующей переменной. Pascal: var Variable: TfrxVariable; Variable := frxReport1.Variables.Add; Variable.Name := My Variable 1; Variable.Value := 10; C++: TfrxVariable * Variable; Variable = frxReport1-Variables-Add(); Variable-Name = My Variable 1; Variable-Value = 10; Оба способа добавляют переменную в конец списка, таким образом, она добавляется в последнюю категорию. Если переменную надо добавить в определенную позицию списка, используйте метод Insert: Pascal: var Variable: TfrxVariable; Variable := frxReport1.Variables.Insert(1); Variable.Name := My Variable 1; Variable.Value := 10; © 1998-2008 Fast Reports Inc. Работа со списком переменных 31 C++: TfrxVariable * Variable; Variable = frxReport1-Variables-Insert(1); Variable-Name = My Variable 1; Variable-Value = 10; Если надо добавить переменную в определенную категорию, используйте метод AddVariable: Pascal: frxReport1.Variables.AddVariable(My Category 1, My Variable 2, 10); C++: frxReport1-Variables-AddVariable(My Category 1, My Variable 2, 10); 2.5 Удаление переменной Pascal: frxReport1.Variables.DeleteVariable(My Variable 2); C++: frxReport1-Variables-DeleteVariable(My Variable 2); 2.6 Удаление категории Для удаления категории вместе со всеми ее переменными используйте следующий код: Pascal: frxReport1.Variables.DeleteCategory(My Category 1); C++: frxReport1-Variables-DeleteCategory(My Category 1); © 1998-2008 Fast Reports Inc. 32 FastReport 4.6 Руководство программиста 2.7 Изменение значения переменной Можно сделать двумя способами: Pascal: frxReport1.Variables[My Variable 2] := 10; C++: frxReport1-Variables-Variables[My Variable 2] = 10; или Pascal: var Index: Integer; Variable: TfrxVariable; ищем переменную Index := frxReport1.Variables.IndexOf(My Variable 2); если нашли, меняем значение if Index -1 then begin Variable := frxReport1.Variables.Items[Index]; Variable.Value := 10; end; C++: int Index; TfrxVariable * Variable; // ищем переменную Index = frxReport1-Variables-IndexOf(My Variable 2); // если нашли, меняем значение if(Index != -1) Variable = frxReport1-Variables-Items[Index]; Variable-Value = 10; Следует отметить важный момент. При обращении к переменной, определенной в списке переменных, происходит вычисление ее значения, если тип переменной – строковый. Это означает, что переменная со значением Table1.Field1 вернет на самом деле значение поля БД, а не строку Table1.Field1. При присвоении строковых значений таким переменным следует быть осторожным. Например, при выполнении отчета следующий код вызовет ошибку переменная test не определена: frxReport1.Variables[My Variable] := test; поскольку FastReport при обращении к переменной My Variable будет пытаться © 1998-2008 Fast Reports Inc. Работа со списком переменных 33 вычислить ее значение. Правильно передавать строковые переменные надо так: frxReport1.Variables[My Variable] := + test + ; В этом случае значение переменной – строка test – будет выведено без ошибок. Однако учтите два важных ограничения при использовании такого метода: - в строке не должно быть одинарных кавычек. Все одинарные кавычки надо продублировать; - в строке не должно быть символов #13#10. Учитывая вышесказанное, в некоторых случаях удобнее передавать значения переменных через скриптовые переменные. 2.8 Скриптовые переменные В отличие от рассмотренных выше переменных, которые физически находятся в списке переменных отчета, скриптовые переменные объявляются средствами FastScript и находятся в скрипте отчета. Рассмотрим отличия переменных: Переменные отчета Расположение Название переменной Переменные скрипта В списке переменных отчета, В скрипте, TfrxReport.Variables. TfrxReport.Script.Variables. Может содержать любые символы. Может содержать любые символы, но если вы обращаетесь к переменной в скрипте отчета, ее имя должно соответствовать требованиям к идентификатору языка Pascal. Может быть любого типа. Вычисления значения не происходит, переменные ведут себя так же как и языковые переменные. Переменная в отчете не видна, программист должен знать о ее наличии. Значение переменной Может быть любого типа. Переменные строкового типа вычисляются каждый раз при обращении к ним, т.е. по сути являются выражениями. Список переменных отчета доступен в окне Дерево данных. Визуальность Работа со скриптовыми переменными очень проста: достаточно объявить переменную и присвоить ей значение. Обе эти операции делаются одной строкой: Pascal: © 1998-2008 Fast Reports Inc. 34 FastReport 4.6 Руководство программиста frxReport1.Script.Variables[My Variable] := test; C++: frxReport1-Script-Variables-Variables[My Variable] = test; При этом, если переменная не существовала, она создается (переменная типа Variant), иначе ей просто присваивается значение. Как вы уже поняли, при передаче строковых значений в данном случае дополнительные кавычки не нужны. 2.9 Передача переменных в TfrxReport.OnGetValue Наконец, последний способ, позволяющий передать значение переменной в отчет, это использование обработчика события TfrxReport.OnGetValue. Этот способ удобен тем, что позволяет передавать динамические данные (меняющиеся от записи к записи), тогда как два предыдущих способа позволяют передавать только статические данные. Рассмотрим применение данного способа на примере. Создадим отчет и положим на лист объект Текст со следующим текстом внутри: [My Variable] Теперь создадим обработчик события TfrxReport.OnGetValue: procedure TForm1.frxReport1GetValue(const VarName: String; var Value: Variant); begin if CompareText(VarName, My Variable) = 0 then Value := test end; Запустив отчет, мы увидим, что переменная отображена правильно. Обработчик события OnGetValue вызывается, если в тексте обнаружена неизвестная переменная. Обработчик должен вернуть значение переменной. © 1998-2008 Fast Reports Inc. Глава III Работа со стилями 36 FastReport 4.6 Руководство программиста Для начала напомним, что такое стиль, набор стилей, библиотека стилей. Стиль - это элемент, который имеет имя и свойства, определяющие оформление - цвет, шрифт, рамка. Стиль задает оформление объекта отчета. Объекты типа TfrxMemoView имеют свойство Style: String, которое задает имя стиля. При присвоении значения этому свойству оформление стиля копируется в объект. Набор стилей - это несколько стилей, относящихся к одному отчету. Компонент TfrxReport имеет свойство Styles, которое ссылается на внутренний объект типа TfrxStyles. Набор стилей также имеет имя. Набор стилей задает оформление целого отчета. Библиотека стилей - это несколько наборов стилей. С помощью библиотеки стилей удобно осуществлять выбор конкретного набора для оформления отчета. Класс TfrxStyleItem представляет собой стиль. TfrxStyleItem = class(TCollectionItem) public property Name: String; Имя стиля. property Color: TColor; Цвет фона. property Font: TFont; Шрифт. property Frame: TfrxFrame; Рамка. end; Набор стилей представлен классом TfrxStyles. Он содержит методы для считывания/сохранения набора, добавления, удаления, а также поиска стиля. Файл набора стилей имеет по умолчанию расширение FS3. TfrxStyles = class(TCollection) public constructor Create(AReport: TfrxReport); Создает набор стилей. Вместо AReport можно указать nil, но в этом случае методом Apply нельзя будет пользоваться. function Add: TfrxStyleItem; Добавляет новый стиль. © 1998-2008 Fast Reports Inc. Работа со стилями 37 function Find(const Name: String): TfrxStyleItem; Возвращает стиль с указанным именем. procedure Apply; Применяет набор к отчету. procedure GetList(List: TStrings); Возвращает список имен стилей. procedure LoadFromFile(const FileName: String); procedure LoadFromStream(Stream: TStream); Считывает набор. procedure SaveToFile(const FileName: String); procedure SaveToStream(Stream: TStream); Сохраняет набор. property Items[Index: Integer]: TfrxStyleItem; default; Список стилей. property Name: String; Имя набора. end; Наконец, последний класс TfrxStyleSheet представляет собой библиотеку стилей. Он имеет методы для считывания/сохранения библиотеки, добавления и удаления, а также поиска набора стилей. TfrxStyleSheet = class(TObject) public constructor Create; Создает библиотеку. procedure Clear; Очищает библиотеку. procedure Delete(Index: Integer); Удаляет набор с заданным номером. procedure GetList(List: TStrings); Возвращает список имен наборов стилей. procedure LoadFromFile(const FileName: String); procedure LoadFromStream(Stream: TStream); Загружает библиотеку. procedure SaveToFile(const FileName: String); © 1998-2008 Fast Reports Inc. 38 FastReport 4.6 Руководство программиста procedure SaveToStream(Stream: TStream); Сохраняет библиотеку. function Add: TfrxStyles; Добавляет новый набор стилей в библиотеку. function Count: Integer; Возвращает количество наборов стилей в библиотеке. function Find(const Name: String): TfrxStyles; Возвращает набор с заданным именем. function IndexOf(const Name: String): Integer; Возвращает номер набора с заданным именем. property Items[Index: Integer]: TfrxStyles; default; Список наборов стилей. end; 3.1 Создание набора стилей Следующий код демонстрирует создание набора стилей и добавление двух стилей в набор. После этого стили применяются к отчету. Pascal: var Style: TfrxStyleItem; Styles: TfrxStyles; Styles := TfrxStyles.Create(nil); первый стиль Style := Styles.Add; Style.Name := Style1; Style.Font.Name := Courier New; второй стиль Style := Styles.Add; Style.Name := Style2; Style.Font.Name := Times New Roman; Style.Frame.Typ := [ftLeft, ftRight]; применяем набор к отчету frxReport1.Styles := Styles; C++: TfrxStyleItem * Style; TfrxStyles * Styles; © 1998-2008 Fast Reports Inc. Работа со стилями 39 Styles = new TfrxStyles(NULL); // первый стиль Style = Styles-Add(); Style-Name = Style1; Style-Font-Name = Courier New; // второй стиль Style = Styles-Add(); Style-Name = Style2; Style-Font-Name = Times New Roman; Style-Frame-Typ ftLeft ftRight; // применяем набор к отчету frxReport1-Styles = Styles; Можно создать и применить набор иначе: Pascal: var Style: TfrxStyleItem; Styles: TfrxStyles; Styles := frxReport1.Styles; Styles.Clear; первый стиль Style := Styles.Add; Style.Name := Style1; Style.Font.Name := Courier New; второй стиль Style := Styles.Add; Style.Name := Style2; Style.Font.Name := Times New Roman; Style.Frame.Typ := [ftLeft, ftRight]; применяем набор к отчету frxReport1.Styles.Apply; C++: TfrxStyleItem * Style; TfrxStyles * Styles; Styles = frxReport1-Styles; Styles-Clear(); // первый стиль Style = Styles-Add(); Style-Name = Style1; Style-Font-Name = Courier New; // второй стиль Style = Styles-Add(); Style-Name = Style2; © 1998-2008 Fast Reports Inc. 40 FastReport 4.6 Руководство программиста Style-Font-Name = Times New Roman; Style-Frame-Typ ftLeft ftRight; // применяем набор к отчету frxReport1-Styles-Apply(); 3.2 Изменение/добавление/удаление стиля Изменение стиля с заданным именем: Pascal: var Style: TfrxStyleItem; Styles: TfrxStyles; Styles := frxReport1.Styles; ищем первый стиль Style := Styles.Find(Style1); меняем размер шрифта Style.Font.Size := 12; C++: TfrxStyleItem * Style; TfrxStyles * Styles; Styles = frxReport1-Styles; // ищем первый стиль Style = Styles-Find(Style1); // меняем размер шрифта Style-Font-Size = 12; Добавление стиля к набору стилей отчета: Pascal: var Style: TfrxStyleItem; Styles: TfrxStyles; Styles := frxReport1.Styles; добавляем Style := Styles.Add; Style.Name := Style3; C++: © 1998-2008 Fast Reports Inc. Работа со стилями TfrxStyleItem * Style; TfrxStyles * Styles; Styles = frxReport1-Styles; // добавляем Style = Styles-Add(); Style-Name = Style3; 41 Удаление стиля с заданным именем: Pascal: var Style: TfrxStyleItem; Styles: TfrxStyles; Styles := frxReport1.Styles; удаляем Style := Styles.Find(Style3); Style.Free; C++: TfrxStyleItem * Style; TfrxStyles * Styles; Styles = frxReport1-Styles; // удаляем Style = Styles-Find(Style3); delete Style; После внесенных изменений надо сделать Apply: применяем изменения frxReport1.Styles.Apply; Сохранение/восстановление набора Pascal: frxReport1.Styles.SaveToFile(c:\\1.fs3); frxReport1.Styles.LoadFromFile(c:\\1.fs3); C++: frxReport1-Styles-SaveToFile(c:\\\\1.fs3); frxReport1-Styles-LoadFromFile(c:\\\\1.fs3); © 1998-2008 Fast Reports Inc. 42 FastReport 4.6 Руководство программиста 3.3 Очищение стилей отчета Можно сделать двумя способами: frxReport1.Styles.Clear; или frxReport1.Styles := nil; 3.4 Создание библиотеки стилей Следующий пример создает библиотеку и добавляет в нее два набора стилей. Pascal: var Styles: TfrxStyles; StyleSheet: TfrxStyleSheet; StyleSheet := TfrxStyleSheet.Create; первый набор Styles := StyleSheet.Add; Styles.Name := Styles1; здесь можно добавить стили в набор Styles второй набор Styles := StyleSheet.Add; Styles.Name := Styles2; здесь можно добавить стили в набор Styles C++: TfrxStyles * Styles; TfrxStyleSheet * StyleSheet; StyleSheet = new TfrxStyleSheet; // первый набор Styles = StyleSheet-Add(); Styles-Name = Styles1; // здесь можно добавить стили в набор Styles // второй набор Styles = StyleSheet-Add(); Styles-Name = Styles2; // здесь можно добавить стили в набор Styles © 1998-2008 Fast Reports Inc. Работа со стилями 43 3.5 Отображение списка наборов стилей и применение выбранного стиля Наиболее частое применение библиотеки стилей - это отображение доступных наборов стилей в элементе управления типа ComboBox или ListBox. Выбранный пользователем набор затем применяется к отчету. Отображение списка: StyleSheet.GetList(ComboBox1.Items); Применение выбранного набора к отчету: frxReport1.Styles := StyleSheet.Items[ComboBox1.ItemIndex]; или frxReport1.Styles := StyleSheet.Find[ComboBox1.Text]; 3.6 Изменение/добавление/удаление набора стилей Изменение набора с указанным именем: var Styles: TfrxStyles; StyleSheet: TfrxStyleSheet; ищем нужный набор Styles := StyleSheet.Find(Styles2); изменяем стиль с именем Style1 из найденного набора with Styles.Find(Style1) do Font.Name := Arial Black; Добавление набора с библиотеку: var Styles: TfrxStyles; StyleSheet: TfrxStyleSheet; третий набор Styles := StyleSheet.Add; Styles.Name := Styles3; Удаление набора из библиотеки: var i: Integer; StyleSheet: TfrxStyleSheet; © 1998-2008 Fast Reports Inc. 44 FastReport 4.6 Руководство программиста ищем третий набор i := StyleSheet.IndexOf(Styles3); если нашли, удаляем if i -1 then StyleSheet.Delete(i); 3.7 Сохранение/восстановление библиотеки По умолчанию расширение файла для библиотеки стилей - FSS. var StyleSheet: TfrxStyleSheet; StyleSheet.SaveToFile(c:\\1.fss); StyleSheet.LoadFromFile(c:\\1.fss); © 1998-2008 Fast Reports Inc.

FastReport 4.6 Руководство программиста

1998-2008 Fast Reports Inc. FastReport 4.6. Руководство программиста. Page 2. FastReport 4.6 Руководство программиста. I. © 1998-2008 Fast Reports Inc.
1-2. РУКОВОДСТВО ПРОГРАММИСТА. 2.2 ДИЗАЙНЕР ОТЧЕТОВ FASTREPORT. FastReport, помимо этого, позволяет пользователю самому.
Заняться было нечем, вот решил записать видео-урок. Но я думаю он врятли кому-то понадобится).
Что нового в FastReport 5* Подробности: Автор: Super User. Просмотров: 991. FastReport содержит полный набор документации ( руководство.

Другие статьи

Релиз FastReport 5

Дизайнер не запрещается встраивать в свое ПО, если это не автономный генератор отчетов.
Для CRM/ERP есть партнерская программа, стоимость лицензии дизайнера оговаривается в партнерском договоре.
По этому поводу лучше напрямую написать на info@fast-report.com.

Планов на развитие FS пока не имеем, у продукта очень маленькая аудитория пользователей(а тех, которые хотят что-то особенное - единицы). Основное его назначение использование в FR. Если улучшения FS и новый редактор кода, это основные критерии, то переходить не FR5 смысла не имеет.

Re: Релиз FastReport 5.5 для Lazarus и RAD Studio (Delphi, C++Builder) [new]

Откуда:
Сообщений: 50

Так я об использовании FS в FR и говорю. Вам давным - давно предлагали готовое решение, реализующее полноценные классы - и?

. Если улучшения FS и новый редактор кода, это основные критерии, то переходить не FR5 смысла не имеет.

Ну, а примитивные отчеты без использования кода вполне себе можно было и в FR2.* строить. Разве что инконки устарели.
Основная работа - это редактирование и отладка скрипта.

А редактор кода - это какая-то убогая студенческая поделка. Отладка - это вообще "ад и израиль". К примеру, редактор ничего не знает о типах переменных, добавляемых в секцию var.
Почему-то до сих пор окно просмотра значений является модальным. Более неудобное решение и представить тяжело. Проще сообщений ShowMessage() понавтыкать.
Совершенно простые и очевидные вещи не сделаны или сделаны из рук вон плохо.

Дизайнер не запрещается встраивать в свое ПО, если это не автономный генератор отчетов.
Для CRM/ERP есть партнерская программа.

Поясните, пожалуйста, понятие "автономный генератор отчетов".

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

. стоимость лицензии дизайнера оговаривается в партнерском договоре.
По этому поводу лучше напрямую написать на info@fast-report.com.
.

В чем проблема просто взять и назвать порядок цен?

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

Проблемы назвать порядок цен - нет - лицензируется использование дизайнера на рабочих местах в системах широкого назначения. Существуют несколько моделей лицензирования - от "поштучно" (несколько десятков долларов помножаются на коэффициент менее единицы либо сильно менее единицы - в зависимости от частоты и числа лицензируемых рабочих мест) до "единоразово на страну / регион / мир / отрасль и т.п." (несколько достаточно широко известных в узких кругах генераторов отчётов в мире являются, на самом деле, FastReport, заточенным под некоторую специфику - там уже речь о совсем других порядках).
Обычно, если, действительно, есть такая необходимость, взаимоприемлемое решение находится, заключается договор.
В любом случае - это не уровень публичного обсуждения частными программистами в уютном программистском блоге. Вы же не будете его лицензировать, а "я так, только для интересу спросил".

Если бы оценивали. Сколько раз им писал на саппорт, а толку.
Ах да, это же не технический вопрос.

Не припоминаем такого обращения в саппорт. Возможно, наш спам-фильтр ещё на подлёте рубит письмо с такими диковинными данными в поле "отправитель"? info@ имя домена / support@ имя домена?

На офисный телефон в рабочее время (с 10 по 17 по Москве - точно) позвоните что-ли. Тут альтернативные адреса не будем публиковать дабы не завалило спамом, сорри.

Откуда: arm-pascal.ru
Сообщений: 25818

то есть опять словоблудие и назвать порядок цен сложно ?
Так вот я скажу.
примерно два-три года назад к вам официально обратилась одна очень известная гос. организация для покупки лицензии на дизайнер для исключительно внутреннего использования. Когда вы узнали, что это за организация, ценник был выставлен на больше чем 15 миллионов рублей. Это не прокатило, и снова было обращение, но уже от дочки этой компании, и ценник вдруг резко стал в двести раз меньше.

Так что, Маратаск, я знаю прекрасно, о чём говорю, когда пишу:

И. Что это даст для конечных пользователей ?

Смысл классов колторые можно использовать только внутри скрипта ?
Внутренним методам их не передать и получается то же самое, только с красивым оформлением в классы.
Не проще ли тогда добавлять свои классы в Delphi, выносить их в bpl и подключать как плагины ?
Такой класс можно передавать и использовать как в скрипте, так в коде приложения.

Поэтому вся идея классов в скрипте выглядит весьма сомнительно. Реализовать можно, на зачем ?

В двойке для каждого объекта был свой отдельный скрипт, что усложняло написание, отладку и передачу переменных между такими - "мини" скриптами.
А вот с классами как раз разницы в улучшении и не будет, разве переменные собранные в кучу, в красивый псевдо-класс.

Отладчик скрипта не удобен, отрицать не буду.
В приоритете фичи, которые можно делать без использования скрипта. Скрипт - как крайняя мера.

FastReport (description, installation, discuss) - Страница 2 - Обсуждение программ-форум

FastReport (description, installation, discuss)

1. Download and unzip [Ссылки могут видеть только зарегистрированные пользователи. ] or [Ссылки могут видеть только зарегистрированные пользователи. ] (pass:FastReport) a folder C: \ fr5
2. Run as administrator C: \ fr5 \ recompile.exe
3. + Select the compiler = choose your version
+ Select the fastreport version = Enterprise
+ Select the TeeChart version = TeeChartStd
+ What you want to do = Recompile all packages
+ Select path to FIB bpl file = C: \ fr5 \ Source \ FIB
4. Compile button
It should compile without error
After compiling a window Recompiled files are in the C: \ fr5 \ Libxx
where xx - number version of Delphi
5. Open Delphi
Menu Tools -> Environment Options -> Library -> Library path
Add C: \ fr5 \ Libxx
Menu Component -> Install Packages -> Add
Select dcl * .bpl
Press the OK button
You can use .

P.S. Sorry for bad English, sort out

Последний раз редактировалось on-lite; 04.12.2015 в 10:34.

FastReport VCL 5

FastReport VCL 5.0 - новая версия с новыми возможностями

Генератор отчетов FastReport VCL 5 для RAD Studio 2009 - XE5, Delphi 7-XE5 и C++Builder 2005-XE5 представляет собой современное решение, созданное с учетом большинства потребностей разработчиков, желающих использовать готовые сторонние компоненты при написании отчетных средств. Именно FastReport VCL. при всей своей простоте, удобстве и малом размере дистрибутива, способен обеспечить должный функционал и скорость работы на практически любом современном компьютере.

Генератор отчетов FastReport VCL представляет собой современное решение для внедрения Business Intelligense в программное обеспечение любого уровня. FastReport создали его с учетом большинства потребностей разработчиков, желающих использовать готовые компоненты для отчетных средств. Именно FastReport VCL при всей своей простоте, удобстве и малом размере дистрибутива, способен обеспечить должный функционал и скорость работы на практически любом современном компьютере.

FastReport доступен в следующих редакциях: Что нового в FastReport VCL 5.0? Классы:

- Новые типы заливки у объекта "Текст": Градиент и Стекло.

- Объект "Текст" может иметь несколько условий выделения. Они включают в себя настройки рамки, шрифта, заливки и видимость объекта. Вы можете включать и выключать каждую настройку.

- У объекта "Текст" теперь есть несколько настроек форматирования. Когда в тексте содержится несколько выражений, можно указать формат для каждого из них.

- Добавлено свойство Filter у датабэндов. Можно отфильтровать строки данных без использования скрипта.

- Изменения в формате отчета: наборы данных, переменные, форматы, условное выделение хранятся в виде вложенных свойств и стали более удобочитаемыми.

- В объекты отчета добавлены события мыши: MouseEnter, MouseLeave.
- Добавлено свойство Visibility (vsPreview, vsPrint, vsExport) у объектов отчета.

Новые объекты:

- Новые 2D штрихкоды - PDF417, DataMatrix и QR-code.

- Новые штрихкоды - Code128, EAN128 с автоматической кодировкой.

Интерактивность:

- Новые интерактивные типы отчета: детальный отчет и детальная страница. При клике на интерактивный объект, новый отчет создается и отображается в отдельной вкладке окна предпросмотра.

- Добавлена интерактивность в объект Chart. Детальный отчет можно вызвать через клик по объекту Chart.

Экспорты:

- В PDF-экспорт улучшено встраивание шрифтов: вместо целого шрифта встраивается только используемое в отчёте подмножество символов шрифтов. Это позволяет значительно сократить размер файла
- Новые экспорты: HTML5 (div), DOCX, XLSX, PPTX.
- Улучшение в форматах экспорта RTF, XLS, XML, HTML, ODF: поддержка разных типов линий рамки в объекте "Текст".

GUI:

- Новые иконки в окне предпросмотра и в Дизайнере отчетов.

- Улучшен внешний вид дерева данных. Новые иконки для различных типов полей.
- Новые/улучшенные диалоги: условное выделение, граница, заливка, редактор гиперссылок.

Клиент/Сервер:

- Новый навигационный тулбар с поддержкой сенсорных экранов
- Взаимодействие с сервером по технологии AJAX
- Оптимизирован протокол обмена браузера с сервером
- Уменьшено время отклика сервера

О Fast Reports Inc.

Компания Fast Reports, Inc. основана в 1998 году Александром Цыганенко. Основное направление деятельности - разработка программного обеспечения для формирования отчетов. Передовые принципы, заложенные автором в основу нового генератора отчетов, глубочайшее понимание требований разработчиков и конечных пользователей к системе формирования отчетов, без которых не может обойтись практически не одно современное бизнес-приложение, уникальные и, как оказалось, просто необходимые, возможности нового продукта, полноценно реализованные только в генераторах отчетов семейства FastReport, обеспечили потрясающий успех молодому предприятию.

Руководства, Инструкции, Бланки

Поиск

Новые файлы

Описание

Что нового в FastReport 5* - ООО - Инверсия-Кавказ

Видео