提交JSON修改数据

提交JSON修改数据

设计目标：

1）可以一次性提交多个表的修改数据

2）跨语言、跨平台

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

{     "deltas":     [         {             "table": "tunit",             "rows":             [                 {"action": "modify", "original": {"unitid":"11","unitname":"个"}, "current": {"unitname":"中"}},                 {"action": "delete", "original": {"unitid":"66","unitname":"国"}},                 {"action": "insert", "current":{"unitid":"13","unitname":"人"}}             ]         }         ......     ] }

解析JSON得到SQL语句：　

?

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button5Click(Sender: TObject); begin   var json: string := '{"table": "tunit","rows":[{"action": "modify", "original": {"unitid":"11","unitname":"个"},'   +'"current": {"unitid":"11","unitname":"中"}},{"action": "delete", "original": {"unitid":"66","unitname":"国"}},'   +'{"action": "insert", "current":{"unitid":"13","unitname":"人"}}]}';   var serial: TynJsonCross := TynJsonCross.Create;   try     Memo1.Text := serial.JsonToSql(json);   finally     serial.DisposeOf;   end; end;