Quickreport bleibt beim 2ten Aufruf leer

[onkel]

Hallo zusammen,

ich habe eine kleine Datenbank, dessen Felder ich mit Hilfe von Quickreport ausgeben möchte.

Ich benutze Quickreport 3.0.9 und Delphi 7.

Wenn ich den ersten Bericht drucken möchte klappt noch alles, d.h. meine anzuzeigenden Daten sind auf dem Bericht erkennbar.

Nachdem ich nun den ersten Bericht gedruckt habe oder die Vorschau geschlossen habe und nun einen weiteren Bericht mit einem anderem Datensatz erstellen möchte, bleibt der Report leer.


Ich habe in Formular 22 einen Button, der Form23(meinen Report) aufruft. In Form22 befindet sich ein Eingabefeld (Edit1) welches abhängig von der Eingabe einen anderen Datensatz wählt.

Wie kann ich dem Report abgewöhnen das er beim 2ten Aufruf meine neuen Daten nicht anzeigt ...

Folgende Codezeilen benutze ich bereits:

Code:

procedure TForm22.Button1Click(Sender: TObject);
var QRForm1: TForm23;
begin

ADOQuery1.Active:=false;
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Computernummer LIKE '''+Form22.Edit1.Text+''' ';
ADOQuery1.Filtered:=true;
ADOQuery1.Active:=true;

try
  QrForm1:=TForm23.Create(self);
  QrForm1.QuickRep1.Prepare;
  QrForm1.QuickRep1.Preview;
finally
  QrForm1.DestroyComponents;
  QrForm1.Free;
end;

end;

Gruß
Onkel