<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[钱多多的博客]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/hsqchdn</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; hsqchdn]]></copyright><item><title><![CDATA[Adoquery 转AdoDataSet]]></title><link>https://blog.csdn.net/hsqchdn/article/details/148673804</link><guid>https://blog.csdn.net/hsqchdn/article/details/148673804</guid><author>hsqchdn</author><pubDate>Sun, 15 Jun 2025 18:51:07 +0800</pubDate><description><![CDATA[在adoquery的afteropen中添加以下代码，adoclone 为AdoDataSet，不有用这个Clone方法，因为修改会改原来的值的。]]></description><category></category></item><item><title><![CDATA[Insert 改变array的长度]]></title><link>https://blog.csdn.net/hsqchdn/article/details/128998942</link><guid>https://blog.csdn.net/hsqchdn/article/details/128998942</guid><author>hsqchdn</author><pubDate>Sun, 12 Feb 2023 20:02:10 +0800</pubDate><description><![CDATA[Insert 改变array的长度]]></description><category></category></item><item><title><![CDATA[Dephi2007以任意字符串分隔字符]]></title><link>https://blog.csdn.net/hsqchdn/article/details/128100547</link><guid>https://blog.csdn.net/hsqchdn/article/details/128100547</guid><author>hsqchdn</author><pubDate>Tue, 29 Nov 2022 16:31:07 +0800</pubDate><description><![CDATA[Dephi2007以任意字符串分隔字符]]></description><category></category></item><item><title><![CDATA[全局变量与局部变量有差异]]></title><link>https://blog.csdn.net/hsqchdn/article/details/128062379</link><guid>https://blog.csdn.net/hsqchdn/article/details/128062379</guid><author>hsqchdn</author><pubDate>Sun, 27 Nov 2022 11:44:41 +0800</pubDate><description><![CDATA[全局变量与局部变量有差异]]></description><category></category></item><item><title><![CDATA[cxGrid的学习日记]]></title><link>https://blog.csdn.net/hsqchdn/article/details/125248576</link><guid>https://blog.csdn.net/hsqchdn/article/details/125248576</guid><author>hsqchdn</author><pubDate>Sun, 12 Jun 2022 19:15:45 +0800</pubDate><description><![CDATA[cxGrid的学习日记]]></description><category></category></item><item><title><![CDATA[mybatis 格式化时间]]></title><link>https://blog.csdn.net/hsqchdn/article/details/123956276</link><guid>https://blog.csdn.net/hsqchdn/article/details/123956276</guid><author>hsqchdn</author><pubDate>Mon, 04 Apr 2022 16:51:04 +0800</pubDate><description><![CDATA[import com.fasterxml.jackson.annotation.JsonFormat;
import org.springframework.format.annotation.DateTimeFormat;

//使用注解 annotationJsonFormat
@DateTimeFormat(pattern="yyyyy-MM-dd HH:mm:ss")//页面写入数据库时格式化
//json 返回格式定义 中国的加8小时 格式严格大小写 
@JsonFormat(pattern=".]]></description><category></category></item><item><title><![CDATA[回叫信道Datasnap]]></title><link>https://blog.csdn.net/hsqchdn/article/details/123594058</link><guid>https://blog.csdn.net/hsqchdn/article/details/123594058</guid><author>hsqchdn</author><pubDate>Sat, 19 Mar 2022 14:11:34 +0800</pubDate><description><![CDATA[使用DSClientCallbackChannelManager1组件

DataSnap XE3新增回叫信道功能。技术关键点：
  （1）TDBXCallback机制；
  （2）TDServer.BroadcastMessage方法；
  （3）TDSClientCallbackChanneManager1.RegisterCallback方法；
  一、回叫的方式
  1、服务器端回叫所有（同一信道）客户端
  2、客户端回叫（同一信道）的其它客户端       ...]]></description><category></category></item><item><title><![CDATA[ClientDataSet调用Oracle过程]]></title><link>https://blog.csdn.net/hsqchdn/article/details/123518673</link><guid>https://blog.csdn.net/hsqchdn/article/details/123518673</guid><author>hsqchdn</author><pubDate>Wed, 16 Mar 2022 09:44:00 +0800</pubDate><description><![CDATA[--过程，但不适合使用临时表作结果返回，因表记录不会删除且存在同一个用户在不同客户端登录如果
