潘旭輝

摘 要：為了解決部分縣級計量所以Word郵件合并功能批量打印證書后產(chǎn)生的數(shù)據(jù)統(tǒng)計問題，文章利用VB.NET程序語言設(shè)計了一種軟件工具，可以把大量的Excel文件進(jìn)行合并后導(dǎo)入數(shù)據(jù)庫，實現(xiàn)計量檢定數(shù)據(jù)的快速查詢和統(tǒng)計，有利于縣級計量所當(dāng)前面臨任務(wù)重、經(jīng)費少和人力資源不足的現(xiàn)狀下提高數(shù)據(jù)統(tǒng)計的工作效率和節(jié)約人力資源。

關(guān)鍵詞：計量 Excel合并 數(shù)據(jù)統(tǒng)計 VB.NET

中圖分類號：TP311.52 文獻(xiàn)標(biāo)識碼：A 文章編號：1674-098X（2016）03（c）-0085-02

1 設(shè)計背景

縣級計量測試所承擔(dān)著本地區(qū)量值傳遞、保障計量單位的統(tǒng)一和量值準(zhǔn)確可靠，執(zhí)行強(qiáng)制檢定和法律規(guī)定的其他檢定、測試任務(wù)，為計量行政部門依法實施計量監(jiān)督，提供技術(shù)保證，是國家計量體系重要的支點。在支持經(jīng)濟(jì)社會發(fā)展的過程中，發(fā)揮了越來越重要的作用，同時也表現(xiàn)出自身的一些不足：檢定人員少，人力資源不足；科技研發(fā)能力弱；計量器具檢定任務(wù)重；財政經(jīng)費有限。很多縣級計量測試所沒有能力去開發(fā)計量管理軟件系統(tǒng)，同時也沒有能力去購買一套價格不菲的計量管理軟件并承擔(dān)軟件后續(xù)的升級支持費用。證書打印還只能依靠Word的郵件合并功能進(jìn)行批量打印，給后續(xù)的數(shù)據(jù)統(tǒng)計帶來很大的問題。人工的方式進(jìn)行統(tǒng)計，不僅耗時耗力，結(jié)果還不準(zhǔn)確。設(shè)計一種計量數(shù)據(jù)統(tǒng)計工具，對于提高縣級所的數(shù)據(jù)統(tǒng)計能力、節(jié)約人力資源有著非常大的意義。

2 設(shè)計方法

首先要對利用Word的郵件合并功能批量打印證書的程序進(jìn)行了解。Word郵件合并方式批量打印證書的步驟一般是先建立Excel表格，將檢定證書所需的信息以二維表格的形式輸入；然后創(chuàng)建一個新的Word，設(shè)計證書的版面，切換到郵件合并選項，選擇建立的Excel文件，將文件中的要素插到Word指定的位置，完成合并后，Word中就會呈現(xiàn)證書內(nèi)容；最后開始批量打印。建立的Excel表格就是該設(shè)計要針對的目標(biāo)數(shù)據(jù)。對一個縣級所，一年可能有上千或數(shù)千個Excel表格數(shù)據(jù)。

設(shè)計的第一步是建立數(shù)據(jù)庫，文章的設(shè)計思路是把批量的Excel數(shù)據(jù)表合并為一個表，再導(dǎo)入數(shù)據(jù)庫，完成數(shù)據(jù)庫的建立。第二步是在建好數(shù)據(jù)庫的基礎(chǔ)上，設(shè)計查詢功能，使用者可以以檢定證書各要素為選項進(jìn)行搜索，呈現(xiàn)搜索后的數(shù)據(jù)，同時自動統(tǒng)計縣級所經(jīng)常需要的服務(wù)企業(yè)的數(shù)量和檢定的計量器具的數(shù)量。

設(shè)計的軟件工具選擇為VB.NET，它是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言，可以方便地對Excel和數(shù)據(jù)庫進(jìn)行操作。集成開發(fā)環(huán)境為Visual Studio 2010。

3 設(shè)計實現(xiàn)

3.1 建立數(shù)據(jù)庫

此步驟依次由選擇合并文件夾、合并Excel表格、整理合并后表格、連接數(shù)據(jù)庫、執(zhí)行復(fù)制操作、更新數(shù)據(jù)庫組成。

3.1.1 選擇合并文件夾

