【文章內(nèi)容簡(jiǎn)介】 量、單價(jià)或名稱不能為空值！”（）圖 貨品入庫(kù)輸入信息不完整 在貨品查詢模塊中，包括入庫(kù)查詢，出庫(kù)查詢和庫(kù)存查詢?nèi)齻€(gè)模塊。這三個(gè)模塊也是相似的，以出庫(kù)查詢作為說明，實(shí)現(xiàn)代碼： Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)使窗體置前的功能39。利用代碼連接數(shù)據(jù)庫(kù) = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_out 39。連接出庫(kù)信息數(shù)據(jù)表 = ( ) / 2 39。使窗體居中 = ( ) / 2End Sub 在貨品查詢下點(diǎn)擊出庫(kù)查詢進(jìn)入出庫(kù)查詢（），在最下方“請(qǐng)輸入要查詢的貨品名稱”的Text中輸入要查詢的貨品的名稱，自動(dòng)顯示出要查詢貨品的出庫(kù)記錄（）。圖 進(jìn)入出庫(kù)查詢圖 出庫(kù)信息查詢界面 數(shù)據(jù)報(bào)表模塊 數(shù)據(jù)報(bào)表中包括出庫(kù)報(bào)表，庫(kù)存報(bào)表。為倉(cāng)庫(kù)管理提供報(bào)表的打印和導(dǎo)出。方便對(duì)倉(cāng)庫(kù)的情況進(jìn)行了解。以庫(kù)存報(bào)表為例，實(shí)現(xiàn)代碼: Private Sub DataReport_Initialize() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。使窗體置前End SubPrivate Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer) = True導(dǎo)出End Sub打印 庫(kù)存信息明細(xì)表 在庫(kù)存信息明細(xì)表預(yù)覽里有個(gè)打印按鈕和導(dǎo)出按鈕（），點(diǎn)擊這兩個(gè)按鈕，分別能實(shí)現(xiàn)打印和導(dǎo)出功能。打印報(bào)表的功能必須在安裝打印機(jī)的情況下才能實(shí)現(xiàn)；點(diǎn)擊導(dǎo)出，出現(xiàn)對(duì)話框（）選擇保存到的文件夾，對(duì)文件命名，然后點(diǎn)擊保存按鈕。圖 “導(dǎo)出”對(duì)話框 操作員管理包括注冊(cè)新用戶和刪除現(xiàn)有用戶。（1）注冊(cè)新用戶（），在用戶管理對(duì)話框中選擇注冊(cè)新用戶，填寫完用戶名稱，職務(wù)，用戶密碼，確認(rèn)密碼，點(diǎn)擊確定，出現(xiàn),Msgbox提醒“注冊(cè)成功”。圖 注冊(cè)新用戶界面實(shí)現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能 If = Or = Or = Then MsgBox 輸入的用戶注冊(cè)信息不完全!!, , 提示信息 Else = select * from tb_enter where M_Name=39。 + Text1 + 39。 39。判斷注冊(cè)的用戶名是否存在 If 0 Then MsgBox 該用戶名已經(jīng)存在,請(qǐng)您更換其他用戶名!, 48, 提示信息 = 39。如果該用戶名存在則重新輸入 = = = Else If = Then 39。判斷兩次輸入的密碼是否一致 = select * from tb_enter order by M_ID If 0 Then = Val((M_ID)) + 1 Else = 1 End If Call main 39。保存注冊(cè)信息 Set adoRs = (insert into tb_enter values( amp。 Text5 amp。 ,39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。)) MsgBox 注冊(cè)成功!!, 48, 用戶注冊(cè)信息提示 = = = = Unload Me Else MsgBox 兩次輸入的密碼不一致,請(qǐng)您確認(rèn)后重新輸入, 48, 用戶注冊(cè)信息提示 = = End If End If End IfEnd Sub刪除現(xiàn)有的用戶（），在用戶管理中選擇刪除現(xiàn)有用戶，然后選擇要?jiǎng)h除的用戶名，點(diǎn)擊確定按鈕，Msgbox提醒“您確認(rèn)刪除該用戶嗎？”，點(diǎn)擊確認(rèn)則刪除，點(diǎn)擊取消，則取消刪除。圖 刪除現(xiàn)有的用戶的界面實(shí)現(xiàn)代碼： Private Sub Command2_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能 If = Name1 Then 39。如果是當(dāng)前登錄的用戶名，則不允許刪除 MsgBox 不能刪除當(dāng)前用戶名!!, 48, 提示信息 Else a = MsgBox(您確認(rèn)要?jiǎng)h除該用戶嗎?, 17, 刪除用戶信息提示) If a = vbOK Then = select * from tb_enter where M_Name=39。 + + 39。 If 0 Then 39。如果數(shù)據(jù)庫(kù)中存在該用戶信息，則將其刪除 MsgBox 用戶信息刪除成功, 64, 刪除用戶信息提示 Unload Me Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中沒有可刪除的用戶信息, , 信息提示 End If End If End IfEnd Sub 密碼修改 為了安全起見，用戶可以對(duì)自己密碼進(jìn)行修改。用戶進(jìn)入密碼修改界面（）,輸入用戶名，舊密碼，新密碼以及確認(rèn)新密碼，點(diǎn)擊確認(rèn)按鈕，Msgbox提醒“密碼修改成功！”。 密碼修改界面實(shí)現(xiàn)代碼： Private Sub Command1_Click()rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能Call main If = Or = Or = Or = Then MsgBox 輸入不能為空!!, 48, 提示信息 Else 39。判斷輸入的用戶名在數(shù)據(jù)庫(kù)中是否存在 = select * from tb_enter where M_Password =39。 amp。 amp。 39。 and M_name=39。 + + 39。 If 0 Then If Then 39。判斷數(shù)據(jù)的密碼是否正確 MsgBox 兩次輸入的密碼不一致,請(qǐng)您確認(rèn)后重新輸入, 48, 提示信息 = = Else 39。如果輸入正確的密碼則修改密碼 Set adoRs = (UPDATE tb_enter SET M_Password= 39。 + + 39。 where M_name=39。 + + 39。) MsgBox 密碼修改成功,請(qǐng)您記住新密碼, , 信息提示 Unload Me End If Else MsgBox 沒有此用戶的信息,請(qǐng)您確認(rèn)后重新輸入, 48, 信息提示 = = = = End If End IfEnd Sub 退出系統(tǒng)模塊（） 倉(cāng)庫(kù)工作人員從系統(tǒng)中退出的出口，點(diǎn)擊確定即可退出系統(tǒng)，點(diǎn)擊取消，則繼續(xù)留系在統(tǒng)中操作系統(tǒng)。圖 退出系統(tǒng)主界面6 結(jié)論倉(cāng)庫(kù)管理在公司管理中占有極為重要的地位，大力改進(jìn)倉(cāng)庫(kù)管理，可以節(jié)省大量的人力物力?！秱}(cāng)庫(kù)管理系統(tǒng)》處理數(shù)據(jù)的流程，與人工處理的思維是一樣的，更優(yōu)于人工處理的是將原本繁瑣的業(yè)務(wù)處理變的更加快捷，有序，錯(cuò)誤率下降。我的畢業(yè)設(shè)計(jì)是為新生活集團(tuán)（中國(guó)）有限公司徐州分公司的倉(cāng)庫(kù)建立一個(gè)倉(cāng)庫(kù)管理系統(tǒng)，解決公司倉(cāng)庫(kù)管理問題。這個(gè)系統(tǒng)，大大提高了工作效率，減少了倉(cāng)庫(kù)工作人員的工作量和誤差。數(shù)據(jù)報(bào)表和查詢統(tǒng)計(jì)兩個(gè)模塊的設(shè)計(jì)，可以使公司事務(wù)局的管理人員對(duì)公司倉(cāng)庫(kù)的庫(kù)存情況一目了然。這個(gè)倉(cāng)庫(kù)系統(tǒng)的設(shè)計(jì)經(jīng)歷了，從創(chuàng)建數(shù)據(jù)庫(kù)到系統(tǒng)設(shè)計(jì)和各個(gè)模塊的創(chuàng)建、表單的設(shè)計(jì)、基本功能如查詢統(tǒng)計(jì)的實(shí)現(xiàn)、主程序的編寫。一個(gè)設(shè)計(jì)，不僅僅是設(shè)計(jì)系統(tǒng)，不像我想象的那么簡(jiǎn)單。系統(tǒng)采用的是Visual Basic做前臺(tái)，Access作為后臺(tái)數(shù)據(jù)庫(kù)。因?yàn)橹皩?duì)Visual Basic只是簡(jiǎn)單的了解，只會(huì)做一些簡(jiǎn)單的如添加基本的控件和編寫簡(jiǎn)單的代碼，當(dāng)在做這個(gè)畢業(yè)設(shè)計(jì)的時(shí)候才發(fā)現(xiàn)所了解的這些功能遠(yuǎn)遠(yuǎn)不夠，只能隨學(xué)隨用。當(dāng)一個(gè)模塊做完了，感覺良好，可是在運(yùn)行的時(shí)候才發(fā)現(xiàn)諸多的問題，一次次的失敗，一次次的修改。經(jīng)過了這么久好不容易才完成這個(gè)系統(tǒng)?，F(xiàn)在，我對(duì)Visual Basic和Access的應(yīng)用有了更深的認(rèn)識(shí)，計(jì)算機(jī)知識(shí)又有所增長(zhǎng)。附錄英文資料原文：From the perspective of modern logistics systems, storage is an important part of logistics is the logistics system, distribution center, hoping for effective logistics warehouse here, scientific management and control, so that the logistics system more smoothly,