- 博客(42)
- 资源 (7)
- 收藏
- 关注
RSS订阅原创 修复DBGrideh编辑界面，当字段为datetime、smalldatetime数据格式的时候，下拉报除数为0的bug
在一个项目中，偶尔接到客户的反馈，当新增单据的时候DBGrideh涉及到日期格式选择的时候，偶尔会报除数为0(Division by zero)错误，一开始没有头绪，以为是操作系统兼容性问题，因为客户在操作步骤发生时没有涉及到任何数据的操作终于实在受不了类似情况发生，跟踪了一把项目运行，发现DBGrideh源码文件GridsEH.pas中有这么一段procedure TPopupListboxEh.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
2021-04-09 20:32:21
283
原创 SQL 中 XML应用
1. 单一字段值转成集合形式 这里重点需要了解XML的用法 参考代码： eg. 数据表 T 中一字段名 Field 的值： a,b,c,d--转成XML形式declare @XML xml;--赋值于@XML,把单一字段值转成XML结构形式--<sort>a</sort>--<sort>b</sort>...
2020-02-17 15:49:26
195
原创 FDAC总结数据链接
项目需要，FDAC一般链接用到MSSQL、MySQL1.MSSQL链接 官网翻译：大多数应用要求指定如下参数: DriverID, eg. "Driver=MSSQL" Server, eg."127.0.0.1\SQLEXPRESS", "SrvHost,4000" Database, eg. "Mast" OSAuthent, 控制认证模式，...
2020-02-10 23:00:59
412
原创 多线程总结 - 陆续整理
做项目再次涉及到多线程的操作，曾经分时段研究了下多线程，每隔一段时间研究，总会多一点新的感悟和理解。整理下，后续随时总结记录吧1. 先谈谈两个命令，引出TEvent Suspend 和 Resume 两个命令，一个是暂停，一个是恢复继续执行 因为两个命令自XE开始被标识为 deprecated, 而且不符合多线程安全（看了下TEvent说明，大致是因为TEven更适合T...
2020-02-10 10:20:14
162
原创 T-SQL 基础命令整理总结
1. 新增数据表--语法CREATE TABLE table_name( column1 datatype, column2 datatype, column3 datatype, ..... columnN datatype, PRIMARY KEY( one or more columns ));--eg.CREATE TABL...
2020-02-04 10:34:15
451
原创 关于指针操作及内存影响的陆续总结
1. 对象赋值TTest = class(TObject) ...end; var Test1,Test2: TTest; //情景一：共享内存 //Test2变动将影响Test1值，Test2与Test1指向同一内存空间，Test2指针指向Test1 Test2 := Test1;//情景二：独立内存//Test2变动不会影响Test1，Te...
2020-02-01 11:45:54
123
原创 文件查找记录类型 - TSearchRec - 文件操作(二)
SysUtils单元下的TSearchRec是一个记录类型，主要通过FindFirst, FindNext, and FindClose使用。接上一篇举例说明TSearchRec常用成员//sysGetFileList(List,'c:\','*.doc,*.exe'); List通过查找添加多文件//sysGetFileList(List,'c:\','*.doc');
2015-02-07 11:25:03
1333
原创 【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一)
看了万一老师的“遍历某个文件的文件及子文件“，经过层层优化，结合实际需要，在万一老师代码的基础上，增加了多文件查找的功能//sysGetFileList(List,'c:\','*.doc,*.exe'); List通过查找添加多文件//sysGetFileList(List,'c:\','*.doc'); List通过查找添加单文件
2015-02-07 09:36:09
733
1
原创 【跟随万一老师的足迹】引用即可解决互斥问题的单元
//工程引用此单元就能防止同时出现多个实例unit MultInst_Unit;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIV
2015-02-06 23:07:16
560
原创 修复DBGrideh使用TMemTableEh在Footers求平均值为0的Bug
在一个项目中，使用DBGrideh，当使用自带的内存数据集时，对于Footers添加的求平均值，一直显示为0，其他汇总数据都是可以的，而切换使用TClientDataSet或者TADODataSet，所有汇总数据包括平均值都有值。打开相关部分源码查看了下，发现DBGrideh自带的内存数据集关于汇总平均数这块，竟然没有处理……，什么情况？原始相关函数：procedure TCustom
2015-01-28 10:11:53
1531
原创 Delphi的正则官方单元
uses System.RegularExpressions教材可参考万一博客：http://www.cnblogs.com/del/category/113551.htmlhttp://www.cnblogs.com/freespider/archive/2009/12/24/1631404.html
2014-12-02 14:45:43
532
原创 CoInitialize错误引起的错误症状整理
虽然知道这个问题应该怎么去解决，但是真要用时，竟然想不起来那个引用的Unit以及函数名，留此仅做记号使用“尚未调用CoInitialize错误” 多见于Dll内使用数据操作，所以需要在Unit创建时初始化initialization CoInitialize(nil);finalization CoUninitialize;要想以上代码生效，必须先引用单元Ac
2014-12-02 08:35:24
2367
原创 使用Indy解决Could not load SSL Library错误
今天花了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进行下载 ...
2014-11-25 22:17:40
20784
1
原创 RemObjects SDK Source For Delphi XE7
根据网上RemObjects SDK for Delphi - 7.0.63.1055 retail FullSource源码版本修改，支持Delphi XE7。下载地址: http://www.colafile.com/file/2119539http://yunpan.cn/cAvwhZ6Cii55E 提取码 ae0b
2014-11-23 22:21:36
1276
原创 Delphi中SOAP组件原生的EncdDecd单元，作用于流Base64编码转换
{*******************************************************}{ }{ Delphi Runtime Library }{
2014-11-12 20:51:24
2304
原创 OVER Clause是个好东西，常和ROW_NUMBER()、Sum、AVG、Count、Min、Max配合使用
根据SQL官方帮助的实例：USE AdventureWorks2012;GOSELECT ROW_NUMBER() OVER(PARTITION BY PostalCode ORDER BY SalesYTD DESC) AS "Row Number", p.LastName, s.SalesYTD, a.PostalCodeFROM Sales.SalesPerson AS
2014-08-14 08:45:25
722
转载 查看死锁存储过程
/****** Object: StoredProcedure [dbo].[sp_who_lock] Script Date: 08/13/2014 12:52:08 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOALTER procedure [dbo].[sp_who_lock]asbegindeclare @
2014-08-13 13:10:55
419
原创 修改后的SQL分页存储过程，利用2分法，支持排序
/****** Object: StoredProcedure [dbo].[sys_Page_v3] Script Date: 08/13/2014 09:32:28 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO--/*-----存储过程 分页处理 孙伟 2005-03-28创建 -------*/ --/*---
2014-08-13 12:43:40
598
原创 代码重启SQL命令
1、net stop mssqlserver --停止mssqlserver2、net start mssqlserver --开始mssqlserver
2014-08-12 08:43:27
654
原创 Dll学习三_Dll 相互间以及主程序间的数据共享——测试未通过，应该用内存映射
测试环境：XP,DELPHI XE验证通过结构：主程序+一个Dll窗体共享方式原理：通过主程序与各Dll定义相同的参数结构体，由主程序实例化该结构体，对于各Dll间的共享，通过传主程序实例化的结构体指针达到各Dll与主程序相互间的数据共享。且Dll释放不影响主程序实例化结构体时获得的内存空间主程序代码：unit Main_Unit;interfaceuses W
2013-11-28 16:20:00
1116
转载 Delphi CxGrid 汇总（4）
1. CxGrid汇总功能① OptionsView-Footer设置为True，显示页脚 ② CxGrid的Summary选项卡定义要汇总的列和字段名及汇总方式，Footer选项卡定义单个汇总，Default For Groups定义按组汇总。OptionsView-GroupFooters设置为gfAlwaysVisible则显示按组汇总。设置后界面如图。
2013-11-28 10:20:16
2075
转载 Delphi CxGrid 汇总（3）
列 解决： .GroupIndex := -1; .Visible := True;****************************************************************************39 保存修改到数据库解决：procedure .FormClose(Sender:
2013-11-28 10:19:11
1150
转载 Delphi CxGrid 汇总（2）
17. 怎样设计多表头的cxGrid？解决：cxGrid可以解决如下的表头：---------------------------------| 说明1 | 说明2 |---------------------------------| 字段1 | 字段2 | 字段3 | 字段4 || 字段5 | 字段6 || 字段7 | 字段8 | 字段9 |实现这个很简单，你可
2013-11-28 10:18:28
894
转载 cxGrid使用汇总（一）
1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; 2．统计功能解决：(1) tableview1. tableview1的optionsviewfooter=ture2.然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum
2013-11-28 10:17:14
822
原创 Dll学习二_Dll 窗体中动态创建数据并使用Demo
沿用上一篇Demo环境：DelphiXE，XP，SQL2005贴出改动过的单元代码：unit SubMain_Unit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, FyDataConn_Unit, ActiveX
2013-11-28 10:09:21
1072
原创 字符串函数_比较字符串与字符串集合
引用StrUntil.pas单元里面有两个函数可以比较字符串与字符串集合，判断是否字符串在字符串集合中。函数 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas功能 返回字符串数组AValues中是否包含字符串AText
2013-11-27 23:52:38
805
转载 TClientDataSet中关于TField、TFieldDef动态创立字段的应用
//使用 TFieldDef 建表: begin with ClientDataSet1.FieldDefs do begin Add('Name' , ftString, 12, True); { True 表示是必填字段 } Add('Age', ftInteger); end; ClientDataSet1.CreateDataSet; end; //
2013-11-27 22:12:44
3183
原创 Dll学习一_Dll 创建并动态引用窗体且释放窗体Demo
1、新建Dll工程2、Dll工程全部代码library SubMain;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source
2013-11-22 15:10:56
3094
原创 DevExpress12.2.6 安装顺序记录
环境DelphiXE，实测DevExpress手工安装顺序：1、ExpressCore Library2、XP Theme Manager3、ExpressGDI+ Library4、ExpressLibrary5、ExpressCommon Library6、ExpressDataController7、ExpressEditors Library 58、
2013-11-20 21:32:45
2375
转载 ClientDataSet 心得
1. 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。很多数据库应用程序都用了BDE，BDE往往给发布带来很大的不便，因而TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine)，但它需要一个动态链接库的支持，这个动态链接库叫DBCLIENT.DLL。在客户端，也不
2011-11-02 11:23:21
1277
原创 部分系统路径
当前系统盘符%systemdrive%或 %HOMEDRIVE%C:\ 当前系统目录%systemroot%或 %Windir%C:\WINDOWS 当前用户文件夹%UserProfile%或 %HOMEPATH%C:\Documents and Settings\Administrator 所有用户文件夹%AllUsersProfile%C:\Document
2011-10-25 15:19:55
261
转载 改变标题字体，菜单字体(未测试)
varncm: TNonClientMetrics;beginncm.cbSize := SizeOf(TNonClientMetrics);{get old non client metrics}SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @ncm, 0);{lfCa
2011-10-25 12:51:23
419
原创 获取系统字体列表
Uses Forms,........implementation{$R *.dfm}procedure TForm1.Btn_1Click(Sender: TObject);begin Mmo_1.Clear; Mmo_1.Lines := Screen.Fonts;end;
2011-10-25 12:27:57
1454
转载 添加字体
for /f %%a in ('dir *.ttf /x /b') do (dir %windir%\fonts\%%a>nul 2>nul||(copy %%a %windir%\fonts>nul 2>nul&rundll32.exe gdi32.dll,AddFontResourceA %windir%\fonts\%%a))检查同目录下的后缀为.ttf的字体文件，如系统字体文件
2011-10-25 08:51:11
638
原创 更改Delphi新建窗体系统的默认字体
每新建一个窗件都要改默认字体,不方便.通过添加注册值可更改Delphi系统的默认字体修改注册表：HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\FormDesign Delphi 5:HKEY_CURRENT_USER\Software\Borland\Delphi\5.0Delphi 6:HKEY_CURRENT_USER\
2011-10-24 23:44:31
921
转载 ClientDataSet使用心得和技巧
影响ClientDataSet处理速度的一个因素TClientDataSet是Delphi开发数据库时一个非常好的控件。有很强大的功能。我常常用ClientDataSet做MemoryDataSet来使用。还可以将ClientDataSet的数据保存为XML，这样就可以做
2011-10-15 15:30:48
671
原创 record not found or changed by another user 解决方法
在写项目时，碰到随机产生如上错误，后仔细检查发现，客户端主从表分别更新时，过程为当从表更新，先更新主表，然后再次打开主表获得关键ID作为从表的关联数据值，再更新从表。当主表ID为自动增量时，此时，就会产生客户端与服务端ID不同步，更新从表时无法获取新增主表ID。 更改方法
2011-10-11 21:09:25
923
转载 delphi xe编译报Unit not found: 'System.pas' or binary equivalents 的解决办法
这个是因为Library Path 中缺少 $(BDSLIB)/$(Platform)/release添加上就没问题了。
2011-10-11 21:03:26
834
Remobjects SDK 6.0.53.935(Fall2011) 破解文件(亲测OK)
2011-11-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人