简介EhLib 12.0 Build 12.0.035 是一套面向 Delphi 与 CBuilder 开发者的增强型 VCL/FMX 控件库适用于 RAD Studio 2010 至 XE12 以及 Lazarus可显著提升桌面数据库应用的开发效率。压缩包内共 2000 个文件包体约 583.26MB其中 1936 个 hpp 头文件构成控件接口主体另有 22 个 doc 和 18 个 docx 文档提供英俄双语开发指南12 个 sql 脚本用于演示数据与业务表结构10 个 txt 及少量 md/css 文件辅助说明。目前已有 531 人学习或下载该资源。资源完整收录 TDBGridEh、TDBVertGridEh、TDBSumList、TPrintDBGridEh、TMemTableEh 与 TDataDriverEh 等核心组件其中 TDBGridEh 支持多选、冻结列、自动列宽、多行标题、排序标记并可将数据导出为 CSV、HTML、XLS 等格式TDBLookupComboboxEh 提供扁平样式、增量搜索与多字段显示TMemTableEh 支持树形结构、主从关联及设计时数据填充TPrintDBGridEh 则具备打印预览、缩放网格与自定义页眉页脚能力。包内目录按功能模块组织头文件版本信息完整便于与现有工程集成。配合文档和 SQL 脚本读者可快速完成安装配置、接口查阅和功能验证适合需要扩展或升级已有 Delphi 项目的中高级开发者参考。1. EhLib VCL 是什么一个把 TDBGrid 变成“数据看板”的增强方案提到 Delphi 的表格增强方案绕不开 EhLib VCL。做过进销存或者后台管理系统的开发十有八九被客户一句“点表头能排序吗这里加个合计行最好能导成 Excel”卡住。原生 TDBGrid 只能做静态展示真要排序、分组、列宽记忆、合计得自己接管一大堆事件写多了就成了每个项目都要复制的“祖传代码”。EhLib VCL 就是把 TDBGrid 增强成 TDBGridEh 的成熟方案排序、过滤、分组、汇总、导出全是现成能力12.0.035 是一套较新的 VCL 源码包适合正在用 RAD Studio 10.4 到 12.x 的桌面数据库应用团队。这篇笔记会按最常用的路径把这个包从解压到跑通、再到避坑的完整过程讲一遍。2. 装包之前先把版本和依赖理清这份 zip 是源码包还是安装包先说结论ehlib-vcl-12.0.035.zip 是源码分发包不是双击 Next 的安装程序。你拿到的是可以让 RAD Studio 直接编译的工程与单元安装动作本质上是“编译一套适配你 IDE 版本的包再把设计期包注册进去”。如果直接把整个目录丢进 IDE 的 Library Path 就开始用单元能编译过但设计期控件图标不会出现。下面按我常用的检查顺序来。2.1 一个 zip 里通常有什么Run、Lib、Design 与 Demo 目录解压后通常会看到几类目录。Run 或 Source 目录放运行时单元比如 DBGridEh.pas、DBGridEhImpExp.pas、MemTableEh.pas这些是最终链接进你程序的核心代码Lib 目录按 IDE 版本存放包工程常见命名是 Ehlib.dpk 或 Ehlib_Design.dpk每个主版本对应一个子目录Design 目录放设计期注册代码负责把控件注册到组件面板Demo 目录是一堆示例工程新手建议先跑第一个 Demo看控件在项目里的真实表现比读文档来得快。这里有个新手容易产生疑问的点既然是源码包为什么不能把所有 .pas 直接加入自己的工程原因是 EhLib 本身依赖多个运行时包直接加源文件会大量遇到“unit 已经存在于不同包”的冲突。正规做法是先编译运行时包runtime package再编译设计期包design time package最后通过 IDE 的组件安装入口把设计期包挂进去。我一般会先把整个 Release 目录看一遍确认没有官方的一键安装说明没有就手动做步骤不复杂只是顺序不能错。2.2 根据 IDE 版本选择编译目标Delphi 12 与 C Builder 的差异EhLib 的 Lib 目录里通常会按编译器后缀拆子目录例如带 d10_3、d10_4、d11、d12 这类字段或者用 A 表示 Athens。你需要先看自己的 RAD Studio 版本Help About。主版本号决定包工程用哪个。选错子目录的典型后果是打开 .dproj 时提示“编译器版本不匹配”有时干脆在 Project Manager 里看不见 Build 节点。C Builder 用户要额外注意编译器类型新版走 clang 编译器包文件名后缀可能是 c 或 cb与 Delphi 的 d 不一样。同一套源码通常同时支持两种语言但 C Builder 安装时要把 C 相关路径也加到 Browsing Path否则原生 C 工程里使用 TDBGridEh 头文件会报找不到。另一个容易忽略的差异是 32 位与 64 位。你的应用程序如果发布为 64 位安装包时要确保编译出的运行时包也有 64 位版本并在 Project Options Packages 里勾选 Runtime Packages 列表中对应的 bpl。只装 32 位包也能在设计期正常放控件但运行 64 位程序时会直接报“无法加载包”而退出这是开发机上典型的“设计期正常、运行期翻车”场景。2.3 安装前三件事备份、卸载旧版、检查包引用死角动手安装前做好三件事。第一备份当前 IDE 环境里已安装的全部第三方包列表Component Install Packages 窗口里把每个包名截图或导出尤其是那些可能依赖 EhLib 的报表控件比如 FastReport VCL它和 EhLib 都有导出 Excel 的能力安装顺序会影响运行时包的依赖解析。第二卸载旧版 EhLib如果机器上装过 6.x、7.x 或 10.x要先把旧的 .bpl 从 Install Packages 里移除再清掉 IDE 的 Library Path 里指向旧源码的目录否则新包编译时会因为“同名单元但版本不同”报错这类错误排查起来非常棘手。第三检查工程级引用死角。许多项目组习惯把第三方源码目录放进杀毒软件白名单但真正出问题的多是旧工程里残留的搜索路径。打开你的工程Project Options Delphi Compiler Search Path搜索有没有包含 EhLib 关键字的历史路径有就删掉。这一步做完后再打开刚解压的包工程进行编译环境就干净了。我的经验是安装失败很多时候不是 EhLib 本身的问题而是它之前残留的“半旧不新”环境在捣乱。3. 在 Delphi 里装好 EhLib从解压到跑通带 TDBGridEh 的最小工程这一章按我最近给 RAD Studio 12 安装 12.0.x 系列的步骤来写同样适用于 10.4 与 11。菜单名称以英文版 IDE 为准中文版对应位置相同。目标是让 DBGridEh 出现在组件面板并能在一个新建工程里显示数据库数据。3.1 解压与路径布置把源码放到一个“不动”的目录我不会把源码解压到下载目录因为 IDE 之后会长期引用它下载目录一旦被清理Library Path 就会留下无效路径后续编译报错会连锁出现。我会创建一个固定目录例如 C:\Components\EHLib\12.0.035再解压mkdir C:\Components\EHLib unzip ehlib-vcl-12.0.035.zip -d C:\Components\EHLib\12.0.035这个目录就是之后加入 IDE Library Path 的源头。解压后先确认目录里有没有 Readme 或 Install 说明文件用文本编辑器打开核对官方推荐的目录结构与你看到的一致。特别注意一点EhLib 的目录名本身承载了版本信息我见过有人把解压目录又套了一层同名文件夹导致 IDE 路径里出现 C:\Components\EHLib\12.0.035\ehlib-vcl-12.0.035结果图标注册正常但单元明明就在那里却提示 File not found。用绝对路径时顺手把文件夹层级理顺这类问题能消掉一大半。3.2 编译安装先运行时包后设计期包顺序错了就会报链接错误打开 RAD Studio 后不要直接把 .pas 拖进工程。正确入口是 File Open进入 Lib 目录下对应你 IDE 版本的子目录找后缀为 .dproj 的包工程。常见有两个工程不带 Design 的运行时包和带 Design 的设计期包。原则是先编译运行时包再编译设计期包。原因在于设计期包依赖运行时包导出的类它要在 IDE 的组件面板上渲染控件图标运行时包则负责把 TDBGridEh 等类真正编译进你的应用。顺序反了会看到类似“无法解析外部符号”的错误而且重编多次可能依旧通不过。正确流程打开运行时包工程在 Project Manager 里右键项目名选择 Build。若 Build Configuration 显示 Debug改成 Release 再 Build。编译成功后关闭该工程再打开设计期包工程同样执行 Build。设计期包 Build 完成后Component Install Packages 里点 Add找到刚生成的 .bpl 文件路径通常在 Lib 子目录下的 Win32 或 Win64 目录里选中并确认。注册成功后组件面板会新增一组带 Eh 字样的页。如果没看到反复确认安装的是“设计期包”而不是运行时包。提示如果 IDE 报错说 bpl 正在被使用先关闭所有已打开的窗体再到 Install Packages 里把旧包移除后重试。再补一个参数点如果 IDE 同时装了多个主版本比如 10.4 和 12 并存不要在安装时把 12 的 bpl 加到 10.4 的 Search Path 里。每个主版本对应一套 bpl版本不匹配时 IDE 可能直接启动失败。最简单的处理是一个机器只保留一个主版本否则安装包的目录后缀经常让人选错。3.3 最小工程验证用 SQLite 跑一个带数据的 DBGridEh安装完成后验证是否可用不是拖一个控件那么简单。我通常新建一个 VCL 工程放一个 TFDConnection、TFDQuery、TDataSource 和一个 TDBGridEh用 SQLite 文件做数据源跑通“连接-查询-显示”整条链路。示例代码如下// FormCreate 中建立数据库连接并显示订单表 procedure TForm1.FormCreate(Sender: TObject); begin FDConnection1.DriverName : SQLite; FDConnection1.Params.Database : C:\tmp\demo.db; FDConnection1.Connected : True; FDQuery1.Connection : FDConnection1; FDQuery1.SQL.Text : SELECT * FROM orders ORDER BY order_date; DataSource1.DataSet : FDQuery1; DBGridEh1.DataSource : DataSource1; FDQuery1.Open; end;这段代码没有任何 EhLib 专属 API但这是关键DBGridEh 的绑定方式与原版 TDBGrid 完全一致老项目迁移时只把 DBGrid 改名为 DBGridEhDataSource 属性原样保留排版和字体基本不用改。运行后点击“order_date”列如果默认配置下没有明显反应不要急着排除问题排序开关默认可能是关的下一章会讲怎么打开。这里先验证数据能正常显示、列宽能拖动、单元格能进入编辑状态就说明安装成功。如果运行到 FDConnection 时报“不支持的驱动”那不是 EhLib 的问题是 FireDAC 的 SQLite 驱动没装或路径不对先换成任一能用的数据库继续验证。安装通过后建议再打开 Demo 目录里的示例工程看两个例子重点看分组面板和导出按钮是怎么挂的这两个是后期最常被客户点名要的功能。4. 把 EhLib 用出价值排序、分组、合计与导出 Excel 的落地配置安装只是开始。客户真正在意的是表头点一下排序、上方拖一个分组栏、底部有合计、一键导出 Excel。这些在 TDBGridEh 里都不是黑科技但每个功能都有对应的开关和属性下面按顺序说清楚。4.1 表头排序与多列排序一个 SortLocal 就能避免“每列都写 SQL”排序经常出现一种现象表头点击后有箭头但数据纹丝不动。通常要在 TDBGridEh 里打开 dgSorting同时决定排序逻辑放在哪一端。如果数据量只有几千行直接用控件本地排序最省事十万行以上的数据集我会关掉本地排序改成在 OnTitleClick 里拼接 ORDER BY 发给数据库端。设计期把 DBGridEh 的 Options 属性展开勾选 dgSorting。运行期初始化也写上避免别人误操作关闭// 打开表头排序并允许本地排序 DBGridEh1.Options : DBGridEh1.Options [dgSorting]; DBGridEh1.SortLocal : True; // 默认按第 3 列订单日期升序排一次 DBGridEh1.SortByColumn(DBGridEh1.Columns[2], False);SortLocal 为 True 时点击表头会在内存对数据集记录做排序不需要重发 SQL对小数据量最实用而且支持多列排序按住 Shift 点多个列标题上会显示排序序号。SortByColumn 的第二个参数是升序还是降序这句放在 FormCreate 里就能实现“打开页面就是排好序的状态”。注意本地排序要求数据集支持记录定位TFDQuery、TClientDataSet 都能正常配合如果用的是单向游标组件点击时会有明显卡顿甚至排序后光标跳到错误位置这种场景就别开 SortLocal。另一个细节是每一列的 FieldName 不能为空虚拟列没有对应字段时点击排序会被静默忽略界面看不出任何异常。4.2 分组面板与合计行合计为 0 往往不是算错了是汇总类型没设分组是 EhLib 比较亮眼的能力。把分组面板显示出来用户就能直接把列头拖进去按客户名、按月份分组数据会自动折叠成树形结构。代码上只需要一行DBGridEh1.GroupPanelVisible : True;从这一行开始用户就拥有了运行时自定义分组的入口不需要写额外代码。但要让分组自带合计有三个属性要配合底部要显示合计行列要声明统计方式列还要声明统计结果的显示格式。下面这段把金额列做成了求和DBGridEh1.SummaryFooterVisible : True; DBGridEh1.Columns[3].SummaryType : stSum; DBGridEh1.Columns[3].SummaryDisplayType : smtNumeric;这里最容易翻车的点是只把 SummaryFooterVisible 打开但每一列的 SummaryType 默认是 stNone结果就是界面底部出现一条空白的灰色行。还有装了中文环境后浮点数字段带了一堆小数位客户以为算错了其实是没有设置 DisplayFormat。我的习惯是把金额列的 DisplayFormat 统一设置为 #,##0.00日期列设置为 yyyy-mm-dd这样合计行与数据行的观感才一致。另一个注意点本地分组时合计的统计范围是“当前分组内的数据”如果数据集处于过滤状态合计也会跟着过滤结果走如果客户要求“过滤后合计全表”就需要在统计事件里自行按原始范围重算这是业务需求问题不要试图在网格属性里硬配。4.3 导出到 Excel保存对话框、内置导出与 FastReport VCL 的分工导出 Excel 的需求几乎每个客户都会提。我的做法是在工具栏放一个“导出”按钮点击后弹出保存对话框然后调用 TDBGridEh 的内置导出方法把当前显示内容写进文件// 导出当前网格内容到 Excel uses DBGridEhImpExp; procedure TForm1.btnExportClick(Sender: TObject); var SaveDlg: TSaveDialog; begin SaveDlg : TSaveDialog.Create(nil); try SaveDlg.Filter : Excel 2007 (*.xlsx)|*.xlsx|CSV (*.csv)|*.csv; if SaveDlg.Execute then DBGridEh1.SaveToExcel(SaveDlg.FileName); finally SaveDlg.Free; end; end;SaveToExcel 是 TDBGridEh 提供的内置导出方法对于老版本导出的是 .xls较新版本支持 .xlsx导出时会自动带上当前列宽、排序状态与汇总行这是客户最满意的点所见即所得。但注意它导出的是网格里“当前可见”的内容如果客户要的是正式发票样式或一页多栏的复杂报表网格内置导出就不合适了这时候我会把数据源交给 FastReport VCL 做报表模板来打印。EhLib 负责屏幕交互FastReport VCL 负责纸张输出两者用同一个 DataSource互不抢资源这也是 Delphi 桌面项目里常见的组合方式。再补充一个导出细节如果网格里的日期列用的是 VCL 默认短日期格式导出的 Excel 单元格会被识别成文本而不是日期客户在 Excel 里无法按日期筛选。解决方法是导出前临时把目标列的 DisplayFormat 设置为 yyyy-mm-dd hh:nn:ss导出完成后恢复。这类“显示正常但导出变成文本”的问题比崩溃更难排查属于典型的黑匣子行为我的血泪经验是导出前统一设置一遍列格式别偷懒。5. EhLib 安装与使用的 5 个常见问题现象、原因与解决方案先说一个普遍现象EhLib 控件本身很成熟出问题大多发生在安装环境与包依赖解析阶段而不是控件运行期。我把这几年在项目里遇到频率最高的五类问题按现象、原因、解决三个层面写清楚。排查时不要一上来就怀疑控件本身先按顺序检查目录、包、选项这三层。5.1 编译包时报 Unit not found先检查 Library Path 是否指向 Run 子目录现象打开设计期包工程执行 Build报“Unit not found: DBGridEh.pas”或者“File not found: Controls.dcu”。这个报错信息很直接但解决方向经常找错。原因IDE 的 Library Path 要么漏加了要么加成了 EhLib 的根目录。根目录下并不直接包含所有 .pasDBGridEh.pas 一般位于 Run 子目录有的版本叫 Source。另一个常见原因是第一次 Build 时生成的 .dcu 被输出到了 IDE 不监视的临时目录第二次拿不到缓存就报找不到。解决Tools Options Environment Options Delphi Options Library把 Run 或 Source 子目录的绝对路径加入 Library Path。接着在 Project Options Delphi Compiler Output 里给包工程指定一个固定的 dcu 输出目录不要用默认临时目录。改完后把 IDE 缓存目录下与 Ehlib 相关的 .dcu 全删掉再重新 Build。我见过有人频繁改路径后新旧 dcu 混在同一目录导致编译出来的控件行为怪异清理之后一次通过。5.2 运行期找不到 bpl开发机正常、客户机报错现象在开发机上编译运行都正常把 exe 拷到没有安装 IDE 的机器上双击提示“找不到 ehlibXXX.bpl”或“无法定位程序输入点”。这是最典型的“开发环境黑匣子”问题。原因安装时把 EhLib 运行时包挂进了 Runtime Packages生成的 exe 是动态链接到 bpl 的。开发机因为安装过程已经把这些 bpl 放到了系统路径所以运行正常干净机器上自然找不到。解决两种方案。其一Project Options Runtime Packages把“Link with runtime packages”前面的勾去掉让程序把 EhLib 代码静态编进 exe分发时只管带一个 exe其二保留动态方式把发布目录里所有用到的 bpl不光是 EhLib 的和 exe 放同一层目录。我一般建议企业内应用选静态链接省去维护 bpl 清单的负担。如果项目里同时依赖 FastReport VCL、DevExpress 这类大控件包才选动态方式并写一个启动脚本检查 bpl 完整性。需要留意的是修改运行期包设置后一定要 Rebuild All只 Build 当前工程不够否则部分单元仍按动态方式链接。5.3 表头点击有箭头但数据不动排序开关与数据集能力要一起看现象打开 dgSorting 后点击表头标题栏出现三角箭头但网格里的行顺序没有任何变化。客户会觉得“按钮没反应”这类问题在交付时容易被当成控件缺陷。原因排序请求发出后DBGridEh 要决定在本地排序还是把排序指令传给数据集。SortLocal 默认关时它依赖数据集自己实现排序而 TFDQuery 默认没有定义任何排序能力点表头只能产生视觉反馈。如果 SortLocal 开着数据集的游标类型又是单向游标本地排序会直接失败或表现迟钝。解决几千行以内用本地排序最省心在 FormCreate 里执行 DBGridEh1.SortLocal : True 即可。数据量大或要求服务端排序时不要开 SortLocal在 OnTitleClick 事件里取 TitleSort 信息拼接 ORDER BY。同时检查各列 FieldName 不能为空虚拟列没有对应字段时排序会被静默忽略把它排除在排序列之外。判断哪一层出了问题最快的方法是临时打开 SortLocal如果立即生效说明数据集层是瓶颈。5.4 导出 Excel 中文乱码编码与文件格式不匹配现象SaveToExcel 导出的文件用 Excel 打开中文内容变成“????”或乱码同一个文件用记事本打开却正常。这个现象最容易让客户对功能整体失去信任。原因不同版本 EhLib 的内置导出实现差异很大。老的导出方法按系统 ANSI 码生成 .xls当系统区域设置和 Excel 的默认编码不一致时中文就乱了又或者导出接口实际输出的是 UTF-8 文本但文件扩展名给了 .xlsExcel 用旧版格式解析 UTF-8 内容也会乱。解决导出优先用 .xlsx 扩展名新版 TDBGridEh.SaveToExcel 对 xlsx 的编码处理更完整。导出前把日期、文本列的 DisplayFormat 统一设置为目标格式。如果项目停留在老版本控件绕开内置导出改用 FastReport VCL 来生成 Excel它内部走的是模板加数据绑定编码由报表引擎统一处理几乎不会出现乱码。最后建议在项目里定一个“编码铁律”导出文件一律按 UTF-8除非客户明确要求 Excel 97-2003 格式否则不生成 .xls。5.5 与 FastReport VCL 同时安装时的包冲突版本对齐是第一原则现象装完 EhLib 后装 FastReport VCLIDE 提示“Package X requires Package Y version 17.0, found version 15.0”有时设计期窗体直接打不开组件面板里 EhLib 页的图标全部消失。原因这两个控件都依赖 VCL 的 DB 相关单元而且各自带的辅助运行时包在不同版本间有依赖关系。IDE 在安装多个来源的 bpl 时会以包的文件名和版本号做解析一旦一个包被另一个包的版本需求卡住整个加载链就断裂。解决先卸载所有 EhLib 与 FastReport VCL 的旧包再把两个控件升到同一时代版本比如都选支持 RAD Studio 12 的版本按“基础包 → EhLib → FastReport VCL”的顺序重新安装。安装过程中出现版本冲突提示时不要点忽略忽略只是让 IDE 跳过本次校验实际运行仍会崩。还有一个容易忽略的点两个包都可能提供导出相关单元运行时如果出现“类已存在”检查是否不小心把两个导出单元同时放进了同一个 uses 列表。我的习惯是屏幕上的网格用 EhLib打印与文件导出统一走 FastReport VCL两个控件的职责完全错开互不干扰。6. 进阶用布局记忆与大列表优化把 TDBGridEh 做成客户离不开的操作台前面把安装、常用功能和坑都过了一遍这一章重点讲两个真实项目里提高留存率的细节记住用户的界面习惯以及在大数据量下不让表格卡成幻灯片。6.1 保存并恢复用户的列宽、排序与过滤状态客户经常说“我每次打开都要把金额列拉宽重新点一下日期排序很烦”。用 SaveLayout 与 ApplyLayout 可以把这些状态持久化到 ini 文件或注册表。事件挂接建议这样写procedure TForm1.FormCreate(Sender: TObject); begin // 从 ini 恢复列布局 DBGridEh1.ApplyLayout(layout.ini, OrdersGrid); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin // 关闭前保存避免反复写盘 DBGridEh1.SaveLayout(layout.ini, OrdersGrid); end;两个方法的第一参数是文件名第二参数是 ini 的 Section 名。不同窗体用不同 Section避免互相覆盖。我的经验是把保存动作放到 FormClose 而不是列宽拖动事件里因为列宽拖动会高频触发写盘频繁反而让界面卡顿。如果客户不希望排序状态被记住保存前把 SortMarkedColumns 清空只保留列宽和列顺序。6.2 大数据量下的两个开关虚拟模式下别开自动行高当数据量超过十万行时本地排序都建议关掉改用数据库分页。网格自身的两个属性要特别注意打开 VirtualMode 时DBGridEh 会按可见区域动态取数滚动流畅但此时自动行高 dghAutoFitRowHeight 一定要关否则每次滚动都需要重新计算整行高度性能直接回到解放前。分页的常见做法是让 DataSource 指向只读一页数据的查询DBGridEh 列数控制在合理范围内运行速度就很好。我最早用 EhLib 时踩过一个坑为了界面好看把能显示的字段全塞进网格又开了分组合计结果数据量一上来拖动滚动条时 CPU 直接拉满。后来做了三件事只保留必要列、关掉自动行高、把合计改为仅在分组展开时计算整个界面又恢复到瞬开的状态。希望帮到你。本文还有配套的精品资源点击获取
简介EhLib 12.0 Build 12.0.035 是一套面向 Delphi 与 CBuilder 开发者的增强型 VCL/FMX 控件库适用于 RAD Studio 2010 至 XE12 以及 Lazarus可显著提升桌面数据库应用的开发效率。压缩包内共 2000 个文件包体约 583.26MB其中 1936 个 hpp 头文件构成控件接口主体另有 22 个 doc 和 18 个 docx 文档提供英俄双语开发指南12 个 sql 脚本用于演示数据与业务表结构10 个 txt 及少量 md/css 文件辅助说明。目前已有 531 人学习或下载该资源。资源完整收录 TDBGridEh、TDBVertGridEh、TDBSumList、TPrintDBGridEh、TMemTableEh 与 TDataDriverEh 等核心组件其中 TDBGridEh 支持多选、冻结列、自动列宽、多行标题、排序标记并可将数据导出为 CSV、HTML、XLS 等格式TDBLookupComboboxEh 提供扁平样式、增量搜索与多字段显示TMemTableEh 支持树形结构、主从关联及设计时数据填充TPrintDBGridEh 则具备打印预览、缩放网格与自定义页眉页脚能力。包内目录按功能模块组织头文件版本信息完整便于与现有工程集成。配合文档和 SQL 脚本读者可快速完成安装配置、接口查阅和功能验证适合需要扩展或升级已有 Delphi 项目的中高级开发者参考。1. EhLib VCL 是什么一个把 TDBGrid 变成“数据看板”的增强方案提到 Delphi 的表格增强方案绕不开 EhLib VCL。做过进销存或者后台管理系统的开发十有八九被客户一句“点表头能排序吗这里加个合计行最好能导成 Excel”卡住。原生 TDBGrid 只能做静态展示真要排序、分组、列宽记忆、合计得自己接管一大堆事件写多了就成了每个项目都要复制的“祖传代码”。EhLib VCL 就是把 TDBGrid 增强成 TDBGridEh 的成熟方案排序、过滤、分组、汇总、导出全是现成能力12.0.035 是一套较新的 VCL 源码包适合正在用 RAD Studio 10.4 到 12.x 的桌面数据库应用团队。这篇笔记会按最常用的路径把这个包从解压到跑通、再到避坑的完整过程讲一遍。2. 装包之前先把版本和依赖理清这份 zip 是源码包还是安装包先说结论ehlib-vcl-12.0.035.zip 是源码分发包不是双击 Next 的安装程序。你拿到的是可以让 RAD Studio 直接编译的工程与单元安装动作本质上是“编译一套适配你 IDE 版本的包再把设计期包注册进去”。如果直接把整个目录丢进 IDE 的 Library Path 就开始用单元能编译过但设计期控件图标不会出现。下面按我常用的检查顺序来。2.1 一个 zip 里通常有什么Run、Lib、Design 与 Demo 目录解压后通常会看到几类目录。Run 或 Source 目录放运行时单元比如 DBGridEh.pas、DBGridEhImpExp.pas、MemTableEh.pas这些是最终链接进你程序的核心代码Lib 目录按 IDE 版本存放包工程常见命名是 Ehlib.dpk 或 Ehlib_Design.dpk每个主版本对应一个子目录Design 目录放设计期注册代码负责把控件注册到组件面板Demo 目录是一堆示例工程新手建议先跑第一个 Demo看控件在项目里的真实表现比读文档来得快。这里有个新手容易产生疑问的点既然是源码包为什么不能把所有 .pas 直接加入自己的工程原因是 EhLib 本身依赖多个运行时包直接加源文件会大量遇到“unit 已经存在于不同包”的冲突。正规做法是先编译运行时包runtime package再编译设计期包design time package最后通过 IDE 的组件安装入口把设计期包挂进去。我一般会先把整个 Release 目录看一遍确认没有官方的一键安装说明没有就手动做步骤不复杂只是顺序不能错。2.2 根据 IDE 版本选择编译目标Delphi 12 与 C Builder 的差异EhLib 的 Lib 目录里通常会按编译器后缀拆子目录例如带 d10_3、d10_4、d11、d12 这类字段或者用 A 表示 Athens。你需要先看自己的 RAD Studio 版本Help About。主版本号决定包工程用哪个。选错子目录的典型后果是打开 .dproj 时提示“编译器版本不匹配”有时干脆在 Project Manager 里看不见 Build 节点。C Builder 用户要额外注意编译器类型新版走 clang 编译器包文件名后缀可能是 c 或 cb与 Delphi 的 d 不一样。同一套源码通常同时支持两种语言但 C Builder 安装时要把 C 相关路径也加到 Browsing Path否则原生 C 工程里使用 TDBGridEh 头文件会报找不到。另一个容易忽略的差异是 32 位与 64 位。你的应用程序如果发布为 64 位安装包时要确保编译出的运行时包也有 64 位版本并在 Project Options Packages 里勾选 Runtime Packages 列表中对应的 bpl。只装 32 位包也能在设计期正常放控件但运行 64 位程序时会直接报“无法加载包”而退出这是开发机上典型的“设计期正常、运行期翻车”场景。2.3 安装前三件事备份、卸载旧版、检查包引用死角动手安装前做好三件事。第一备份当前 IDE 环境里已安装的全部第三方包列表Component Install Packages 窗口里把每个包名截图或导出尤其是那些可能依赖 EhLib 的报表控件比如 FastReport VCL它和 EhLib 都有导出 Excel 的能力安装顺序会影响运行时包的依赖解析。第二卸载旧版 EhLib如果机器上装过 6.x、7.x 或 10.x要先把旧的 .bpl 从 Install Packages 里移除再清掉 IDE 的 Library Path 里指向旧源码的目录否则新包编译时会因为“同名单元但版本不同”报错这类错误排查起来非常棘手。第三检查工程级引用死角。许多项目组习惯把第三方源码目录放进杀毒软件白名单但真正出问题的多是旧工程里残留的搜索路径。打开你的工程Project Options Delphi Compiler Search Path搜索有没有包含 EhLib 关键字的历史路径有就删掉。这一步做完后再打开刚解压的包工程进行编译环境就干净了。我的经验是安装失败很多时候不是 EhLib 本身的问题而是它之前残留的“半旧不新”环境在捣乱。3. 在 Delphi 里装好 EhLib从解压到跑通带 TDBGridEh 的最小工程这一章按我最近给 RAD Studio 12 安装 12.0.x 系列的步骤来写同样适用于 10.4 与 11。菜单名称以英文版 IDE 为准中文版对应位置相同。目标是让 DBGridEh 出现在组件面板并能在一个新建工程里显示数据库数据。3.1 解压与路径布置把源码放到一个“不动”的目录我不会把源码解压到下载目录因为 IDE 之后会长期引用它下载目录一旦被清理Library Path 就会留下无效路径后续编译报错会连锁出现。我会创建一个固定目录例如 C:\Components\EHLib\12.0.035再解压mkdir C:\Components\EHLib unzip ehlib-vcl-12.0.035.zip -d C:\Components\EHLib\12.0.035这个目录就是之后加入 IDE Library Path 的源头。解压后先确认目录里有没有 Readme 或 Install 说明文件用文本编辑器打开核对官方推荐的目录结构与你看到的一致。特别注意一点EhLib 的目录名本身承载了版本信息我见过有人把解压目录又套了一层同名文件夹导致 IDE 路径里出现 C:\Components\EHLib\12.0.035\ehlib-vcl-12.0.035结果图标注册正常但单元明明就在那里却提示 File not found。用绝对路径时顺手把文件夹层级理顺这类问题能消掉一大半。3.2 编译安装先运行时包后设计期包顺序错了就会报链接错误打开 RAD Studio 后不要直接把 .pas 拖进工程。正确入口是 File Open进入 Lib 目录下对应你 IDE 版本的子目录找后缀为 .dproj 的包工程。常见有两个工程不带 Design 的运行时包和带 Design 的设计期包。原则是先编译运行时包再编译设计期包。原因在于设计期包依赖运行时包导出的类它要在 IDE 的组件面板上渲染控件图标运行时包则负责把 TDBGridEh 等类真正编译进你的应用。顺序反了会看到类似“无法解析外部符号”的错误而且重编多次可能依旧通不过。正确流程打开运行时包工程在 Project Manager 里右键项目名选择 Build。若 Build Configuration 显示 Debug改成 Release 再 Build。编译成功后关闭该工程再打开设计期包工程同样执行 Build。设计期包 Build 完成后Component Install Packages 里点 Add找到刚生成的 .bpl 文件路径通常在 Lib 子目录下的 Win32 或 Win64 目录里选中并确认。注册成功后组件面板会新增一组带 Eh 字样的页。如果没看到反复确认安装的是“设计期包”而不是运行时包。提示如果 IDE 报错说 bpl 正在被使用先关闭所有已打开的窗体再到 Install Packages 里把旧包移除后重试。再补一个参数点如果 IDE 同时装了多个主版本比如 10.4 和 12 并存不要在安装时把 12 的 bpl 加到 10.4 的 Search Path 里。每个主版本对应一套 bpl版本不匹配时 IDE 可能直接启动失败。最简单的处理是一个机器只保留一个主版本否则安装包的目录后缀经常让人选错。3.3 最小工程验证用 SQLite 跑一个带数据的 DBGridEh安装完成后验证是否可用不是拖一个控件那么简单。我通常新建一个 VCL 工程放一个 TFDConnection、TFDQuery、TDataSource 和一个 TDBGridEh用 SQLite 文件做数据源跑通“连接-查询-显示”整条链路。示例代码如下// FormCreate 中建立数据库连接并显示订单表 procedure TForm1.FormCreate(Sender: TObject); begin FDConnection1.DriverName : SQLite; FDConnection1.Params.Database : C:\tmp\demo.db; FDConnection1.Connected : True; FDQuery1.Connection : FDConnection1; FDQuery1.SQL.Text : SELECT * FROM orders ORDER BY order_date; DataSource1.DataSet : FDQuery1; DBGridEh1.DataSource : DataSource1; FDQuery1.Open; end;这段代码没有任何 EhLib 专属 API但这是关键DBGridEh 的绑定方式与原版 TDBGrid 完全一致老项目迁移时只把 DBGrid 改名为 DBGridEhDataSource 属性原样保留排版和字体基本不用改。运行后点击“order_date”列如果默认配置下没有明显反应不要急着排除问题排序开关默认可能是关的下一章会讲怎么打开。这里先验证数据能正常显示、列宽能拖动、单元格能进入编辑状态就说明安装成功。如果运行到 FDConnection 时报“不支持的驱动”那不是 EhLib 的问题是 FireDAC 的 SQLite 驱动没装或路径不对先换成任一能用的数据库继续验证。安装通过后建议再打开 Demo 目录里的示例工程看两个例子重点看分组面板和导出按钮是怎么挂的这两个是后期最常被客户点名要的功能。4. 把 EhLib 用出价值排序、分组、合计与导出 Excel 的落地配置安装只是开始。客户真正在意的是表头点一下排序、上方拖一个分组栏、底部有合计、一键导出 Excel。这些在 TDBGridEh 里都不是黑科技但每个功能都有对应的开关和属性下面按顺序说清楚。4.1 表头排序与多列排序一个 SortLocal 就能避免“每列都写 SQL”排序经常出现一种现象表头点击后有箭头但数据纹丝不动。通常要在 TDBGridEh 里打开 dgSorting同时决定排序逻辑放在哪一端。如果数据量只有几千行直接用控件本地排序最省事十万行以上的数据集我会关掉本地排序改成在 OnTitleClick 里拼接 ORDER BY 发给数据库端。设计期把 DBGridEh 的 Options 属性展开勾选 dgSorting。运行期初始化也写上避免别人误操作关闭// 打开表头排序并允许本地排序 DBGridEh1.Options : DBGridEh1.Options [dgSorting]; DBGridEh1.SortLocal : True; // 默认按第 3 列订单日期升序排一次 DBGridEh1.SortByColumn(DBGridEh1.Columns[2], False);SortLocal 为 True 时点击表头会在内存对数据集记录做排序不需要重发 SQL对小数据量最实用而且支持多列排序按住 Shift 点多个列标题上会显示排序序号。SortByColumn 的第二个参数是升序还是降序这句放在 FormCreate 里就能实现“打开页面就是排好序的状态”。注意本地排序要求数据集支持记录定位TFDQuery、TClientDataSet 都能正常配合如果用的是单向游标组件点击时会有明显卡顿甚至排序后光标跳到错误位置这种场景就别开 SortLocal。另一个细节是每一列的 FieldName 不能为空虚拟列没有对应字段时点击排序会被静默忽略界面看不出任何异常。4.2 分组面板与合计行合计为 0 往往不是算错了是汇总类型没设分组是 EhLib 比较亮眼的能力。把分组面板显示出来用户就能直接把列头拖进去按客户名、按月份分组数据会自动折叠成树形结构。代码上只需要一行DBGridEh1.GroupPanelVisible : True;从这一行开始用户就拥有了运行时自定义分组的入口不需要写额外代码。但要让分组自带合计有三个属性要配合底部要显示合计行列要声明统计方式列还要声明统计结果的显示格式。下面这段把金额列做成了求和DBGridEh1.SummaryFooterVisible : True; DBGridEh1.Columns[3].SummaryType : stSum; DBGridEh1.Columns[3].SummaryDisplayType : smtNumeric;这里最容易翻车的点是只把 SummaryFooterVisible 打开但每一列的 SummaryType 默认是 stNone结果就是界面底部出现一条空白的灰色行。还有装了中文环境后浮点数字段带了一堆小数位客户以为算错了其实是没有设置 DisplayFormat。我的习惯是把金额列的 DisplayFormat 统一设置为 #,##0.00日期列设置为 yyyy-mm-dd这样合计行与数据行的观感才一致。另一个注意点本地分组时合计的统计范围是“当前分组内的数据”如果数据集处于过滤状态合计也会跟着过滤结果走如果客户要求“过滤后合计全表”就需要在统计事件里自行按原始范围重算这是业务需求问题不要试图在网格属性里硬配。4.3 导出到 Excel保存对话框、内置导出与 FastReport VCL 的分工导出 Excel 的需求几乎每个客户都会提。我的做法是在工具栏放一个“导出”按钮点击后弹出保存对话框然后调用 TDBGridEh 的内置导出方法把当前显示内容写进文件// 导出当前网格内容到 Excel uses DBGridEhImpExp; procedure TForm1.btnExportClick(Sender: TObject); var SaveDlg: TSaveDialog; begin SaveDlg : TSaveDialog.Create(nil); try SaveDlg.Filter : Excel 2007 (*.xlsx)|*.xlsx|CSV (*.csv)|*.csv; if SaveDlg.Execute then DBGridEh1.SaveToExcel(SaveDlg.FileName); finally SaveDlg.Free; end; end;SaveToExcel 是 TDBGridEh 提供的内置导出方法对于老版本导出的是 .xls较新版本支持 .xlsx导出时会自动带上当前列宽、排序状态与汇总行这是客户最满意的点所见即所得。但注意它导出的是网格里“当前可见”的内容如果客户要的是正式发票样式或一页多栏的复杂报表网格内置导出就不合适了这时候我会把数据源交给 FastReport VCL 做报表模板来打印。EhLib 负责屏幕交互FastReport VCL 负责纸张输出两者用同一个 DataSource互不抢资源这也是 Delphi 桌面项目里常见的组合方式。再补充一个导出细节如果网格里的日期列用的是 VCL 默认短日期格式导出的 Excel 单元格会被识别成文本而不是日期客户在 Excel 里无法按日期筛选。解决方法是导出前临时把目标列的 DisplayFormat 设置为 yyyy-mm-dd hh:nn:ss导出完成后恢复。这类“显示正常但导出变成文本”的问题比崩溃更难排查属于典型的黑匣子行为我的血泪经验是导出前统一设置一遍列格式别偷懒。5. EhLib 安装与使用的 5 个常见问题现象、原因与解决方案先说一个普遍现象EhLib 控件本身很成熟出问题大多发生在安装环境与包依赖解析阶段而不是控件运行期。我把这几年在项目里遇到频率最高的五类问题按现象、原因、解决三个层面写清楚。排查时不要一上来就怀疑控件本身先按顺序检查目录、包、选项这三层。5.1 编译包时报 Unit not found先检查 Library Path 是否指向 Run 子目录现象打开设计期包工程执行 Build报“Unit not found: DBGridEh.pas”或者“File not found: Controls.dcu”。这个报错信息很直接但解决方向经常找错。原因IDE 的 Library Path 要么漏加了要么加成了 EhLib 的根目录。根目录下并不直接包含所有 .pasDBGridEh.pas 一般位于 Run 子目录有的版本叫 Source。另一个常见原因是第一次 Build 时生成的 .dcu 被输出到了 IDE 不监视的临时目录第二次拿不到缓存就报找不到。解决Tools Options Environment Options Delphi Options Library把 Run 或 Source 子目录的绝对路径加入 Library Path。接着在 Project Options Delphi Compiler Output 里给包工程指定一个固定的 dcu 输出目录不要用默认临时目录。改完后把 IDE 缓存目录下与 Ehlib 相关的 .dcu 全删掉再重新 Build。我见过有人频繁改路径后新旧 dcu 混在同一目录导致编译出来的控件行为怪异清理之后一次通过。5.2 运行期找不到 bpl开发机正常、客户机报错现象在开发机上编译运行都正常把 exe 拷到没有安装 IDE 的机器上双击提示“找不到 ehlibXXX.bpl”或“无法定位程序输入点”。这是最典型的“开发环境黑匣子”问题。原因安装时把 EhLib 运行时包挂进了 Runtime Packages生成的 exe 是动态链接到 bpl 的。开发机因为安装过程已经把这些 bpl 放到了系统路径所以运行正常干净机器上自然找不到。解决两种方案。其一Project Options Runtime Packages把“Link with runtime packages”前面的勾去掉让程序把 EhLib 代码静态编进 exe分发时只管带一个 exe其二保留动态方式把发布目录里所有用到的 bpl不光是 EhLib 的和 exe 放同一层目录。我一般建议企业内应用选静态链接省去维护 bpl 清单的负担。如果项目里同时依赖 FastReport VCL、DevExpress 这类大控件包才选动态方式并写一个启动脚本检查 bpl 完整性。需要留意的是修改运行期包设置后一定要 Rebuild All只 Build 当前工程不够否则部分单元仍按动态方式链接。5.3 表头点击有箭头但数据不动排序开关与数据集能力要一起看现象打开 dgSorting 后点击表头标题栏出现三角箭头但网格里的行顺序没有任何变化。客户会觉得“按钮没反应”这类问题在交付时容易被当成控件缺陷。原因排序请求发出后DBGridEh 要决定在本地排序还是把排序指令传给数据集。SortLocal 默认关时它依赖数据集自己实现排序而 TFDQuery 默认没有定义任何排序能力点表头只能产生视觉反馈。如果 SortLocal 开着数据集的游标类型又是单向游标本地排序会直接失败或表现迟钝。解决几千行以内用本地排序最省心在 FormCreate 里执行 DBGridEh1.SortLocal : True 即可。数据量大或要求服务端排序时不要开 SortLocal在 OnTitleClick 事件里取 TitleSort 信息拼接 ORDER BY。同时检查各列 FieldName 不能为空虚拟列没有对应字段时排序会被静默忽略把它排除在排序列之外。判断哪一层出了问题最快的方法是临时打开 SortLocal如果立即生效说明数据集层是瓶颈。5.4 导出 Excel 中文乱码编码与文件格式不匹配现象SaveToExcel 导出的文件用 Excel 打开中文内容变成“????”或乱码同一个文件用记事本打开却正常。这个现象最容易让客户对功能整体失去信任。原因不同版本 EhLib 的内置导出实现差异很大。老的导出方法按系统 ANSI 码生成 .xls当系统区域设置和 Excel 的默认编码不一致时中文就乱了又或者导出接口实际输出的是 UTF-8 文本但文件扩展名给了 .xlsExcel 用旧版格式解析 UTF-8 内容也会乱。解决导出优先用 .xlsx 扩展名新版 TDBGridEh.SaveToExcel 对 xlsx 的编码处理更完整。导出前把日期、文本列的 DisplayFormat 统一设置为目标格式。如果项目停留在老版本控件绕开内置导出改用 FastReport VCL 来生成 Excel它内部走的是模板加数据绑定编码由报表引擎统一处理几乎不会出现乱码。最后建议在项目里定一个“编码铁律”导出文件一律按 UTF-8除非客户明确要求 Excel 97-2003 格式否则不生成 .xls。5.5 与 FastReport VCL 同时安装时的包冲突版本对齐是第一原则现象装完 EhLib 后装 FastReport VCLIDE 提示“Package X requires Package Y version 17.0, found version 15.0”有时设计期窗体直接打不开组件面板里 EhLib 页的图标全部消失。原因这两个控件都依赖 VCL 的 DB 相关单元而且各自带的辅助运行时包在不同版本间有依赖关系。IDE 在安装多个来源的 bpl 时会以包的文件名和版本号做解析一旦一个包被另一个包的版本需求卡住整个加载链就断裂。解决先卸载所有 EhLib 与 FastReport VCL 的旧包再把两个控件升到同一时代版本比如都选支持 RAD Studio 12 的版本按“基础包 → EhLib → FastReport VCL”的顺序重新安装。安装过程中出现版本冲突提示时不要点忽略忽略只是让 IDE 跳过本次校验实际运行仍会崩。还有一个容易忽略的点两个包都可能提供导出相关单元运行时如果出现“类已存在”检查是否不小心把两个导出单元同时放进了同一个 uses 列表。我的习惯是屏幕上的网格用 EhLib打印与文件导出统一走 FastReport VCL两个控件的职责完全错开互不干扰。6. 进阶用布局记忆与大列表优化把 TDBGridEh 做成客户离不开的操作台前面把安装、常用功能和坑都过了一遍这一章重点讲两个真实项目里提高留存率的细节记住用户的界面习惯以及在大数据量下不让表格卡成幻灯片。6.1 保存并恢复用户的列宽、排序与过滤状态客户经常说“我每次打开都要把金额列拉宽重新点一下日期排序很烦”。用 SaveLayout 与 ApplyLayout 可以把这些状态持久化到 ini 文件或注册表。事件挂接建议这样写procedure TForm1.FormCreate(Sender: TObject); begin // 从 ini 恢复列布局 DBGridEh1.ApplyLayout(layout.ini, OrdersGrid); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin // 关闭前保存避免反复写盘 DBGridEh1.SaveLayout(layout.ini, OrdersGrid); end;两个方法的第一参数是文件名第二参数是 ini 的 Section 名。不同窗体用不同 Section避免互相覆盖。我的经验是把保存动作放到 FormClose 而不是列宽拖动事件里因为列宽拖动会高频触发写盘频繁反而让界面卡顿。如果客户不希望排序状态被记住保存前把 SortMarkedColumns 清空只保留列宽和列顺序。6.2 大数据量下的两个开关虚拟模式下别开自动行高当数据量超过十万行时本地排序都建议关掉改用数据库分页。网格自身的两个属性要特别注意打开 VirtualMode 时DBGridEh 会按可见区域动态取数滚动流畅但此时自动行高 dghAutoFitRowHeight 一定要关否则每次滚动都需要重新计算整行高度性能直接回到解放前。分页的常见做法是让 DataSource 指向只读一页数据的查询DBGridEh 列数控制在合理范围内运行速度就很好。我最早用 EhLib 时踩过一个坑为了界面好看把能显示的字段全塞进网格又开了分组合计结果数据量一上来拖动滚动条时 CPU 直接拉满。后来做了三件事只保留必要列、关掉自动行高、把合计改为仅在分组展开时计算整个界面又恢复到瞬开的状态。希望帮到你。本文还有配套的精品资源点击获取
