企业官网建设流程全解析

简介：EhLib VCL 10.2.42 for Delphi 12 Athens 是一套面向 Delphi 开发者的高效控件库，适配 Delphi 12 Athens，可显著增强数据库应用、报表生成与图形界面的开发效率，适合中高级 Delphi 程序员及企业级项目使用。压缩包约 25.56MB，共 1490 个文件，包含 319 个 pas 源代码、387 个 dfm 窗体设计文件、298 个 dcu 编译单元及 dpr/dproj 工程文件，另有 chm/hlp 帮助文档与 docx 说明，便于学习组件实现细节并直接集成到 IDE。资源聚焦 EhLib 核心组件：EhDBGrid 支持分组、排序、过滤等复杂数据展示，EhReport 与 EhPrintPreview 负责报表布局和打印预览，EhDiagram、EhGantt 提供流程图与甘特图等可视化图形；同时包含日期时间、文件对话框、ShellBrowser 树形导航等实用控件。目前已有 352 人学习，下载后可获得完整组件源码、示例工程与官方文档，适合对照文档定制控件、搭建业务界面或研究 VCL 组件封装思路；包内 dproj/dpk 工程文件也有助于重建安装环境。

1. 拿到「EhLib VCL 10.2.42 for Delphi 12 Athens.7z」之后，第一步不是解压而是认包

从网上下载的文件写着「Delphi 12 控件之EhLib VCL 10.2.42 for Delphi 12 Athens.7z」，双击后弹出来的是压缩包列表而不是安装向导——这是很多人第一次装 VCL 控件时卡住的地方。这其实是一个必须手动编译的源码发行包，不是 exe 安装程序；它把运行时库（Runtime）和设计期包（DesignTime）甚至帮助文档一起塞进了同一个压缩包。这篇笔记就围绕「这个包能不能用、怎么装进 Delphi 12、装完先调哪些参数、哪里容易翻车」展开，面向从 Delphi 11 或更早版本升级到 Athens 的老开发者，也面向第一次接触 EhLib 的团队。搞明白这三件事，你花在这上面的半个小时就不会白费。

2. 为什么是 EhLib VCL 10.2.42：它在 Delphi 12 Athens 里补什么短板

2.1 原生 TDBGrid 做不到的事：排序、合计、筛选一把补齐

很多人从 Delphi 7 一路用到 Delphi 12，界面上的数据网格还是原生 TDBGrid。原生 TDBGrid 的定位是「忠实展示 DataSet 的当前状态」，它不做排序、不做统计、不做筛选；列头点击没反应，表格底部没有合计行，想要下拉筛选得自己堆一堆查询控件。业务上这些功能迟早要加，于是每个项目组最后都各自写了半套网格扩展，代码风格还不一样。

EhLib VCL 10.2.42 里的 DBGridEh 就是把这一层补上：列头点击排序、多列排序标记、底部统计行、每列独立的下拉筛选、单元格合并、树形展示、按钮列和进度列。下面这张对照表能看出它和原生网格的差距：

拿排序来说，原生网格下最常见的做法是在 OnTitleClick 里判断当前列，改 DataSet 的 SQL 或者给 IndexFieldNames 赋值；换成 DBGridEh 之后，只要打开 dghAutoSortMarking，列头点击的排序箭头、升序降序切换、再点取消排序这些交互都是控件自己管的。想按两列以上排序就再打开多列标记，列头上会出现 1、2 这种次序数字。

合计行是另一个高频需求。财务报表、出入库单、对账页面，几乎每个数据页面底部都要放「本页合计」「累计」。原生网格的解决方案是单独画一排 Label，在 AfterScroll 或数据变化事件里手动累加，数据量一多就得留意精度和空值。DBGridEh 里把 FooterRowCount 设成 1，再给需要统计的列指定 fvSum、fvAvg、fvCount 这种聚合类型，表格自动算。从维护角度看，这一层节省的是每个页面重复的统计代码。

2.2 版本为什么锁定到 Athens：DCU 二进制兼容的硬规则

