以齊化集團汽車衡稱量系統為例，介紹了利用Visual Basic 6. 0高級可視化語言及Mic-iosoft Access2000數據庫實現微機控制下的大噸位車輛的精確測量，主要闡述了該系統的軟件編 制、操作及數據維護，對同類系統的完善和開發具有一定的借鑒意義。

我公司60噸汽車衡于1999年建成使用，設備 采用廂式臺面和數據采集儀 表UME1705表。為了適應公司計量管理的需要，微 機軟件稱量系統由公司自行編制，該系統經過試運 行和不斷升級，已經趨于成熟，完全滿足了計量的準 確性和數據安全性的要求。

本系統通過微機RS232(串行口）口與UME1705 數據采集儀表進行通訊，做到微機與儀表的同步顯 示，編程時從串口采集數據，然后進行數據處理。軟 件采用Visual Basic 6. 0(中文企業版)高級可視化語 言編寫，數據庫米用Miciosoft Access2000，界面主要 分為以下幾個部分。

1.稱量部分

稱量部分，如圖1所示。

車輛上稱前保證儀表預熱并歸零，當線路正常 時，在微機屏幕上以大字體顯示當前重量(0Kg)，車 上稱后動態顯示重量變化，一旦車輛停穩即可確認 重量，這一過程由通訊控件mscomm完成，波特率視 儀表情況一般設為9600，由窗體上的Timer控件循 環采集，一經確認Timer停止計時。

程序運行時，第一次上秤被認為是空車同一車 號第二次上秤被認為是重車。空車時只需輸入車 號，并放入當日空車的表格(Dtgrid)中，點擊其中某 一車號，可看到該車的歷史稱量記錄，便于核對車皮 的變化。重車時必須選擇品名、提貨單位，程序自動 計算出凈重，其中提貨單位是動態追加和自動匹配 的，只要打入前幾個字即可快速定位到此單位，大大 減輕了手工錄入的煩瑣和不準確性；同時為輸入車 號方便，把一些常用的車號字頭如“黑B”等做成按 鈕(Command),只要點擊即可錄入，待全部錄入完 畢，會在左側顯示一預覽表格，包括車號、皮重、凈 重、提貨單位、品名，之后選擇打印份數就可以打印 出計量單，此單上自動加入了打印時間，此時也可以 選擇0份數，留作以后補打。

程序自動判斷打印內容的高度，打印完畢立即 終止走紙。計量單標題與正文采用不同的字體字號 便于區分。

程序以Data數據控件來連接數據庫文件，減輕 了編寫代碼的工作量。

2.數據查詢

（1）綜合查詢:按照車號、提貨單位、時間范圍、 品名進行組合查詢，條件為空時被認為是包括所有， 當有滿足條件的記錄時，會在下面的表格中顯示該 時間范圍內的詳細稱車記錄，若需要可點擊相應記 錄執行補打，點擊表格的標題可以按照相應標題進 行排序，便于快速定位。為滿足數據交流的需要，可 把此查詢表格導入到電子表格Excel2000中，但只有 系統維護人員才能打開。

（2）分類統計:輸入時間范圍，會統計出該時間 范圍內所有品名的累計凈重和車次，便于進行銷量統計和對比盤存。

3.數據維護

(1)數據備份:把主計量庫、品名庫、提貨單位庫 等復制到任何磁盤介質中，如軟盤、其它硬盤、USB 盤等，備份路徑由維護人員進行更改。

（2）通訊口 ：當前串口出現故障時，可立即更改 為另一串口，如COM2 口，以保證稱量。

（3）系統時間：由維護人員更改系統時間，以保 證時間的準確。

⑷打開控制面板：當需更換打印機等項時，由 維護人員進入控制面板進行相應的設置。

(5)增加品名：新增產品時，輸入一個非重復的 品名會追加到品名數據庫并立即生效。

4.超級管理

此項功能僅限系統管理員使用，為完成以下功 能，充分利用了 Windows API函數以及注冊表操作， 達到了安全操作的目的。

（1）開機選項:可設置開機自動運行，程序退出 時自動關機。

（2）桌面選項:隱藏/顯示桌面，使操作員無法操 作桌面。

（3）任務欄：程序運行時關閉任務欄，包括系統 托盤和開始按鈕，并可根據需要隨時顯示出來，同時 屏蔽了 CTRL+ALT +DEL組合鍵，防止操作員非法 關閉稱量程序，還避免了稱量程序的多次加載。

⑷打開數據庫：可用Access2000打開本程序的 數據庫，修改結構、建立索引、導入導出等。

(5 )命令行:通過shell語句調用Windows下的標 準程序。