Crystal Reports

← →
Piton (2004-07-26 12:40) [0]

Нарисовал отчет в Crystal Reports 8.5, подключил его к Delphi, а вот как передать параметры из компонента Delphi в CR не знаю :(. Например: из таблицы выбираются записи в диапазоне заданных дат, как задать эти даты с помощью скажем MaskEdit"a, а не в предлагаемом окне CR?

Заранее спасибо!

← →
MU © (2004-07-26 12:41) [1]

Как подключали CR к Delphi?

← →
Piton (2004-07-26 13:50) [2]

MU, В меню Delphi Component - Install Component... проинсталировал CRDELPHI.PAS из пакета СR (C:\Program Files\Seagate Software\Crystal Reports\Developer Files\include). Затем в Delphi подключем модуль CRDelphi и пишем следующий кад:

procedure TForm1.SpeedButton4Click(Sender: TObject);
{var
RepNam:PChar;
ParamInf:PEParameterFieldInfo;
begin
if PEOpenEngine then
begin
RepNam := StrAlloc(80);
StrPCopy(RepNam,"c:\отчет.rpt");
JN := PEOpenPrintJob(RepNam);
if JN = 0 then ShowMessage("Ошибка открытия отчета");
StrDispose(RepNam);
end;
PEOutputToWindow(jn,"Отчет",30,30,900,600,0,0);
if PEStartPrintJob(JN, True) = False then ShowMessage("Ошибка вывода отчета");
end;

В папку с отчетам кидаем файл отчет.dsn следующего содержания:

[ODBC]
DRIVER=Microsoft Access Driver (*.mdb)
UID=admin
UserCommitSync=Yes
Threads=3
SafeTransactions=0
PageTimeout=5
MaxScanRows=8
MaxBufferSize=2048
FIL=MS Access
DriverId=25
DefaultDir=C:\auto
DBQ=C:\auto.mdb
И все :)

Crystal Reports Найти похожие ветки