摘要: 源码下载地址: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 阅读(1217) 评论(0) 推荐(1) 编辑
摘要: 近几年有不少关于个人数据泄露的新闻(个人数据通常包含如姓名、地址、身份证号码、财务信息等),给事发公司和被泄露人都带来了不小的影响。 许多国家和地区都出台了个人数据保护的法律法规,如欧盟的通用数据保护条例(GDPR)。不管是出于遵守法规、数据保护还是隐私保护等,对个人数据加密有助于公司遵守这些法规, 阅读全文
posted @ 2024-10-14 11:28 redhat588 阅读(62) 评论(0) 推荐(0) 编辑
摘要: 单表数据集序列化(自定义忽略字段和大小写) 1 procedure TDBDemoController.DataSetTOJsonDemo1; 2 var 3 MasterDBHelper: TDBHelper; 4 ADefIgnoredFields: TMVCIgnoredList; 5 beg 阅读全文
posted @ 2024-09-02 16:53 redhat588 阅读(18) 评论(0) 推荐(0) 编辑
摘要: lSer := TMVCJsonDataObjectsSerializer.Create; try lSer.DataSetToJsonArray(MasterDBHelper.Query, lJObj.a['m'], TMVCNameCase.ncLowerCase, [], procedure( 阅读全文
posted @ 2024-08-15 17:09 redhat588 阅读(47) 评论(0) 推荐(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 阅读(151) 评论(0) 推荐(0) 编辑
摘要: windows 批处理 阅读全文
posted @ 2023-11-20 10:34 redhat588 阅读(535) 评论(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 阅读(40) 评论(0) 推荐(0) 编辑
摘要: TMVCActiveRecord.CurrentConnection.StartTransaction; try //do TMVCActiveRecord.CurrentConnection.Commit; Render(201, 'Create Successfully', ''); excep 阅读全文
posted @ 2023-05-02 16:00 redhat588 阅读(41) 评论(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 阅读(42) 评论(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 阅读(154) 评论(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 阅读(64) 评论(0) 推荐(0) 编辑