Delphi-PRAXiS :: quickreport aus DB

quickreport aus DB Ein Delphi (Win32)-Thema von Privateer3000. Vorheriges Thema anzeigen \| Nächstes Thema anzeigen

Delphi-PRAXiS Forum - Übersicht -> Datenbanken
Seite 1 von 1 [ 6 Beiträge ]

Autor

Nachricht

Privateer3000	#1\|Verfasst am: 01.07.2008, 22:02 Titel: quickreport aus DB

aktives Mitglied
Alter: 39
Status: offline
Beiträge: 913
angemeldet: 10.06.2002
Wohnort: Jena
Delphi 6 Enterprise

Sprache: Delphi (Win32)
Datenbank: mdb, Zugriff über: ado

Hallöchen,

mit folgenden source will ich aus einem adoquery drucken.
Dazu greife ich mit NeedData darauf zu.
Es wird jedoch nur der erste Datensatz gedruckt, allerdings
soviel mal wie die Ergebnismenge lautet.
Sind 3 Datensätze vorhanden, werden 3 Zeilen gedruckt, mit dem Inhalt des ersten Satzes:

Delphi-Quellcode:

zusammenfalten | markieren

procedure Tkbon.bonrepNeedData(Sender: TObject; var MoreData: Boolean);
begin
if ergz = 0 then
bonrep.NewColumn;
if haupt.liste.listmodus = False then begin
spa1.caption := haupt.liste.tichq.fieldbyname('menge').asString;
spa2.Caption := haupt.liste.tichq.fieldbyname('aname').asString;
spa3.Caption := format('%f',[haupt.liste.tichq.fieldbyname('messung').asFloat]);
haupt.liste.tichq.Next;
moredata := ergz <= haupt.liste.tichq.RecordCount -1;
end;
end;
inc(ergz);
end;

Nun doktore ich ergebnislos daran rum...
Kann jemand helfen?

+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++

Zuletzt bearbeitet von Privateer3000 am 01.07.2008, 22:04, insgesamt 2-mal bearbeitet.

mkinzler	#2\|Verfasst am: 01.07.2008, 22:04 Titel: Re: quickreport aus DB

sehr aktives Mitglied
Status: online
Beiträge: 18.802
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2007 Professional

Es scheint ein begin zu fehlen

Delphi-Quellcode:

markieren

if ergz = 0 then
begin
bonrep.NewColumn;

Privateer3000	#3\|Verfasst am: 01.07.2008, 22:22 Titel: Re: quickreport aus DB

aktives Mitglied
Alter: 39
Status: offline
Beiträge: 913
angemeldet: 10.06.2002
Wohnort: Jena
Delphi 6 Enterprise

Danke! blind wie eine Natter...
allerdings springt der Datenzeiger jetzt
lediglich zum 2. Satz und hört dann auf.
Also irgenwas stimmt noch nicht.

+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++

mkinzler	#4\|Verfasst am: 01.07.2008, 22:36 Titel: Re: quickreport aus DB

sehr aktives Mitglied
Status: online
Beiträge: 18.802
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2007 Professional

Du hast auch keine Schleife

Privateer3000	#5\|Verfasst am: 01.07.2008, 22:37 Titel: Re: quickreport aus DB

aktives Mitglied
Alter: 39
Status: offline
Beiträge: 913
angemeldet: 10.06.2002
Wohnort: Jena
Delphi 6 Enterprise

nee also das wars nicht.
newcolumn soll ja nur ausgeführt werden wenn ergz = 0 ist,
dann nicht mehr.
Soweit wars korrekt.
Ich hab jetzt wieder auf ursprüngliche version zurückgestellt
Hab noch einen Satz hinzugefügt, immer das gleich
jetzt werden 4 Sätze gedruckt, immer der gleiche Inhalt...

+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++

Privateer3000	#6\|Verfasst am: 01.07.2008, 22:39 Titel: Re: quickreport aus DB

aktives Mitglied
Alter: 39
Status: offline
Beiträge: 913
angemeldet: 10.06.2002
Wohnort: Jena
Delphi 6 Enterprise

gedacht war es ja so:
mit next wird auf den nächsten Satz gezeigt,
moredata weist an noch mal zu gucken
bis ergz = recordcount ist.

+++Versuch es nicht mit Gewalt + Nimm einen größeren Hammer! +++

Anzeige-Optionen:

Delphi-PRAXiS Forum - Übersicht -> Datenbanken	Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1 [ 6 Beiträge ]

Gehe zu:

Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.

Impressum / Kontakt Allgemeine Geschäftsbedingungen Verhaltenskodex & FAQ		Delphi-PRAXiS V.2005 III © 2002-2008 by Daniel R. Wolf powered by phpBB © phpBB Group