簡(jiǎn)介面向 Delphi 12.3 開(kāi)發(fā)者的 Ehlib 控件資源包內(nèi)容覆蓋常用網(wǎng)格、編輯框、按鈕等增強(qiáng)型界面組件能幫助桌面應(yīng)用開(kāi)發(fā)者快速集成高級(jí)表格與數(shù)據(jù)處理功能適合中高級(jí) Delphi 程序員在項(xiàng)目研發(fā)或控件學(xué)習(xí)時(shí)使用。壓縮包共含 2000 個(gè)文件其中 470 個(gè) dfm 窗體文件負(fù)責(zé)界面布局469 個(gè) pas 單元源碼提供核心邏輯245 個(gè) res 資源文件保存圖標(biāo)與配置另有 189 個(gè) dproj 和 170 個(gè) dpk 工程/包文件支持在 RAD Studio 中直接打開(kāi)編譯同時(shí)包含 chm 幫助文檔、示例工程及少量數(shù)據(jù)庫(kù)文件覆蓋從設(shè)計(jì)到發(fā)布的完整鏈路。整體僅 32.7MB體積小巧但結(jié)構(gòu)清晰便于移植和快速集成。當(dāng)前已有 60 人學(xué)習(xí)下載。資源內(nèi)含 Ehlib 組件源碼、窗體定義、可編譯工程、官方 chm 幫助及配套示例預(yù)覽中還能看到教程素材與圖標(biāo)資源對(duì)照幫助與示例代碼可快速掌握屬性配置、事件處理與界面擴(kuò)展方法減少自行摸索時(shí)間對(duì)需要提升 Delphi 開(kāi)發(fā)效率的用戶尤為實(shí)用。1. 一個(gè)RAR包解決Delphi 12.3數(shù)據(jù)庫(kù)表格的最后一公里拿到“Delphi 12.3控件之Ehlib 111015.rar”這個(gè)包先說(shuō)結(jié)論這是一套為Delphi 12.3準(zhǔn)備的第三方VCL控件庫(kù)核心價(jià)值是接管數(shù)據(jù)表格的展示、編輯、統(tǒng)計(jì)、打印導(dǎo)出。用Delphi原生TDBGrid做數(shù)據(jù)管理界面免不了被列寬凍結(jié)、單元格合并、底部統(tǒng)計(jì)行、導(dǎo)出Excel、打印預(yù)覽這些需求反復(fù)折騰而Ehlib就是用來(lái)接手這些工作的。適合的人很明確正在用Delphi 12.3開(kāi)發(fā)或維護(hù)桌面數(shù)據(jù)庫(kù)應(yīng)用、又被表格交互細(xì)節(jié)逼瘋的開(kāi)發(fā)者。這篇文章從解壓講到驗(yàn)證把安裝步驟、必調(diào)參數(shù)和踩坑記錄全部按可復(fù)現(xiàn)的方式寫(xiě)出來(lái)新手能照做熟手能直接查排錯(cuò)。2. 先搞清楚Ehlib 111015這套控件能帶來(lái)什么2.1 原生TDBGrid的四個(gè)短板正好是Ehlib的強(qiáng)項(xiàng)第一個(gè)短板是單元格合并。原生TDBGrid只支持列向重復(fù)值顯示不支持真正的跨行合并。做部門(mén)匯總報(bào)表、按月份分組的統(tǒng)計(jì)列表時(shí)需要把相同值的行合并成一個(gè)單元格。TDBGridEh通過(guò)OptionsEh里的dghMergeAdjacentCellsEh選項(xiàng)結(jié)合列屬性里的MergeCells配置可以在數(shù)據(jù)呈現(xiàn)層做動(dòng)態(tài)合并。需要注意的是它合并的是“顯示”不是數(shù)據(jù)源里的真實(shí)行排序和統(tǒng)計(jì)仍按原始行進(jìn)行。如果兩個(gè)相鄰行值恰好相同但你想強(qiáng)制它們不合并需要在列的OnGetMergeParams事件里攔截并返回不合并標(biāo)志這個(gè)事件是Ehlib列合并功能里最容易被人忽略的入口。第二個(gè)短板是底部統(tǒng)計(jì)行。原生TDBGrid沒(méi)有匯總行要顯示合計(jì)和平均值只能在數(shù)據(jù)集SQL里寫(xiě)匯總子查詢數(shù)據(jù)變化了還要重新查詢。Ehlib提供了一個(gè)TDBSumList組件單獨(dú)監(jiān)聽(tīng)數(shù)據(jù)集增量維護(hù)統(tǒng)計(jì)值然后把統(tǒng)計(jì)結(jié)果顯示到網(wǎng)格FooterRowCount設(shè)置的Footer行上。這樣統(tǒng)計(jì)不隨SQL重查大數(shù)據(jù)集下性能比每次執(zhí)行SUM聚合好得多。實(shí)際業(yè)務(wù)里訂單列表要同時(shí)顯示金額合計(jì)、數(shù)量合計(jì)、記錄條數(shù)TDBSumList一個(gè)組件就能同時(shí)維護(hù)三個(gè)統(tǒng)計(jì)值不用為每個(gè)字段寫(xiě)一條匯總SQL。第三個(gè)短板是導(dǎo)出與打印。用戶一句“把這個(gè)表導(dǎo)出來(lái)”在原生方案里得自己接第三方Excel庫(kù)或者離線報(bào)表組件去拼數(shù)據(jù)。Ehlib給網(wǎng)格直接提供了SaveToXLS、SaveToRTF、SaveToHTML、SaveToTXT四類(lèi)導(dǎo)出方法還內(nèi)置了PrintPreview打印預(yù)覽界面底層通過(guò)TDBPrinter渲染。它不依賴(lài)客戶機(jī)安裝Office導(dǎo)出的是Excel能打開(kāi)的HTML/XML格式。優(yōu)點(diǎn)是部署簡(jiǎn)單缺點(diǎn)是格式控制力度有限一旦客戶要求“每列寬度、頁(yè)眉頁(yè)腳、合并單元格都要和界面完全一致”光靠Ehlib默認(rèn)導(dǎo)出滿足不了還得配合自定義樣式或二次處理。第四個(gè)短板是顯示格式。金額千分位、日期顯示格式、超長(zhǎng)文本截?cái)嗉邮÷蕴?hào)、單元格里畫(huà)進(jìn)度條、下拉日歷、下拉選擇框這些在原生TDBGrid里要么寫(xiě)OnGetText事件手工處理要么另外放控件疊加。Ehlib把這部分做成了列級(jí)屬性直接在列編輯器里配置不用寫(xiě)事件代碼。以金額字段為例設(shè)置列的DisplayFormat為“#,##0.00”即可實(shí)現(xiàn)千分位放在原生TDBGrid里得寫(xiě)一整個(gè)事件去格式化維護(hù)成本不在一個(gè)數(shù)量級(jí)。這四個(gè)短板覆蓋了數(shù)據(jù)管理界面里八成以上的列表增強(qiáng)需求。如果只是簡(jiǎn)單展示幾條只讀數(shù)據(jù)原生TDBGrid本來(lái)也夠用Ehlib的價(jià)值在于讓開(kāi)發(fā)者不用反復(fù)造輪子。換句話說(shuō)你手上有真實(shí)業(yè)務(wù)系統(tǒng)列表不是“展示”而是“操作臺(tái)”才需要裝它。2.2 版本號(hào)為什么必須對(duì)齊Delphi 12.3和Ehlib 111015的關(guān)系RAR包名字里“Delphi 12.3”和“Ehlib 111015”兩個(gè)信息缺一不可它們分別約束了環(huán)境版本和控件版本。先說(shuō)環(huán)境版本。VCL控件最終要以DCU、BPL形式進(jìn)入IDE。Delphi每個(gè)大版本編譯器生成的DCU文件格式不互通你在某個(gè)舊版Delphi下編譯出來(lái)的Ehlib DCU拿到Delphi 12.3工程里引用編譯時(shí)會(huì)報(bào)“Unit not compiled with this version of Delphi”一類(lèi)的錯(cuò)。RAR包命名為Delphi 12.3專(zhuān)用就是為了避免這種錯(cuò)配。安裝時(shí)務(wù)必確認(rèn)打開(kāi)編譯的DPK工程是對(duì)應(yīng)版本包內(nèi)如果帶預(yù)編譯BPL也要按版本目錄區(qū)分不要混著用。再說(shuō)控件版本。Ehlib 111015表示這套控件源碼發(fā)布時(shí)的一個(gè)版本號(hào)或構(gòu)建編號(hào)。Ehlib版本演進(jìn)不以IDE版本為單位而是獨(dú)立發(fā)版所以會(huì)出現(xiàn)“Ehlib 111015支持Delphi 12.3”這種組合。這個(gè)版本號(hào)里具體有哪些功能變化以包內(nèi)自帶的歷史說(shuō)明文檔為準(zhǔn)。我見(jiàn)過(guò)不止一次有人在網(wǎng)上找Ehlib下載后不讀說(shuō)明直接裝結(jié)果把舊版的DCU覆蓋到新版目錄最后報(bào)表功能全部亂套這種低級(jí)翻車(chē)完全可以靠讀說(shuō)明文檔避免。安裝前最好建一個(gè)干凈的獨(dú)立目錄把Ehlib解壓后單獨(dú)放著不要把DCU和BPL散落到IDE默認(rèn)目錄里去方便后續(xù)切換控件版本時(shí)管理。這也是我給所有用第三方控件的人的第一條忠告所有VCL控件最好都獨(dú)立管理目錄不要一股腦丟進(jìn)Delphi的Library默認(rèn)路徑里。2.3 安裝開(kāi)銷(xiāo)和選型判斷到底要不要裝Ehlib的授權(quán)方式以包內(nèi)說(shuō)明文檔為準(zhǔn)安裝使用前一定要確認(rèn)拿到的是合規(guī)授權(quán)這一點(diǎn)不要含糊。從工程開(kāi)銷(xiāo)上看裝Ehlib要注意三點(diǎn)。第一IDE的組件面板會(huì)多一組控件圖標(biāo)包加載時(shí)間略微增加。第二發(fā)布程序時(shí)要帶上對(duì)應(yīng)的運(yùn)行時(shí)BPL。第三編譯時(shí)間和項(xiàng)目產(chǎn)出體積增加。如果項(xiàng)目只是CRUD界面列表不帶統(tǒng)計(jì)、不導(dǎo)出、不合并那原生TDBGrid配少量代碼完全夠用沒(méi)必要引入第三方依賴(lài)反過(guò)來(lái)你的系統(tǒng)里存在報(bào)表型列表、明細(xì)賬、訂單明細(xì)這類(lèi)界面Ehlib的投入產(chǎn)出比就非常高。我的判斷方法很簡(jiǎn)單在紙上列三項(xiàng)——是否需要單元格合并、是否需要底部統(tǒng)計(jì)或合計(jì)、是否需要一鍵導(dǎo)出Excel或打印預(yù)覽。命中兩項(xiàng)以上就裝。只命中一項(xiàng)可以臨時(shí)用原生網(wǎng)格加事件代碼兜底減少一個(gè)外部依賴(lài)。這樣能避免裝完又卸載的反復(fù)折騰也在團(tuán)隊(duì)協(xié)作時(shí)減少“為什么我這個(gè)環(huán)境跑不起來(lái)”的溝通成本。3. 在Delphi 12.3里裝好Ehlib 111015從解壓到出圖標(biāo)3.1 解壓前的三件事退出IDE、整理目錄、讀說(shuō)明安裝任何VCL包之前第一條血淚經(jīng)驗(yàn)先退出Delphi 12.3。不是關(guān)掉工程就算完而是把IDE進(jìn)程完全退出。因?yàn)镮DE運(yùn)行時(shí)鎖定了正在使用的BPL文件直接安裝很可能報(bào)“文件被占用”。這一步省事的做法是任務(wù)管理器里確認(rèn)沒(méi)有殘余的IDE進(jìn)程再繼續(xù)操作。注意不要在IDE運(yùn)行狀態(tài)下直接覆蓋或刪除舊的BPL文件這會(huì)導(dǎo)致安裝進(jìn)度走到一半時(shí)IDE失去響應(yīng)。第二件事把RAR包解壓到純英文無(wú)空格目錄。我通常放在類(lèi)似D:\Components\Ehlib111015\的位置。不要解壓到桌面也不要放中文路徑Ehlib源碼編譯時(shí)對(duì)路徑里的中文支持不算好一旦報(bào)“無(wú)法定位文件”這類(lèi)錯(cuò)誤排查起來(lái)非常消耗時(shí)間。保證整個(gè)目錄結(jié)構(gòu)干凈后續(xù)編譯遇到問(wèn)題更容易定位是路徑問(wèn)題還是源碼問(wèn)題。第三件事解壓后先讀包內(nèi)的說(shuō)明文檔確認(rèn)兩個(gè)信息一是這個(gè)包是否明確支持Delphi 12.3二是包里有沒(méi)有預(yù)編譯的BPL、DCP文件還是只有源碼。如果說(shuō)明文檔缺失直接打開(kāi)包內(nèi)目錄看是否存在類(lèi)似EhlibD12.dpk、EhlibD10.dpk這類(lèi)帶版本后綴的DPK文件。有對(duì)應(yīng)版本后綴的DPK說(shuō)明這個(gè)包確實(shí)適配了該IDE版本只有通用名稱(chēng)沒(méi)有版本后綴就要按源碼編譯并注意路徑匹配。這一步可以提前過(guò)濾掉把舊Ehlib改名冒充新包的情況避免無(wú)效安裝。3.2 在IDE里編譯運(yùn)行包并安裝設(shè)計(jì)包詳細(xì)操作與命令Ehlib常規(guī)安裝分兩步先編譯運(yùn)行時(shí)包再安裝設(shè)計(jì)時(shí)包。運(yùn)行時(shí)包是核心代碼發(fā)布時(shí)也要分發(fā)設(shè)計(jì)時(shí)包只存在于IDE環(huán)境作用是讓控件出現(xiàn)在面板上。包類(lèi)型文件后綴職責(zé)發(fā)布程序時(shí)運(yùn)行時(shí)包.bpl /.dcp提供核心單元實(shí)現(xiàn)程序運(yùn)行依賴(lài)需要隨exe一起分發(fā)設(shè)計(jì)時(shí)包.bpl在IDE中注冊(cè)組件面板不需要分發(fā)到客戶機(jī)第一步啟動(dòng)Delphi 12.3用File Open打開(kāi)包內(nèi)對(duì)應(yīng)版本的DPK工程文件例如EhlibD12.dpk。操作說(shuō)明如下// 步驟1在Project Manager中右鍵EhlibD12工程節(jié)點(diǎn) // 先選擇Build等編譯日志輸出成功信息 // 步驟2Build成功后再次右鍵同一個(gè)節(jié)點(diǎn)選擇Install // 步驟3如果IDE提示Package xxx already installed // 先在Component Install Packages里找到舊包并Remove // 再重新執(zhí)行Install邏輯說(shuō)明Build負(fù)責(zé)把源碼編譯成DCU和BPLInstall負(fù)責(zé)把BPL注冊(cè)到IDE包列表注冊(cè)之后組件面板才出現(xiàn)Ehlib分類(lèi)。二者缺一不可只Build不Install代碼能編譯但面板無(wú)控件只Install不BuildIDE會(huì)提示包文件不存在。步驟3是給升級(jí)場(chǎng)景用的舊包不先移除會(huì)出現(xiàn)同名包重復(fù)注冊(cè)輕則面板控件重復(fù)重則IDE啟動(dòng)失敗。參數(shù)說(shuō)明Project Manager里還有Release和Debug兩種配置建議使用Release配置編譯保證發(fā)布時(shí)加載的是同一套編譯產(chǎn)物。編譯過(guò)程中如果IDE報(bào)找不到某些單元文件打開(kāi)Tools Options IDE Library在庫(kù)搜索路徑里添加Ehlib源碼目錄及其Common子目錄然后重新Build。備用命令行方式編譯msbuild EhlibD12.dproj /t:Build /p:ConfigRelease /p:PlatformWin32 /maxcpucount:4邏輯說(shuō)明msbuild是編譯Delphi工程文件的標(biāo)準(zhǔn)命令/t:Build指定構(gòu)建目標(biāo)/p:ConfigRelease指定使用Release配置/p:PlatformWin32指定目標(biāo)平臺(tái)為32位/maxcpucount:4是并行編譯參數(shù)多核機(jī)器上能明顯提速。如果你的發(fā)布目標(biāo)是64位還需要再執(zhí)行一次PlatformWin64兩次編譯會(huì)生成不同架構(gòu)的BPL。設(shè)計(jì)期IDE加載32位BPL運(yùn)行發(fā)布按客戶機(jī)架構(gòu)選擇對(duì)應(yīng)的BPL分發(fā)。編譯完成后Component Install Packages里應(yīng)該能看到Ehlib相關(guān)條目。組件面板會(huì)出現(xiàn)Ehlib分類(lèi)里面至少包含TDBGridEh、TDBEditEh、TDBComboBoxEh、TDBCheckBoxEh、TDBMemoEh、TDBDateTimePickerEh、TDBNumberEditEh、TDBSumList、TDBPrinter等控件。這里有一個(gè)值得注意的邊界如果包內(nèi)的DPK項(xiàng)目還帶了可選組件比如MemTableEh等安裝時(shí)注意不要一次性全裝上避免不需要的包拖慢IDE啟動(dòng)速度。3.3 安裝完的路徑登記與IDE重啟驗(yàn)證安裝完成只是第一步還要確保下次啟動(dòng)IDE時(shí)Ehlib能正常加載。打開(kāi)Component Install Packages對(duì)話框確認(rèn)對(duì)話框里該條目處于勾選狀態(tài)。然后把Ehlib編譯輸出BPL所在目錄加入系統(tǒng)PATH同時(shí)將該目錄加入IDE的庫(kù)搜索路徑。這樣做的原因是IDE啟動(dòng)時(shí)會(huì)按注冊(cè)的包路徑和BPL搜索路徑查找文件路徑不在查找范圍包就加載不上表現(xiàn)為“控件面板消失”。完成上述步驟后建議直接重啟一次IDE再新建一個(gè)VCL工程確認(rèn)面板上Ehlib分類(lèi)存在。我習(xí)慣順手拖一個(gè)TDBGridEh到窗體上如果能正常放下來(lái)說(shuō)明設(shè)計(jì)時(shí)包也已生效。這一步花不了兩分鐘但能把很多后續(xù)問(wèn)題前置擋掉比等到項(xiàng)目構(gòu)建時(shí)才暴露要?jiǎng)澦愕枚唷?. 裝完怎么用Ehlib 111015高頻組件的最小配置4.1 TDBGridEh最小可用配置TDBGridEh是Ehlib里使用頻率最高的組件配置從拖到窗體上開(kāi)始按這四步走連接DataSource在列編輯器里配置字段列設(shè)置列寬和標(biāo)題按需求打開(kāi)OptionsEh。不要把網(wǎng)格的DataSource長(zhǎng)期懸空否則很多屬性設(shè)置無(wú)效果界面設(shè)計(jì)期也看不出差異。// 最小配置網(wǎng)格已拖放到Form數(shù)據(jù)源組件為DataSource1 DBGridEh1.DataSource : DataSource1; // 允許自動(dòng)調(diào)整行高以便完整顯示多行文本 DBGridEh1.OptionsEh : DBGridEh1.OptionsEh [dghAutoFitRowHeight]; // 雙擊列頭自動(dòng)優(yōu)化列寬 DBGridEh1.OptionsEh : DBGridEh1.OptionsEh [dghDblClickOptimizeColWidth]; // 單元格合并開(kāi)關(guān)相鄰行同列值相同時(shí)自動(dòng)合并顯示 DBGridEh1.OptionsEh : DBGridEh1.OptionsEh [dghMergeAdjacentCellsEh]; // 行指示器顯示當(dāng)前行圖標(biāo) DBGridEh1.IndicatorOptions : [gioShowRowIndicatorEh];邏輯說(shuō)明OptionsEh是集合屬性用“[選項(xiàng)]”往集合里追加不要整體賦值成只含一個(gè)選項(xiàng)否則會(huì)丟失默認(rèn)行為。dghMergeAdjacentCellsEh啟用的是顯示層合并數(shù)據(jù)源中的行數(shù)不變排序和統(tǒng)計(jì)依然按原行處理。參數(shù)說(shuō)明dghAutoFitRowHeight控制行高自適應(yīng)內(nèi)容適合備注、地址這類(lèi)長(zhǎng)文本字段如果列表里沒(méi)有長(zhǎng)文本這個(gè)選項(xiàng)可以不加省去繪制開(kāi)銷(xiāo)。dghDblClickOptimizeColWidth會(huì)在用戶雙擊列頭時(shí)按內(nèi)容最大寬度自動(dòng)調(diào)整列寬體驗(yàn)上接近Excel列寬自適應(yīng)。IndicatorOptions里gioShowRowIndicatorEh會(huì)顯示當(dāng)前行左側(cè)的指示圖標(biāo)編輯、插入、刪除狀態(tài)都有不同圖形多行編輯界面更好用。OptionsEh選項(xiàng)作用適用場(chǎng)景dghAutoFitRowHeight行高自適應(yīng)內(nèi)容自動(dòng)換行顯示備注、長(zhǎng)文本字段dghMergeAdjacentCellsEh相鄰行同值單元格自動(dòng)合并報(bào)表、分組統(tǒng)計(jì)列表dghDblClickOptimizeColWidth雙擊列頭自動(dòng)最適配列寬常規(guī)管理類(lèi)列表4.2 用TDBSumList做底部統(tǒng)計(jì)行統(tǒng)計(jì)行是進(jìn)銷(xiāo)存界面里最常用的一類(lèi)功能。配置分為三步放一個(gè)TDBSumList把TDBSumList的DataSource指向與網(wǎng)格相同的DataSource在網(wǎng)格的FooterRowCount設(shè)為1并在列編輯器的Footer屬性里指定統(tǒng)計(jì)類(lèi)型和字段。DBGridEh1.FooterRowCount : 1; SumListEh1.DataSource : DataSource1; SumListEh1.VirtualMode : False; // 在列編輯器中設(shè)置Footer屬性 // 選中某列Footer.ValueType : fvtSum; // Footer.FieldName : TotalAmount; // 數(shù)據(jù)改變后刷新統(tǒng)計(jì) SumListEh1.Refresh;邏輯說(shuō)明TDBSumList不是重新查詢數(shù)據(jù)集它動(dòng)態(tài)監(jiān)聽(tīng)數(shù)據(jù)集的記錄變化在滾動(dòng)、編輯、增刪行時(shí)增量更新統(tǒng)計(jì)值所以當(dāng)數(shù)據(jù)有變化時(shí)網(wǎng)格能即時(shí)反映。VirtualMode設(shè)為False時(shí)由SumList自動(dòng)統(tǒng)計(jì)指定字段設(shè)為T(mén)rue時(shí)則需要自己處理OnSumListRefresh事件按需填充每列數(shù)值適合統(tǒng)計(jì)口徑復(fù)雜的界面。參數(shù)說(shuō)明fvtSum是合計(jì)fvtAvg是平均值fvtCount是計(jì)數(shù)fvtMax和fvtMin分別是最大值和最小值。每種類(lèi)型都要求Footer.FieldName指向有效的數(shù)值字段或可比較字段否則統(tǒng)計(jì)行顯示為空或0。數(shù)據(jù)集處于過(guò)濾狀態(tài)或使用了分組時(shí)務(wù)必在數(shù)據(jù)集事件里調(diào)用一次SumListEh1.Refresh否則統(tǒng)計(jì)數(shù)據(jù)會(huì)和界面顯示不一致這個(gè)坑很容易被誤判成“統(tǒng)計(jì)組件壞了”。4.3 一鍵導(dǎo)出Excel和打印預(yù)覽客戶要求“把列表導(dǎo)成Excel”適合用Ehlib自帶的導(dǎo)出方法好處是不依賴(lài)客戶機(jī)安裝Office在終端機(jī)上只需有可執(zhí)行程序即可。最小調(diào)用代碼// 導(dǎo)出到xls格式文件 DBGridEh1.SaveToXLS(D:\Report\order_list.xls); // 保留列寬信息的導(dǎo)出 DBGridEh1.SaveToXLS(D:\Report\order_list_width.xls, True); // 調(diào)起內(nèi)置打印預(yù)覽 DBGridEh1.PrintPreview;邏輯說(shuō)明SaveToXLS的底層是生成Excel可打開(kāi)的HTML文件因此文件后綴和編碼要注意。第一行代碼用默認(rèn)參數(shù)導(dǎo)出文件體積小但單元格列寬按內(nèi)容默認(rèn)分配第二行傳入True后導(dǎo)出會(huì)盡量按網(wǎng)格列寬信息生成表格更接近界面效果。PrintPreview調(diào)用Ehlib自己的預(yù)覽窗體用戶可以縮放比例、調(diào)整邊距、跳頁(yè)后再走打印機(jī)輸出。參數(shù)說(shuō)明SaveToXLS的第二個(gè)參數(shù)是布爾類(lèi)型表示是否按列寬格式化輸出。PrintPreview沒(méi)有必填參數(shù)但預(yù)覽窗體的行為受全局打印設(shè)置影響例如打印機(jī)名稱(chēng)、紙張方向需要提前通過(guò)Printer組件設(shè)置。如果客戶需要導(dǎo)出后數(shù)據(jù)還能繼續(xù)編輯建議用SaveToXLS導(dǎo)出而不是另存為CSVCSV對(duì)類(lèi)型和列寬保留更差中文編碼也容易出問(wèn)題。導(dǎo)出格式調(diào)用方法特點(diǎn)XLSSaveToXLSExcel可直接打開(kāi)支持列寬保留RTFSaveToRTF適合Word進(jìn)一步排版HTMLSaveToHTML適合網(wǎng)頁(yè)展示和跨平臺(tái)查看TXTSaveToTXT純文本帶分隔符兼容性最強(qiáng)5. Ehlib 111015安裝與使用避坑記錄現(xiàn)象、原因、解決5.1 重啟IDE后控件面板消失現(xiàn)象安裝時(shí)IDE提示包安裝成功組件面板也看到了Ehlib分類(lèi)但重啟IDE后分類(lèi)消失新建窗體時(shí)找不到TDBGridEh等控件。原因最常見(jiàn)是BPL文件所在目錄沒(méi)有被IDE持久記錄IDE重啟后按注冊(cè)信息掃描不到該目錄下的BPL。殺毒軟件在IDE退出后隔離BPL文件也不算少見(jiàn)。另一個(gè)常見(jiàn)原因是解壓后的Ehlib目錄被移動(dòng)了注冊(cè)表里記錄的舊路徑已經(jīng)失效。解決先打開(kāi)Component Install Packages檢查包是否還在列表中。如果包在但面板沒(méi)有控件把BPL所在目錄加入系統(tǒng)PATH并加入IDE的庫(kù)搜索路徑然后重啟IDE。如果包不在列表中重新打開(kāi)DPK再Build并Install一次并把BPL輸出目錄固定到一個(gè)穩(wěn)定位置避免之后再移動(dòng)目錄。5.2 編譯工程時(shí)報(bào)找不到Unit或版本不匹配現(xiàn)象編譯工程時(shí)報(bào)“Unit xxx not found”或者提示DCU版本與當(dāng)前編譯器不一致。原因IDE庫(kù)搜索路徑中殘留舊版Ehlib目錄編譯器優(yōu)先匹配了舊DCU或者包本身不是為當(dāng)前IDE版本編譯的。很多情況下機(jī)器上裝過(guò)多個(gè)Delphi版本或者裝過(guò)不同來(lái)源的Ehlib包庫(kù)搜索路徑里同時(shí)存在多個(gè)Ehlib版本目錄。解決打開(kāi)Tools Options IDE Library在庫(kù)搜索路徑中刪除所有舊Ehlib目錄只保留當(dāng)前111015對(duì)應(yīng)的源碼目錄并清理工程目錄下的DCU緩存文件。然后在Project Manager里對(duì)目標(biāo)工程執(zhí)行一次Clean再重新Build。這一步Clean經(jīng)常被忽略但舊DCU不清除編譯結(jié)果受庫(kù)路徑改動(dòng)影響很小問(wèn)題會(huì)反復(fù)出現(xiàn)。提示工程級(jí)Clean一定要做只改庫(kù)搜索路徑不清理DCU編譯器可能直接命中舊緩存文件排錯(cuò)白費(fèi)力氣。5.3 導(dǎo)出Excel或打印預(yù)覽時(shí)中文亂碼現(xiàn)象網(wǎng)格內(nèi)顯示完全正常導(dǎo)出XLS后用Excel打開(kāi)中文變問(wèn)號(hào)打印預(yù)覽時(shí)中文變成方框。原因?qū)С鯴LS時(shí)默認(rèn)按本地代碼頁(yè)生成如果客戶機(jī)的系統(tǒng)區(qū)域設(shè)置不同或者代碼頁(yè)不匹配就會(huì)亂碼。打印預(yù)覽亂碼則常與字體映射有關(guān)Ehlib預(yù)覽界面默認(rèn)調(diào)用的字體缺少對(duì)應(yīng)中文字形時(shí)字符繪制成方框。解決先確認(rèn)客戶機(jī)系統(tǒng)區(qū)域設(shè)置簡(jiǎn)體中文環(huán)境下保持ANSI或GBK即可如果需要跨語(yǔ)言分發(fā)導(dǎo)出后對(duì)文件做編碼轉(zhuǎn)換把文本內(nèi)容轉(zhuǎn)成UTF-8新版Excel也能識(shí)別。打印亂碼的處理是把網(wǎng)格和預(yù)覽窗體的默認(rèn)字體統(tǒng)一設(shè)置成中文字體比如宋體或微軟雅黑然后在Ehlib打印設(shè)置里指定該字體一般即可解決。5.4 安裝包過(guò)程IDE崩潰或無(wú)響應(yīng)現(xiàn)象在IDE里打開(kāi)DPK執(zhí)行Build時(shí)IDE直接退出或長(zhǎng)時(shí)間無(wú)響應(yīng)。原因常見(jiàn)原因包括Ehlib源碼目錄處于只讀狀態(tài)編譯輸出文件無(wú)法寫(xiě)入殺毒軟件實(shí)時(shí)掃描IDE編譯過(guò)程也有極端情況下是內(nèi)存不足多核并行編譯占滿資源導(dǎo)致IDE失去響應(yīng)。解決先把Ehlib整個(gè)目錄去掉只讀屬性再以管理員身份運(yùn)行IDE暫時(shí)關(guān)閉殺毒軟件對(duì)該目錄和IDE臨時(shí)目錄的實(shí)時(shí)掃描。如果IDE內(nèi)操作繼續(xù)崩潰退到命令行方式編譯用msbuild完成后再回到IDE安裝BPL。命令行編譯隔離了IDE交互崩潰面更小也更容易定位錯(cuò)誤日志。5.5 高DPI顯示器下網(wǎng)格文字模糊現(xiàn)象在4K屏或150%縮放下Ehlib網(wǎng)格文字顯示發(fā)虛單元格和列頭邊緣不清晰。原因Ehlib部分繪制邏輯未遵循新版IDE的高DPI縮放機(jī)制系統(tǒng)對(duì)窗體做了位圖拉伸拉伸后再顯示導(dǎo)致文字邊緣模糊。解決在工程文件里開(kāi)啟高DPI支持并在窗體創(chuàng)建后做一次網(wǎng)格刷新。推薦在DPR工程文件開(kāi)頭設(shè)置Application.HighDPIAware : True;再用以下代碼在窗體顯示后刷新網(wǎng)格procedure TForm1.FormShow(Sender: TObject); begin DBGridEh1.Refresh; end;邏輯說(shuō)明開(kāi)啟HighDPIAware后系統(tǒng)不再對(duì)窗體做整體位圖拉伸文字按實(shí)際DPI重新布局邊緣會(huì)清晰很多。刷新網(wǎng)格是為了讓列寬重新計(jì)算。參數(shù)說(shuō)明如果項(xiàng)目同時(shí)啟用PerMonitorV2模式不同顯示器DPI不一致時(shí)需要在窗口移動(dòng)跨屏?xí)r額外處理最好在窗體的ScalingChanged事件里再次調(diào)用網(wǎng)格Refresh避免跨屏后文字變形。6. 用十個(gè)檢查點(diǎn)驗(yàn)證Ehlib 111015安裝結(jié)果主動(dòng)收尾安裝完成后先別急著進(jìn)入業(yè)務(wù)代碼花十分鐘跑一個(gè)最小驗(yàn)證工程比后面出了問(wèn)題再回頭排查省時(shí)間得多。新建一個(gè)VCL工程擺一個(gè)TDBGridEh、一個(gè)TDBSumList、一個(gè)TButton、一個(gè)TDataSource連上測(cè)試數(shù)據(jù)集按下面的檢查點(diǎn)逐一過(guò)檢查點(diǎn)操作預(yù)期結(jié)果1查看組件面板Ehlib分類(lèi)圖標(biāo)完整無(wú)紅色嘆號(hào)2網(wǎng)格連接數(shù)據(jù)源并顯示數(shù)據(jù)正常顯示列可拖寬3點(diǎn)擊列標(biāo)題排序排序箭頭變化排序生效4右鍵網(wǎng)格排序、過(guò)濾、導(dǎo)出菜單可用5設(shè)置FooterRowCount1并綁定SumList統(tǒng)計(jì)行顯示正確數(shù)字6調(diào)用SaveToXLS導(dǎo)出文件生成Excel打開(kāi)中文正常7調(diào)用PrintPreview預(yù)覽窗體打開(kāi)翻頁(yè)縮放正常8高DPI縮放窗體文字不模糊、列寬對(duì)齊9Release模式編譯整個(gè)工程編譯無(wú)警告10復(fù)制EXE和BPL到無(wú)IDE機(jī)器運(yùn)行正常功能完整這十個(gè)檢查點(diǎn)里第5、6、7是Ehlib區(qū)別于原生網(wǎng)格的核心價(jià)值點(diǎn)只要有一個(gè)不過(guò)說(shuō)明安裝或環(huán)境配置有問(wèn)題回到第5章找對(duì)應(yīng)條目不要靠重裝碰運(yùn)氣。我個(gè)人的教訓(xùn)是換Delphi大版本或換電腦后一定要把這張檢查單從頭跑一遍。以前我從舊版本環(huán)境切到Delphi 12.3時(shí)因?yàn)橥祽袥](méi)有重新編譯Ehlib包統(tǒng)計(jì)行在某種數(shù)據(jù)分布下算出明顯錯(cuò)誤數(shù)字查了一下午才定位到是舊DCU混用。那次之后每次裝完控件我都按這套檢查單驗(yàn)證包括BPL文件是否完整、導(dǎo)出文件在客戶環(huán)境下能否打開(kāi)、高DPI下是否正常。一個(gè)好的控件方案不是裝上就行而是要確認(rèn)它在你的目標(biāo)環(huán)境里真正可用。希望幫到你。本文還有配套的精品資源點(diǎn)擊獲取