不删除结果，会造成结果不对
CREATE OR REPLACE Procedure P_TempTable(EMPNo in varchar2,EName in varchar2, cur_arg out sys_refcursor)
 Authid Current_User
is
--declare is后面直接 定义变量不用 declare 调用时才用这个
  v_StrSql varchar2(2000);.]]></description><category></category></item><item><title><![CDATA[delphi 重启exe或者重新登录]]></title><link>https://blog.csdn.net/hsqchdn/article/details/123286299</link><guid>https://blog.csdn.net/hsqchdn/article/details/123286299</guid><author>hsqchdn</author><pubDate>Fri, 04 Mar 2022 22:02:12 +0800</pubDate><description><![CDATA[看了网上好多的方案，有的是kill exe，有的使用另外一个exe去打开自己的应用，经过自己的测试，其实不用这么麻烦，只要两行代码就可以搞定，希望可能帮到大家

use WinAPI.shellAPI;

ShellExecute(Application.Handle,'open',PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
 Application.Terminate;
...]]></description><category></category></item><item><title><![CDATA[Delphi StringGrid常用属性和常用操作]]></title><link>https://blog.csdn.net/hsqchdn/article/details/122154377</link><guid>https://blog.csdn.net/hsqchdn/article/details/122154377</guid><author>hsqchdn</author><pubDate>Sun, 26 Dec 2021 13:19:19 +0800</pubDate><description><![CDATA[StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。



一、Delphi StringGrid控件的属性及使用说明

1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度)

 StringGrid.FixedC..]]></description><category></category></item><item><title><![CDATA[Delphi Interface生成GUID]]></title><link>https://blog.csdn.net/hsqchdn/article/details/121691264</link><guid>https://blog.csdn.net/hsqchdn/article/details/121691264</guid><author>hsqchdn</author><pubDate>Fri, 03 Dec 2021 09:17:46 +0800</pubDate><description><![CDATA[在鼠标光标处在Delphi的IDE中，按Ctrl+Shift+G键可以为一个接口生成一个新的GUID。
]]></description><category></category></item><item><title><![CDATA[Mysql实现分页]]></title><link>https://blog.csdn.net/hsqchdn/article/details/121432701</link><guid>https://blog.csdn.net/hsqchdn/article/details/121432701</guid><author>hsqchdn</author><pubDate>Fri, 19 Nov 2021 23:01:21 +0800</pubDate><description><![CDATA[limit分页公式

Limit是从0开始为第一条记录的


（1）limit分页公式：curPage是当前第几页；pageSize是一页多少条记录
limit (curPage-1)*pageSize,pageSize
（2）用的地方：sql语句中
select * from sys_user limit(curPage-1)*pageSize,pageSize;
...]]></description><category></category></item><item><title><![CDATA[mysql 存储过程学习]]></title><link>https://blog.csdn.net/hsqchdn/article/details/121432355</link><guid>https://blog.csdn.net/hsqchdn/article/details/121432355</guid><author>hsqchdn</author><pubDate>Fri, 19 Nov 2021 22:35:21 +0800</pubDate><description><![CDATA[-- 查看 mysql 版本8.0.18 以下内容Navicat Premium 中可正常执行 
-- select version(); 

DROP PROCEDURE IF EXISTS `pro_Test`;
DELIMITER $ -- 定义结束符号 也可以是 两个分号 ;; 后面的结束符号 要写这个
CREATE DEFINER=`root`@`localhost` PROCEDURE `pro_Test`(IN `UserID` varchar(200),IN `Name` varchar(.]]></description><category></category></item><item><title><![CDATA[加载dll窗体所遇到问题记录]]></title><link>https://blog.csdn.net/hsqchdn/article/details/120937320</link><guid>https://blog.csdn.net/hsqchdn/article/details/120937320</guid><author>hsqchdn</author><pubDate>Sun, 24 Oct 2021 17:40:51 +0800</pubDate><description><![CDATA[要在Exe main form中建立好数据库连接

procedure TMain.FormCreate(Sender: TObject);
var
 vPage:TRzTabSheet;
