kevinzhaoyp-优快云博客

原创 easyui tree 使用笔记

一、加载完成之后默认选中第一个子节点$("#sjxmtree").tree({ onLoadSuccess: function (node, data) { if (data.length > 0) { var node = $(this).tree('getRoot'); if (node != null...

2019-08-15 11:09:20 236

原创 Delphi 连接 Excel

IMEX是用来告诉驱动程序使用Excel文件的模式，其值有0、1、2三种，分别代表导出、导入、混合模式。当我们设置IMEX＝1时将强制混合数据转换为文本，但仅仅这种设置并不可靠，IMEX＝1只确保在某列前8行数据至少有一个是文本项的时候才起作用，它只是把查找前8行数据中数据类型占优选择的行为作了略微的改变。例如某列前8行数据全为纯数字，那么它仍然以数字类型作为该列的数据类型，随后行里的含有

2018-06-05 08:53:47 575

原创 Sql server 2005 行列与转

一、行转列 pivot--行转列 pivot--语法table_sourcePIVOT(聚合函数（value_column）FOR pivot_columnIN())--实例select * from tb_rowSELECT * FROM tb_row pivot( MAX(score) FOR course IN (语文,数学,物理) )a二、列

2016-05-19 17:56:15 485

原创 sql server 树形表的一些操作

--通过子节点查询父节点WITH TREE AS( SELECT * FROM tstructure WHERE id = '要查询的子 id' UNION ALL SELECT tstructure.* FROM tstructure, TREE WHERE TREE.parent = tstructure.id) SELECT * FR

2016-05-04 17:29:38 856

原创 Sql server 取按日期最大的一条记录

select * from T_Test A where date=(select max(date) from T_Test B where A.[Name]=B.[Name])原表记录执行后结果

2016-03-21 17:37:28 41469

原创 TcxTreeList 节点上移下移代码

if not Assigned(cxDBTreeList1.FocusedNode) then Exit;// 上移方法： with cxDBTreeList1 do FocusedNode.MoveTo(FocusedNode.getPrevSibling, tlamInsert);// 下移方法： with cxDBTreeList1 do

2014-07-28 17:11:59 2443

原创 Days360

CREATE FUNCTION [dbo].[F_Days360]( @BeginDate datetime, @EndDate datetime) returns int AS begindeclare @d1 int, @m1 int, @y1 int, @d2 int, @m2 int, @y2 int set @d1 = Day(@Begi

2014-06-23 20:50:19 968

原创 delphi cxGrid 动态加载列的方法

cxGrid 动态加载列的方法记录下来方便以后使用。

2014-05-21 16:22:14 5448

原创 Delphi 让子窗体显示在任务栏上的几种方法

重载 CreateParams 方法

2014-05-05 15:41:48 2704

原创 delphi 汉字转拼音首字母

修改后Delphi2010以后的版本可用。

2014-04-29 22:25:11 4766

原创花我1小时研究的 TcxLookupComboBox 可以模糊查询了

1、设置属性DropDownListStyle := lsEditList;2、修改单元 cxCustomData.pas11094行function TcxCustomDataController.DoIncrementalFilterRecord(ARecordIndex: Integer): Boolean;var S: string;begin

2014-04-23 16:08:52 4110

原创一个分割字符串的函数，自定义分割符。

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[F_SplitStr]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[F_SplitStr]GO/*程序名：作者：kevin功能：分割字符串函数参数:@str要分割的字符串

2014-04-22 23:27:22 793

原创整理一些Delphi关于操作文件的函数

1、文件删除与截断Erase(var F: File); //删除一个存在的文件DeleteFile(const FileName: string): Boolean;//删除一个文件Truncate(var F: File);//从文件当前位置将文件截断Erase与DeleteFile的区别：Erase：以文件变量为参数，当文件不能删除时引起一个异常；Delete

2013-12-22 15:12:05 646

原创 Delphi 指定Dll文件的扩展名

library Project1;{$E xxx} //在这里指定生成Dll的扩展名(XXX为最后生成的的扩展名)。uses SysUtils, Classes;{$R *.res}beginend.

2013-12-22 14:48:09 789

原创 Unidac:解决“trying to modify read-only Field”问题！

Unidac:解决“trying to modify read-only Field”问题！后台使用SQL语句中，经常会关联自定义函数或视图，而CDS(TClientDataSet)对字段校验比较严格，涉及到的自定义函数或视图输出的字段，都会强制改为ReadOnly为True属性。当后台使用UniDAC+CDS，关联视图或自定义函数，为了数据一致性，有可能需要在前台界面上修改CDS

2013-12-05 17:59:53 1787

原创使继承于TForm 的 Published 属性和方法出现在 Object Inspector 中

需要的方法和类：RegisterCustomModule在单元DesignIntf中TCustomModule在单元DesignEditors中只要完成以下步骤就可以：1、published你自定义的 Property 或 Event;published property Images: TCustomImageList read FImages write Se

2013-06-16 12:09:04 1318

原创附加分离SQLServer数据库命令

附加数据库命令：EXEC sp_attach_db @dbname = '数据库名称', @filename1 = 'MDF路径',@filename2= 'LOG路径.LDF'分离数据库命令：EXEC sp_detach_db @dbname = '数据库名称'注：要在master下执行。显示可用的数据库exec sp_helpdb

2012-10-06 10:32:23 7671

原创 Sql Server执行动态SQL

Sql Server执行动态SQL

2012-09-26 12:18:30 545

原创如何使窗体 Showmodal 后可以操作其他窗体

对话框 ShowModal 之后不能操作其它窗口 ,实际上是因为 Windows Disable 了其它窗口。所以当你需要在模态对话框中访问其它已经可见的窗口时 ,需要用 EnableWindow API 来激活对应的窗口。例如 :form2.showmodal;在 form2 的 OnShow 事件中 :enablewindow(form1.handle,true);

2012-04-24 18:04:06 1172

原创 Delphi2007 Lite sp3 加载"Borland.Studio.Together.dll"问题

如图：解决办法：安装Microsoft Visual J# 2.0 版可再发行组件包下载地址：http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=f72c74b3-ed0e-4af8-ae63-2f0e42501be1如果使用过程中提示无法加载 Borland.Studio.T

2012-04-12 09:49:17 1440

原创 Delphi窗体GlassFrame实现在win7下的Aero Glass效果

从Vista到Windows7，都有AERO的特效。这种效果是由DWM（Desktop Window Manager）来控制的。对于一般的程序，缺省将在窗口边框应用这种效果。但如果我们想要更多的控制，比如让客户区的一部分也呈现这种效果，那也非常的简单。不需要我们在程序里做任何复杂的算法，我们只需要调API（在dwmapi.dll中），交给DWM去做就可以了。Delphi中可通过设置Form

2012-04-06 11:02:46 3430

原创 Delphi的运算符重载

使用Delphi编写游戏，唯一没有C++方便的就是不支持运算符重载。当你编写有关向量或者矩阵计算的程序时，不支持运算符重载的Delphi使用起来是很费劲的。但是Delphi 2006改变了这种局面，新的Delphi内核已经支持运算符重载了！本文将介绍如何使用Delphi的运算符重载功能注意：只有Delphi 2006 和免费版的 Turbo Delphi 支持这一功能！D

2012-03-29 15:53:53 2938

原创 Delphi 函数指针过程/函数类型

Pascal 中的过程类型与C语言中的函数指针相似,为了统一说法,以下称函数指针。函数指针的声明只需要参数列表；如果是函数，再加个返回值。下面讲解指向非对象（一般的）函数/过程的函数指针。例如声明一个过程类型，该类型带一个通过引用传递的整型参数：type IntProc = procedure (var Num: Integer); //IntProc是指向过程的函数指针

2012-03-28 16:27:06 714

原创 TApplication类

TApplication是应用程序使用的类型。类关系 TObject→TPersistent→TComponentTApplication 是一外封装Windows 应用程序的类。在Y职TApplication中引入的方法和属性，反映了 Windows 操作系统建立起来的如创建、运行、确认以及删除一个应用程序的基本情况。因此，当编写一个 Windows 应用程序时，TApplica

2012-03-28 15:43:06 798

原创 delphi的Format

Format(Format,集合) Format(''x=%d'', [12]); //''x=12'' //最普通Format(''x=%3d'', [12]); //''x= 12'' //指定宽度Format(''x=%f'', [12.0]); //''x=12.00'' //浮点数Format(''x=%.3f'', [12.0]); //''x=12.000''

2012-03-22 10:29:11 766

原创将普通过程赋值给事件，TMethod的妙用

OnClick是TNotifyEvent类型; type TNotifyEvent = procedure(Sender: TObject) of object; 就是说他是一个过程，而且是有一个TObject的参数，并且包含在一个对象里～～关于类的方法： (不是类方法，这里指object pascal中的静态方法，相当于C++的成员函数)

2012-03-04 17:18:10 1994

原创 Delphi 序列化

Delphi中序列化的方法。读：function TStream.ReadComponentRes(Instance: TComponent): TComponent;写：procedure TStream.WriteComponentRes(const ResName: string; Instance: TComponent);本想用序列化实现语言切换，可发现序列化后的文件跟乱码一样。不知

2012-03-02 10:45:48 2041

原创收藏一个学习VBA的好网址

http://www.feiesoft.com/vba/

2012-02-29 17:25:15 2562

原创 Delphi钩子函数说明

以下两个博客有很详细的说明。记录下来方便以后查找。万一博客http://www.cnblogs.com/del/category/124150.html钩子函数教程http://www.zdwork.cn/tags.php?/HOOK/

2012-02-27 15:35:21 452

原创 Delphi 三种气泡提示效果

一、方法一说明：这个效果不好，鼠标必须放在按钮上，气泡提示才可以出来，如果鼠标在按钮的范围之外，用回车键点击按钮也不会激活气泡提示。unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Std

2012-02-27 11:59:28 4232

原创 Delphi2007中TrayIcon托盘控件使用说明

属性说明： Animate: 设为true时，顺序更改Icons属性设置的图标 AnimateInterva: 设置更改图标的时间（单位：毫秒）BalloonFlags:图标样式BalloonHint:Hint提示文本BalloonTimeout:停留时间BalloonTitle:提示标题Hint: 设置鼠标移动到Tary图标上出现的提示信息 Icon: 要显示的托

2012-02-27 09:33:13 7608

原创三层开发中容易犯的错误

前记：相信大家对三层开发都已经耳熟能详，可是我却发现新公司的既有代码中有一些违背分层开发思想的东西，现在与大家分享这些错误，我们共勉之。如果有人觉得对三层开发拿捏得不是太准，请参照李天平的文章：分层开发思想与小笼包,这篇文章用隐喻说明分层开发，是非常好的一篇文章。正文：1．界面层参与非界面逻辑，抢业务逻辑层的饭碗什么是界面逻辑：界面层应该有的逻辑就是

2012-02-24 13:00:15 683

原创静态(Static)、虚拟(Virtual)、动态(dynamic)方法区别

区别方法（methods）函数入口地址优缺点说明静态(Static)在编译时就确定了函数入口地址不能被(Override)覆盖来支持多态性。速度最快。静态方法是默认方法虚拟(Virtual)在运行时从virtual method table(VMT)中确定函数入口地址可以被子类(Override)覆盖比

2012-02-23 13:10:32 2833

原创 Class Helper/record helper 给类“打补丁”

出自：http://blog.sina.com.cn/s/blog_6016bdc80100dhbh.html~type=v5_one&label=rela_prevarticle?1290186141有些时候，我们需要在现有类的基础上，给类添加一些东西并且在类中protected区分的方法，成员是无法在单元外访问的，如果要调用它们该怎么办呢？于是就有了以下三种方法1.

2012-02-23 10:05:44 655

原创一个返回汉字首字母的函数SQL Server

该函数返回前三个汉字的首字母，可以根据情况改。if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_NetCh]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[f_NetCh]GOSET QUOTED_IDENTIFIER ON

2012-02-21 22:26:42 941

原创一个可以将汉字转为拼音的存储过程

以下存储过程可以将传入的汉字转为拼音输出if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[f_GetPy]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[f_GetPy]GOSET QUOTED_IDENTIFIER ON G

2012-02-21 22:18:06 4477

原创多层分布式开发 MIDAS 使用不同协议时的优缺点

使用的连接优点缺点DCOM提供最直接的连接，服务器端不需要额外的应用软件支持提供有效的安全功能客户端需要额外的程序没有提供企业级应用Window 95 没有安装DCOMSocket适用范围广提供防火墙访问控制、发布安全容易使用客户端不需要DLL提供Poll 和Push 双向功能不能使用回叫信号没有提供企

2012-02-21 22:10:04 825

转载 Maidas中的DataSetProvider的Option说明

看看远端数据模块里的DataSetProvider的Option属性是否设置正确！Provider控件的Options属性值是一个集合，用于设置有关打包和传递的选项，像显示哪些字段、允许哪种更新方式等等。1. poFetchBlobsOnDemand：若包含此项，则表示数据包中不包括BLOB字段。不过，如果客户端的TclientDataSet控件的FetchOnDemand属性

2012-02-21 11:59:54 1016

原创关于建立Remote Data Module 时的几个选项说明

D2007新建RemoteDataModule向导。CoClass Name：为RemoteDataModule的名称Name。Instancing（实例选项）有三个选项如下：设置实例选项可以指定允许打开多少个服务器进程。1、Internal：表示COM服务器实例不能由外部应用程序创建。如果希望通过代理层控

2012-02-21 11:06:02 2845

原创 Delphi分布式系统（MIDAS）中动态调用存储过程

网上找的，正在试。1、http://www.ccw.com.cn/applic/prog/htm2003/20030423_096DZ.htm2、http://kb.cnblogs.com/a/107890/

2012-02-20 17:25:27 692

Delta 转 Sql语句，包括CDS与TFDMemTable

代码是使用xe10.1写的。没有三方控件。目前，特殊字段类型还要在修改。

2017-01-04

SVN清理（增加右键菜单）

双击添加右键.reg 增加右键菜单。删除右键.reg 删除右键菜单。

2016-05-23

Delphi实现Zip压缩/解压缩

使用XE4自带单元System.Zip。来压缩解压，有XE4写的Exe，XE4写的Dll可供Delphi7调用。里面都有源码。

2013-06-06

Office阅读控件OCX

一个可阅读Office文件的OCX。内有帮助文档，可供参考。

2013-06-03

阅读PDF的控件

一个PDF阅读控件，是个BPL，没有源码。直接加载BPL。使用时必须安装Adobe Reader(好像对版本没有要求)

2013-06-03

XE2破解工具

XE2破解工具，Delphi_XE2_4429_Update4官方测试可破解。

2013-06-03

Delphi XE4_破解安装器

网上下的，亲测可以破解，留着用。直接从 RAD Studio XE4 官方光盘镜像文件免序列号安装，还可清除安装过程中遗留的垃圾文件。写此工具是为了方便安装，省去了虚拟、输入序列号、激活等操作，对“许可协议”之类不用确认就可以进行下一步。所用资料来均自网络，在此对提供者一并表示感谢！

2013-06-03

序列化 (serialization):将对象的状态信息转换为可以存储或传输的形式的过程。与序列化相对的是反序列化，它将流转换为对象。这两个过程结合起来，可以轻松地存储和传输数据。序列化的目的　　1、以某种存储形式使自定义对象持久化；　　2、将对象从一个地方传递到另一个地方。　　3、使程序更具维护性在Delphi中只要从 TPersistent继承后就会有序列化的功能。在TPersistent中的定义 procedure DefineProperties(Filer: TFiler); virtual;

2012-03-02

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

Delta 转 Sql语句，包括CDS与TFDMemTable

WinHlp32 win10

SynEdit for XE10.1

Svn 清除工具

SVN清理（增加右键菜单）

Delphi XE5 SVN插件

Delphi实现Zip压缩/解压缩

Office阅读控件OCX

阅读PDF的控件

Delphi代码格式化工具

delphi2010破解

XE2破解工具

DelphiXE3完整版破解

Delphi XE4_破解安装器

delphi 序列化

Object Pascal（Delphi）中文版

VBAExcel帮助文档

VB速查手册.chm

xp菜单控件 vb控件

托盘控件 MyTubrTray

魔鬼按钮控件 Magean Button

VB源码《多时段闹钟》

程序员面试宝典.pdf

数据结构自学辅导(计算机及应用专业).pdf

一个用vb写的类似Windows的记事本

空空如也