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.
