FireMonkey, Livebinding und Nachkommastellen in einem TGrid

[elmar.faber]

Also die Tabelle sieht so aus:

Delphi-Quellcode:

TablesSQLite[tbl_data_ingredient] :=
  'CREATE TABLE IF NOT EXISTS tbl_data_ingredient ( '+
  '  IngredientID      INTEGER    NOT NULL PRIMARY KEY AUTOINCREMENT,'+
  '  RecipeRefID       INTEGER    NOT NULL, '+
  '  IngredientRefID   INTEGER    NOT NULL, '+     // aus tbl_sel_Ingredient
  '  Amount            DOUBLE         NULL, '+     // Menge    z.B. 10
  '  UnitRefID         INTEGER        NULL, '+     // Einheit  z.B. g, L, kg
  '  Comment           TEXT(500)      NULL, '+     // z.B. "nach Bedarf"
  'FOREIGN KEY (RecipeRefID)                '+
  'REFERENCES tbl_data_recipe (RecipeID)    '+
  'FOREIGN KEY (IngredientRefID)            '+
  'REFERENCES tbl_sel_ingredient (IngredientID) )';

und die Query so:

Code:

SELECT * FROM tbl_data_ingredient
WHERE RecipeRefID = :RecipeID

Es besteht eine Master-Detail Beziehung zu einer weiteren Tabelle.