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

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

摘要： 菜单：Project-->Options-->Search Path引入地址 如：E:\Software\DelphiLib\loggerpro_1_3_1 interface uses LoggerPro, Winapi.Windows, Winapi.Messages, System.SysUt 阅读全文

摘要： windows 批处理 阅读全文

摘要： USE K3DBConfiger20216155555176 select A.FNUMBER, B.FNAME,A.FDATABASENAME,A.FDATACENTERID FROM T_BAS_DATACENTER AS A LEFT JOIN T_BAS_DATACENTER_L AS B 阅读全文

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

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

摘要： print right( '0000'+ convert(nvarchar(3),convert(int,right(@GetMaxNo,@typecode))+1),4) 字段获取值：20221206001 ，类型为字符串型。YYYYMMDD+3位流水，需要得到 20221206002。 阅读全文

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

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