摘要：
DBGridEH列头筛选框启用方法 1，DBGridEh.STFilter.Visible := True 2，DBGridEh.STFilter.Local = True 3，DBGridEh.STFilter.Location=stflInTitleFil... 阅读全文
摘要：
DateUtils.StartOfTheMonth(Now) //本月第一天DateUtils.EndOfTheMonth(Now) //本月最后一天DateUtils.YearsBetween()DateUtils.MonthsBetween()Date... 阅读全文
摘要：
需求:需要根据ikey进行group by ，然后取各个分组value最大值的记录，同时获取对应记录的Test1,Test2的值 --建表语句CREATE TABLE tb1( ikey int, value int, Test1 varchar(20) N... 阅读全文
摘要：
错误信息： [42000] [Microsoft][SQL Server Native Client 10.0][SQL Server]联机索引操作只能在 SQL Server Enterprise Edition 中执行。 (1712) 创建索引语句： C... 阅读全文
摘要：
IF EXISTS(SELECT * FROM sys.objects WHERE type='p' AND name='SyncDBStruct') DROP PROCEDURE SyncDBStruct GO CREATE PROCEDURE ... 阅读全文
摘要：
select 'CREATE TABLE [' + so.name + '] (' + o.list + ')' + CASE WHEN tc.Constraint_Name IS NULL THEN '' ELSE 'ALTER TABLE ' + so.... 阅读全文
摘要：
--获取建表DDL(+主键)declare @tabname varchar(50)set @tabname='sys_log'--表名if ( object_id('tempdb.dbo.#t') is not null)beginDROP TABLE #t... 阅读全文
摘要：
function BytesOf(const Val: AnsiString): TBytes;var Len: Integer;begin Len := Length(Val); SetLength(Result, Len); Move(Val[1]... 阅读全文
摘要：
Delphi用的人越来越少 了，可用资源越来越少。有什么好的完整的代码我都尽量拿出来跟大家分享，部分内容也是来自互联网整理 Delphi代码： unit Unit1;interfaceuses Windows, Messages, SysUtils, Var... 阅读全文
摘要：
实际上VCL有提供现成的函数，无需自己造车轮：SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置 该函数不区分大小写, 举例: uses SysUtils;var s: string; i: Integer;be... 阅读全文