VCL 控件不是「下个最新版就能装进任意 IDE」的软件。Delphi 12 的内部 RTL 版本和 Delphi 11 不同，编译器生成的 DCU、BPL 都和 RTL 严格绑定。一个为旧版本编译好的控件包直接拿来用，轻则编译报错，重则 IDE 加载包时直接崩溃，连工程都打不开。这就是标题里特意写「for Delphi 12 Athens」的原因——发行方已经按这个 IDE 版本的接口适配过一轮。

你在下载时看到这个后缀就可以确认两件事：第一，这套包编译出来的 DCU 能匹配当前 IDE 的 RTL；第二，用户在使用时也能自行修改源码并本地重编译，如果中间遇到可复现的问题，可以根据新的需求修改单元源码，再把这个本地构建结果应用于项目。

拿到包之后先做版本核对：打开 Delphi 12，菜单 Help > About 里能看到当前 IDE 的完整版本号和编译器内部版本号，把这个数字和压缩包内目录名对照。常见做法是把 7z 里的目录结构先完整列出来，找到 Source 目录下那几个 dpk 文件的命名，凡是文件名里带版本号的，确认它和当前编译器的内部版本号能对应上。版本对不上就不要再往下装，硬装进去的后悔药不好吃。

2.3 拿到的是 .7z 而不是安装程序：这个包类型意味着什么

正常的商业控件安装包会给你一个 setup.exe，双击一路 Next 就完事；EhLib VCL 10.2.42 走的是「源码包 + 本地编译」路线。它用 7z 打包的原因之一是可以把几百个 pas/bdcb 文件按目录结构原样放进压缩包，体积小、完整度高。代价是你要自己做三步：解压、配 Library 路径、编译设计期包。对愿意折腾的人来说，这反而是个优势：你能看到每个单元源码，出错时可以顺着调用栈进源码排查，而不是面对一个黑匣子。

另一个容易被忽略的点是这类包默认会把运行时包和设计期包分开。运行时包在你编译出来的程序里实际被引用，设计期包只在 IDE 里运行，负责往组件面板注册控件。两个都必须编译，但只有设计期包需要执行 Install 动作。很多第一次装的人把两个都 Install 了一遍，结果 IDE 里出现重复组件、类名冲突，最后只能逐个卸载。

从选型角度看，EhLib 值得投入的另一个理由是它不依赖第三方数据感知框架，直接用 DataSource 接入，原来项目里用 TDBGrid 的地方改控件类型后大多能直接复用。团队里如果有老 Delphi 程序员，上手成本非常低。

3. 装进 Delphi 12：从 7z 解压到组件面板的三步操作

3.1 解压与目录规划：7z 命令行解压到英文路径

拿到压缩包后第一步不是双击，而是规划安装目录。我的习惯是把控件放到D:\Components\这种纯英文、没有空格、层级浅的路径下。IDE 的 Library 路径解析在碰到中文目录时有概率出问题，一旦 Library 路径里出现无法解析的目录，编译报错会非常难排查，而且这类错误往往不在 Messages 窗口里直接指明是路径问题。

解压工具建议直接用 7z 命令行，不要在资源管理器里拖拽。拖拽方式解压大量小文件时容易丢文件，而且不会保留压缩包里的目录层级。命令行解压可以指定输出目录，也方便在团队内复用同一个脚本。以下命令在 Windows 自带的 PowerShell 里执行：

# 定位 7z 命令，如果已经装过解压工具且加到 PATH 里，可以直接写 7z $7z = "C:\Program Files\7-Zip\7z.exe" # 把压缩包解压到 D:\Components\EhLib，覆盖已有文件 & $7z x "D:\downloads\Delphi 12 控件之EhLib VCL 10.2.42 for Delphi 12 Athens.7z" ` "-oD:\Components\EhLib" -y

x表示解压并保留压缩包内的完整目录结构；-o指定输出根目录，注意-o后面不能有空格；-y表示遇到已存在文件直接覆盖，避免解压中途停下来问问题。如果压缩包放在桌面且当前用户是中文名，解压之前先把它挪到一个纯英文路径，比如D:\downloads\，防止后续 IDE 解析到中文路径产生额外麻烦。

解压完成后，先打开D:\Components\EhLib看目录结构。典型布局是源码按 IDE 版本分子目录，里面有 Sources 或类似命名的目录存放 pas 文件，以及按编译器版本命名的子目录存放 dcu。不要急着打开 IDE，先用下面这条命令确认关键文件都在：

