| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Crystal Reports

Piton ©   (2004-07-26 12:40:00) 

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

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

---

Piton   (2004-07-26 13:50:00) [1]

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

---

MU   (2004-07-26 12:41:00) [2]

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

---

Наверх