 |
Declare Function PEStartPrintJob Lib "CRPE.DLL" (ByVal printJob As Integer, ByVal waitUntilDone As Integer) As Integer
Для объявления всех функций сразу необходимо воспользоваться файлами
заголовков, входящих в состав Crystal Reports. Например, для Visual Basic
имя такого файла - GLOBAL.BAS, для С - CRPE.H.
После объявления функций для начала работы с отчетом необходимо вызвать
функцию PEOpenEngine, которая возвращает значение TRUE (1), если вызов
прошел успешно, либо FALSE(0), если CRPE.DLL / CRPE32.DLL загрузить не
удалось. Функция PEOpenEngine не имеет параметров и служит только для обработки
в программном коде факта успешного подключения Print Engine.
Для печати отчета используется функция PEPrintReport. Синтаксис функции
приведен ниже:
PEPrintReport("reportName", toPrinter, toWindow, "windowTitle",
leftCoordinate, topCoordinate, windowWidth, windowHeight, windowStyle,
parentWindow)
где:
PESetSelectionFormula (Print Job Handle, Formula String),
где Print Job Handle - указатель процесса печати, Formula String - текст
формулы Crystal Reports.
Всего Crystal Reports 6.0 содержит 125 функций Print Engine -
функции для управления данными, процессами печати, выводом
в окно просмотра, принтером, экспортом, функции управления сортировкой
, выборкой и группировкой, управлением форматом печати и т.д.
При помощи функций Print Engine можно просматривать отчет, менять его
параметры, но нельзя менять дизайн отчета. Это утверждение относится
к любым приложениям, написанным на любом языке программирования.
|
В качестве значения свойства Filter компонента TOpenDialog рекомендуется
выбрать расширение *.rpt.
Создадим следующий код обработчиков событий, связанных с нажатием на
кнопки:
unit crU1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls, CRPE32;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
JN:word;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
VAR RepNam:PChar;
begin
if OpenDialog1.Execute then
begin
If PEOpenEngine then
begin
RepNam := StrAlloc(80);
StrPCopy(RepNam,
OpenDialog1.Filename);
JN := PEOpenPrintJob(RepNam);
if JN =
0 then
ShowMessage('Ошибка
открытия отчета');
StrDispose(RepNam);
end
else
ShowMessage('Ошибка открытия
отчета');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PEClosePrintJob(JN);
PECloseEngine;
Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
begin
PEOutputToWindow(jn,'Пример использования Crystal
Reports Print Engine',30,30,600,400,0,0) ;
if PEStartPrintJob(JN, True) = False then
ShowMessage('Ошибка вывода отчета');
end;
end;
end.
При нажатии на первую из кнопок производится выбор файла отчета с помощью
стандартного диалога открытия файлов. При нажатии на вторую кнопку производится
запуск Run-time-версии Crystal Reports и отображение отчета в стандартном
окне (рис. 2):
 |
Следует помнить, что строковые параметры, передаваемые в функции Print Engine API, представляют собой тип данных PChar, а не стандартные строки, используемые в Pascal, поэтому для передачи таких параметров, как, например, имя отчета, следует осуществить преобразование типов с помощью функции StrPCopy. Отметим, что с помощью функций Print Engine API можно изменять довольно широкий спектр параметров отчета (Selection Formula, SQL Query, условия группировки и сортировки, параметры, связанные с печатью и отображением). Напомним также, что для успешной компиляции подобных приложений файл CRPE32.PAS должен находиться в том же каталоге, что и разрабатываемое приложение, либо в каталоге Delphi 3\Lib.
//-------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "U1.h"
#include "crpe.h"
//-------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int JN;
//-------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
PEOpenEngine();
JN=PEOpenPrintJob((OpenDialog1->FileName).c_str());
if (JN==0) ShowMessage("Ошибка открытия отчета");
}
}
//-------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
PEClosePrintJob(JN);
PECloseEngine();
Close();
}
//-------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
PEOutputToWindow(JN,"Пример использования Crystal Reports Print
Engine",30,30,600,400,0,0) ;
if (!PEStartPrintJob(JN,1)) ShowMessage("Ошибка вывода отчета");
}
//-------------------------------------------
Отметим, что имя файла отчета, являющееся свойством компонента TOpenDialog, принадлежит к типу ANSIString, являющемуся классом С++Builder, созданным для совместимости с библиотекой VCL. Поэтому и в этом случае перед вызовом функций Print Engine API также требуется преобразование к стандартному для языка С++ строковому типу переменной, содержащей имя файла отчета.
для версий Borland Delphi 1, 2 и 3, который в случае необходимости его
использования должен быть установлен в палитру компонентов (по умолчанию
- на страницу DataAccess). Этот компонент реализует почти все возможности,
предоставляемые Print Engine API, позволяя избежать написания соответствующего
кода. Для включения компонента в приложение следует поместить его
на форму и установить необходимые значения его свойств (которых у этого
компонента около сотни - для определения параметров, связанных с переменными
отчета, печатью и отображением данных, типом окна, в котором отображается
отчет, и т.д.). Минимально необходимым среди них является свойство ReportName
- имя файла отчета. Для отображения отчета в стандартном окне, подобном
изображенному на рис. 2, и вывода на принтер используется метод Execute
этого компонента.
 |
