【正文】 bKeyBack )ThenKeyAsscii=0 Eed If picNavingation .Enabled=FalseEnd Sub ‘驗(yàn)證權(quán)限代碼輸入Private Sub cmdStatusKeyPress(KeyAscii As Integer) If Not(KeyAscii=vbKey0 Or KeyAscii= vbKey1 Or KeyAssci vbKey 2iOr KeyAsscii= vbKey 3 Or KeyAscii= vbKey 4Or KeyAsscii=vbKeyBack )ThenKeyAsscii=0 Eed If picNavingation .Enabled=FalseEnd Sub實(shí)現(xiàn)添加操作nbPrivate Sub cmdAddClick() =1 txtNews=“記錄：”amp。 “/”amp。Trim(txtUser)amp。選擇系統(tǒng)管理下的退出即可。根據(jù)倉庫的日常操作共分有六個(gè)子模塊，分別是：入庫操作，出庫操作，退料操作，增料操作，倉位管理和盤點(diǎn)損益。設(shè)計(jì)思路和要點(diǎn)：入庫操作即倉庫的收料，系統(tǒng)規(guī)定收料只能根據(jù)訂單來進(jìn)行。每個(gè)訂單都對(duì)應(yīng)一個(gè)入庫操作。規(guī)范化倉庫收料操作。訂單號(hào)碼是由訂單管理模塊產(chǎn)生。界面如圖48所示： 圖48 入庫操作界面其對(duì)應(yīng)的代碼如下：?jiǎn)螕羧霂鞎r(shí)，Private Sub cmdAddClick() If =“入庫” Then=“查詢”= False=TrueisStorking= True= False=0 ‘設(shè)置入庫數(shù)據(jù)默認(rèn)的產(chǎn)品名稱和編號(hào)=0Else = True=“入庫”= True= FalseisStorking= False= TrueEed IfEnd Sub點(diǎn)擊關(guān)閉時(shí)，退出入庫窗體Private Sub cmdExitClick() Unload Me ‘關(guān)閉入庫窗體End Sub 出庫操作設(shè)計(jì)思想和要點(diǎn)：出庫操作即倉庫的發(fā)料，本系統(tǒng)規(guī)定倉庫的發(fā)料需根據(jù)生產(chǎn)計(jì)劃來進(jìn)行。生產(chǎn)計(jì)劃的產(chǎn)生由專門模塊實(shí)現(xiàn)。每個(gè)工單的發(fā)料可有兩種方式 ，一種是按工單發(fā)料，即一次性將一個(gè)工單的全部所需物料全部發(fā)至生產(chǎn)線。選擇選擇發(fā)料類型，按工單或按物料。界面如圖49和圖410所示： 圖49出庫操作按工作界面 圖410 出庫操作按物料界面其對(duì)應(yīng)的代碼如下：Private Sub cmdAddClick() If =“出庫” Then=“查詢”= False=TrueisStorking= True= False=0 ‘設(shè)置出庫數(shù)據(jù)默認(rèn)的產(chǎn)品名稱和編號(hào)=0Else = True=“入庫”= True= FalseisStorking= False= TrueEed IfEnd Sub點(diǎn)擊關(guān)閉時(shí)，退出出庫窗體Private Sub cmdExitClick() Unload Me ‘關(guān)閉出庫窗體End Sub 借入操作設(shè)計(jì)思路和要點(diǎn)：借入操作即由于生產(chǎn)損耗而需要增料。界面如圖411所示： 圖411借入操作界面其對(duì)應(yīng)的代碼如下：Private Sub cmdAddClick() If =“借入” Then=“查詢”= False=TrueisStorking= True= False=0 ‘設(shè)置借入數(shù)據(jù)默認(rèn)的產(chǎn)品名稱和編號(hào)=0Else = True=“借入”= True= FalseisStorking= False= TrueEed IfEnd Sub點(diǎn)擊關(guān)閉時(shí)，退出借入窗體Private Sub cmdExitClick() Unload Me ‘關(guān)閉借入窗體End Sub 借出操作設(shè)計(jì)思路和要點(diǎn)：借出操作是針對(duì)生產(chǎn)線由于各種原因產(chǎn)生的生產(chǎn)中多領(lǐng)的物料退回倉庫。程序會(huì)根據(jù)這些信息在數(shù)據(jù)庫中作出相應(yīng)的調(diào)整。調(diào)整分為收益和虧損。設(shè)計(jì)思路和要點(diǎn)：根據(jù)各種查詢條件查詢物料信息。適合所有使用者。 39。因此在數(shù)據(jù)庫中單獨(dú)創(chuàng)建一張表，用于記錄系統(tǒng)的日常操作，即倉庫的各種日常操作。使整個(gè)系統(tǒng)的運(yùn)行都在控制之內(nèi)。 And“操作內(nèi)容”= And“日期從”= And“日期到”= 39。盤點(diǎn)報(bào)表將列出當(dāng)前時(shí)刻，倉庫中所有物料的數(shù)量及存放地點(diǎn)，以便盤點(diǎn)時(shí)參考。界面如圖416所示： 圖416 盤點(diǎn)報(bào)表界面其對(duì)應(yīng)的代碼如下Private Sub tbToolBar_ButtonClick(ByVal Button As ) Select Case Case 1: M庫存狀況_Click Case 4: M月盤點(diǎn)_Click Case 9: M打印月盤點(diǎn)_Click Case 11: M查看日志_Click Case 13: mnuHelpAbout_Click End SelectEnd SubPrivate Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case 入庫單 M新增入庫單_Click Case 出庫單 M新增出庫單_Click Case 借入單 M新增借入單_Click Case 借出單 M新增借出單_Click Case 調(diào)拔單 M新增調(diào)拔單_Click Case 報(bào)損單 M新增報(bào)損單_Click Case 單據(jù) M單據(jù)查詢_Click Case 庫存 M庫存查詢_Click Case 貨物出入 M貨物出入統(tǒng)計(jì)_Click Case 職員操作 M職員操作統(tǒng)計(jì)_Click Case 月盤點(diǎn) M打印月盤點(diǎn)_Click End SelectEnd Sub第五章 系統(tǒng)特點(diǎn)與不足 優(yōu)點(diǎn)（1）能夠比較好的進(jìn)行需求分析，可行性分析以及系統(tǒng)設(shè)計(jì)，來獨(dú)立開發(fā)一個(gè)較為小型的MIS系統(tǒng)；（2）完成了倉庫管理中日常使用最多的最主要的功能。（4）對(duì)數(shù)據(jù)的處理也有一定的聯(lián)系，可減少人為因素帶來的影響。（6）模塊化編程，為以后的改進(jìn)提供了方便。（2）系統(tǒng)沒有提供打印輸出的功能，如果需要打印還需借助其他的軟件。（4）系統(tǒng)的一些模塊的功能是理論化的，在實(shí)際中還有許多更復(fù)雜的情況并沒有考慮進(jìn)去。第六章 總結(jié) 課程設(shè)計(jì)主要問題及解決辦法關(guān)于本系統(tǒng)，雖然對(duì)倉庫管理進(jìn)行了系統(tǒng)的創(chuàng)建，但我們不可忽略的是這個(gè)系統(tǒng)并不完美，我們也不能高枕無憂。一個(gè)系統(tǒng)好不好，要經(jīng)過反復(fù)的使用才能知道，不光光是理論中分析和設(shè)計(jì)得出來的。做E_R圖時(shí)，不僅要考慮怎么規(guī)劃圖，還要考慮怎么畫出來能好看點(diǎn)，為此在網(wǎng)上搜了好多樣板來借鑒。 收獲與建議經(jīng)過兩個(gè)多周的課程設(shè)計(jì)，一個(gè)完整的倉庫管理系統(tǒng)終于設(shè)計(jì)完成了，但也正在這時(shí)我真正意識(shí)到所學(xué)知識(shí)的不足，可以說關(guān)于這方面的接觸才剛剛開始，深有感觸，無以言表。 參考文獻(xiàn)[1] 薩師煊、王珊編著《數(shù)據(jù)庫系統(tǒng)概論第三版》北京：高等教育出版社，2001[2] 寧洪，趙文濤，賈麗麗.，《數(shù)據(jù)庫系統(tǒng)原理》[M].北京：北京郵電大學(xué)出版社，2005 [3] 李春葆， Server . 2008[4]葛世倫、代逸生16