摘要: /* 近1个月安装服务城市TOP10 */ // $(document).ready(function () { // 基于准备好的dom,初始化echarts实例 var myChart = echarts.init(document.querySelector(".mes993 .chart") 阅读全文
posted @ 2021-10-07 16:47 redhat588 阅读(85) 评论(0) 推荐(0)
摘要: <script> (function (fn) { fn(); setInterval(fn, 1000); }) (function () { var dt = new Date(); const month = new Date().getMonth()+1 document.querySele 阅读全文
posted @ 2021-10-06 16:28 redhat588 阅读(64) 评论(0) 推荐(0)
摘要: 通过 老虾米 代码,编译通过!但TFORM下就没有成功!有知道 的能说明一下吗? 附源码下载地址: 阅读全文
posted @ 2021-09-10 10:40 redhat588 阅读(1273) 评论(2) 推荐(0)
摘要: 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)
摘要: 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)
摘要: SELECT STUFF(STUFF('20210806', 5, 0, '-'),8,0,'-') 阅读全文
posted @ 2021-08-06 16:17 redhat588 阅读(120) 评论(0) 推荐(0)
摘要: cxGridAPSDBBandedTableView1.CreateColumn; cxGridAPSDBBandedTableView1.Columns[I].DataBinding.FieldName := FDQuery1.Fields[I + 2].FieldName; //加2列开始,取消 阅读全文
posted @ 2021-08-06 14:55 redhat588 阅读(272) 评论(0) 推荐(0)
摘要: 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)
摘要: HTTP get 请求10000次 的结果,服务器为阿里云~ 阅读全文
posted @ 2021-07-09 11:28 redhat588 阅读(359) 评论(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 阅读(902) 评论(0) 推荐(0)