Вниз
Скачать: CL | DM;

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
И все :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c
1-1090488913
Morg
2004-07-22 13:35
2004.08.08
Увеличение скорости поиска в TStringList


1-1090700722
New Neon
2004-07-25 00:25
2004.08.08
Самоуничтожение программы


9-1083066512
Не просто Я
2004-04-27 15:48
2004.08.08
Кому не трудно киньте линки на всё о функциях описания шара


3-1089723898
Studentik
2004-07-13 17:04
2004.08.08
Как защитить данные в dBase от чужих глазок....


14-1090428956
Krug
2004-07-21 20:55
2004.08.08
Объясните новичку




   Наверх