delphimvcframework - 随笔分类 - redhat588

Delphi MVCFramework 自定义中间件过滤路由

摘要：unit MiddleWare.DingTalk; interface uses MVCFramework.Logger, MVCFramework, MVCFramework.Commons; type TDingTalkFilterMiddleware = class(TInterfacedOb 阅读全文

posted @ 2025-06-23 21:29 redhat588 阅读(2) 评论(0) 推荐(0)

TMVCActiveRecord从不同的数据库连接池获取数据

摘要：procedure TMainForm.btnDataPumpClick(Sender: TObject); begin // let's prepare connections giving them a name ActiveRecordConnectionsRegistry.AddConnec 阅读全文

posted @ 2025-06-04 14:19 redhat588 阅读(4) 评论(0) 推荐(0)

单表数据集序列化

摘要：单表数据集序列化（自定义忽略字段和大小写） 1 procedure TDBDemoController.DataSetTOJsonDemo1; 2 var 3 MasterDBHelper: TDBHelper; 4 ADefIgnoredFields: TMVCIgnoredList; 5 beg 阅读全文

posted @ 2024-09-02 16:53 redhat588 阅读(46) 评论(0) 推荐(0)

自定义JSON名

摘要：lSer := TMVCJsonDataObjectsSerializer.Create; try lSer.DataSetToJsonArray(MasterDBHelper.Query, lJObj.a['m'], TMVCNameCase.ncLowerCase, [], procedure( 阅读全文

posted @ 2024-08-15 17:09 redhat588 阅读(90) 评论(0) 推荐(0)

TMVCActiveRecord捕获异常信息，自定义输出

摘要：TMVCActiveRecord.CurrentConnection.StartTransaction; try //do TMVCActiveRecord.CurrentConnection.Commit; Render(201, 'Create Successfully', ''); excep 阅读全文

posted @ 2023-05-02 16:00 redhat588 阅读(51) 评论(0) 推荐(0)

自动注册控制器

摘要：uses MVCFramework.Controllers.Register, procedure TWebModule1.WebModuleCreate(Sender: TObject); begin FEngine := TMVCEngine.Create(Self); /// Add your 阅读全文

posted @ 2023-04-13 14:48 redhat588 阅读(57) 评论(0) 推荐(0)

新增数据——单表带批量插入

摘要：procedure TAcptkController.CreateAdvancePayment; var Acptk: TAcptk; Acptks: TObjectList<TAcptk>; begin if Context.Request.QueryStringParam('Batch').To 阅读全文

posted @ 2022-12-05 12:32 redhat588 阅读(72) 评论(0) 推荐(0)

A实体带出B实体中某个字段

摘要：应用场景：预付款单中只有供应商编号，没有供应商全称。想序列化时带出供应商全称字段。 procedure TAcptk.OnAfterLoad; var ASupplier: TSupplier; //定义实体类 begin ASupplier := TMVCActiveRecord.GetOne 阅读全文

posted @ 2022-12-05 12:09 redhat588 阅读(66) 评论(0) 推荐(0)

随笔分类 - delphimvcframework