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

0.引言

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

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

1.系統(tǒng)功能模塊

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

2.技術實現(xiàn)

本系統(tǒng)在Windows XP平臺上開發(fā)，利用VB編 程語言和Access數(shù)據(jù)庫管理技術進行編制。Win- dows XP及以上環(huán)境均可運行該程序。

2. 1權限管理

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

2.2基本信息錄入管理

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

通過選擇高速公路名稱，該公路所有已錄收費 站名稱及車道編號自動依次顯示于相應列表中。系 統(tǒng)根據(jù)該高速公路名稱及收費站名稱進行自動組合 式檢索，并將對應申請者地址及出廠編號一并顯示。 當選擇“生產廠家”，與該廠家信息相關的型號、儀器 名稱則自動顯示在對應菜單項中。部分代碼如下： 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 ("申請者地址")

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

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

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，有效期為 六個月的前一天

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

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

2.3證書査詢及附件打印

通過對有效時間段內高速公路名稱進行基本 數(shù)據(jù)查詢，方便及時統(tǒng)計各檢定周期公路動態(tài)地磅數(shù)量及其它重要信息。檢索完畢，查詢結果 亦可導入Excel工作表中進行統(tǒng)計核算或其它用 途的管理。本査詢分為三部分:全部證書査詢、合 格證書查詢、結果通知書查詢。我們在“合格證書 査詢”中設計了雙擊表格中任意查詢到的記錄，系 統(tǒng)自動跳轉到與之編號對應的證書附件打印預覽 圖中，若“申請者名稱”超出單行顯示字符數(shù),系統(tǒng) 則自動進行換行處理。單擊“打印”即可打印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證書修改與打印

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

2.5到期提醒服務

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

3.系統(tǒng)的特點及意義

1）減少數(shù)據(jù)冗余,保證數(shù)據(jù)的準確性和統(tǒng)一性。

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

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

4)本系統(tǒng)解決的問題

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

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

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

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

4.結束語

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