摘要: 源码下载地址:https://download.csdn.net/download/redhat588/11798294 Delphi xe 10.3.2 for windows 7 环境编译通过! 测式需要先注册百度API账号,拿到API KEY 和Secret Key后才能获取Token值 第一 阅读全文
posted @ 2019-09-21 15:21 redhat588 阅读(1196) 评论(0) 推荐(1) 编辑
摘要: 菜单: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:58 redhat588 阅读(25) 评论(0) 推荐(0) 编辑
摘要: windows 批处理 阅读全文
posted @ 2023-11-20 10:34 redhat588 阅读(69) 评论(0) 推荐(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 阅读(20) 评论(0) 推荐(0) 编辑
摘要: TMVCActiveRecord.CurrentConnection.StartTransaction; try //do TMVCActiveRecord.CurrentConnection.Commit; Render(201, 'Create Successfully', ''); excep 阅读全文
posted @ 2023-05-02 16:00 redhat588 阅读(27) 评论(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 阅读(26) 评论(0) 推荐(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 阅读(136) 评论(0) 推荐(0) 编辑
摘要: procedure TAcptkController.CreateAdvancePayment; var Acptk: TAcptk; Acptks: TObjectList<TAcptk>; begin if Context.Request.QueryStringParam('Batch').To 阅读全文
posted @ 2022-12-05 12:33 redhat588 阅读(43) 评论(0) 推荐(0) 编辑
摘要: 应用场景: 预付款单中 只有供应商编号,没有供应商全称。想序列化时带出供应商全称字段。 procedure TAcptk.OnAfterLoad; var ASupplier: TSupplier; //定义实体类 begin ASupplier := TMVCActiveRecord.GetOne 阅读全文
posted @ 2022-12-05 12:09 redhat588 阅读(38) 评论(0) 推荐(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 阅读(1079) 评论(0) 推荐(0) 编辑
摘要: 方法: TJSONObject.GetValue<string>('path') 结果:系统04 { "errcode":0, "errmsg":"ok", "result":{ "has_more":false, "list":[ { "name":"系统04", "userid":"214409 阅读全文
posted @ 2022-04-13 08:23 redhat588 阅读(54) 评论(0) 推荐(0) 编辑