本系統主要是基于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.結束語

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