Criado a função ListBindFields na unit SimpleRTTI.pas para obter o nome dos campos das classes.

Criado a função SQLType dentro de SimpleQueryFiredac.pas e SimpleSQL.pas para alterar a sintaxe do SQL em determinadas situações.
Corrigido Retorno das funções LastID e LastRecord para adaptar as diferentes sintaxes SQL.
Criado a unit SimpleDAO.DataSetToJSON.pas para converter os datasets com os nomes da classe vinculada e não dos fields da query.
Criado a unit SimpleTypes.pas com um tipo enumedado de sintaxes SQL.

Author: WillHubner

Sample/horse/Controller/Controller.Produto.pas

@@ -46,18 +46,31 @@ procedure GetID(Req: THorseRequest; Res: THorseResponse; Next: TProc);
 end;
 
 procedure Insert(Req: THorseRequest; Res: THorseResponse; Next: TProc);
+var
+  FDAO : iDAOGeneric<TProduto>;
+  vJSONResult : TJSONObject;
 begin
+  FDAO := TDAOGeneric<TProduto>.New;
 
+  vJSONResult := FDAO.Insert(Req.Body<TJSONObject>);
+
+  Res.Send<TJSONObject>(vJSONResult).Status(THTTPStatus.Created);;
 end;
 
 procedure Update(Req: THorseRequest; Res: THorseResponse; Next: TProc);
+var
+  FDAO : iDAOGeneric<TProduto>;
 begin
-
+  FDAO := TDAOGeneric<TProduto>.New;
+  Res.Send<TJSONObject>(FDAO.Update(Req.Body<TJSONObject>)).Status(THTTPStatus.Accepted);
 end;
 
 procedure Delete(Req: THorseRequest; Res: THorseResponse; Next: TProc);
+var
+  FDAO : iDAOGeneric<TProduto>;
 begin
-
+  FDAO := TDAOGeneric<TProduto>.New;
+  Res.Send<TJSONObject>(FDAO.Delete('GUUID', Req.Params.Items['id'])).Status(THTTPStatus.NoContent);
 end;