Hallo, mit der unten aufgeführten Procedure speichere ich meine eingegeben, oder geänderten Datensätze. Vorher setze ich die Datenbank in den Insert-Modus. Gebe ich dann einen Datensatz ein, so wird dieser auch richtig gespeichert. Gebe ich aber mehrere Datensätze ein, also Insert Neuer Datensatz, Mitgliedsnummer wird automatisch eingetragen,
das gleiche wieder für den nächsten Datensatz usw. und speichere dann, so wird der Wert für GebDat nur einmal übernommen. Der Wert von GebDat wird in der Funktion AlterBeiGeburtstag ermittelt. Warum wird nur ein Wert gespeichert. Kann man es bewerkstelligen, das alle Werte gespeichert werden. Ich arbeite mit einer Paradox-Datenbank. Möchte aber auf Interbase Client/Server umsteigen. Wie beschrieben, nur eine Eingabe, dann Speichern funktioniert. Sicher kann man mir Tipps geben. Gruss ph.
procedure TNeuForm.BtnStoreClick(Sender: TObject);
begin
AlterAusgabe(Sender); //schreibt Alter in ein Label
VereinZuAusgabe(Sender);
DataModule2.Sin_AdreTableGeAlter.Value := (AlterBeiGeburtstag
(DateToStr(Datamodule2.Sin_AdreTableGebDat.Value)) );
Datamodule2.Sin_AdreTable.ApplyUpdates;
DataModule2.Sin_AdreTable.CommitUpdates;
Datamodule2.Sin_AdreTable.Refresh;
end;
das gleiche wieder für den nächsten Datensatz usw. und speichere dann, so wird der Wert für GebDat nur einmal übernommen. Der Wert von GebDat wird in der Funktion AlterBeiGeburtstag ermittelt. Warum wird nur ein Wert gespeichert. Kann man es bewerkstelligen, das alle Werte gespeichert werden. Ich arbeite mit einer Paradox-Datenbank. Möchte aber auf Interbase Client/Server umsteigen. Wie beschrieben, nur eine Eingabe, dann Speichern funktioniert. Sicher kann man mir Tipps geben. Gruss ph.
procedure TNeuForm.BtnStoreClick(Sender: TObject);
begin
AlterAusgabe(Sender); //schreibt Alter in ein Label
VereinZuAusgabe(Sender);
DataModule2.Sin_AdreTableGeAlter.Value := (AlterBeiGeburtstag
(DateToStr(Datamodule2.Sin_AdreTableGebDat.Value)) );
Datamodule2.Sin_AdreTable.ApplyUpdates;
DataModule2.Sin_AdreTable.CommitUpdates;
Datamodule2.Sin_AdreTable.Refresh;
end;
Comment