gesonderte Ergebnisberechnung in DB-Tab eingeben

[EdAdvokat]

So nun der nächste Versuch Procedure btnTestInput1Click, also der neue Button für das neue InputEdit:

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.SQL.Text:= 'UPDATE Warenverkauf1 SET KDNR = :KNR, NAME = :NAM, VORNAME =: VNA, FORMA = : FIR, PRODUKT = : PRO, ANZAHL =: ANZ, PREIS = :PRE WHERE ID =CID';
  qryMain.ParamByName('CID').AsString := CurrentCustomerID;
  qryMain.ParamByName('NAM').AsString := EdtName.text;
  qryMain.ParamByName('VAN').AsString := EdtVorname.text;
  qryMain.ParamByName('FIR').AsString := EdtFirma.text;
  qryMain.ParamByName('PRO').AsString := EdtProdukt.text;
  qryMain.ParamByName('ANZ').asInteger:=strtoint(edtTestInput2.text);
  qryMain.ParamByName('PRE').AsString := EdtPreis.text;
  qryMain.ExecSQL;

  qryMain.SQL.Text := 'SELECT ID,KDNR,NAME,VORNAME,FIRMA,PRODUKT,ANZAHL,PREIS FROM WARENVERKAUF1';
  qryMain.Open;
   while not qryMain.EOF do
   begin
     RefreshItems(qryMain.FieldByName('ID').AsString,
                  qryMain.FieldByName('KDNR').AsString,
                  qryMain.FieldByName('Name').AsString,
                  qryMain.FieldByName('VORNAME').AsString,
                  qryMain.FieldByName('FIRMA').AsString,
                  qryMain.FieldByName('PRODUKT').AsString,
                  Inttostr(qryMain.FieldByName('ANZAHL').AsInteger),
                  qryMain.FieldByName('PREIS').AsString);
     qryMain.Next;
   end;
end;
end;

Es läuft wieder alles gut durch. (Kleinere Schreibfehler beseitigt). Ergebnis ist leider gleich. Geprüft, ob sich am Zeitstempel der Datentabelle nach der Eingabe was ändert. Es ändert sich nichts. Der Zeitstempel bleibt auf den Zeitpunkt der Erstellung 16:10 Uhr. Also in die Datenbank wird nichts Neues geschrieben über den gewählten Zugang. Leider. Es gibt auch keine Fehlermeldung an die man sich halten könnte. Ich kenne keine weitere Stellschraube, wo man prüfen oder ändern könnte. Ist das von mir angeregte Problem so exzotisch? Ich dachte, dass so etwas durchaus üblich wäre oder denke ich da völlig daneben?