Delphi XE - 随笔分类 - redhat588

FireDAC（Master-Detail 功能）主从表查询

摘要：主从表查询方案优点： FIREDAC 原生支持，性能最优代码简洁，易于维护自动关联，减少手动处理错误内存效率高，只加载需要的数据JSON格式： { "data": [ { "company": "DEMO", "creator": "DS", "usr_group": "", "create_ 阅读全文

posted @ 2025-09-28 14:51 redhat588 阅读(7) 评论(0) 推荐(0)

Delphi MVC Framework架构获取钉钉打卡结果

摘要：procedure TDingtalkController.GetAttendanceRecords; var UserDataSet: TDataSet; UserIds: TList<string>; Cursor, PageSize, BatchIndex, UserIndex: Intege 阅读全文

posted @ 2025-07-24 16:22 redhat588 阅读(42) 评论(0) 推荐(0)

Delphi MVCFramework 自定义中间件过滤路由

摘要：unit MiddleWare.DingTalk; interface uses MVCFramework.Logger, MVCFramework, MVCFramework.Commons; type TDingTalkFilterMiddleware = class(TInterfacedOb 阅读全文

posted @ 2025-06-23 21:29 redhat588 阅读(25) 评论(0) 推荐(0)

TMVCActiveRecord从不同的数据库连接池获取数据

摘要：procedure TMainForm.btnDataPumpClick(Sender: TObject); begin // let's prepare connections giving them a name ActiveRecordConnectionsRegistry.AddConnec 阅读全文

posted @ 2025-06-04 14:19 redhat588 阅读(25) 评论(0) 推荐(0)

单表数据集序列化

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

posted @ 2024-09-02 16:53 redhat588 阅读(57) 评论(0) 推荐(0)

delphi xe 好用的日志框架

摘要：菜单：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 阅读(273) 评论(0) 推荐(0)

TMVCActiveRecord捕获异常信息，自定义输出

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

posted @ 2023-05-02 16:00 redhat588 阅读(66) 评论(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 阅读(66) 评论(0) 推荐(0)

MSSQL 字符串+1带补位

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

posted @ 2022-12-06 08:58 redhat588 阅读(171) 评论(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 阅读(78) 评论(0) 推荐(0)

A实体带出B实体中某个字段

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

posted @ 2022-12-05 12:09 redhat588 阅读(79) 评论(0) 推荐(0)

自带的JSON库读取

摘要：方法： 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 阅读(78) 评论(0) 推荐(0)

Datasnap 中序列化和反序列化

摘要：一、不想序列化某个类中字段。解决方案很简单，但隐藏得很好。JSONMarshalled对于不想序列化或反序列化的字段，您应该将class 属性设置为 False。 type TPerson = class private FName: string; FSurname: string; FHeig 阅读全文

posted @ 2021-11-04 09:37 redhat588 阅读(82) 评论(0) 推荐(0)

国密SM2，SM4 For Delphi xe 10.3.3

摘要：通过老虾米代码，编译通过！但TFORM下就没有成功！有知道的能说明一下吗？附源码下载地址：阅读全文

posted @ 2021-09-10 10:40 redhat588 阅读(1273) 评论(2) 推荐(0)

Datasnap POST 方案

摘要：function TServerMethods.updateTest(Value: string; Obj: TJSONObject): TJsonObject; var DataJson: TJSONObject; begin if Assigned(Obj) then begin // Data 阅读全文

posted @ 2021-09-06 15:50 redhat588 阅读(203) 评论(0) 推荐(0)

delphi '20210806'转'2021-08-06'

摘要：function StrtoDate(Astr: string): string; var D: TDateTime; s: string; begin //'20210806'转'2021-08-06' // uses System.StrUtils s := StuffString(StuffS 阅读全文

posted @ 2021-08-06 16:45 redhat588 阅读(75) 评论(0) 推荐(0)

MSSQL '20210806'转换成'2021-08-06'

摘要：SELECT STUFF(STUFF('20210806', 5, 0, '-'),8,0,'-') 阅读全文

posted @ 2021-08-06 16:17 redhat588 阅读(120) 评论(0) 推荐(0)

cxgrid 列内容居中显示

摘要：cxGridAPSDBBandedTableView1.CreateColumn; cxGridAPSDBBandedTableView1.Columns[I].DataBinding.FieldName := FDQuery1.Fields[I + 2].FieldName; //加2列开始，取消阅读全文

posted @ 2021-08-06 14:55 redhat588 阅读(271) 评论(0) 推荐(0)

CXGRID 导出EXCEL

摘要：USES cxgridExportlink procedure TfrmAdvAPS.CxGridToExcel(AcxGrid: TcxGrid); var SaveDialog: TSaveDialog; begin SaveDialog := TSaveDialog.Create(nil); 阅读全文

posted @ 2021-07-28 14:48 redhat588 阅读(281) 评论(0) 推荐(0)

Delphi XE 时间和时间戳互转换

摘要：uses System.DateUtils; function TForm1.Gettamptime(vlen: Integer): string; var ss: string; begin if vlen = 13 then begin ss := DateTimeToTimeStamp(now 阅读全文

posted @ 2021-06-08 15:09 redhat588 阅读(902) 评论(0) 推荐(0)

随笔分类 - Delphi XE