2022 年 12月 5 日随笔档案 - redhat588

2022年12月5日

摘要： 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)