gesonderte Ergebnisberechnung in DB-Tab eingeben

[EdAdvokat]

Nach all den Mühen versuche ich nun eine Navigation für die Datentabelle zu implementieren. Geht das überhaupt in dem Programm, ähnlich dem DBNavigator. Als Pilotlösung habe ich einen Next-Button auf das Formular gelegt mit folgender Procedure:

Delphi-Quellcode:

procedure TMainFrm.btnNextClick(Sender: TObject);
begin
  qryMain.Close;
  qryMain.SQL.Clear;
  qryMain.SQL.Text:='SELECT * FROM WARENVERKAUF1';
  qryMain.Open();
  If not qryMain.IsEmpty then
   qryMain.Active:=true;

   qryMain.Next;
end;

Sicher ist manches doppelt gemoppelt doch auch so tut sich wieder mal überhaupt nichts. keine Fehlermeldung aber der Datensatz springt nicht zum nächten.
Zuvor hatte ich trotz Query.open die Fehlermeldung "Operation ist bei geschlossener Datenmenge nicht möglich" obwohl ich query.open und auch query.active:=true; gesetzt hatte.
Geht das was ich will überhaupt in der vorliegenden Konstalation?