3 1月
EhLib 是一套 Delphi 第三方组件库,虽然其只有十多个组件,没有 DevExpress 系列那般功能强大,但却简单易用,提供了一些实际开发中非常实用的功能。其中最为代表性的是 DBGirdEh 表格组件。
DBGridEh 可以为你提供一个更加美观和功能丰富的 DBGird,比如平面化显示、奇偶行不同颜色(斑马线)、快速查找、合计行、Grid 打印等。在 Ehlib 的后期版本中,还提供了一个非常强大的过滤功能,他会在 DBGrid 的表头下方显示一个过滤行,用户在此行的相应列中输入查询条件,DBGridEh 可以自动为您筛选出所需要的数据。下图所示即为启用过滤功能后的 DBGridEh:

鉴于之前 EhLib 汉化版发布时,很多人问到 EhLib 过滤功能的实现方式,并要求提供一个示例,所以下面我会简单介绍一下 EhLib 过滤功能的实现,相关代码及可执行文件会发布到 Delphi 盒子,请到那里去搜索并下载。
1、过滤实现的前提条件:uses EhlibADO, EhlibBDE 等 ….
要实现 DBGridEh 的自动过滤,必须先添加 Ehlib 的几个相关 unit 到你的 project 中,如果你使用的是 ADO 连接数据库,请在工程任一 unit 的 uses 列表中添加 EhlibADO,如果使用的是 BDE,请添加 EhlibBDE,其他可能添加的还有:EhlibCDS、EhlibDBX、EhlibIBX、EhlibMTE;
2、启用过滤,显示过滤行:DBGridEh.STFilter.Visible := True
DBGridEh 默认不显示过滤行,设置 STFilter.Visible 为 True 过滤行就显示出来了。
3、选择:客户端还是服务器端过滤?DBGridEh.STFilter.Local = True|False
这一步很主要。客户端过滤也就是 Query 自身的过滤功能,在内存中过滤,不会到服务器端去查询,优点是实现简单,过滤速度快,缺点就是只能获得本地更新的数据,其他用户新增和修改的数据无法实时反映出来。
DBGridEh 服务器端过滤的实现方式是“拼凑”SQL 语句。在过滤之前,DBGridEh 绑定的 Query 的 SQL 语句必须含有 DBGridEh 指定的一个过滤标记,该过滤标记默认为 /*Filter*/,其必须在 SQL 任一行的行首,当用户输入过滤值时,EhLib 生成过滤条件,并且用此条件替换过滤标记之后的内容,然后将新的SQL 语句发送到数据库端去执行,获得的即为过滤后的数据。
具体应该使用哪种过滤方式,需根据实际要求选用。
4、客户端过滤(本地过滤)的实现:DBGridEh.STFilter.Local := True
客户端过滤实现比较简单,而且容易理解,设置 Local 为 True,过滤功能就 OK 了。
5、服务器端过滤的实现:DBGridEh.STFilter.Local := False
服务器端过滤需设置 Local 为 False,然后剩下的就是 SQL 语句,SQL 一般为以下样式:
以上代码生成的 SQL 在 SQL Server 等支持 /* 注释的数据库中会非常正确的执行,但在 Access 中就会出错,解决方案也很简单,更改 DBGridEh 的过滤标记即可:
那么 Query 的 SQL 应该为以下:
服务器端过滤也 OK 了!
注:如果你使用的是 Delphi 2007,你可能会发现当你完全无误按以上设置后,服务器端过滤功能还是无效,这是由于 Ehlib DBUtilsEh 单元的一处 Bug 造成的,此 Bug 产生的原因请查看该文:EhLib 4.1 在 Delphi 2007 下无法过滤和排序的问题。(本示例代码中包含了修正过的 DBUtilsEh,请到 Delphi 盒子下载)
6、过滤行下拉列表的实现:Column.STFilter.ListSource、ListField、KeyField
DBGridEh 的过滤行可以将某列已存在的值以 ComboBox 的形式显示出来,要实现此功能,需设置 DBGridEh 列的 STFilter 属性。将 ListSource 设为要下拉显示的数据源,ListField 为下拉列表显示的字段,KeyField 为构建查询表达式使用的字段。
设置以上属性后,你可能发现虽然下拉列表显示出来了,但选择下拉列表值后,DBGridEh 却没有自动过滤,在单元的 initialization 节添加以下代码即会自动过滤了:
这个方法感觉很奇怪,而且在使用中好像也有问题,当输入 > <这样的表达式时,查询时会出错。在官方的 Demo 中,是通过内存表的方式实现的,而且不用设置任何属性(上面的 ListSource 等都不用设置),即可自动在过滤行每列处显示下拉列表,详细用法请参照 Ehlib 安装目录下的 Demo。
(注:本示例代码不包含过滤行下拉列表的实现演示)
Ehlib 过滤功能实现示例代码下载:Delphi 盒子
11 12月
几个月前发布的 Ehlib 4.2 的版本号为 4.2.12,根据其 Readme 文件可知其为 Beta 版,这次出现的版本号为 4.2.16,应该是 EhLib 4.2 的正式版,Readme 文件标题为:EhLib 4.2 Build 4.2.16 Russian version. Full source included。
经过文件对比发现,4.2.16 较 4.2.12 在需汉化的文件内容上没有差别,更新的应该是其他文件,所以使用之前发布的 4.2.12 的中文化文件替换即可,现完整的 EhLib 4.2.16 中文汉化版已发布到 Delphi 盒子。
如果对安装 EhLib 有疑问,可参考这篇文章:EhLib 使用教程:EhLib 安装

20 8月
在发布了最新的 EhLib 4.2.12 中文汉化版以后,在盒子的评论区有人问安装的问题,其实在以前发布 EhLib 3.4、3.6、4.1 汉化修改版时,EhLib 的安装也是评论区问得最多的问题。
这并不是 EhLib 本身的问题,而是很多人不了解 Delphi 组件的安装方法所造成的。EhLib 的安装相对 DevExpress 系列、FastReport 的安装来说已经是非常简单的了。
此篇 EhLib 使用教程简单描述一下 EhLib 的安装方法。
EhLib 在 Delphi 7 下的安装方法:
1、将 EhLib 解压到一个目录,如:E:\VCL\EhLib;
2、将 EhLib 安装目录下 Common 目录、DataService 目录下的所有文件拷贝到 EhLib 安装目录下的 Delphi 7 目录;
3、启动 Delphi 7;
4、选择 File — Open Project,跳转到 EhLib 安装目录,在出现的打开文件对话框文件类型下拉列表中选择 Delphi Package(*.dpk;*.dpkw),在文件列表中选择 EhLib70.dpk 打开,然后在出现的 Package 窗口中点击按钮 Compile,编译此包;
5、按照上一步相同的方法打开 DclEhLib70.dpk,点击 Compile ,然后再点击 Install ,安装此设计时包;
6、打开 Delphi 菜单-Tools-Environment Options-Library-Library Path,将 EhLib 安装目录下的 Delphi 7 目录添加到库搜索路径中,本例中该路径是 E:\VCL\EhLib\Delphi7。
至此,EhLib 在 Delphi 7 下即安装成功,在关闭上述打开的包文件时,会提示是否保存,在此处选择否,不保存。
EhLib 在 Delphi 5、Delphi 6、Delphi 8 下依上述方法都可正确安装。
EhLib 在 Delphi 2007、Delphi 2006 下的安装步骤跟上述也完全相同,不同在于他们新添加了两个包,按照上述第 4 步指示方法安装 EhLibDataDrivers110.dpk、按照第 5 步所示方法安装 DclEhLibDataDrivers110.dpk 即可。
安装 Delphi 组件,其实就是安装扩展名为 .dpk 的 Package 包文件,一般包分为运行时包和设计时包,运行时包打开后编译即可;设计时包一般以 Dcl 为包名前缀,设计时包不但需要编译,同时还需要安装才可出现在 Delphi 组件面板上,其它组件如 FastReport 按照此原则都可正确安装。
注:EhLib 最新版 4.2.12 中文汉化版可以在 Delphi 盒子下载。