# 列出解压结果里所有的设计期包和核心源码，确认没有丢文件 Get-ChildItem "D:\Components\EhLib" -Recurse -Filter "*DesignTime*.dpk" | Select-Object FullName Get-ChildItem "D:\Components\EhLib" -Recurse -Filter "DBGridEh*.pas" | Select-Object FullName

第一条命令用来找设计期包，后缀为.dpk；第二条用来确认 DBGridEh 的主源码文件存在。两条查询都有输出，说明解压基本完整。如果一条有结果另一条为空，多半是解压过程中文件丢失，直接重新解压一次，不要继续往下走。

3.2 编译与安装：先运行时包，再设计期包

打开 Delphi 12，先不要新建项目，先配置 Library 路径。路径在Tools > Options > Language > Delphi > Library里，右侧能看到 Library path 列表。把解压后的 Source 目录添加进去，这样后续任何项目编译时都能找到 EhLib 的 pas 和 dcu 文件。如果 Source 目录下还有按版本区分的子目录，优先加版本对应的那一层。

注意：Library 路径顺序有讲究。如果机器上装过旧版 EhLib，旧路径会排在新路径前面，编译器会优先找到旧的 dcu。建议把新路径通过界面上的「上移」按钮挪到最顶部。

接下来编译运行时包。在 IDE 里File > Open，文件类型选「Package (.dpk)」，定位到解压目录下不带 DesignTime 字样、命名里含版本标识的 dpk 文件，点打开。包文件会在 Project Manager 里出现一个节点，右键这个节点，先选 Compile。编译完成后，Messages 窗口会显示编译成功或失败。失败时最常见的提示是找不到某个 dcu 或 pas，这时候先回头检查 Library 路径，而不是去改代码。

运行时包编译通过后再打开设计期包。它一般带 DesignTime 字样，打开后右键同样的节点，这次选 Install。Install 成功会弹出一个提示框，告诉你控件已注册到组件面板。这一步做完，组件面板上应该能看到新的页签，里面是 DBGridEh、DBComboBoxEh、DBDateTimeEditEh 这一组控件。注意 Install 和 Compile 是两个动作，只 Compile 不 Install，设计期控件永远不会出现在面板上。

还有一个小细节：如果 IDE 提示某个 bpl 文件正被占用或写入失败，关掉 IDE 里所有打开的工程，必要时把 IDE 彻底退出再重新打开。VCL 设计期包在编译时可能被 IDE 自己持有，热更新不彻底就会报错。

3.3 验证安装结果：组件面板和 Messages 窗口怎么算通过

安装完成不等于环境可用。先把 IDE 彻底关掉，重新启动一次，打开一个新的 VCL Forms 工程，从组件面板的 EhLib 页签拖一个 DBGridEh 到窗体上。能拖出来、属性编辑器能正常打开、IDE 没报异常，才算过第一关。

第二关是编译带数据连接的最小工程。在窗体上放一个 DataSource、一个 ClientDataSet、一个 DBGridEh，把 DataSource 接上，运行。如果运行后网格能正常显示数据，说明运行时包和设计期包的 DCU 版本一致。如果编译通过但一运行就报EIncompatibleVersion，说明你编译运行时包和设计期包时 IDE 环境发生了变化，最常见的原因是两个包不是同一次会话里编译的，重新按 3.2 的顺序各编译一次。

提示：团队多人协作时，建议把 3.1 里的解压命令和 3.2 里的操作步骤写进项目 Wiki。控件环境这种东西，每台机器装一次就够，但每个人踩的坑都不一样。

4. 装完先调这几个参数：DBGridEh 的关键属性与默认行为

4.1 排序：OptionsEh 与 SortLocal 的分工

DBGridEh 的排序由两个层面的属性配合。第一个层面是 OptionsEh 里的几个开关，控制的是「列头交互表现」；第二个层面是 SortLocal 和 SortMarkedColumns，控制的是「排序动作到底在哪执行」。

