摘要:
lSer := TMVCJsonDataObjectsSerializer.Create; try lSer.DataSetToJsonArray(MasterDBHelper.Query, lJObj.a['m'], TMVCNameCase.ncLowerCase, [], procedure(
阅读全文
posted @ 2024-08-15 17:09
redhat588
阅读(219)
推荐(0)
摘要:
菜单:Project-->Options-->Search Path引入地址 如:E:\Software\DelphiLib\loggerpro_1_3_1 interface uses LoggerPro, Winapi.Windows, Winapi.Messages, System.SysUt
阅读全文
posted @ 2024-03-09 16:57
redhat588
阅读(307)
推荐(0)
posted @ 2023-11-20 10:34
redhat588
阅读(769)
推荐(0)
摘要:
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
阅读全文
posted @ 2023-10-06 15:21
redhat588
阅读(116)
推荐(0)
摘要:
TMVCActiveRecord.CurrentConnection.StartTransaction; try //do TMVCActiveRecord.CurrentConnection.Commit; Render(201, 'Create Successfully', ''); excep
阅读全文
posted @ 2023-05-02 16:00
redhat588
阅读(82)
推荐(0)
摘要:
uses MVCFramework.Controllers.Register, procedure TWebModule1.WebModuleCreate(Sender: TObject); begin FEngine := TMVCEngine.Create(Self); /// Add your
阅读全文
posted @ 2023-04-13 14:48
redhat588
阅读(92)
推荐(0)
摘要:
print right( '0000'+ convert(nvarchar(3),convert(int,right(@GetMaxNo,@typecode))+1),4) 字段获取值:20221206001 ,类型为字符串型。YYYYMMDD+3位流水,需要得到 20221206002。
阅读全文
posted @ 2022-12-06 08:58
redhat588
阅读(185)
推荐(0)
摘要:
procedure TAcptkController.CreateAdvancePayment; var Acptk: TAcptk; Acptks: TObjectList<TAcptk>; begin if Context.Request.QueryStringParam('Batch').To
阅读全文
posted @ 2022-12-05 12:32
redhat588
阅读(111)
推荐(0)
摘要:
应用场景: 预付款单中 只有供应商编号,没有供应商全称。想序列化时带出供应商全称字段。 procedure TAcptk.OnAfterLoad; var ASupplier: TSupplier; //定义实体类 begin ASupplier := TMVCActiveRecord.GetOne
阅读全文
posted @ 2022-12-05 12:09
redhat588
阅读(104)
推荐(0)
摘要:
最近在学习SCUI ,碰到要安装node.js和npm。所以下面就来介绍下 1.打开NodeJs官网:https://nodejs.org/en/download/ 点击下载 2.安装完成后可以使用cmd(win+r然后输入cmd进入)测试下是否安装成功。方法:在cmd下输入node -v,出现下图
阅读全文
posted @ 2022-06-13 12:30
redhat588
阅读(1506)
推荐(0)