Delphi-PRAXiS - Delphi Problem: Code Based Report mit Reportvorlage

Hallo!

ich versuche mich z.Z. in RaveReports und muss sagen, dass es für Anfänger sehr schwer ist dort Fuß zu fassen, da man im Internet kaum Tutorials zu RaveReports findet, geschweige denn Tutorials für Anfänger... Aber kommen wir nun zu meinem Problem :-D

Ich will eine Rechnung erstellen und dazu brauche ich ein Paar feste Datenfelder, die z.B. mit Kundenname, Adresse etc. bestückt werden sollen. Das ist auch kein Problem mit den Informationen die ich bis jetzt im Internet gefunden habe.
Hier der CODE:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

    Report.Open;

       Report.SetParam('Datum','23.05.2008');

       Report.Execute;

    Report.Close;

end;

Außerdem soll eine Tabelle erstellt werden, in der die in Anspruch genommenen Leistungen aufgeführt werden sollen, die Anzahl derer ist von Rechnung zu Rechnung unterschiedlich. Beides soll auf einer Seite sein und die Tabelle soll dann automatisch auf die nächste Seite übergehen.

Im Internet habe ich folgenden Beispiel-Code für eine Tabelle gefunden(hat nichts mit meinen Rechnungen zu tun):

Delphi-Quellcode:

			procedure TFormMain.PrintTabularReport(Report: TBaseReport);

var

  FolderList : TStringList;

  i          : Integer;

  NumFiles   : Cardinal;

  NumFolders : Cardinal;

  SizeFiles  : Cardinal;

  Root       : string;

begin

  with Report do

  begin

    SetFont('Arial', 15);

    NewLine;

    PrintCenter('List of Folders in the Drive Root', 4);

    NewLine;

    NewLine;

    ClearTabs;

    SetTab(0.2, pjLeft, 1.7, 0, 0, 0);

    SetTab(1.7, pjRight, 3.1, 0, 0, 0);

    SetTab(3.1, pjRight, 3.5, 0, 0, 0);

    SetTab(3.5, pjRight, 4.5, 0, 0, 0);

    SetFont('Arial', 10);

    Bold := True;

    PrintTab('Folder Name');

    PrintTab('Number of Files');

    PrintTab('Number of Folders');

    PrintTab('Size of Files');

    Bold := False;

    NewLine;

    FolderList := TStringList.Create;

    try

      Root := IncludeTrailingPathDelimiter(ExtractFileDrive(ParamStr(0)));

      EnumFolders(FolderList, Root);

      for i := 0 to FolderList.Count - 1 do

      begin

        PrintTab(FolderList[i]);

        GetFolderInfo(IncludeTrailingPathDelimiter(Root+FolderList[i]),

          NumFiles, NumFolders, SizeFiles);

        PrintTab(Format('%u',[NumFiles]));

        PrintTab(Format('%u',[NumFolders]));

        PrintTab(Format('%u bytes',[SizeFiles]));

        NewLine;

      end;

    finally

      FolderList.Free;

    end;

  end;

end;

PROBLEM: Die beiden Codes so miteinander Verbinden, dass ich sowohl Daten an meine fertige Rave-Vorlage senden kann und zusätzlich unter der "Kopfzeile" mit Adresse etc. eine Tabelle mit den Leistungen erstellen kann.

Zusatz-Information: Ich möchte die Kundendaten und Rechnungsdaten in einer .mdb speichern und sie von dort auslesen und an Rave übergeben...

Ich bin für jegliche Vorschläge dankbar und offen! :)

Mit freundlichen Grüßen
Piotr Dworaczek