先看向用户暴露的部分。dghAutoSortMarking打开后，点击列头会显示一个三角箭头，表示当前排序列和方向；dghMultiSortMarking打开后，按住 Ctrl 再点击其他列头就会追加排序列，列头上出现 1、2 的序号。这两个是纯 UI 表现，光打开它们不会真的排序——真正排序要靠 SortLocal。

SortLocal := True表示让 DBGridEh 自己对当前内存中的 DataSet 做本地排序，适用于已经全量加载到客户端的数据集。如果你用的是大型数据库、数据在服务端，本地排序会把最后一条记录也拉到本地，这时 SortLocal 应设为 False，排序逻辑交给上层 SQL 完成，DBGridEh 只负责把排序方向告诉你的代码。

常见误用是只开dghAutoSortMarking忘了开 SortLocal，结果列头箭头会出现，数据顺序纹丝不动。另一个误用是把本地排序用在未缓冲的大数据集上，界面直接卡死。我一般这样设置：

// 在 FormCreate 或数据源绑定之后执行 DBGridEh1.OptionsEh := DBGridEh1.OptionsEh + [dghAutoSortMarking, dghMultiSortMarking]; DBGridEh1.SortLocal := True; // 仅当 DataSet 已全量加载时 DBGridEh1.SortMarkedColumns.Clear; // 清空上次的排序状态

OptionsEh是一个集合属性，用+运算符追加单个开关是 Delphi 里的常规写法，不要整组覆盖赋值，否则会丢掉其他默认项。SortMarkedColumns.Clear用来在重新加载数据前清理排序标记，避免旧列名在新数据集里失效。

4.2 合计与统计脚：FooterRowCount 和 Footer.ValueType

底部统计行是这个控件最容易被低估的功能。先说开启条件：FooterRowCount必须大于 0，它决定底部显示几行统计区；接着要在需要统计的列上配置Footer.ValueType。ValueType 是一个枚举，常见的有 fvSum（求和）、fvAvg（平均值）、fvCount（计数）、fvMax（最大值）、fvMin（最小值）。只设 FooterRowCount 不设列统计类型，底部只会出现空行。

如果你希望统计的是「当前这个数据集」而不是「当前页可见行」，还要确认SumList.Active为 True。SumList 是 DBGridEh 内部的累计机制，它扫描整个数据集后把结果填进 Footer。我见过不少人把 Footer 不显示数字归咎于组件包有问题，其实是 SumList 没有激活。下面的代码在运行期给网格加上「数量合计」和「记录条数」两列统计：

// 打开统计区，共一行 DBGridEh1.FooterRowCount := 1; // 第一列显示记录条数 DBGridEh1.Columns[0].Footer.ValueType := fvCount; // 第二列显示金额合计 DBGridEh1.Columns[1].Footer.ValueType := fvSum; DBGridEh1.Columns[1].Footer.FieldName := 'Amount'; // 激活全数据集累计 DBGridEh1.SumList.Active := True;

Footer.FieldName指定对哪个字段做聚合，如果不写，默认用当前列的 FieldName。对于 fvSum 这种聚合，字段必须是数值型；对日期字段做 fvSum 没有意义，类型错误时统计位置显示为空而不是报错，这是最容易让新手困惑的地方。

4.3 列头筛选：STFilter 的打开方式与适用边界

STFilter 是 DBGridEh 自带的下拉筛选区。它和 Footer 统计经常一起出现：顶部是每列一个小三角图标，点开后列出该列去重后的值，勾选后网格只显示命中的行。打开方式很简单：STFilter.Visible := True，再把InstantUpdate := True，这样勾选条件后立刻刷新，不需要额外点确认按钮。

它看起来像是一个迷你查询面板，但它不是万能的。STFilter 生成筛选条件时依赖当前列的类型和数据集结构，如果你的数据源是多个表 JOIN 出来的视图，或者某列其实是计算字段，STFilter 的默认行为可能生成不正确的条件，表现为勾选后数据变空。在这种场景下我的做法是关掉该列的筛选，或者用STFilter.Local := True强制本地过滤，让控件只处理已经加载到内存的行。

还有一个性能相关的边界：STFilter 默认会把列的所有去重值加载到下拉列表里。对十万行以上的数据集，这一下会卡顿。此时可以通过配置列的STFilter.ListField改成指向一个独立的小数据集，让筛选列表只显示少量可选值，而不是扫全表。这个属性在设计期和运行期都能改，数据量上来之前建议先规划好。

