<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[Soft]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/jupt1</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; jupt1]]></copyright><item><title><![CDATA[修复DBGrideh编辑界面，当字段为datetime、smalldatetime数据格式的时候，下拉报除数为0的bug]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/115558869</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/115558869</guid><author>jupt1</author><pubDate>Fri, 09 Apr 2021 20:32:21 +0800</pubDate><description><![CDATA[在一个项目中，偶尔接到客户的反馈，当新增单据的时候DBGrideh涉及到日期格式选择的时候，偶尔会报除数为0(Division by zero)错误，一开始没有头绪，以为是操作系统兼容性问题，因为客户在操作步骤发生时没有涉及到任何数据的操作

终于实在受不了类似情况发生，跟踪了一把项目运行，发现DBGrideh源码文件GridsEH.pas中有这么一段


procedure TPopupListboxEh.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
]]></description><category></category></item><item><title><![CDATA[SQL 中 XML应用]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/104359295</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/104359295</guid><author>jupt1</author><pubDate>Mon, 17 Feb 2020 15:49:26 +0800</pubDate><description><![CDATA[1. 单一字段值转成集合形式

  这里重点需要了解XML的用法

  参考代码：

  eg. 数据表 T 中一字段名 Field 的值： a,b,c,d


--转成XML形式

declare @XML xml;

--赋值于@XML,把单一字段值转成XML结构形式
--&lt;sort&gt;a&lt;/sort&gt;
--&lt;sort&gt;b&lt;/sort&gt;...]]></description><category></category></item><item><title><![CDATA[FDAC总结数据链接]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/104254320</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/104254320</guid><author>jupt1</author><pubDate>Mon, 10 Feb 2020 23:00:59 +0800</pubDate><description><![CDATA[项目需要，FDAC一般链接用到MSSQL、MySQL

1.MSSQL链接

 官网翻译：大多数应用要求指定如下参数:

 DriverID, eg. "Driver=MSSQL"
 Server,   eg."127.0.0.1\SQLEXPRESS",  "SrvHost,4000"

 Database, eg. "Mast"

 OSAuthent, 控制认证模式，...]]></description><category></category></item><item><title><![CDATA[多线程总结 - 陆续整理]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/104243816</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/104243816</guid><author>jupt1</author><pubDate>Mon, 10 Feb 2020 10:20:14 +0800</pubDate><description><![CDATA[做项目再次涉及到多线程的操作，曾经分时段研究了下多线程，每隔一段时间研究，总会多一点新的感悟和理解。

整理下，后续随时总结记录吧

1. 先谈谈两个命令，引出TEvent

  Suspend 和 Resume 两个命令，一个是暂停，一个是恢复继续执行

  因为两个命令自XE开始被标识为 deprecated, 而且不符合多线程安全（看了下TEvent说明，大致是因为TEven更适合T...]]></description><category></category></item><item><title><![CDATA[T-SQL 基础命令整理总结]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/104166037</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/104166037</guid><author>jupt1</author><pubDate>Tue, 04 Feb 2020 10:34:15 +0800</pubDate><description><![CDATA[1. 新增数据表


--语法

CREATE TABLE table_name( 
   column1 datatype, 
   column2 datatype, 
   column3 datatype, 
   ..... 
   columnN datatype, 
   PRIMARY KEY( one or more columns ));

--eg.

CREATE TABL...]]></description><category></category></item><item><title><![CDATA[关于指针操作及内存影响的陆续总结]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/104131553</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/104131553</guid><author>jupt1</author><pubDate>Sat, 01 Feb 2020 11:45:54 +0800</pubDate><description><![CDATA[1. 对象赋值


TTest = class(TObject)   

...

end;   

var Test1,Test2: TTest;  

//情景一：共享内存   
//Test2变动将影响Test1值，Test2与Test1指向同一内存空间，Test2指针指向Test1   

Test2 := Test1;


//情景二：独立内存
//Test2变动不会影响Test1，Te...]]></description><category></category></item><item><title><![CDATA[短信备注]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/68952513</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/68952513</guid><author>jupt1</author><pubDate>Sun, 02 Apr 2017 16:01:11 +0800</pubDate><description><![CDATA[[[webmail.shunhui.cn]]]]></description><category></category></item><item><title><![CDATA[文件查找记录类型 - TSearchRec - 文件操作(二)]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/43601211</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/43601211</guid><author>jupt1</author><pubDate>Sat, 07 Feb 2015 11:25:03 +0800</pubDate><description><![CDATA[SysUtils单元下的TSearchRec是一个记录类型，主要通过FindFirst, FindNext, and FindClose使用。


接上一篇举例说明TSearchRec常用成员
//sysGetFileList(List,'c:\','*.doc,*.exe');  List通过查找添加多文件
//sysGetFileList(List,'c:\','*.doc');   ]]></description><category></category></item><item><title><![CDATA[【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一)]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/43601039</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/43601039</guid><author>jupt1</author><pubDate>Sat, 07 Feb 2015 09:36:09 +0800</pubDate><description><![CDATA[看了万一老师的“遍历某个文件的文件及子文件“，经过层层优化，结合实际需要，在万一老师代码的基础上，增加了多文件查找的功能
//sysGetFileList(List,'c:\','*.doc,*.exe');  List通过查找添加多文件
//sysGetFileList(List,'c:\','*.doc');   List通过查找添加单文件]]></description><category></category></item><item><title><![CDATA[【跟随万一老师的足迹】引用即可解决互斥问题的单元]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/43577793</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/43577793</guid><author>jupt1</author><pubDate>Fri, 06 Feb 2015 23:07:16 +0800</pubDate><description><![CDATA[//工程引用此单元就能防止同时出现多个实例
unit MultInst_Unit;


interface


uses
 Windows ,Messages, SysUtils, Classes, Forms;


implementation


const
 STR_UNIQUE    = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}';
 MI_ACTIV]]></description><category></category></item><item><title><![CDATA[修复DBGrideh使用TMemTableEh在Footers求平均值为0的Bug]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/43226537</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/43226537</guid><author>jupt1</author><pubDate>Wed, 28 Jan 2015 10:11:53 +0800</pubDate><description><![CDATA[在一个项目中，使用DBGrideh，当使用自带的内存数据集时，对于Footers添加的求平均值，一直显示为0，其他汇总数据都是可以的，而切换使用TClientDataSet或者TADODataSet，所有汇总数据包括平均值都有值。
打开相关部分源码查看了下，发现DBGrideh自带的内存数据集关于汇总平均数这块，竟然没有处理……，什么情况？
原始相关函数：
procedure TCustom]]></description><category></category></item><item><title><![CDATA[Delphi的正则官方单元]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/41678713</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/41678713</guid><author>jupt1</author><pubDate>Tue, 02 Dec 2014 14:45:43 +0800</pubDate><description><![CDATA[uses System.RegularExpressions
教材可参考万一博客：
http://www.cnblogs.com/del/category/113551.html

http://www.cnblogs.com/freespider/archive/2009/12/24/1631404.html]]></description><category></category></item><item><title><![CDATA[CoInitialize错误引起的错误症状整理]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/41673367</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/41673367</guid><author>jupt1</author><pubDate>Tue, 02 Dec 2014 08:35:24 +0800</pubDate><description><![CDATA[虽然知道这个问题应该怎么去解决，但是真要用时，竟然想不起来那个引用的Unit以及函数名，留此仅做记号使用


“尚未调用CoInitialize错误” 多见于Dll内使用数据操作，所以需要在Unit创建时初始化


initialization
  CoInitialize(nil);
finalization
  CoUninitialize;
要想以上代码生效，必须先引用单元Ac]]></description><category></category></item><item><title><![CDATA[使用Indy解决Could not load SSL Library错误]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/41491473</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/41491473</guid><author>jupt1</author><pubDate>Tue, 25 Nov 2014 22:17:40 +0800</pubDate><description><![CDATA[今天花了1天时间终于搞明白了在使用Indy时如何解决Could not load SSL Library。

 

测试平台：DelphiXE7 + Indy 10.6.0.5169 + Win7 64bit

步骤：

1. SSL下载版本：openssl-1.0.1j-i386-win32 可去http://yunpan.cn/cAWTYZ3VMHv36  提取码 3551进行下载

    ...]]></description><category></category></item><item><title><![CDATA[RemObjects SDK Source For Delphi XE7]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/41419895</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/41419895</guid><author>jupt1</author><pubDate>Sun, 23 Nov 2014 22:21:36 +0800</pubDate><description><![CDATA[根据网上RemObjects SDK for Delphi - 7.0.63.1055 retail FullSource源码版本修改，支持Delphi XE7。下载地址: http://www.colafile.com/file/2119539

http://yunpan.cn/cAvwhZ6Cii55E  提取码 ae0b]]></description><category></category></item><item><title><![CDATA[Delphi中SOAP组件原生的EncdDecd单元，作用于流Base64编码转换]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/41050251</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/41050251</guid><author>jupt1</author><pubDate>Wed, 12 Nov 2014 20:51:24 +0800</pubDate><description><![CDATA[{*******************************************************}
{                                                       }
{                Delphi Runtime Library                 }
{                         ]]></description><category></category></item><item><title><![CDATA[OVER Clause是个好东西，常和ROW_NUMBER()、Sum、AVG、Count、Min、Max配合使用]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/38553175</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/38553175</guid><author>jupt1</author><pubDate>Thu, 14 Aug 2014 08:45:25 +0800</pubDate><description><![CDATA[根据SQL官方帮助的实例：
USE AdventureWorks2012;
GO
SELECT ROW_NUMBER() OVER(PARTITION BY PostalCode ORDER BY SalesYTD DESC) AS "Row Number", 
    p.LastName, s.SalesYTD, a.PostalCode
FROM Sales.SalesPerson AS ]]></description><category></category></item><item><title><![CDATA[查看死锁存储过程]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/38535431</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/38535431</guid><author>jupt1</author><pubDate>Wed, 13 Aug 2014 13:10:55 +0800</pubDate><description><![CDATA[/****** Object:  StoredProcedure [dbo].[sp_who_lock]    Script Date: 08/13/2014 12:52:08 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER procedure [dbo].[sp_who_lock]
as
begin
declare @]]></description><category></category></item><item><title><![CDATA[修改后的SQL分页存储过程，利用2分法，支持排序]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/38535199</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/38535199</guid><author>jupt1</author><pubDate>Wed, 13 Aug 2014 12:43:40 +0800</pubDate><description><![CDATA[/****** Object:  StoredProcedure [dbo].[sys_Page_v3]    Script Date: 08/13/2014 09:32:28 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

--/*-----存储过程 分页处理 孙伟 2005-03-28创建 -------*/ 
--/*---]]></description><category></category></item><item><title><![CDATA[代码重启SQL命令]]></title><link>https://blog.youkuaiyun.com/jupt1/article/details/38509987</link><guid>https://blog.youkuaiyun.com/jupt1/article/details/38509987</guid><author>jupt1</author><pubDate>Tue, 12 Aug 2014 08:43:27 +0800</pubDate><description><![CDATA[1、net stop mssqlserver --停止mssqlserver


2、net start mssqlserver  --开始mssqlserver]]></description><category></category></item></channel></rss>