基于 VB6的濾棒物流系統輔助報警系統設計

陳勁松 秦枼濤 黃首霖 蔡洪江

摘要：當前，濾棒高架庫物流系統報警功能弱，影響工廠生產。在不影響生產及原程序運行的前提下，文章提出通過Visual Basic 6.0開發相關輔助報警系統，其可及時向操作員發出警報。結果表明，使用該輔助報警系統之后，增加了物流系統的有效運行時間。

關鍵詞：Visual Basic 6.0；倉儲系統；物流系統；故障；報警

中圖法分類號：TP311文獻標識碼：A

Design of auxiliary alarm system for filter rod logistics system based on VB6

CHEN Jinsong，QINYetao，HUANGShoulin，CAIHongjiang

（Bijie Cigarette Factory，China Tobacco Guizhou Industrial Co.，Ltd.，Bijie，Guizhou 551700，China）

Abstract： At present，the alarm function of the filter rod high-bay warehouse logistics system is weak， which affects the production of the factory.Under the premise of not affecting the production and running of the original program，the paper proposes to develop a related auxiliary alarm system through Visual Basic 6.0，which can issue an alarm to the operator in time. The results show that after using the auxiliary alarm system，the effective running time of the logistics system is improved.

Key words： Visual Basic 6.0， warehouse system， logistics system， failure，alert

1 引言

隨著科技的不斷發展，互聯網技術得到了廣泛應用。許多倉儲物流系統早在二十年前就已經被開發出來，但是許多工業應用基本沒有更新。因此，這些系統的部分功能不完備，不能完全滿足時代發展的需求。秉持改造動作輕量化以及降低企業系統癱瘓、停產風險的精神，本文介紹了一個在 Windows XP 系統下，通過 Visual Basic 6.0（ VB6）查詢昆船嘴棒物流系統數據庫信息，給功能不全的系統補全系統故障提示功能的案例[1]。

2 物流系統現狀及需求分析

某工廠早在2014年便已引進濾棒倉儲物流系

統。其昆船嘴棒倉儲物流系統由2臺堆垛機、1個嘴棒倉庫、4個成型實盤嘴棒待寄站、4個成型空盤待收站、5個嘴棒發射空盤待寄站、5個嘴棒發射實盤待收站以及1個臨時人工收發站組成。該系統能夠自動將嘴棒成型機已填滿實盤嘴棒的待寄站內的實盤組運送、取出、放出倉庫暫存數小時，同時將倉庫的空盤組送至成型機臺空盤接收站備用；還能將嘴棒發射待寄站的空盤回收至倉庫，并將倉庫的嘴棒實盤組運送至嘴棒發射待收站供嘴棒發射機發射，整個過程實現自動化工作。

由于該系統開發者的預見性有限、軟件系統功能不完備、機械電氣設備老化等，原報警功能不夠及時實現，甚至不報警，且系統故障時常得不到及時處理。為縮減故障時長，相關人員開發了一個基于 VB6的、可查詢 SQL 數據庫的查詢報警系統[2]。待故障發生時，可以根據數據庫中的任務信息測算出系統已發生的故障，從而及時提醒系統管理員[3]。

3 設計思路

由于該物流系統源碼并不支持轉讓，故將焦點聚焦在利用計算機自動、及時發現故障環節中，爭取通過計算機自動運算第一時間發現故障，讓故障得到及時處理。輔助報警系統流程圖如圖1所示。

4 程序界面設計

通過 Visual Basic 6.0建立一個如圖2所示的窗體程序。

圖2中各個 VB 控件的功能如下：開始工作按鈕—激活 timer1開始自動重復工作；暫停五分鐘按鈕—關閉定時器 timer1，timer2，激活定時器 timer4；timer1的 interval 與功能—10秒間隔；查詢數據庫判斷嘴棒庫內是否有超時任務，如果有相應彈窗提示，激活定時器 timer2；timer2的 interval 與功能—3分鐘間隔，激活定時器 timer1；timer3的 interval 與功能—3秒間隔，報警提示框的自動關閉；timer4的 interval 與功能—5分鐘間隔，激活定時器 timer1，關閉自身。

圖3為自動關閉的報警提示界面，其表示報警系統通過查詢結果來彈出報警提示，3秒之后通過調用 Windows 系統函數FindWindowA找到報警提示，該報警提示的窗口句柄調用SendMessageA，并向該句柄指向的窗口自動點擊確定按鈕，從而關閉彈出的報警提示小窗口。

5 核心功能代碼實現

定時器狀態刷新函數—shuaxintime（）代碼： Private Sub shuaxintime（）＇刷新各定時器狀態，起到實時提示

If Timer1.Enabled ＝ True Then＇判斷定時器1是否激活