// 打开筛选区并启用即时刷新 DBGridEh1.STFilter.Visible := True; DBGridEh1.STFilter.InstantUpdate := True; // 大数据量时，把筛选列表指向独立数据集 // DBGridEh1.Columns[5].STFilter.ListSource := dsFilterValues;

上面代码中，第一段是常规打开方式；第二段注释里给出了大数据量时的优化方向。ListSource指向一个只包含少量候选值的 DataSet，下拉列表便不再扫描主表全量数据。这个参数在列多、数据量大时几乎是必调的。

5. EhLib VCL 10.2.42 安装与使用的 5 个高频坑

5.1 组件面板没有 EhLib 页：运行时包当设计期包装了

现象：按第 3 章的步骤编译了两个包，Project Manager 里两个节点都编译成功，但组件面板翻遍所有页签都找不到 DBGridEh。重新打开 IDE 也没变化。

原因：编译成功和注册成功是两件事。运行时包只提供代码实现，不负责往组件面板注册控件；只有带 DesignTime 字样的设计期包里的注册单元才会调用RegisterComponents。很多人看到第一个包编译成功后就以为装好了，第二个包只是顺手编译了一下，没有执行 Install。

解决：回到 Project Manager，在设计期包节点上右键，确认菜单里有没有 Install 这一项。没有 Install 说明你打开的其实还是运行时包；有 Install 就点它。注册完成后 IDE 会提示控件已安装，此时组件面板才会出现新页签。这里没有别的玄学，就是动作没做全。

5.2 File not found: DBGridEh.dcu：Library Path 与中文路径

现象：新建工程，放上 DBGridEh 后编译，报错File not found: 'DBGridEh.dcu'，或者报某个 pas 文件找不到。检查了解压目录，文件明明在那里。

原因：编译器找不到组件包的位置，而不是文件不存在。Library Path 没有包含 Source 目录，或者包含的是一个错误版本对应的子目录；还有一种情况是 Source 目录放在含中文或空格的路径下，IDE 解析路径时断在了特殊字符处。

解决：打开Tools > Options > Language > Delphi > Library，把 Source 路径添加到 Library path 列表并移到顶部。确认路径里没有中文、没有空格、没有末尾多余的反斜杠。改完路径后关闭并重开工程，让 IDE 重新扫描路径；只改设置不重开工程时，路径缓存偶尔不生效。

5.3 旧版残留导致的版本冲突：EIncompatibleVersion 从哪来

现象：编译通过，设计期拖控件也正常，但一运行程序就弹EIncompatibleVersion，有时还会伴随Duplicate class之类错误，而且报错的单元名带着旧版本号。

原因：机器上以前装过其他版本或同版本的旧构建，旧 dcu/bpl 残留在系统的 Library 路径或项目搜索路径里，优先级排在了新版前面。编译器找到旧单元，版本配置和当前 RTL 不匹配，运行时自然炸掉。

解决：逐个排查路径列表，把旧 EhLib 相关的路径全部删除。全局搜索一下 dcu 文件，找到旧版本文件后可以手动隔离到备份目录，不要直接删源码。清理完后按第 3 章顺序重新编译一次。这里给一个可复现的判断方法：编译时按住 Ctrl 点击 DBGridEh 单元名跳到源码，看 IDE 打开的文件路径是不是你新配的那个；路径不对，优先顺序就没生效。

5.4 Footer 合计一直不显示：统计脚不是设了行数就出数字

现象：FooterRowCount 设了 1，运行时底部有空白统计行，但对应列没有数字；或者有的列有合计，有的列没有。

原因：三个条件缺一不可。FooterRowCount大于 0，这只是显示区域；列的Footer.ValueType必须指向具体的聚合类型，很多列默认是 fvNone；SumList.Active必须为 True，它负责真正去扫描数据集做累加。还有一个隐蔽原因：你绑定的是计算字段或非数值字段，fvSum 算不了，控件会静默留空。

解决：在运行期动态设置统计列，年代码里逐行确认每个条件，这是最稳妥的验证方式：

