Announcement

**Andreas Kosch** · 05.02.2004, 07:53

Hallo,

das folgende Beispiel für Crystal Report 9 läuft bei mir so wie erwartet.

Der Zugriffsweg führt direkt in das Objektmodell von Report Designer Component 9 (RDC), so dass der erste Schritt darin besteht, die Typbibliothek von Report Designer Component 9 (RDC) zu importieren. Da nun die Report-Vorschau über ein separates ActiveX-Control läuft, muss als zweiter Schritt auch das Crystal Report Viewer Control 9 (Version 9.2) installiert werden. Über die dabei von Delphi angelegten Unit-Dateien CRVIEWER9Lib_TLB.pas und CRAXDDRT_TLB.pas greift das Beispiel direkt auf die COM-Objekte zu. Nachdem eine Instanz des Application-Objekts von RDC angefordert wurde, öffnet die OpenReport-Methode die Report-Datei. Allerdings greift mein zweites Beispiel nicht direkt auf die Datenbank zu, sondern nutzt ein bereits gefülltes Recordset-Objekt von ADO als Datenquelle. Da man ein Recordset völlig unabhängig von einer Datenbank direkt im Programm neu definieren und mit Daten füllen kann, steht so ein verblüffend einfacher Weg zur Verfügung, um beliebige Daten an den Report zu übergeben. Außerdem hat der Zugriff über das Recordset auch den Vorteil, dass man völlig unabhängig von den Datenbank-Treibern von Crystal Report ist und an dieser Stelle nichts dazulernen muss.
<pre>
unit D7RDCDemoFrm;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, CRVIEWER9Lib_TLB, OleServer,
CrystalReportsObjectFactoryLib_TLB, CrystalClientDocLib_TLB, ExtCtrls,
ComCtrls, ADOInt;
 
type
TForm1 = class(TForm)
CRViewer91: TCRViewer9;
StatusBar1: TStatusBar;
Panel1: TPanel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
FCon : _Connection;
FRS : _Recordset;
public
{ Public-Deklarationen }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{
Schritt 1: Report Designer Component 9 (RDC) importieren
a) Projekt | Typbibliothek importieren...
b) "Crystal Reports 9 ActiveX Designer Design and Runtime Library "
 (C:\Programme\Gemeinsame Dateien\Crystal Decisions\2.0\bin\craxddrt9.dll)
 
Schritt 2: ActiveX-Viewer importieren
a) Komponente | ActiveX importieren...
b) "Crystal Report Viewer Control 9 (Version 9.2)"
}
 
uses CRAXDDRT_TLB;
 
resourcestring
cCS = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=%s;';
cSQL = 'SELECT * FROM CrystalReport9Demo ORDER BY RecID DESC';
 
procedure TForm1.FormCreate(Sender: TObject);
var
sCS : String;
begin
FCon := CoConnection.Create;
FCon.CursorLocation := adUseClient;
sCS := Format(cCS, ['OSCR9DEMO.mdb']);
FCon.Open(sCS, '', '', adConnectUnspecified);
StatusBar1.SimpleText := sCS;
FRS := CoRecordSet.Create;
FRS.CursorLocation := adUseClient;
FRS.Open(cSQL, FCon, adOpenStatic, adLockReadOnly, adCmdText);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
aCRApp : IApplication;
aCRRpt : IReport;
aCRDB : IDatabase;
sPath : String;
begin
sPath := ExtractFilePath(Forms.Application.ExeName) + 'OSD7CR9.rpt';
aCRApp := CoApplication.Create;
aCRRpt := aCRApp.OpenReport(sPath, 0);
aCRDB := aCRRpt.Database;
// Report soll ein bereits gefülltes Recordset-Objekt als Datenquelle nutzen
aCRDB.SetDataSource(FRS, 3, 1);
CRViewer91.ReportSource := aCRRpt;
CRViewer91.ViewReport;
end;
 
end.
</pre>
Siehe auch http://www.entwickler.com/itr/features/psecom,id,101,nodeid,77.html</i&gt

**Beat Fässler** · 05.02.2004, 10:22

Hallo Herr Kosch 
Ersteinmal danke für Ihre prompte Antwort.
Ich habe ihr Beispiel getestet und so hat es bei mir auch funktioniert. Der Fehler tritt erst dann auf, wenn ich eine 2te Tabelle, die Verknüpfungen zur ersten hat, in den Bericht einfüge und dann den Report aufrufe. 
Auf der Delphi-Seite ändert sich nur der Abfragestring: <pre>cSQL := 'SELECT PA197.FAMNAME, PA197.VORNAME, KTOA197.KONTOART FROM KTOA197 KTOA197 INNER JOIN PA197 PA197 ON KTOA197.ID=PA197.ID';</pre>Kennen Sie vielleicht dieses Problem? Vielen Dank Bea

Announcement

CrystalReport mit einem Recordset füttern

CrystalReport mit einem Recordset füttern

Comment

Comment