基于 VB6的濾棒物流系統(tǒng)輔助報(bào)警系統(tǒng)設(shè)計(jì)

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

摘要：當(dāng)前，濾棒高架庫(kù)物流系統(tǒng)報(bào)警功能弱，影響工廠生產(chǎn)。在不影響生產(chǎn)及原程序運(yùn)行的前提下，文章提出通過(guò)Visual Basic 6.0開(kāi)發(fā)相關(guān)輔助報(bào)警系統(tǒng)，其可及時(shí)向操作員發(fā)出警報(bào)。結(jié)果表明，使用該輔助報(bào)警系統(tǒng)之后，增加了物流系統(tǒng)的有效運(yùn)行時(shí)間。

關(guān)鍵詞：Visual Basic 6.0；倉(cāng)儲(chǔ)系統(tǒng)；物流系統(tǒng)；故障；報(bào)警

中圖法分類號(hào)：TP311文獻(xiàn)標(biāo)識(shí)碼：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 引言

隨著科技的不斷發(fā)展，互聯(lián)網(wǎng)技術(shù)得到了廣泛應(yīng)用。許多倉(cāng)儲(chǔ)物流系統(tǒng)早在二十年前就已經(jīng)被開(kāi)發(fā)出來(lái)，但是許多工業(yè)應(yīng)用基本沒(méi)有更新。因此，這些系統(tǒng)的部分功能不完備，不能完全滿足時(shí)代發(fā)展的需求。秉持改造動(dòng)作輕量化以及降低企業(yè)系統(tǒng)癱瘓、停產(chǎn)風(fēng)險(xiǎn)的精神，本文介紹了一個(gè)在 Windows XP 系統(tǒng)下，通過(guò) Visual Basic 6.0（ VB6）查詢昆船嘴棒物流系統(tǒng)數(shù)據(jù)庫(kù)信息，給功能不全的系統(tǒng)補(bǔ)全系統(tǒng)故障提示功能的案例[1]。

2 物流系統(tǒng)現(xiàn)狀及需求分析

某工廠早在2014年便已引進(jìn)濾棒倉(cāng)儲(chǔ)物流系

統(tǒng)。其昆船嘴棒倉(cāng)儲(chǔ)物流系統(tǒng)由2臺(tái)堆垛機(jī)、1個(gè)嘴棒倉(cāng)庫(kù)、4個(gè)成型實(shí)盤嘴棒待寄站、4個(gè)成型空盤待收站、5個(gè)嘴棒發(fā)射空盤待寄站、5個(gè)嘴棒發(fā)射實(shí)盤待收站以及1個(gè)臨時(shí)人工收發(fā)站組成。該系統(tǒng)能夠自動(dòng)將嘴棒成型機(jī)已填滿實(shí)盤嘴棒的待寄站內(nèi)的實(shí)盤組運(yùn)送、取出、放出倉(cāng)庫(kù)暫存數(shù)小時(shí)，同時(shí)將倉(cāng)庫(kù)的空盤組送至成型機(jī)臺(tái)空盤接收站備用；還能將嘴棒發(fā)射待寄站的空盤回收至倉(cāng)庫(kù)，并將倉(cāng)庫(kù)的嘴棒實(shí)盤組運(yùn)送至嘴棒發(fā)射待收站供嘴棒發(fā)射機(jī)發(fā)射，整個(gè)過(guò)程實(shí)現(xiàn)自動(dòng)化工作。

由于該系統(tǒng)開(kāi)發(fā)者的預(yù)見(jiàn)性有限、軟件系統(tǒng)功能不完備、機(jī)械電氣設(shè)備老化等，原報(bào)警功能不夠及時(shí)實(shí)現(xiàn)，甚至不報(bào)警，且系統(tǒng)故障時(shí)常得不到及時(shí)處理。為縮減故障時(shí)長(zhǎng)，相關(guān)人員開(kāi)發(fā)了一個(gè)基于 VB6的、可查詢 SQL 數(shù)據(jù)庫(kù)的查詢報(bào)警系統(tǒng)[2]。待故障發(fā)生時(shí)，可以根據(jù)數(shù)據(jù)庫(kù)中的任務(wù)信息測(cè)算出系統(tǒng)已發(fā)生的故障，從而及時(shí)提醒系統(tǒng)管理員[3]。

3 設(shè)計(jì)思路

由于該物流系統(tǒng)源碼并不支持轉(zhuǎn)讓，故將焦點(diǎn)聚焦在利用計(jì)算機(jī)自動(dòng)、及時(shí)發(fā)現(xiàn)故障環(huán)節(jié)中，爭(zhēng)取通過(guò)計(jì)算機(jī)自動(dòng)運(yùn)算第一時(shí)間發(fā)現(xiàn)故障，讓故障得到及時(shí)處理。輔助報(bào)警系統(tǒng)流程圖如圖1所示。

4 程序界面設(shè)計(jì)

通過(guò) Visual Basic 6.0建立一個(gè)如圖2所示的窗體程序。

圖2中各個(gè) VB 控件的功能如下：開(kāi)始工作按鈕—激活 timer1開(kāi)始自動(dòng)重復(fù)工作；暫停五分鐘按鈕—關(guān)閉定時(shí)器 timer1，timer2，激活定時(shí)器 timer4；timer1的 interval 與功能—10秒間隔；查詢數(shù)據(jù)庫(kù)判斷嘴棒庫(kù)內(nèi)是否有超時(shí)任務(wù)，如果有相應(yīng)彈窗提示，激活定時(shí)器 timer2；timer2的 interval 與功能—3分鐘間隔，激活定時(shí)器 timer1；timer3的 interval 與功能—3秒間隔，報(bào)警提示框的自動(dòng)關(guān)閉；timer4的 interval 與功能—5分鐘間隔，激活定時(shí)器 timer1，關(guān)閉自身。

