【文章內(nèi)容簡(jiǎn)介】 f = True = FalseEnd Sub進(jìn)入貨品入庫(kù)（），然后點(diǎn)擊添加按鈕，自動(dòng)生成入庫(kù)編號(hào)，輸入貨品名稱、貨品規(guī)格、數(shù)量單價(jià)及備注，選擇計(jì)量單位，入庫(kù)日期，點(diǎn)擊保存，出現(xiàn)Msgbox 提醒“您確認(rèn)要保存該信息嗎？”（），點(diǎn)擊確定，出現(xiàn)Msgbox 提醒“信息保存成功”，點(diǎn)擊取消，則放棄入庫(kù)。圖 進(jìn)入貨品入庫(kù) 貨品入庫(kù)界面 在貨品入庫(kù)的信息錄入中，如果信息輸入不完整，則無法完成入庫(kù)，會(huì)出現(xiàn)Msgbox提醒“貨品數(shù)量、單價(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，來實(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，來實(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，來實(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，來實(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