摘要:use msxml Delphi 6 里idhttp貌似没有Header里的一些东西的处理方法。也是摸索了很久,记录一下。 function HttpRequest(http: TIdHttp; strUrl: string; inStr: string; var outStr, Errmsg: s 阅读全文
posted @ 2021-05-21 11:10 忠诚卫士 阅读(15) 评论(0) 推荐(0) 编辑
摘要:cxGrid失去焦点后如何继续保持选中单元的高亮状态: 在界面在放一个TcxStyleRepository控件,在控件中添加一个TcxStyle样式,设置Color为clHightlight,TextColor 设置为(255,255,255)白色; 将TcxGridDBTableView的Styl 阅读全文
posted @ 2020-11-14 14:04 忠诚卫士 阅读(43) 评论(0) 推荐(0) 编辑
摘要:1、先看下想要的结果、 { "patInfo": { "Age": "23", "姓名": "黄晓明" }, "audvaj": [{ "序号": "1", "名称": "[甲]小换药" }, { "序号": "2", "名称": "5%葡萄糖注射液(国)" }] } 2、看下组织代码 with d 阅读全文
posted @ 2020-10-10 14:28 忠诚卫士 阅读(100) 评论(0) 推荐(0) 编辑
摘要:select * from T_A a (nolock) where a.xh not in (select xh from T_B) 方法1:效果甚微 select * from T_A a (nolock) where not exists (select xh from T_B where x 阅读全文
posted @ 2020-07-18 16:17 忠诚卫士 阅读(1407) 评论(0) 推荐(1) 编辑
摘要:--列转行小实例 --创建测试表 if object_id(N'test', N'U') is not null drop table test go with UnPivotTable as ( select 1 as UserNO, '33' as A, '44' AS B, '55' as C 阅读全文
posted @ 2020-05-17 22:07 忠诚卫士 阅读(284) 评论(0) 推荐(0) 编辑
摘要:with t as ( select '-' as col1 --isnumeric('-')这里会判断为数字,所以不能用 union all select '1' as col1 union all select '2' as col1 union all select '3.4' as col1 阅读全文
posted @ 2020-04-14 22:00 忠诚卫士 阅读(245) 评论(0) 推荐(0) 编辑
摘要:--行转列小实例 --创建测试表 if object_id(N'test', N'U') is not null drop table test go with PivotTable as ( select 'xxx' as czy, '点赞' as czlx, 2 as num union all 阅读全文
posted @ 2020-04-14 21:50 忠诚卫士 阅读(337) 评论(0) 推荐(0) 编辑
摘要:界面代码: object Form1: TForm1 Left = 252 Top = 190 Width = 1149 Height = 549 Caption = 'Form1' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color 阅读全文
posted @ 2020-03-08 17:25 忠诚卫士 阅读(279) 评论(0) 推荐(2) 编辑
摘要:首先提供两个XML文件 XML代码如下: 1、Example.xml <?xml version="1.0" encoding="ISO-8859-1"?> <chart> <series title="Series1" type="Point" color="#FF0000"> <points c 阅读全文
posted @ 2020-03-03 21:35 忠诚卫士 阅读(202) 评论(0) 推荐(1) 编辑
摘要:界面代码: object Form1: TForm1 Left = 568 Top = 393 Width = 725 Height = 408 Caption = '对象观察器' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color 阅读全文
posted @ 2020-02-29 12:55 忠诚卫士 阅读(232) 评论(0) 推荐(1) 编辑