IT情深 - 博客园

摘要： -- 使用sqlserver自带的函数hashbytes()select hashbytes('MD5','hello') -- 计算'hello'字符串的md5值（同时还支持SHA1运算等）select sys.fn_VarBinToHexStr(hashb... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(182) 评论(0) 推荐(0)

摘要： function BytesOf(const Val: AnsiString): TBytes;var Len: Integer;begin Len := Length(Val); SetLength(Result, Len); Move(Val[1]... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(198) 评论(0) 推荐(0)

摘要： Delphi用的人越来越少了，可用资源越来越少。有什么好的完整的代码我都尽量拿出来跟大家分享，部分内容也是来自互联网整理 Delphi代码： unit Unit1;interfaceuses Windows, Messages, SysUtils, Var... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(813) 评论(0) 推荐(0)

摘要：实际上VCL有提供现成的函数，无需自己造车轮：SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置该函数不区分大小写, 举例: uses SysUtils;var s: string; i: Integer;be... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(211) 评论(0) 推荐(0)

摘要：方法1，修改表结构，设定唯一性的ID进行关联，比如UUID（这种情况一般PASS，因为没机会了）方法2：根据表的结构，用子查询或生成临时表方法。将1-3个能标识唯一且各表中相同的字段进行聚合生成一个新的唯一标识字段即可实现正确关联比如下图：我生成了两张临时... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(2721) 评论(0) 推荐(0)

摘要： --方法一：DECLARE @id VARCHAR(200)DECLARE @idlist VARCHAR(500) = '1,2,3,5,6,8,9,10,11,12,14,15,16,17,18,19,20'WHILE LEN(@idlist) > 0BE... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(513) 评论(0) 推荐(0)

摘要： -- 建表CREATE TABLE TestA(id int, name varchar(10));-- 插入测试数据INSERT INTO TestA VALUES(1, 'aa');INSERT INTO TestA VALUES(1, 'bb');INS... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(1211) 评论(0) 推荐(0)

摘要：原来的写法： where 油品流水号=@BFluid and 油品=@OilName and 收款来源=@PaySource and 单号=@DangHao and 商品名称=@GoodsName 这样写即可 where (油品流水号=@BFluid OR ... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(13) 评论(0) 推荐(0)

摘要：一般都在System.Generics.Collections 命名空间下， Delphi2009以上就有了有如下常用实用的泛型实现类： TList = class(TEnumerable) TQueue = class(TEnumerable) TObje... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(82) 评论(0) 推荐(0)

摘要： { "error":0, "status":"success", "date":"2014-03-04", "results": [ { "currentCity":"成都", "weather_data": ... 阅读全文

posted @ 2022-10-04 00:13 IT情深阅读(239) 评论(0) 推荐(0)

wh445306