摘要: SELECT STUFF(STUFF('20210806', 5, 0, '-'),8,0,'-') 阅读全文
posted @ 2021-08-06 16:17 redhat588 阅读(143) 评论(0) 推荐(0)
摘要: cxGridAPSDBBandedTableView1.CreateColumn; cxGridAPSDBBandedTableView1.Columns[I].DataBinding.FieldName := FDQuery1.Fields[I + 2].FieldName; //加2列开始,取消 阅读全文
posted @ 2021-08-06 14:55 redhat588 阅读(311) 评论(0) 推荐(0)
摘要: USES cxgridExportlink procedure TfrmAdvAPS.CxGridToExcel(AcxGrid: TcxGrid); var SaveDialog: TSaveDialog; begin SaveDialog := TSaveDialog.Create(nil); 阅读全文
posted @ 2021-07-28 14:48 redhat588 阅读(309) 评论(0) 推荐(0)
摘要: HTTP get 请求10000次 的结果,服务器为阿里云~ 阅读全文
posted @ 2021-07-09 11:28 redhat588 阅读(393) 评论(0) 推荐(0)
摘要: 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 阅读(942) 评论(0) 推荐(0)
摘要: 使用IDE自带的代码格式化(CTRL+D),默认为80。经常一格式化变成很短的两行。 阅读全文
posted @ 2021-03-30 14:01 redhat588 阅读(432) 评论(0) 推荐(0)
摘要: 一、需求场景: 通过查询出两个数据集后再根据条件合并 select M1.*,M2.* from M1 left join M2 ON M2.TA001 = M1.TA001 AND M2.TA002=M1.TA002 二、通过FireDac 强大的TFDLocalSQL控件 try with dm 阅读全文
posted @ 2021-03-13 10:43 redhat588 阅读(439) 评论(0) 推荐(0)
摘要: 一、自动隐藏列 OptionsCustomize.ColumnsQuickCustomization:=True 效果: 二、动态显示全有列、动态清除所有列 cxGrid1DBTableView1.DataController.CreateAllItems; cxGrid1DBTableView1. 阅读全文
posted @ 2021-03-10 15:57 redhat588 阅读(234) 评论(0) 推荐(0)
摘要: --6:带条件查询的参数化动态PIVOT行转列 DECLARE @sql_str NVARCHAR(MAX) DECLARE @sql_col NVARCHAR(MAX) DECLARE @sql_where NVARCHAR(MAX) DECLARE @tableName SYSNAME --行转 阅读全文
posted @ 2021-03-04 14:49 redhat588 阅读(229) 评论(0) 推荐(0)
摘要: ShowMessage(Length('Hello').ToString.PadLeft(4,'0')); 阅读全文
posted @ 2021-02-01 10:33 redhat588 阅读(603) 评论(0) 推荐(0)