QuickReport füllen

Hi Coders & Coderinen,

weiß jemand von euch zufälliger weise wie ich ein QuickReport mit Daten füttern kann? Ich verwende eigentlich keine Datenback dafür sondern will meine Daten die sich auf meinem Formular ansammeln nur übersichtlich in einer Druckvorschau anordnen. Kann mir da jemand von euch weiter helfen?

Danke!

rincewind

hi,
musste eigentlich nur eine datenbank erzeugen über CreateDatabase und mit der dann eine Tabelle erzeugen die gewünschten Felder erzeugen, mit den Daten füttern und ab geht's an QuickRep.

du kannst auch in QuickRep im Ereignisse OnNeedData dein Report mit Daten füttern

die macht der so lange bist du MoreData auf false stellst

Hier wird ein Teil eines StringGrids

void __fastcall TForm_RPTWP::QuickRep1NeedData(TObject *Sender,
      bool &MoreData)
{
	static int TmpRow = 2;

	if (TmpRow < Form_Wochenplanung->StringGrid_WP->RowCount)
		MoreData = true;
	else
		MoreData = false;

	if (MoreData)
	{
		QRLabel1->Caption = Form_Wochenplanung->StringGrid_WP->Cells[1][TmpRow];
		QRLabel2->Caption = Form_Wochenplanung->StringGrid_WP->Cells[2][TmpRow];
		QRLabel3->Caption = Form_Wochenplanung->StringGrid_WP->Cells[3][TmpRow];
		QRLabel4->Caption = Form_Wochenplanung->StringGrid_WP->Cells[4][TmpRow];
		QRLabel5->Caption = Form_Wochenplanung->StringGrid_WP->Cells[5][TmpRow];
		QRLabel6->Caption = Form_Wochenplanung->StringGrid_WP->Cells[6][TmpRow];
		QRLabel7->Caption = Form_Wochenplanung->StringGrid_WP->Cells[7][TmpRow];
		QRLabel8->Caption = Form_Wochenplanung->StringGrid_WP->Cells[8][TmpRow];
		TmpRow++;
	}
	else
		TmpRow = 2;
}