in SaveToDb werden je nach klasse die Daten in die Table geschrieben.
alle im Stiel von
data.FieldByName('Bezeichnung').AsString := FBezeichnung;
Die AutoIncrement hat der
SQL-Manager angelegt.
Ich habe für jede Tabelle einen Trigger und einen Generator
Trigger:
Delphi-Quellcode:
BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(CODECOCONTAINER_ID_GEN, 1);
END
Generator:
Im
SQL-Manager hab ich unter Generator den namen und eine Value die ich ändern kann.
Dann nen Reiter DDL zum Generator mit diesem Inhalt:
Delphi-Quellcode:
CREATE GENERATOR CODECOCONTAINER_ID_GEN;
SET GENERATOR CODECOCONTAINER_ID_GEN TO 1;
Ich hab eben probiert im Trigger das If .. Then wegzulassen, aber dann bekomme ich eine Primary / unique violation.
