Datenaktualisierung bei einer Datenbank

[Kurt56]

Beispiel:
Du hast 2 Tabellen.

1. Tabelle "Lagerbestand" mit den Feldern Artikel und Bestand
2. Tabelle "Bestellung" mit den Feldern Artikel und Menge

Im Feldeditor der beiden Tabellen müssen die Felder deklariert sein.

Delphi-Quellcode:

begin
lagerbestand.setkey;
lagerbestand.fieldbyname('artikel').asinteger:= BestellungArtikel.value;
if lagerbestand.gotokey then             // Datensatz des Artikels in der Bestandstabelle gfunden
   begin
   lagerbestand.edit;          // datensatz bearbeiten
   lagerbestandbestand.value := lagerbestandbestand.value - bestellungmenge.value;  // bestand ändern
   lagerbestand.post;          // datensatz zurück schreiben
   end;
end;

Du erfasst die Bestellung mit Artikel und Menge.
Die o.g. Routine ändert dann den verfügbaren lagerbestand, wenn der Artikel im bestand gefunden wurde.

mfg
Kurt