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

0.引言

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

Visual Basic是Mirosoft公司開(kāi)發(fā)的基于面向?qū)?/span> 象的一種語(yǔ)言，具有功能強(qiáng)大、操作簡(jiǎn)單等特點(diǎn)，尤 其是與Mirosoft其它產(chǎn)品如Access、Word、Excel的 無(wú)縫連接，使它成為我們編程首選。

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

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

2.技術(shù)實(shí)現(xiàn)

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

2. 1權(quán)限管理

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

2.2基本信息錄入管理

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

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

If rs. RecordCount > 0 Then

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

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

檢定日期方面，我們采用DTpicker控件模式 顯示日期，保持日期格式統(tǒng)一性。系統(tǒng)則根據(jù)其檢 定日期自動(dò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 ‘除特殊日期單獨(dú)設(shè)定外，其余按有效期六個(gè) 月計(jì)算 End If

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

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

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

2.3證書(shū)査詢及附件打印

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

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

通過(guò)輸入證書(shū)編號(hào)對(duì)其相應(yīng)內(nèi)容進(jìn)行修改。 證書(shū)的正本打印方面，亦通過(guò)輸人證書(shū)編號(hào)進(jìn) 人相應(yīng)檢定證書(shū)打印預(yù)覽頁(yè)面，預(yù)覽頁(yè)分為兩頁(yè)： 證書(shū)封面和證書(shū)數(shù)據(jù)結(jié)果頁(yè)。檢查無(wú)誤后即可打 印A4紙張模式的證書(shū)正本。

2.5到期提醒服務(wù)

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

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

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

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

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

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

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

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

c.生產(chǎn)廠家的儀器名稱及型號(hào)的不匹配性。 由于證書(shū)量大，開(kāi)具時(shí)間短，難免產(chǎn)生儀器名稱及 型號(hào)生產(chǎn)廠家不匹配等情況。本系統(tǒng)自動(dòng)匹配功 能解決了此類問(wèn)題。

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

4.結(jié)束語(yǔ)

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