類庫中的FolderBrowserDialog類提供了一種方法，它提示用戶瀏覽并最終選擇一個文件夾。利用它的SelectedPath方法獲取用戶選擇的文件夾的路徑。

使用類庫中的Directoryinfo類，此類主要用于創(chuàng)建、移動和枚舉目錄和子目錄。利用它的GetFiles方法獲取選擇的文件夾下的Excel文件名稱。

3.1.2 合并Excel文件

從獲取的第一個Excel文件開始，一直到最后一個Excel文件依次執(zhí)行下列程序。

（1）打開文件，獲取文件焦點，確定該文件的數(shù)據(jù)總行數(shù)。默認(rèn)連續(xù)3行C列（列名：送檢單位）出現(xiàn)空值為數(shù)據(jù)行結(jié)束信號。

（2）考慮Excel文件實際列數(shù)不超過16列，故默認(rèn)數(shù)據(jù)列數(shù)為16列，復(fù)制區(qū)域（A1：P總行數(shù)）內(nèi)數(shù)據(jù)，執(zhí)行復(fù)制操作。WorkSheet2.Range（"A1：P" & sum）.Copy（）

（3）新Excel文件打開，獲取焦點，執(zhí)行粘貼操作。

WorkSheet1.Range（"A" & sum1 & "：P" & sum + sum1）.PasteSpecial（）

（4）合并結(jié)束后，保存并顯示合并的文件數(shù)量，然后釋放資源。

3.1.3 檢查、調(diào)整合并后的Excel表格

打開合并后的文件，統(tǒng)一格式，排序去除各個文件原來的標(biāo)題行。

每個Excel文件都有相同的標(biāo)題行，合并后就會出現(xiàn)大量的標(biāo)題行，如果不去除，標(biāo)題行將作為數(shù)據(jù)存入數(shù)據(jù)庫。

3.1.4 連接數(shù)據(jù)庫

設(shè)置好ADO.NET的連接字符串和SQL查詢語句，連接數(shù)據(jù)庫并執(zhí)行ADO.NET對象DataAdapter的填充命令，在內(nèi)存中建立兩個虛表Table1和Table2，分別對應(yīng)Access數(shù)據(jù)庫中的表和合并后的Excel表格。

3.1.5 執(zhí)行復(fù)制操作

遍歷Tabel2，分別把Table2的每一項數(shù)據(jù)傳遞到Table1。

MyRow = MyTable1.NewRow（）

MyRow（"號"） = MyTable2.Rows（i）（"號"）

MyRow（"送檢單位"） = MyTable2.Rows（i）（"送檢單位"）

……………

3.1.6 更新數(shù)據(jù)庫

DataAdapter的Update命令更新Access數(shù)據(jù)庫，同時釋放占用的資源。

3.2 設(shè)計查詢功能

查詢功能分為兩個部分，可以查詢此次合并數(shù)據(jù)和歷史數(shù)據(jù)。查詢此次數(shù)據(jù)時，數(shù)據(jù)庫連接合并后的Excel文件，查詢歷史數(shù)據(jù)時，數(shù)據(jù)庫連接Access數(shù)據(jù)庫。以檢定證書的要素如證書號、送檢單位、計量器具名稱等為搜索項，可以設(shè)定搜索起始日期。

ComboBox控件適用于建議用戶選擇控件所列舉的選項，在該控件的下拉選項中輸入證書要素。TextBox控件用于輸入搜索內(nèi)容，MonthCalendar控件用于選擇起始日期。

用戶輸入搜索內(nèi)容，選定起始日期后，執(zhí)行搜索命令，搜索結(jié)果以證書號增序排列，同時顯示搜索結(jié)果信息，查詢結(jié)果如圖1所示。

4 結(jié)語

該文設(shè)計的這種軟件工具，可以高效地解決以Word的郵件合并功能批量打印證書后計量數(shù)據(jù)統(tǒng)計的問題。在當(dāng)下很多縣級計量所計量管理自動化水平不高，證書打印還停留在Word郵件合并方式，打印證書后存在計量數(shù)據(jù)統(tǒng)計問題的背景下，對縣級所提高數(shù)據(jù)統(tǒng)計能力，節(jié)約人力資源具有很大的意義。

參考文獻(xiàn)

[1] 魏崢，Visual Basic.NET程序設(shè)計教程[M].北京：清華大學(xué)出版社，2005.