Создадим обработчик события, связанного с нажатием на кнопку "Открыть отчет":
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='' then Crpe1.SelectionFormula.Strings[0]:=''
else
Crpe1.SelectionFormula.Strings[0]:='{items.ItemNo} = ' + Edit1.Text;
if not Crpe1.execute then
ShowMessage('Ошибка
открытия отчета');
end;
В этом обработчике события на основе значения, введенного пользователем
в компонент TEdit, меняется значение свойства SelectionFormula компонента
TCrpe, и в результате пользователь получает в окне отчета не всю таблицу
целиком, а только записи, в которых значение поля ItemNo равно введенному
пользователем числу (рис.4). Для работоспособности данного кода рекомендуется
в качестве значения свойства SelectionFormula ввести хотя бы одну пустую
строку, чтобы в соответствующем строковом массиве был хотя бы один элемент.
 |
. Этот компонент, в отличие от компонента TCrpe, является визуальным
и позволяет отображать "живые" данные из отчета непосредственно на этапе
проектирования формы, которая при этом фактически заменяет собой стандартное
окно Crystal Reports Run-time на этапе выполнения. Функциональность этого
компонента и возможности динамического управления отчетом на этапе выполнения
примерно те же, что и у компонента TCrpe.
procedure TForm1.Button1Click(Sender: TObject);
begin
CrystalDesign1.ResetContent:=true;
if edit1.text='' then CrystalDesign1.SelectionFormula.Clear
else
CrystalDesign1.SelectionFormula.Add('{items.ItemNo} = ' + Edit1.Text);
CrystalDesign1.Active:=True;
end;
Отметим, что метод ResetContent компонента TCrystalDesign закрывает
отчет, чем в данном случае мы и воспользовались. Результат работы данного
примера приведен на рис. 5.
 |
К сожалению, оба компонента, и TCrpe, и TCrystalDesign, поставляются на сегодняшний день только в варианте для Delphi, и не могут быть установлены в палитру компонентов C++Builder, так как поставляются без исходных текстов. Однако с помощью функций Print Engine API можно также осуществить динамическое управление отчетом, правда, с несколько меньшим комфортом, чем при использовании готовых компонентов. Например, изменение формулы для отбора записей в готовом отчете согласно какому-либо критерию в этом случае осуществляется с помощью оператора примерно следующего вида:
PESetSelectionFormula(JN,"{items.ItemNo} = 2");
Отметим также, что готовые компоненты для управления отчетами также создаются с помощью функций Print Engine API, и возможности творчества в этом направлении поистине безграничны…
unit Uole1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls,ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
rep,r:variant;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
rep:=CreateOleObject('Crystal.CRPE.Application');
r:=rep.OpenReport('d:\Report2.rpt');
r.RecordSelectionFormula := '{items.ItemNo} = '+Edit1.Text;
r.Preview;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
Отметим, однако, что использование OLE Automation - не самый выгодный с точки зрения производительности способ управления отчетами.
может быть установлен в палитру компонентов Delphi или С++Builder и далее
может быть использован при проектировании приложений, как и любой невизуальный
компонент. Этот компонент обладает набором свойств и методов, более или
менее сходным с соответствущим VCL-компонентом TCrpe.
 |
Crystal Reports ActiveX обладает весьма удобным редактором свойств,
позволяющим определить ряд опций уже готового отчета.
 |
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='' then CrystalReport1.SelectionFormula:=''
else
CrystalReport1.SelectionFormula:='{items.ItemNo} = ' + Edit1.Text;
if not (CrystalReport1.PrintReport=0)
then
ShowMessage('Ошибка
открытия отчета');
end;
В результате нажатия пользователем на кнопку пользователь получает
в окне отчета записи, в которых значение поля ItemNo равно введенному
пользователем числу (то есть то же самое, что изображено на рис.4).
Отметим, что Crystal Reports ActiveX можно с успехом использовать
в приложениях, созданных с помощью любого другого средства разработки,
использующего управляющие элементы ActiveX.
Отметим также, что для пользователей Delphi 1.0 в комплекте поставки
16-разрядной версии Crystal Reports Professional имеется сходный по функциональности
управляющий элемент VBX, который также может быть установлен в палитру
компонентов и использован в 16-разрядных приложениях.
Таким образом, на сегодняшний день существует довольно богатый выбор
способов, с помощью которых можно управлять отчетами Crystal Reports из
средств разработки - как с использованием вызовов функций Print Engine
API, так и с использованием OLE-технологии.
C авторами можно связаться, обратившись
в Учебно-консалтинговый центр Interface Ltd.,
тел. (095) 135-5500, 135-2519,
mail@interface.ru