Datenmenge geschlossen

[TiGü]

Wie ist es denn so?

Delphi-Quellcode:

procedure TReisekostenForm.SearchBtnClick(Sender: TObject);
var
  SucheReisekostenForm: TSucheReisekostenForm;
begin
  try
    SucheReisekostenForm := TSucheReisekostenForm.Create(self);
    begin
      SucheReisekostenForm.ShowModal();
      begin
        ReisekostenQuery.Open;
        SucheReisekostenForm.ReisekostenQuery.Open;

        if gvarStatus = 1 then // für einen Datensatz
          OpenParamQuerySQL(ReisekostenQuery, 'SELECT * FROM Reisekosten WHERE ID = :ID AND MANr = :MANr ORDER BY ID ASC', ['ID', 'MANr'], [SucheReisekostenForm.ReisekostenQuery.FieldByName('ID').AsInteger, SucheReisekostenForm.ReisekostenQuery.FieldByName('MANr').AsInteger]);
        if gvarStatus = 2 then // für eine Teilmenge
          OpenParamQuerySQL(ReisekostenQuery, SucheReisekostenForm.QBuilder.SQL, SucheReisekostenForm.PV);
        if TeilmengeOffen = 1 then
          TeilMengeBtn1.Enabled := true;

        ReisekostenQuery.Close;
        SucheReisekostenForm.ReisekostenQuery.Close;
      end;
    end;
  finally
    SucheReisekostenForm.Release();
  end;
end;