begin
 //解决AlphaControls 皮肤 windowState :=wsMaximized 最大化时出现 标题栏出现 黑色块问题 脏读问题
 //这个有可能是 AlphaControls 控件对窗体最大化没有渲染好的问题;
 ClientHeight :=Screen.Height;
 Cl...]]></description><category></category></item><item><title><![CDATA[SQL查询表的主建]]></title><link>https://blog.csdn.net/hsqchdn/article/details/120931737</link><guid>https://blog.csdn.net/hsqchdn/article/details/120931737</guid><author>hsqchdn</author><pubDate>Sun, 24 Oct 2021 11:37:06 +0800</pubDate><description><![CDATA[Oracle:

SELECT
     col.column_name
FROM
     user_constraints con,user_cons_columns col
WHERE
     con.constraint_name=col.constraint_name and con.constraint_type='P'
     and col.table_name='EMP';

SQLServer:

SELECT TABLE_NAME,COLUMN_NAME FROM INFORMA.]]></description><category></category></item><item><title><![CDATA[求数据集某列的和]]></title><link>https://blog.csdn.net/hsqchdn/article/details/119893209</link><guid>https://blog.csdn.net/hsqchdn/article/details/119893209</guid><author>hsqchdn</author><pubDate>Tue, 24 Aug 2021 16:33:32 +0800</pubDate><description><![CDATA[TDBSumList求和控件设计好数据集与字段

dbsmlst1.SumCollection.Items[0].SumValue
]]></description><category></category></item><item><title><![CDATA[DELPHI 去字符串中所有空格]]></title><link>https://blog.csdn.net/hsqchdn/article/details/119805296</link><guid>https://blog.csdn.net/hsqchdn/article/details/119805296</guid><author>hsqchdn</author><pubDate>Thu, 19 Aug 2021 16:31:19 +0800</pubDate><description><![CDATA[function trimblank(s: string): string;
var
 i, j: integer;
begin
 repeat
 i := pos(' ', s);
 j := length(s);
 if i &gt; 0 then
 s := copy(s, 1, i - 1) + copy(s, i + 1, j - i);
 until i = 0;
 Result := s;
end;



转自：https://www.cnblogs.com...]]></description><category></category></item><item><title><![CDATA[combobox 禁止输入]]></title><link>https://blog.csdn.net/hsqchdn/article/details/119732537</link><guid>https://blog.csdn.net/hsqchdn/article/details/119732537</guid><author>hsqchdn</author><pubDate>Mon, 16 Aug 2021 14:30:54 +0800</pubDate><description><![CDATA[ComboBox 有4种输入风格（Style），

csDropDownList是只能从列表中选择，不能输入；

csDropDown是既可选择，也可手动输入。
]]></description><category></category></item><item><title><![CDATA[筛选框RzDBCheckBox1 邦定数据源字段值为整数设置方法]]></title><link>https://blog.csdn.net/hsqchdn/article/details/119185404</link><guid>https://blog.csdn.net/hsqchdn/article/details/119185404</guid><author>hsqchdn</author><pubDate>Wed, 28 Jul 2021 17:20:28 +0800</pubDate><description><![CDATA[在界面上设置

RzDBCheckBox1.ValueChecked :=1;

RzDBCheckBox1.ValueUnChecked :=0；


]]></description><category></category></item><item><title><![CDATA[FireDAC如何连接ORACLE数据库]]></title><link>https://blog.csdn.net/hsqchdn/article/details/118698266</link><guid>https://blog.csdn.net/hsqchdn/article/details/118698266</guid><author>hsqchdn</author><pubDate>Tue, 13 Jul 2021 13:46:28 +0800</pubDate><description><![CDATA[FDPhysOracleDriverLink1加入这个驱动器 

UniDac对Oracle的Direct连接，不需要安装Oracle客户端dll，deploy时真的是方便又快捷。

 FireDac连接Oracle，在没有Oracle Client的情况下，是可以连接上的。前提是需要文件oci.dll、oraocci11.dll、oraociei11.dll、orasql11.dll，这4个dll文件，可以放在Exe同一个目录下，或者path里面能找到得到的地方。有了这4个文件，就可以连接o...]]></description><category></category></item></channel></rss>