Serienbrief Erstellung

lblbw · Beiträge: 122 Win XP, Win 7 Delphi7 Enterprise

Moin Jungs,

ich sitze gerade vor mehreren Problemen, die ich im Moment nicht gelöst bekomme.

Vorweg: Ich arbeite zur Zeit in einer Schule (OSZ) als IT-Fachkraft für Computer-Wartung, Unterstützung der Lehrkräfte, etc..
Da Schulen auch Geld sparen müssen, habe ich die Aufgabe bekommen, ein Zeugnis-Verwaltungsprogramm zu erstellen.
Die Schüler-Daten werden durch eine csv-Datei eingelesen, die die Schulverwaltungssoftware exportiert.
Insgesamt ist das Programm in 2 Teile aufgesplitet. Die 1. Exe bekommt nur die Schulverwaltung und liesst alle Daten ein, und exportiert dann nach Auswahl nur eine bestimmte Klasse (auch wieder als csv Datei. Die 2. exe wird zusammen mit der csv Datei und ein paar zusätzlichen txt-Dateien in einen Ordner kopiert. Diese Exe bekommen dann die jeweiligen Klassenlehrer um die Zensuren einzutragen.

Nun zu meinen Problemen:

Fragen 1. und 2. in diesen Thread

3. Als Reporting-Tool benutze ich FreeReport. Im Moment wird nur die 2. Zeile im StringGrid ausgegeben. Da ich zum ersten
Mal mit einem Reporting-Tool arbeite, wie bekomme ich die Daten der anderen Schüler in den Report. Ich dachte mir, da die
Zeugnisse ja im Prinzip Serienbriefe sind, füge ich ein MasterData-Band hinzu. Nur ich bekomme dann eine weiße Seite...
Am besten wäre es für mich, wenn ich auch ein Beispiel-Code für die Erstellung eines Serienbriefes bekomme.

Ich danke schonmal im vorraus für die hilfreichen Antworten!

Crosspost: hier

lblbw · Beiträge: 122 Win XP, Win 7 Delphi7 Enterprise

Auch auf die Gefahr hin, das mir immer noch keiner die Frage beantworten kann: *push*

Kawa · Beiträge: 45 Erhaltene Danke: 1

Hallo,

vielleicht kanns du ja dieses Programm mit Quellcode gebrauchen!

Elfdat08:
Programm zur Oberstufenverwaltung in der Einführungsphase,
Schdat08:
Programm zur Oberstufenverwaltung in der Qualifikationsphase,
herunterladen.

Seite:
http://home.arcor.de/werner.hinzmann/html/download.htm

schau einfach hin!

Xion · Verfasst: Sa 05.06.10 16:53

Freereport...wenn ich das schon lese krieg ich die Krise...da ich vor kurzem 30h damit verbracht habe, einen Bug darin zu fixen und jedes Workaround hat neue Bugs aufgezeigt. Ok, muss zugeben, hab noch nichts besseres (und billigeres

) gefunden. Solange man keine Memos oder gar RTFs über mehrere Seiten nutzt, läufts auch einigermaßen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TPrint.PrintSearch;
begin
  Form1.FreeReport.Title:=Data.Captions.SearchReportTitle;

  Form1.FreeReport.LoadFromFile(Data.DBData.DBPath+Data.Paths.SearchReportFile);
  Form1.FreeReport.OnGetValue:=OnGetValue;
  Form1.frUserDataSet.OnCheckEOF:=OnCheckEOF;
  Form1.frUserDataSet2.OnCheckEOF:=OnCheckEOF;
  Form1.FreeReport.ModalPreview  := True; //blocks window, but allows pdf print
  Form1.FreeReport.ShowReport;
  Form1.frUserDataSet.OnCheckEOF:=nil;
  Form1.frUserDataSet2.OnCheckEOF:=nil;
end;

In der OnCheckEOF procedure musst du nur den Parameter auf True setzen, wenn du fertig mit drucken bist (also nach dem letzten Datensatz). Im OnGetValue musst du der Variable ParName einen Wert zuordnen. Hmm, wofür die DataSets gut waren weiß ich auf Anhieb auch nicht mehr

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

lblbw · Beiträge: 122 Win XP, Win 7 Delphi7 Enterprise

Xion hat folgendes geschrieben :

... Solange man keine Memos oder gar RTFs über mehrere Seiten nutzt, läufts auch einigermaßen.

Hmm, na mal sehen. Hab ja auch 2 seitige Zeugnisse.

Ich werds mal testen!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme