基于VB 6.0的檢測報告生成系統的設計與實現

林晉立

（廣東產品質量監督檢驗研究院，廣州 510330）

0 引言

在產品檢測機構中，出具檢測報告是檢驗員的日常工作。目前，檢驗員較多采用人工輸入的方式將信息錄入Word 文檔并出具檢測報告，報告內包含樣品名稱、規格型號、送檢單位、樣品圖片等數據庫信息，手動錄入這些信息效率低下，且錯誤率高。若能使其自動生成于Word 文檔的指定位置，輔助人工錄入的方式，將極大提高工作效率。Visual Basic 具有圖形用戶界面GUI 及大量內置控件，使用Basic 語言編程，通過ADO、DAO 與數據庫連接，無需復雜編程便可輕松高效地設計出應用程序［1］。

效率是產品檢測機構的立身之本，為提高檢驗員出具報告的速度與準確度，本文基于Visual Basic（VB）6.0 平臺設計了檢測報告自動生成系統。

1 設計原理與方案選擇

在檢測報告中實現數據的自動錄入需要用到編程軟件，VB6.0 可便捷地連接Word、Excel等Office 辦公套件并實現數據的導入與導出［2-3］。因此，可供考慮的檢測報告自動生成方式有以下三種：①Excel表格數據直接寫入；②VB讀取Excel 數據寫入Word；③VB 讀取Access 數據庫寫入Word。

1.1 Excel表格數據直接寫入

Excel 表格數據直接寫入的方式是指：把存在于Excel 工作表1 中的數據作為數據庫，Excel工作表2 作為需要生成的檢測報告模板，使用VLOOKUP、MATCH 等查詢檢索函數便捷地將表1 所需數據寫入表2 特定位置。這樣只需在表2 中確定檢索條件，就能調取表1 數據，生成相應的檢測報告。

采用直接寫入的方式需要對Excel 表2 的行高、列寬進行處理，使表2 模板格式與Word 相同，移植模板的步驟較為繁瑣，適用于使用少量模板的情況。對檢測工作實際而言，不同的檢測樣品所使用的報告模板均不相同，在Excel中處理起來十分復雜，因此不適合使用這種方式。

1.2 VB讀取Excel數據寫入Word文檔

VB 讀取Excel 數據寫入Word 文檔的方式是利用VB 軟件平臺分別與Excel 和Word 建立連接，先從Excel 中讀取所需數據并顯示于軟件界面，再將這些數據保存到Word 文檔的指定位置，信息傳遞路徑為：Excel-VB-Word。

VB 可以通過引用對象庫的方式調用Excel和Word進行讀寫操作，對于不同的Word檢測報告模板，只需在程序中加載不同的模板路徑即可，操作便利。但由于Excel 涉及到工作簿、工作表和單元格等屬性，在VB中編程較為復雜。

1.3 VB讀取Access數據庫寫入Word文檔

VB 讀取Access 數據庫寫入Word 文檔的方式與調用Excel 類似，利用Access-VB-Word 的信息傳遞，將Access 數據庫中相應數據通過VB保存到Word 文檔的指定位置。Access 可根據表中的主鍵進行搜尋，配合其余字段即可獲取數據庫的全體數據，在VB中編程較為簡單。

對比上述三種方案，結合檢測報告出具實際，選擇第三種方案，即通過VB 讀取Access 數據庫寫入Word文檔的報告自動生成方式。

2 軟件代碼與界面設計

本文以排煙防火閥門檢測樣品為實例，詳細說明檢測報告自動生成系統的軟件代碼與界面設計。建立防火閥門樣品數據庫，如圖1 所示，檢測報告模板如圖2（a）所示。

圖1 樣品數據庫示例圖

圖2 檢測報告示例圖

由圖1 與圖2（a）可知，數據庫中形如檢測單號、樣品名稱、規格型號等信息均為檢測報告中需要錄入的數據。

2.1 VB讀取Access數據庫代碼

在VB 6.0 中連接Access 數據庫，需要在菜單欄的“工程→引用”中添加Microsoft ActiveX Data Objects 6.1 Library，即Microsoft ActiveX 數據對象庫6.1版本，也稱為ADO庫，版本號跟隨操作系統。

連接Access 數據庫并調用數據的VB 代碼如下：

在上述代碼中，“+App.Path+”表示相對路徑，“+App.Path+‘檢測樣品數據庫.accdb’”表示將檢測樣品數據庫文件與執行軟件放在同一文件夾內，可使執行軟件連接并讀取數據庫。

2.2 VB寫入Word文檔代碼

與連接Access 相同，VB6.0 連接Word 文檔，需要在菜單欄的“工程→引用”中添加Micro?soft Word 15.0 Object Library，即Microsoft Word 15.0 對象庫，版本號跟隨操作系統。此外，向Word 文檔寫入數據前，需要確定數據顯示的位置，可在Word 菜單欄的“插入→書簽”中添加書簽并設置書簽名來實現。由圖2（a）模板示例可知，出具此份檢測報告需要輸入的信息有：檢測單號、產品名稱、型號規格、生產企業、檢測性質、隨機號、檢測數據和樣品圖片，多數信息已通過2.1 節的代碼顯示在TextBox 控件中，將這些信息寫入檢測報告模板并保存的代碼如下：

上述代碼中，P1～P8 是在Word 文檔內設置的書簽名，分別對應需要寫入的數據Text1.Text～Text8.Text。數據自動跟隨報告模板中的原有格式，無需通過編程設置。除了使用“.ActiveDocument.Bookmarks（‘書簽名’）.Range.Text=Text1.Text”語句向書簽寫入數據外，還可以在菜單欄的“開發工具→舊式工具”中添加文本域窗體控件，該控件和書簽一樣起到定位的作用，向文本域控件寫入數據的代碼為“.ActiveDocument.FormFields（‘文本域名’）.Result=Text1.Text”。利用此方式寫入的每個數據都是單獨的整體，導出后可以修改數據格式，但無法逐字編輯。

在Word 書簽位置插入圖片的方法與寫入數據略有不同，還需對圖片大小進行設置，具體代碼如下：

圖片的尺寸可在控件Text10 和Text11 中自行設定，“Path”為圖片路徑，可使用Common?Dialog 控件將其具體路徑加載至控件Text9 中，代碼如下：

將數據庫文件、檢測報告Word 模板與VB工程放在同一文件夾下，在VB6.0 窗體中添加CommandButton、TextBox 和CommonDialog 控件，并在相應的CommandButton 控件中編寫上述代碼，運行程序便能獲得數據自動生成的檢測報告，如圖2（b）所示。軟件的代碼編寫與操作流程實例詳見：https://list.youku.com/albumlist/show/id_68855948。

2.3 界面設計

除了編寫程序代碼，設計軟件界面也十分重要。根據防火閥門檢測報告中的相關信息，設計軟件界面如圖3所示。

圖3 檢測報告生成系統界面圖

“查詢”按鈕下的程序代碼為2.1 節中連接Access 數據庫并讀取數據的VB 代碼，輸入檢測單號并點擊“查詢”按鈕，樣品信息逐一顯示在相應位置；點擊“打開”按鈕彈出對話框，選中需要載入的圖片，TextBox 中出現圖片的具體路徑；輸入檢測數據，設置圖片的寬度和高度，點擊“生成報告”按鈕，執行2.2 節中VB寫入Word 文檔的代碼，將數據和圖片寫入新建的檢測報告模板中；點擊“報告另存為”按鈕，可自行設置報告的文件名及存儲路徑；記事板提供存儲功能，在其中編輯信息并點擊保存按鈕后關閉軟件，待下次啟動時，信息仍將顯示在記事板中。

3 報告生成系統的測試與分析

檢測報告自動生成系統經過調試，能夠穩定運行并生成報告。安排六位檢驗員分別使用此系統出具一份相同的檢測報告，并對其出具報告的時間進行測試與分析。在六位檢驗員中，甲、乙、丙為熟手，對報告出具流程十分熟悉；檢驗員丁、戊、己為生手，未曾出具該樣品的檢測報告，測試數據如表1所示。表中，T1為人工錄入用時；T2為系統操作用時。

表1 6位檢驗員出具報告用時測試

由表1數據可知，使用人工錄入方式出具一份相同的報告，熟手所用的平均時間比生手快7.0 min；使用自動生成系統出具檢測報告，熟手與生手用時相差不大；自動生成系統為生手檢驗員提供了更大的便利。

六位檢驗員使用人工錄入方式出具一份報告的平均時間為13.4 min，使用系統操作的時間為5.7 min，效率比約為3∶7；采用檢測報告生成系統出具報告的效率比采用人工錄入方式高約135%。

4 結語

本文基于VB 6.0 編程軟件設計了檢測報告的自動生成系統，對系統代碼的編寫與界面設計作了詳細介紹。系統通過VB 調用Access 數據庫信息，并將數據和圖片保存到Word 文檔中，以Access-VB-Word 的數據傳遞方式自動生成檢測報告。對六位檢驗員出具報告的時間進行測試，結果顯示采用自動生成系統出具報告的效率相比人工錄入方式高約135%，系統準確、高效，具有一定的應用價值。除了出具檢測報告外，在日常辦公中處理具有固定模板的Word 文檔，均可通過Access-VB-Word 方式快速插入數據與圖片，根據不同的模板與內容設計代碼和界面即可。