圖3為自動(dòng)關(guān)閉的報(bào)警提示界面，其表示報(bào)警系統(tǒng)通過(guò)查詢結(jié)果來(lái)彈出報(bào)警提示，3秒之后通過(guò)調(diào)用 Windows 系統(tǒng)函數(shù)FindWindowA找到報(bào)警提示，該報(bào)警提示的窗口句柄調(diào)用SendMessageA，并向該句柄指向的窗口自動(dòng)點(diǎn)擊確定按鈕，從而關(guān)閉彈出的報(bào)警提示小窗口。

5 核心功能代碼實(shí)現(xiàn)

定時(shí)器狀態(tài)刷新函數(shù)—shuaxintime（）代碼： Private Sub shuaxintime（）＇刷新各定時(shí)器狀態(tài)，起到實(shí)時(shí)提示

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

Label2.Caption ＝＂timer1激活中＂＇將定時(shí)器1狀態(tài)顯示在標(biāo)簽2文字

Else：Label2.Caption ＝＂timer1未激活＂＇將定時(shí)器1狀態(tài)顯示在標(biāo)簽2文字

End If＇If判斷語(yǔ)句結(jié)束。

Timer2～4功能與 Timer1類似，略過(guò)。

窗體載入函數(shù) Sub Form_Load（）的代碼：

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

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

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

Timer1.Enabled ＝ False＇凍結(jié) timer1

開(kāi)始工作按鈕 Command1_Click（）的代碼：

Timer1.Enabled ＝ True＇激活 timer1

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

Timer4.Interval ＝22000

＇設(shè)置 timer4的間隔運(yùn)行時(shí)間

Timer4.Enabled ＝ True

＇激活 timer4

Timer1.Enabled ＝ False

＇凍結(jié) timer1

Timer2.Enabled ＝ False

＇凍結(jié) timer2

Call shuaxintime

＇調(diào)用刷新定時(shí)器狀態(tài)函數(shù)

定時(shí)器1—Timer1_Timer（）的代碼：

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

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

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

myRs.Open＂ select? ? from? TABLE1 where

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

adLockBatchOptimistic＇查詢數(shù)據(jù)庫(kù)返回結(jié)果myRs 1.Open ＂select? count （? ） from? TABLE1

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

adOpenDynamic，adLockBatchOptimistic＇查詢數(shù)據(jù)庫(kù)

返回結(jié)果

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

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

間：＂＋ Format（Now （），＂YYYY?MM?DD hh：mm：ss＂） ＇查詢結(jié)果顯示在標(biāo)簽1，

Timer3.Interval ＝2000＇設(shè)置定時(shí)器3的間隔時(shí)間 Timer3.Enabled ＝ True＇激活定時(shí)器3

nRet＝MsgBox （＂請(qǐng)及時(shí)處理，3秒后自動(dòng)關(guān)閉＂，64，MsgTitle ） ＇彈出報(bào)警提示

Timer3.Enabled ＝ False? ＇凍結(jié)定時(shí)器3?? Call shuaxintime＇調(diào)用刷新定時(shí)器狀態(tài)函數(shù)

Else

＇不符合判斷則執(zhí)行后面語(yǔ)句

MsgBox＂庫(kù)中沒(méi)有你要的信息?。ⅲ棾鎏崾?/p>

信息

End If

＇If 語(yǔ)句結(jié)束

If Timer2.Enabled ＝ False Then

＇如果定時(shí)器未激活則

Timer2.Enabled ＝ True＇激活定時(shí)器2

End If＇If語(yǔ)句結(jié)束

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

定時(shí)器3—Timer3 Timer （）的代碼：

Dim hWnd As Long＇定義長(zhǎng)整型變量用于存儲(chǔ)窗口句柄

hWnd＝FindWindow （ vbNullString，MsgTitle ）＇調(diào)

用FindWindow查找窗口句柄

Call SendMessage （hWnd，WM_CLOSE ，0，ByVal 0＆）＇關(guān)閉通過(guò)句柄號(hào)找到的窗口

Call shuaxintime＇調(diào)用刷新定時(shí)器狀態(tài)函數(shù)

6 應(yīng)用效益分析

使用該輔助報(bào)警系統(tǒng)之后，故障能夠被及時(shí)發(fā)現(xiàn)和處理。其中，濾棒高架庫(kù)的有效作業(yè)時(shí)間由原來(lái)的94％提高到98％；減少了因物流系統(tǒng)的癱瘓對(duì)上下游工段的影響，節(jié)約人力和物力，為企業(yè)發(fā)展注入了新動(dòng)力。

參考文獻(xiàn)：

[1]王曉敏.Visual Basic 程序設(shè)計(jì)[ M].北京：中國(guó)鐵道出版社，2003.

[2]關(guān)敬敏，唐家渝.SQL Server 數(shù)據(jù)庫(kù)應(yīng)用教程[ M].北京：清華大學(xué)出版社，2005.

[3]黃志峰.Visual Basic 高級(jí)編程實(shí)例精解[ M].北京：國(guó)防工業(yè)出版社，2001.

作者簡(jiǎn)介：

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