本系統主要是基于VB、ACCeSS、Word及Excel等技術開發的動態地磅證書及附件統一打印系統。 該系統具備錄人、查詢、打印、提醒等功能。在規范化管理的同時，提髙工作效率。

0.引言

自2006年我院在全省開展動態公路車輛自動 衡器檢定以來，我們不斷提出更高、更新的要求來 保證各收費站計重收費的順利開展。加強信息化 服務，規范動態地磅的管理是我們的一貫目標。 如何對證書進行標準化、有效化管理，使其達到一 體式程序化，已成為工作重點。本著保證工作質 量，提高工作效率的原則，我們制作了動態地磅證書統一打印系統。

Visual Basic是Mirosoft公司開發的基于面向對 象的一種語言，具有功能強大、操作簡單等特點，尤 其是與Mirosoft其它產品如Access、Word、Excel的 無縫連接，使它成為我們編程首選。

1.系統功能模塊

系統主要功能包括:動態地磅數據錄人及修 改;數據快速査詢及表格方式數據査詢結果輸出； 自動、一體化的證書正、附件打印；檢定到期提醒； 功能擴充。系統基本框架圖如圖1所示。

2.技術實現

本系統在Windows XP平臺上開發，利用VB編 程語言和Access數據庫管理技術進行編制。Win- dows XP及以上環境均可運行該程序。

2. 1權限管理

檢定員經授權后憑用戶名和密碼進入系統，并 有權處理本人錄入的數據，管理員權限則可進行任 意操作。采用權限管理有效加強了數據獨立性。

2.2基本信息錄入管理

采用菜單選擇模式,通過數據庫記憶功能自動 顯示數據。運用數據庫自動搜索技術,將數據顯示于 下拉菜單列表中,若無所需信息,則進行首次錄入。

通過選擇高速公路名稱，該公路所有已錄收費 站名稱及車道編號自動依次顯示于相應列表中。系 統根據該高速公路名稱及收費站名稱進行自動組合 式檢索，并將對應申請者地址及出廠編號一并顯示。 當選擇“生產廠家”，與該廠家信息相關的型號、儀器 名稱則自動顯示在對應菜單項中。部分代碼如下： rs. Open " select distinct 申請者地址 from tab jz where高速公路名稱=…& Combol. Text & and收費 站名稱=…& Combo2. Text & , cnn, adOpenKeyset, ad- LockOptimistic

If rs. RecordCount > 0 Then

Text2. Text = rs. Fields ("申請者地址")

‘按高速公路及收費站名稱查詢數據庫，定位 申請者地址

檢定日期方面，我們采用DTpicker控件模式 顯示日期，保持日期格式統一性。系統則根據其檢 定日期自動計算并顯示有效日期。代碼如下：

If Month ( DTPickerl. Value) > = 7 And Month(DTPickerl. Value) =8 And Day( DTPickerl. Value) =29 Or Month( DTPickerl. Value) = 8 And Day ( DT-Pickerl .Value) = 30 Or Month( DTPickerl. Value)= 8 And Day(DTPickerl. Value) =31 Then

DTPicker3. Value = DTPickerl. Year + 1 & 11 - 3 - 1"

Elself Month ( DTPickerl. Value ) > = 7 And Month ( DTPickerl. Value ) = 10 And Day (DTPickerl. Value) =31 Then

DTPicker3. Value = DTPickerl. Year + 1 & " - 5-1"

Elself Month ( DTPickerl. Value) > = 7 And Month ( DTPickerl. Value ) = 12 And Day (DTPickerl. Value) =31 Then

DTPicker3. Value = DTPickerl. Year + 1 & "- 7-1"

Elself Month( DTPickerl. Value) < 7 And Month (DTPickerl. Value) =3 And Day( DTPickerl. Value)= 31 Then

DTPicker3. Value = DTPickerl. Year & ” -10 -1" Elself Month( DTPickerl. Value) < 7 And Month (DTPickerl. Value) =5 And Day(DTPickerl. Value)= 31 Then

DTPicker3. Value = DTPickerl. Year & " - 12 - 1" Elself Month(DTPickerl. Value) < 7 Then DTPicker3. Value = DTPickerl. Year & " - " & DTPickerl. Month + 6 & M -" & DTPickerl. Day Else

