Speicherung in MySql

[Bernhard Nienhaus]

Recht herzlichen Dank für die Hinweise. Mit den Variablen Abkürzungen, ja das kommt noch aus der dBase Programmierung, da man dort ja keine langen Variablen Namen verwenden konnte. Die werde ich auch in dem Projekt dann entsprechend ändern in "Sprechende Variablen".
Zu dem Änderungsmodus habe ich vor dem leh_tabl.edit dann die LehrangsIDnr gesucht, sodass der ausgesuchte Datensatz dann verwendet wird.

procedure TPer_form.Lehrgang_aendern_bitbtnClick(Sender: TObject);
begin
..Lehrgang_TFDtabel.Locate('Lehrgang_idnr',Lehrgan g_idnr,[loCaseInsensitive]);
..Lehrgang_TFDTabel.edit ;
..Lehrgang_TFDTabel['Lehrgang_datum'] := Lehrgang_Datum_DateTimePicker.Date ;
.....
.....
Lehrgang_TFDTable.post
end;


Mit dieser Ausführung klappt alles so wie gewünscht.

Vielen herzlichen Dank für eure Hinweise und Tip.s

mfg Bernhard

PS Die b eiden Punkte stehen für Leerzeichen, damit zwischen Begin und End ein Abschnitt ist bzw. eine Einrückung hier.

[Sir Rufo]

Zitat von Bernhard Nienhaus:

PS Die b eiden Punkte stehen für Leerzeichen, damit zwischen Begin und End ein Abschnitt ist bzw. eine Einrückung hier.

Ja, das ist ja schön ... aber ...

Zitat von Jumpy:

Und weil's noch keiner gesagt hat: Quellcode-Abschnitte am besten in die Delphi-Tags (Der Helm-Button im Editor) packen, damit sie schön formatiert und lesbar sind.

... denn dann kannst du dir diese Punkte sparen ...

Delphi-Quellcode:

procedure TPer_form.Lehrgang_aendern_bitbtnClick(Sender: TObject);
begin
  Lehrgang_TFDtabel.Locate('Lehrgang_idnr',Lehrgan g_idnr,[loCaseInsensitive]);
  Lehrgang_TFDTabel.edit ;
  Lehrgang_TFDTabel['Lehrgang_datum'] := Lehrgang_Datum_DateTimePicker.Date ;
  ...
  Lehrgang_TFDTable.post
end;

Und so muss das im Beitrags-Editor aussehen:

Code:

[DELPHI]
procedure TPer_form.Lehrgang_aendern_bitbtnClick(Sender: TObject);
begin
  Lehrgang_TFDtabel.Locate('Lehrgang_idnr',Lehrgan g_idnr,[loCaseInsensitive]);
  Lehrgang_TFDTabel.edit ;
  Lehrgang_TFDTabel['Lehrgang_datum'] := Lehrgang_Datum_DateTimePicker.Date ;
  ...
  Lehrgang_TFDTable.post
end;
[/DELPHI]