gesonderte Ergebnisberechnung in DB-Tab eingeben

[EdAdvokat]

Hoffentlich stelle ich mich nicht zu blöd an. So sieht nun die neue ButtonClick-Procedure aus:

Delphi-Quellcode:

procedure TMainFrm.btnTestInput1Click(Sender: TObject);
var
  CurrentCustomerID: string;
begin
  qryMain.SQL.Clear;
  qryMain.Params.Clear;
   if IsEdit then
begin
  CurrentCustomerID := lvProductList.Selected.Caption;
  qryMain.SQL.Text := 'UPDATE WARENVERKAUF1 SET KDNR=:KDNR,NAME=:NAME,VORNAME=:VORNAME,FIRMA=:FIRMA,PRODUKT=:PRODUKT,ANZAHL=:ANZAHL,PREIS=:PREIS WHERE ID = :2';
  qryMain.ParamByName('ID').AsString := CurrentCustomerID;
  qryMain.ParamByName('Anzahl').asInteger:=strtoint(edtTestInput.text);
  qryMain.ExecSQL;
  qryMain.SQL.Text := 'SELECT ID,KDNR,NAME,VORNAME,FIRMA,PRODUKT,ANZAHL,PREIS FROM WARENVERKAUF1';
  qryMain.ExecSQL;
  RefreshItems(CurrentCustomerID, edtCustomerNumber.Text, EdtName.Text, EdtVorname.Text, EdtFirma.Text, EdtProdukt.Text, EdtAnzahl.Text, EdtPreis.Text);
end;
end;

Ich bin nicht sicher, ob ich Dein Hinweis richtig aufgenommen habe.
Zwischenzeitlich habe ich eine völlig neue Tabelle "Warenverkauf1" geschrieben. Dort ist der Lehmann (Beispiel) mit der ID 2 aufgeführt.
Reichen diese Angaben zum 2. Testbutton? Zusätzlich wie angemahnt ein SELECT eingefügt.