摘要: 在软件开发的浩瀚世界中,Delphi 如同一位低调的大师,虽历经岁月洗礼,却依然散发着独特的魅力,并且在当今技术快速发展的时代,展现出令人惊喜的前景。 一、Delphi 的历史与特点 Delphi 是由 Borland 公司推出的一种集成开发环境(IDE),以其高效、快速的开发能力而著称。它使用 O 阅读全文
posted @ 2024-10-17 11:40 丶愤怒的蘑菇 阅读(50) 评论(0) 推荐(0) 编辑
摘要: use msxml Delphi 6 里idhttp貌似没有Header里的一些东西的处理方法。也是摸索了很久,记录一下。 function HttpRequest(http: TIdHttp; strUrl: string; inStr: string; var outStr, Errmsg: s 阅读全文
posted @ 2021-05-21 11:10 丶愤怒的蘑菇 阅读(158) 评论(0) 推荐(0) 编辑
摘要: cxGrid失去焦点后如何继续保持选中单元的高亮状态: 在界面在放一个TcxStyleRepository控件,在控件中添加一个TcxStyle样式,设置Color为clHightlight,TextColor 设置为(255,255,255)白色; 将TcxGridDBTableView的Styl 阅读全文
posted @ 2020-11-14 14:04 丶愤怒的蘑菇 阅读(170) 评论(0) 推荐(0) 编辑
摘要: 1、先看下想要的结果、 { "patInfo": { "Age": "23", "姓名": "黄晓明" }, "audvaj": [{ "序号": "1", "名称": "[甲]小换药" }, { "序号": "2", "名称": "5%葡萄糖注射液(国)" }] } 2、看下组织代码 with d 阅读全文
posted @ 2020-10-10 14:28 丶愤怒的蘑菇 阅读(212) 评论(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 丶愤怒的蘑菇 阅读(3560) 评论(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 丶愤怒的蘑菇 阅读(444) 评论(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 丶愤怒的蘑菇 阅读(347) 评论(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 丶愤怒的蘑菇 阅读(475) 评论(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 丶愤怒的蘑菇 阅读(441) 评论(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 丶愤怒的蘑菇 阅读(293) 评论(0) 推荐(1) 编辑