摘要: select DateAdd(hour,8,Dateadd(ss,时间戳,'1970-01-01'))--1970/01/01+时间戳(秒数)+8小时--因GMT是中央时区,北京在东8区,相差8个小时 阅读全文
posted @ 2016-01-16 14:34 帅被盗版 阅读(804) 评论(0) 推荐(0) 编辑
摘要: unit uEncrypt_Decrypt;interfaceuses SysUtils;const XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47);//通过密钥Key加密function EncryptS... 阅读全文
posted @ 2016-01-16 14:33 帅被盗版 阅读(1526) 评论(0) 推荐(0) 编辑
摘要: SQLServer2005里使用with encryption选项创建的存储过程仍然和sqlserver2000里一样,都是使用XOR进行了的加密。和2000不一样的是,在2005的系统表syscomments里已经查不到加密过的密文了。要查密文必须使用DAC(专用管理员连接)连接到数据库后,在系统 阅读全文
posted @ 2016-01-16 14:32 帅被盗版 阅读(1300) 评论(0) 推荐(0) 编辑
摘要: Delphi 对XML的支持---TXMLDocument类 Delphi7 支持对XML文档的操作,可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中,从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模... 阅读全文
posted @ 2016-01-16 14:31 帅被盗版 阅读(1413) 评论(0) 推荐(0) 编辑
摘要: 对于Object Pascal语言来说,最近一段时间最有意义的改进就是从Delphi3开始支持接口(interface),接口定义了能够与一个对象进行交互操作的一组过程和函数。对一个接口进行定义包含两个方面的内容,一方面是实现这个接口,另一方面是定义接口的客户。一个类能实现多个接口,即提供多个让客户... 阅读全文
posted @ 2016-01-16 14:29 帅被盗版 阅读(5854) 评论(0) 推荐(1) 编辑
摘要: 这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数注意1) 对于有些函数,这个单元中涉及的概念或常数由Earl F. Glynn (www.efg2.com) 和 Ray Lischner (www.tem... 阅读全文
posted @ 2016-01-16 14:28 帅被盗版 阅读(1939) 评论(0) 推荐(0) 编辑
摘要: delphi的取整函数round、trunc、ceil和floor 1.Round(四舍六入五留双)功能说明:对一个实数进行四舍五入。(按照银行家算法) 例:vari, j: Integer;begini := Round(1.5); // i等于2j := Round(2.5); // j等于2e... 阅读全文
posted @ 2016-01-16 14:26 帅被盗版 阅读(583) 评论(0) 推荐(0) 编辑
摘要: 首先来大体上为控件分一下类,以方便我们后面的讨论。 但因为控件的种类太多,所以就粗略的分为如下几个类别∶ ---界面风格类 ---Shell外观类 ---Editor类 ---Grid类 ---DB类 ---Report类 ---图形类 ---综合类 约定的前提是∶All Fre... 阅读全文
posted @ 2016-01-16 14:25 帅被盗版 阅读(5063) 评论(0) 推荐(0) 编辑
摘要: 由于组件提供的方式不同,所以安装的方法也是不一样的,下面就目前常见的各种形式的组 件的安装方法介绍一下。 1只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公 布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会 出现错误。也正是因... 阅读全文
posted @ 2016-01-16 14:24 帅被盗版 阅读(471) 评论(0) 推荐(0) 编辑
摘要: //校验手机号functionIsMobileNumber(num:string):boolean;beginResult:=False;iflength(trim(Num))11thenExit;if((copy(num,1,2)'13')and(copy(num,1,2)'15'))thenEx... 阅读全文
posted @ 2016-01-16 14:23 帅被盗版 阅读(1074) 评论(0) 推荐(0) 编辑
摘要: 用了这些年的Delphi,竟然对Currency及TBCDField一知半解,下文给了很好的讲解,值得一读。 一. BCD类型 BCD即Binary-Coded Decimal?,在Delphi中,BCD字段类型可以精确保存浮点数据类型。 Delphi支持的BCD码的数据类型名为TBCD,它的定义如 阅读全文
posted @ 2016-01-16 14:22 帅被盗版 阅读(1806) 评论(0) 推荐(1) 编辑
摘要: Delphi 7自带的INDY控件,其中包含了IdFTP,可以方便的实现FTP客户端程序,参考自带的例子,其中有上传、下载、删除文件,但是不包含对文件夹的操作,得自己实现上传、下载、删除整个文件夹(带子目录和文件)。于是自己参考了网上的资料,重新整理下,使用归纳如下示例工程所示:窗体上放置TId... 阅读全文
posted @ 2016-01-16 14:21 帅被盗版 阅读(761) 评论(0) 推荐(0) 编辑
摘要: 为了提高应用程序的性能,可以用inline声明一个函数过过程,对于声明为inline的过程,编译器在编译时,会取代正常的过程调用方式,取而代之是直接把这个函数的编译代码拿过来生成到调用该过程的地方,有多处调用一个函数,都直接在调用处插入函数的编译代码,这样的弊端,会生成较大的EXE文件。声明的方法:... 阅读全文
posted @ 2016-01-16 14:21 帅被盗版 阅读(1420) 评论(0) 推荐(0) 编辑
摘要: FTP是一个标准协议,它是在计算机和网络之间交换文件的最简单的方法。FTP也是应用TCP/IP协议的应用协议标准。FTP通常于将作者的文件上传至服务器,或从服务器上下传文件的一种普遍的使用方式作为用户,您可以用非常简单的DOS界面来使用FTP,也可以使用由第三方提供的软件(如FLASHFXP)来对服... 阅读全文
posted @ 2016-01-16 14:20 帅被盗版 阅读(1090) 评论(0) 推荐(0) 编辑
摘要: Delphi 快捷键分类快捷键解释备注组件设计类Escape选择当前组件容器Shift + Click选择多个组件;选择窗体Tab选择下一个组件Shift + Tab选择上一个组件方向键选择此方向的下一个组件Ctrl + 方向键将所选组件的位置移动 1 个像素Shift + 方向键将所选组件的大小改... 阅读全文
posted @ 2016-01-16 14:19 帅被盗版 阅读(170) 评论(0) 推荐(0) 编辑
摘要: 看到一篇介绍ClientDataSet和TDataSetProvider,非常精彩,特此保存。===========================================================================TClientDataSet用法第十一章 TClient... 阅读全文
posted @ 2016-01-16 14:17 帅被盗版 阅读(1527) 评论(0) 推荐(0) 编辑
摘要: SET IDENTITY_INSERT Data0048_TEST ON --给自增列赋值DBCC CHECKIDENT(TableName) --查看某个表中的自增列当前的值DBCC CHECKIDENT(TableName,RESEED,0) --修改某个表中的自增列当前的值为0 阅读全文
posted @ 2016-01-16 14:16 帅被盗版 阅读(149) 评论(0) 推荐(0) 编辑
摘要: /*--修改自定义数据类型精度的示例 自定义数据类型一旦被引用,就不能再修改和删除,如果要修改数据的精度,就非常麻烦,下面的示例演示了如何修改 假设要修改的自定义变量名为aa--*/--1.修改自定义变量类型的名称exec sp_rename 'aa','aa_bak','USERDATATYP... 阅读全文
posted @ 2016-01-16 14:15 帅被盗版 阅读(1413) 评论(0) 推荐(0) 编辑
摘要: --sql分页存储过程 --@sqlstr 查询语句 --@currentpage 当前页码 --@pagesize每页信息数 --返回值 1、记录数 2、符合条件的记录集 IF EXISTS(SELECT * FROM SYSOBJECTS WHERE name='SP_PagingQuery' 阅读全文
posted @ 2016-01-16 14:14 帅被盗版 阅读(208) 评论(0) 推荐(0) 编辑
摘要: ----首先,我们定义一个表值参数类型,其实就是一个表变量 Create type dbo.tp_Demo_MultiRowsInsert as Table ( [PName] [Nvarchar](20) NOT NULL, [GName] [Nvarchar](20) NOT NULL ) GO... 阅读全文
posted @ 2016-01-16 14:13 帅被盗版 阅读(1187) 评论(0) 推荐(0) 编辑