TEdit+onChange

[LOMBI]

Hallo,

im OnChange der TEdits EdMwSt0, EdMwSt1 und EdMwSt2 werden bei Bedarf die voreingestellten Steuersätze in der ABSTabelle geändert und gespeichert. Mit EdMwSt0 und EdMwSt1 klappt das bestens, jedoch nicht
mit EdMwSt2. Wer kann mir bitte helfen? Vielen Dank vorab!

Delphi-Quellcode:

procedure TDemoForm.EdMwSt2Change(Sender: TObject);
begin
  with DatenModul, ABSQueryMwSt do
  begin
    if Locate('MwSt', 2, []) then
      Edit;
      FieldByName('Prozent').AsFloat := StrToFloat(EdMwSt2.Text);
      Post;
  end;

[Hawkeye219]

Hallo Lombi,

die Einrückung läßt mich vermuten, daß ein BEGIN-END-Paar fehlt.

Gruß Hawkeye

[LOMBI]

Guten Morgen Hawkeye,

nein, daran liegt es nicht.
EdMwSt0 und EdMwSt1 funktionieren mit dem gleichen Code.

[mkinzler]

Zitat:

nein, daran liegt es nicht.
EdMwSt0 und EdMwSt1 funktionieren mit dem gleichen Code.

Bist du dir sicher? Nur das Edit; wird in Abhängigkeit des Ifs aufgerufen die Zuweisung und der Post wird auf jedenfall ausgeführt.

[hoika]

Hallo,

wenn die anderen beiden funktionieren, ist das Zufall.
Wie schon geschrieben fehlt ein begin end.

Delphi-Quellcode:

if Locate then
begin
  edit ...
end;

Heiko

[LOMBI]

Hallo,

habe Begin/End den drei OnChange-Ereignissen EdMwSt0, EdMwSt1, EdMwSt2 hinzugefügt.
Das Problem ist damit bei EdMwSt2 aber nicht gelöst. Welche Alternative gäbe es,
alle drei TEdits in einem Code anzusprechen?

Delphi-Quellcode:

if Locate then
begin
  edit ...
end;

Grüße
Lombi

[hoika]

Hallo,

ich würde vom Locate ganz weggehen.
Ohne deine Datenstruktur kann ich aber nur raten
ein Bsp.

Delphi-Quellcode:

procedure UpdateField(const theId: Integer; const theFieldName: String);
begin
  with Query do
  begin
    SQL.Text:= Update Table Table1 Set Field=:Field Where Id=:Id';
    ParamByName('Field').AsFloat := theFieldName;
    ParamByName('Id').AsInteger  := theId;
    ExecSQL;
  end;
end;

Ich hoffe nicht, dass deine Tabelle sowas hat wie

Name Nr Prozent
Mwst 2 15
Mwst 1 19


Dann ist das Where etwas anders

Where (Name='Mwst') And (Nr=2)



Heiko

[MrSpock]

Hallo LOMBI,

zeige uns doch einmal die Struktur deiner Tabelle.

[LOMBI]

Guten Abend,

hier die Felder meiner ABSTabelle:

MwSt|Prozent
0 | 0
1 | 7
2 | 19
Grüße

[hoika]

Hallo,

nuja,

ers mal nen unique index auf Mwst

dann

update table_???
set prozent=:percent
where mwst=:mwst

un nu die ParamByName

Besser wäre aber ein surrogate (also künstlicher Schlüssel)

id (autoinc), mwst, percent


Heiko

[LOMBI]

Mein Delphi zeigt merkwürdiges Verhalten:

Habe meine Codes aus der Form
gelöscht und wieder implementiert.
Jetzt lassen sich auf einmal alle
drei Ed-Einträge ändern und in der
ABSTabelle speichern!

Nochmals vielen Dank an Euch!

Gruß
Lombi