DTPicker3. Value = DTPickerl. Year + 1 & ?-" & DTPickerl. Month - 6 & M -" & DTPickerl. Day ‘除特殊日期單獨設定外，其余按有效期六個 月計算 End If

DTPicker2. Value = DTPicker3 - 1，有效期為 六個月的前一天

采用選擇方式錄入基本信息，極大地避免了傳 統手工方式輸人文字的缺陷及人工計算的錯誤，大 大節約了工作時間。

3)數據結果錄人界面，我們采用OLE對象鏈接 與嵌人技術,將Word文檔嵌人到VB界面當中。把 預先準備好的Word文件模板嵌人其中將其格式固 化,錄人時只需填寫相應數據即可完成證書錄人。

2.3證書査詢及附件打印

通過對有效時間段內高速公路名稱進行基本 數據查詢，方便及時統計各檢定周期公路動態地磅數量及其它重要信息。檢索完畢，查詢結果 亦可導入Excel工作表中進行統計核算或其它用 途的管理。本査詢分為三部分:全部證書査詢、合 格證書查詢、結果通知書查詢。我們在“合格證書 査詢”中設計了雙擊表格中任意查詢到的記錄，系 統自動跳轉到與之編號對應的證書附件打印預覽 圖中，若“申請者名稱”超出單行顯示字符數,系統 則自動進行換行處理。單擊“打印”即可打印A3 紙張模式的證書附件。“結果通知書查詢”及“全 部查詢”中則不具備此項功能。此方法杜絕了對 不合格證書錯誤開具證書附件的情況。我們采用 VB編程中Print技術對證書預覽界面進行打印設 計，對記錄字體、字號及打印位置均做了詳細處 理。部分代碼如下：

Printer. PaperSize = vbPRPSA3 ’ 設置紙張大小 Printer. FontName ="仿宋—GB2312 "’設置字體 Printer. F'ontSize = 26 Printer. ScaleMode = vbmilimeters Printer. CurrentX = 3500 ： Printer. CurrentY = 6500 Printer. Print Textl ( 0) . Text ‘ 將指定記錄按相 應格式打印 2.42.4證書修改與打印

通過輸入證書編號對其相應內容進行修改。 證書的正本打印方面，亦通過輸人證書編號進 人相應檢定證書打印預覽頁面，預覽頁分為兩頁： 證書封面和證書數據結果頁。檢查無誤后即可打 印A4紙張模式的證書正本。

2.5到期提醒服務

作為動態地磅的計量檢定單位，我們根據JJG 907—2006要求對動態地磅每半年檢定一次。目 前,我省周期檢定臺件數近600臺，由于臺件數之多， 時間之短，務必要求我們做好到期檢定準備。如有次 月到期的動態地磅，系統會在提醒窗口中顯示。

3.系統的特點及意義

1）減少數據冗余,保證數據的準確性和統一性。

2）快捷、自由式的查詢方式及智能化的數據導 出功能，及時反饋信息，便于對全局的及時掌握及 有效化處理。

3）智能式錄人及證書正本、附件的一體化打印 增強了對動態地磅的規范化、程序化管理，實現 自動化。

4)本系統解決的問題

a.證書正本及附件編號的不一致性。考慮到 時間因素，由于證書正本與附件有時不能同時出 具,所以在證書編號上易產生同證異號的問題，采 用此系統一次性輸人證書正本與附件，杜絕了此類 問題的發生。

b.證書有效日期的不符合性及不統一性。在 手工計算有效日期的情況下，除輸入失誤和計算錯 誤外,還可能產生一些邏輯性錯誤，比如實際不存 在的日期，這些情況嚴重影響了工作質量。采用本 系統后，系統自動生成的有效日期不僅縮短了工作 時間，而且大大提高了準確度。

c.生產廠家的儀器名稱及型號的不匹配性。 由于證書量大，開具時間短，難免產生儀器名稱及 型號生產廠家不匹配等情況。本系統自動匹配功 能解決了此類問題。

d.采用合格證書與不合格證書的分類管理方式， 杜絕了以往誤將不合格證書開據證書附件的情況。

4.結束語

以上介紹了本院力學所動態地磅管理系統。 此系統根據我所實際環境開發，除在減少工作量、 提高準確度、信息及時反饋等方面產生顯著優勢 外，我們仍可對其進行更多功能性的擴充，比如電 子簽名、調修情況跟蹤等。