Delphi MessageBox
MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、函数原型及参数 Read More…
作者：Charlie Wang
Delphi 遍历控件 遍历组件
特别在动态创建控件时，有时经常需要遍历控件。 如果知道控件名称，则可以通过FindComponent – 查找(定位)组件，如果不知道的话，只能遍历控件了。 遍历一个Panel上的所有控件： Var i: integer; begin for i:=0 to Panel1.ControlCount do begin // 控件: Panel1.Controls[i] // 自己的业务逻Read More…
SQL Server 日期时间格式转换
开发软件的人经常也要接触到数据库，无论是做视图，还是做存储过程，都会接触到Select日期。 有时候根据不同的项目需求，选择出的日期有时候会有不同的格式要求，比如只取日期不取时间，比如计算日期间隔等。 我每次遇到这个问题，都要重新打开浏览器，重新搜索以便复制黏贴。
Read More…
局域网Ping通Win7
周末在一次偶然的情况下，发现局域网中的Win7无法被PING通。 一开始以为是网络问题，遂检查网络，网络一切正常。 Win7可以访问外网，可以PING通主机，也可以PING通同网段的其他非Win7系统（一台XP），但是那台XP无法回PING通这台Win7。 接下来我通过services.msc关闭了Windows Firewall ServiceRead More…
Delphi StringReplace – 替换字符函数
Delphi中的StringReplace函数是SysUtils单元中自带的函数,该函数可以替换字符串中的指定字符。 function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; // rfReplaceAll：全部替换 // rfIgnoreCase：忽略大小写 // For Example： var aStr: String; begin aStr := 'This is a book, not a pen!'; Read More…
Delphi Create(nil), Create(self), Create(Application)的区别
最近的项目中经常在程序中动态创建控件，势必用到Create。 但是随之而来的问题就是动态创建的控件是否可以正确的释放内存？ 以及 Create(nil), Create(self), Create(Application)的区别又是什么呢？ Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放 Create(ApplRead More…
SQL Server Rand函数 (随机数)
随机数: RAND 返回从 0 到 1 之间的随机 float 值。 语法: RAND ( [ seed ] ) seed 提供种子值的整数表达式（tinyint、smallint 或 int）。如果未指定 seed，则 Microsoft SQL Server 数据库引擎 随机分配种子值。对于指定的种子值，返回的结果始终相同。 随机数是我们经常会用到的，几乎所有的语言Read More…
SQL Server CheckSum函数 (校验和值)
指定对表的所有列进行计算。如果有任一列是非可比数据类型，则 CHECKSUM 返回错误。 非可比数据类型有 text、ntext、image、XML 和 cursor，还包括以上述任一类型作为基类型的 sql_variant。 expression 除非可比数据类型之外的任何类型的表达式。 返回值是int CHECKSUM 对其参数列表计算一个Read More…
SQL Server NewID函数 (生成GUID)
SQL Server的主键需要唯一性，以便数据的检索。 一般使用36位的GUID或者自增长的Integer类型数字。 GUID是一个32位数字字符+4个'-'符号的，总共36位字符串，而且它不会重复。 从存储的空间节约来看，数字型占用更少的位数，而GUID占用的更多。 但是从移植性和全局唯一性来Read More…
特定条件下，同步两个SQL Server数据库数据
在同时使用多个SQL SERVER数据库的时候，经常需要两个数据库之间进行同步工作。 同步可以由SQL SERVER通过作业来自动完成，如下逻辑代码供参考： — INSERT INTO [172.29.11.212].FlexSFS.dbo.tbWorkOrder — select * from tbWorkOrder where DateCreated>@THEDATE AND CodeWorkorder NOT IN — (SELECT CodeWorkorder FROM [172.29.11.212Read More…