// 把下面的设置放在数据集 Active 之前执行 DBGridEh1.FooterRowCount := 1; DBGridEh1.SumList.Active := True; DBGridEh1.Columns[2].Footer.ValueType := fvSum; DBGridEh1.Columns[2].Footer.FieldName := 'TotalAmount';

Footer.FieldName可以单独指定要统计的字段，不一定非得和列绑定的字段同名。如果这列显示的是「单价 x 数量」的组合值，建议先建一个计算字段TotalAmount，再对这个计算字段做 fvSum，比直接统计原始字段更符合业务语义。

5.5 解压出来的文件被系统锁住：只读属性与 Zone.Identifier

现象：从网盘下载 7z 后解压到 D 盘，编译时报Access denied，或者 IDE 里能打开 pas 文件但无法保存修改后的源码。

原因：这类 7z 包的 pas 文件在打包时没有设置只读属性或文件属性被解析成了非标准状态。还有一个常见情况：文件从压缩包直接拖拽到桌面时，Windows 给文件附加了安全区域标记，Delphi 的源码编辑器在尝试回写时被系统拦截。

解决：给整个解压目录去除只读属性。在 PowerShell 里执行一次递归清理，比在资源管理器里右键改属性彻底得多：

# 去掉解压目录下所有文件的只读属性 attrib -r "D:\Components\EhLib\*.*" /s

执行后重新编译。如果 IDE 还有异常，就把目录下的descriptor.ini这类隐藏标记文件删掉。这个坑不大，但如果发生在你刚改完源码准备保存的时候，没有后悔药，改动的代码全部白费。建议解压完立刻执行一次，别等编译报错再回头处理。

6. 验证安装的最小 Demo：动态创建 DBGridEh 自证组件可用

环境装好之后，不要急着打开旧项目。先做一个最小 Demo，用纯代码动态创建一个 DBGridEh，接上数据，跑起来。这个方法比拖控件更可靠，因为它同时验证了设计期包、运行时包、Library 路径三个环节——拖控件能成功说明设计期包没问题，但运行起来才是运行时包真正生效的时刻。

// 在空白 Form 的 OnCreate 里动态创建 DBGridEh uses Data.DB, Datasnap.DBClient; procedure TForm1.FormCreate(Sender: TObject); var Grid: TDBGridEh; CDS: TClientDataSet; DS: TDataSource; begin // 准备内存数据集，不连数据库也能验证 CDS := TClientDataSet.Create(Self); CDS.FieldDefs.Add('ID', ftInteger); CDS.FieldDefs.Add('Name', ftString, 20); CDS.FieldDefs.Add('Amount', ftFloat); CDS.CreateDataSet; CDS.AppendRecord([1, 'EhLib Test', 99.5]); DS := TDataSource.Create(Self); DS.DataSet := CDS; // 动态创建网格并绑定数据 Grid := TDBGridEh.Create(Self); Grid.Parent := Self; Grid.Align := alClient; Grid.DataSource := DS; // 打开底部统计区，验证 SumList 是否生效 Grid.FooterRowCount := 1; Grid.SumList.Active := True; Grid.Columns[2].Footer.ValueType := fvSum; Grid.Columns[2].Footer.FieldName := 'Amount'; // 打开列头排序箭头，验证运行时包里的资源 Grid.OptionsEh := Grid.OptionsEh + [dghAutoSortMarking]; Grid.SortLocal := True; end;

代码的运行逻辑分三段：前三行准备数据，中间三行把网格和数据源绑定，最后四行打开统计与排序功能。你不需要真的连数据库，ClientDataSet 的内存数据足够验证组件包完整。运行后如果窗口里出现一行数据、列头有排序箭头、底部显示 99.5 这个合计，说明三个环节全部正常；缺任何一项，按第 5 章的对应条目排查。

把这段代码存成一个模板文件，放到团队的工具代码库里。之后任何人换新机器、新 IDE 版本，第一件事就是跑这个空 Form。我的习惯是在这上面花十分钟，确认环境没问题后再碰旧项目——环境问题让环境自己暴露，别让它在业务代码里伪装成逻辑 bug，这样排查起来能省大半天。希望帮到你。

本文还有配套的精品资源，点击获取