Label2.Caption ＝＂timer1激活中＂＇將定時器1狀態顯示在標簽2文字

Else：Label2.Caption ＝＂timer1未激活＂＇將定時器1狀態顯示在標簽2文字

End If＇If判斷語句結束。

Timer2～4功能與 Timer1類似，略過。

窗體載入函數 Sub Form_Load（）的代碼：

myStr＝＂ Provider ＝ SQLOLEDB.1；Integrated Security＝SSPI；Persist Security Info＝true；Initial Catalog ＝客房信息管理模塊；Data Source＝.＂＇連接數據庫

myCnn.ConnectionString＝myStr＇myCnn的連接屬性

myCnn1.ConnectionString ＝myStr＇myCnn1的連接屬性

Timer1.Enabled ＝ False＇凍結 timer1

開始工作按鈕 Command1_Click（）的代碼：

Timer1.Enabled ＝ True＇激活 timer1

暫停五分鐘按鈕 Command2_Click（）的代碼：

Timer4.Interval ＝22000

＇設置 timer4的間隔運行時間

Timer4.Enabled ＝ True

＇激活 timer4

Timer1.Enabled ＝ False

＇凍結 timer1

Timer2.Enabled ＝ False

＇凍結 timer2

Call shuaxintime

＇調用刷新定時器狀態函數

定時器1—Timer1_Timer（）的代碼：

myStr＝＂ Provider ＝ SQLOLEDB.1；Integrated Security＝SSPI；Persist Security Info＝true；Initial Catalog ＝客房信息管理模塊；Data Source＝.＂＇連接數據庫

myCnn.ConnectionString＝myStr＇myCnn的連接屬性

myCnn1.ConnectionString ＝myStr＇myCnn1的連接屬性

myRs.Open＂ select? ? from? TABLE1 where

finishdate ?is?? null ＂，myCnn，adOpenDynamic，

adLockBatchOptimistic＇查詢數據庫返回結果myRs 1.Open ＂select? count （? ） from? TABLE1

where datediff（ mi ，startdate，getdate （））＞＝5＂，myCnn，

adOpenDynamic，adLockBatchOptimistic＇查詢數據庫

返回結果

If myRs.RecordCount＞＝5 Or myRs 1.RecordCount ＞＝1 Then? ＇判斷是否找到一條記錄

Label1.Caption ＝＂未完成找到＂＋CStr （ myRs. RecordCount）＋＂記錄＂＋＂，超時找到＂＋CStr （ myRs 1.RecordCount）＋＂記錄＂＋vbCrLf＋＂查詢時

間：＂＋ Format（Now （），＂YYYY?MM?DD hh：mm：ss＂） ＇查詢結果顯示在標簽1，

Timer3.Interval ＝2000＇設置定時器3的間隔時間 Timer3.Enabled ＝ True＇激活定時器3

nRet＝MsgBox （＂請及時處理，3秒后自動關閉＂，64，MsgTitle ） ＇彈出報警提示

Timer3.Enabled ＝ False? ＇凍結定時器3?? Call shuaxintime＇調用刷新定時器狀態函數

Else

＇不符合判斷則執行后面語句

MsgBox＂庫中沒有你要的信息?。ⅲ棾鎏崾?/p>

信息

End If

＇If 語句結束

If Timer2.Enabled ＝ False Then

＇如果定時器未激活則

Timer2.Enabled ＝ True＇激活定時器2

End If＇If語句結束

定時器2—Timer2 Timer （）的代碼： Timer1.Enabled ＝ True?? ＇激活定時器1

定時器3—Timer3 Timer （）的代碼：

Dim hWnd As Long＇定義長整型變量用于存儲窗口句柄

hWnd＝FindWindow （ vbNullString，MsgTitle ）＇調

用FindWindow查找窗口句柄

Call SendMessage （hWnd，WM_CLOSE ，0，ByVal 0＆）＇關閉通過句柄號找到的窗口

Call shuaxintime＇調用刷新定時器狀態函數

6 應用效益分析

使用該輔助報警系統之后，故障能夠被及時發現和處理。其中，濾棒高架庫的有效作業時間由原來的94％提高到98％；減少了因物流系統的癱瘓對上下游工段的影響，節約人力和物力，為企業發展注入了新動力。

參考文獻：

[1]王曉敏.Visual Basic 程序設計[ M].北京：中國鐵道出版社，2003.

[2]關敬敏，唐家渝.SQL Server 數據庫應用教程[ M].北京：清華大學出版社，2005.

[3]黃志峰.Visual Basic 高級編程實例精解[ M].北京：國防工業出版社，2001.

作者簡介：

陳勁松（1988—），本科，助理工程師，研究方向：機電一體化。