BorlandTalk.com

Ed · Guest

I placed this earlier but it down a thread...

I'm sure I'm not dumb, but I just cannot follow CR11 - it's just too
complicated - I'm used to an easy life using ReportSmith. Unfortunately, RS
cannot do what I want.

I'll give anybody $200 if they can get the following working :

I have CR11 (Developer) - fully registered etc
I have Delphi 2005 - full install.

1. Create a Win32 Delphi app with a button and 2 text fields hold dates.
2. Click the button and it generates a CR11 report that access 2 Paradox
databases linked by the primary index (EmployeeId) and select records
between the 2 dates. Just print the fields on the report (better still make
that 2 reports 1) Simple Columnar, and 2) Simple Form (ie a free-form with
the fields placed here and there).
The database is accessed using the Borland BDE (latest 5.11).
3. The report is generated in "PDF" format and is held as a file in the
runtime directory.

Honestly, it's really simple ...... easy money.

Ed

Ed · Guest

PS If you reply direct put the words "Crystal Reports" in the subject line
and it pass the spam blocker.

Ed

"Ed" <EdwinGrimshaw (AT) bigpond (DOT) com> wrote in message
news:446a7e97$1 (AT) newsgroups (DOT) borland.com...

Ed · Guest

Few typos ...

If you reply directly using email put the words "Crystal Reports" in the
subject line
and it will pass my spam blocker.

I'm sure I'm not dumb, but I just cannot follow CR11 - it's just too
complicated - I'm used to an easy life using ReportSmith. Unfortunately,
RS cannot do what I want.

I'll give anybody US$200 if they can get the following working :

I have CR11 (Developer) - fully registered, latest service packs etc
I have Delphi 2005 - full install, latest service packs.

1. Create a Win32 Delphi app with a button and 2 text fields to hold dates.
2. Click the button and it generates 2 CR11 reports that accesses 2 Paradox
tables linked by the primary index (EmployeeId) and selects records
between the 2 dates.
Report 1) Simple Columnar
Report 2) Simple Form (ie a free-form with the fields placed here and
there).
The database is accessed using the Borland BDE (latest 5.11).
3. The report is generated in "PDF" format and is held as a file in the
runtime directory.

Honestly, it's really simple ...... easy money.

Ed

Lasse · Guest

Hi,
This is for delphi 7 but it should be the same for d2005 I think.

INSTALLATION

To run this Delphi 7 application with the RDC, import the 'Crystal Reports
ActiveX Designer Run Time Library' and the Crystal Report Viewer Control
into Delphi 7 and compile and run the application.

Import the 'Crystal Reports ActiveX Designer Run Time Library'
_____________________________________________________________

1. Start Delphi 7.
2. On the 'Project' menu, select 'Import Type Library...'.
3. The 'Import type library...' window appears.
4. In the 'Import type library...' window select 'Crystal Reports 9 ActiveX
Designer and Run Time Library' and click the 'Add' button.
5. In the 'Class Names' text box, rename TReport to TCrReport and TDatabase
to TCrDatabase. These classes are renamed to avoid a naming conflict with
other class names within Delphi.
6. Click the 'Install' button.
7. On the 'Install' window select 'Into new package' and enter the name
'craxdrt9' into the 'Name' field.
8. Click the 'OK' button and confirm the package is built and installed.
9. Close the 'Craxdrt9.dpk' window and save the changes.

Import the 'Crystal Report Viewer Control'
__________________________________________

1. On the 'Project' menu, select 'Import Type Library...'.
2. The 'Import type library...' window appears.
3. In the 'Import type library...' window, select 'Crystal Report Viewer
Control 9'and click the 'Add' button.
4. In the 'Install' window select 'Into new package'.
5. In the 'Name' field enter 'crviewer9' and click the 'OK' button, confirm
the package is built and installed.
6. Close the 'crviewer9.dpk' window and save the changes.

Prepare your reports in CR.

To view a report from delphi app.
Put a CR viewer and a TApplication component (from activex group) on a form.

TMyForm = class(TForm)
Application1: TApplication;
CRViewer91: TCrystalActiveXReportViewer;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure ViewReport
public
{ Public declarations }
report : IReport ;
end;

procedure MyForm.ViewReport
Begin
report := Application1.OpenReport(Path+ReportName, crOpenReportByTempCopy)
;
report.Database.Tables.Item[1].SetLogOnInfo(HostName, Database, UserName,
Password);
//in case you need to pass a parameter to report
report.ParameterFields.Item[1].AddCurrentValue(StartDate);
report.ParameterFields.Item[2].AddCurrentValue(EndDate);
CRViewer91.ReportSource:= Report ;
CRViewer91.ViewReport ;
End ;

To print/export directly use
report.PrintOut(promptUser, numberOfCopy, collated, startPageN,
stopPageN) ;
report.Export //have not used this one

Lasse

"Ed" <EdwinGrimshaw (AT) bigpond (DOT) com> skrev i meddelandet
news:446a99b3 (AT) newsgroups (DOT) borland.com...

Gert de Boom · Guest