delphimvcframework - 随笔分类 - redhat588

FireDAC（Master-Detail 功能）主从表查询

摘要：主从表查询方案优点： FIREDAC 原生支持，性能最优代码简洁，易于维护自动关联，减少手动处理错误内存效率高，只加载需要的数据JSON格式： { "data": [ { "company": "DEMO", "creator": "DS", "usr_group": "", "create_ 阅读全文

posted @ 2025-09-28 14:51 redhat588 阅读(7) 评论(0) 推荐(0)

Delphi MVC Framework架构获取钉钉打卡结果

摘要：procedure TDingtalkController.GetAttendanceRecords; var UserDataSet: TDataSet; UserIds: TList<string>; Cursor, PageSize, BatchIndex, UserIndex: Intege 阅读全文

posted @ 2025-07-24 16:22 redhat588 阅读(42) 评论(0) 推荐(0)

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

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

posted @ 2025-06-23 21:29 redhat588 阅读(25) 评论(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 阅读(25) 评论(0) 推荐(0)

单表数据集序列化

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

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

自定义JSON名

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

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

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

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

posted @ 2023-05-02 16:00 redhat588 阅读(66) 评论(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 阅读(66) 评论(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 阅读(79) 评论(0) 推荐(0)

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

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

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

随笔分类 - delphimvcframework