【正文】 最后感謝各位評閱老師提出的寶貴意見，及給我?guī)椭^的所有同學(xué)們。從設(shè)計(jì)的初步成型到詳細(xì)的設(shè)計(jì)，需要我們逐步的細(xì)化，逐步的完善，直到它能夠具有實(shí)用性及達(dá)到用戶的需求。是系統(tǒng)設(shè)計(jì)的一個(gè)重要的原則。對于舊知識(shí)，在做設(shè)計(jì)的時(shí)候能夠逐漸的把舊知識(shí)融會(huì)貫通，并且溫故而知新。時(shí)時(shí)刻刻都處在一種對新知識(shí)強(qiáng)烈渴求的狀態(tài)下，自覺性極大的提高。 tBaleTotal End Sub 八、結(jié)束語 本論文描述的是我關(guān)于《物流管理系統(tǒng)》的設(shè)計(jì)建設(shè)過程，在整個(gè)設(shè)計(jì)的過程中，我查閱了大量的材料，進(jìn)行了大量的實(shí)踐應(yīng)該說收獲豐碩，當(dāng)然在這期間充滿了成功的喜悅和自豪，也充滿了失敗的痛苦和煩惱。 tBaleName amp。 tBaleID amp。 39。 amp。 39。 amp。 39。 amp。 tBaleTotal End If End If = False End Sub ? 當(dāng)用戶點(diǎn)了相應(yīng)的列表框如貨品列表，已有貨品列表，倉庫列表時(shí)，列表的 響應(yīng) text 值會(huì)被程序捕獲并從數(shù)據(jù)庫中取出相應(yīng)的記錄，顯示給用戶，具體代碼如下： Private Sub LstBale_Click() = = True 39。 tBaleName amp。 tBaleID amp。 39。 amp。 39。 amp。 39。 amp。 ) ElseIf CInt() = tBaleTotal Then aa = MsgBox(該貨品全部出庫？ , vbYesNo) If aa = vbYes Then CheckBale End If Else (STotal).Value = (STotal).Value CInt() 39。 If IsNumeric() And Then If CInt() tBaleTotal Then MsgBox (該倉庫現(xiàn)存該貨品數(shù)量僅為 amp。 tDepotID amp。 AND SDepotID=39。 tBaleID amp。若要出庫的數(shù)量大于庫存數(shù)量，則報(bào)錯(cuò)，若等于庫存數(shù)量，則從 storage表中刪除該存儲(chǔ)記錄，若小于庫存數(shù)量，則從 storage表中相應(yīng)記錄減去出貨數(shù)量，并寫入數(shù)據(jù)庫，具體代碼如下： Private Sub CmdBaleOut_Click() = SELECT * FROM Storage WHERE SBaleID=39。定義變量用于保存當(dāng)前的倉庫信息 Dim tDepotID 39。定義了 tBaleID, tBaleName, tBaleTotal 變量用于保存當(dāng)前倉庫中的貨品信息。 39。 amp。 39。 amp。清空 LstAllBale 39。 39。 amp。清空 LstBale 39。清空 LstDepot 39。查詢倉庫的貨品 CheckBale 39。 39。 amp。復(fù)原 txt信息 = = 39。 tBaleTotal End Sub Private Sub LstDepot_Click() 39。 tBaleName amp。 tBaleID amp。 39。 amp。 39。 amp。 39。 amp。 ； End Sub Private Sub LstBale_Click() 39。 ； 商品價(jià)格： amp。 ； 商品規(guī)格： amp。 ； 商品產(chǎn)地： amp。 ； 商品名稱： amp。 tBaleID2 = (BaleID).Value tBaleFrom2 = (BaleFrom).Value tBaleSpec2 = (BaleSpec).Value tBalePrice2 = (BalePrice).Value = 商品編號(hào)： amp。 tBaleName2 amp。顯示點(diǎn)選貨品的信息 tBaleName2 = = SELECT BaleID,BaleFrom,BaleSpec,BalePrice FROM Bale WHERE BaleName=39。 ； 商品現(xiàn)存數(shù)量： amp。 ； 商品名稱： amp。 tBaleTotal = (STotal).Value = 商品編號(hào)： amp。 tBaleID amp。 tBaleID = (BaleID).Value = SELECT STotal FROM Storage WHERE SBaleID=39。 tBaleName amp。顯示已有貨品的信息 = SELECT BaleID FROM Bale WHERE BaleName=39。 If IsNumeric() And And Not Then (STotal).Value = CInt((STotal).Value) + CInt() MsgBox (添加成功！ ) 39。 tBaleID amp。增加已有貨品的數(shù)量 If = True Then = SELECT * FROM Storage WHERE SBaleID=39。在倉庫中增加新的貨品 End Sub ? 當(dāng)用戶點(diǎn)了添加已有貨品按鈕后，新的數(shù)值會(huì)與倉庫中原來的數(shù)值相加，并寫入到 storage表中。增加該倉庫中沒有的貨品的數(shù)量 If = True Then = SELECT * FROM Storage If IsNumeric() And Then (SBaleID) = tBaleID2 (SDepotID) = tDepotID (STotal).Value = CInt() MsgBox (添加成功！ ) 39。定義變量用于保存當(dāng)前倉庫中的貨品信息 Dim tBaleID, tBaleName, tBaleTotal 39。具體代碼如下： 39。定義了 tBaleID, tBaleName, tBaleTotal 變量用于保存當(dāng)前倉庫中的貨品信息。若登錄的是管理員，可以進(jìn)行管理工作 If PubLogin = admin Then = True End If 39。具體代碼如下： Sub LogGuest() PubLogin = guest Call LogOk End Sub ? 在該窗體中， LogOK過程用于管理員、用戶、匿名用戶登陸完成后，根據(jù)起身份分配不同 的權(quán)限。具體代碼如下： Sub LogUser() = SELECT OpLogin,OpPsw FROM operator WHERE OpEnabled=true While Not If (0).Value = Then If (1).Value = Then 39。密碼正確 PubLogin = admin Call LogOk Else aa = MsgBox(密碼不正確，請重新輸入！ , vbOKOnly, ) = End If End Sub ? 在該窗體中， LogUser過程用于在用戶輸入用戶密碼并點(diǎn)擊登陸按鈕后，檢查用戶密碼是否正確。從而設(shè)置登陸用戶名。用于效驗(yàn)?zāi)涿脩羰欠窨捎? = SELECT GuestEnabled FROM config If (0).Value = False Then = False = amp。Persist Security Info=False 39。 amp。ADO的數(shù)據(jù)庫連接字符串 = Provider=。 StrIntro(2) = 開發(fā)軟件： MS Visual Basic StrIntro(3) = 開發(fā)環(huán)境： Microsoft Windows 2021 StrIntro(4) = 開發(fā)人員：沈宏清 宋劍峰 姚國民 徐征 StrIntro(5) = 陳少輝 周少華 張志勇 StrIntro(6) = All Rights Reserved. If Len(LblIntro(0)) Len(StrIntro(0)) Then LblIntro(0).Caption = Left(StrIntro(0), Len(LblIntro(0).Caption) + 1) End If If Len(LblIntro(0)) = Len(StrIntro(0)) And Len(LblIntro(1)) Len(StrIntro(1)) Then LblIntro(1).Caption = Left(StrIntro(1), Len(LblIntro(1).Caption) + 1) End If If Len(LblIntro(1)) = Len(StrIntro(1)) And Len(LblIntro(2)) Len(StrIntro(2)) Then LblIntro(2).Caption = Left(StrIntro(2), Len(LblIntro(2).Caption) + 1) End If If Len(LblIntro(2)) = Len(StrIntro(2)) And Len(LblIntro(3)) Len(StrIntro(3)) Then LblIntro(3).Caption = Left(StrIntro(3), Len(LblIntro(3).Caption) + 1) End If If Len(LblIntro(3)) = Len(StrIntro(3)) And Len(LblIntro(4)) Len(StrIntro(4)) Then LblIntro(4).Caption = Left(StrIntro(4), Len(LblIntro(4).Caption) + 1) End If If Len(LblIntro(4)) = Len(StrIntro(4)) And Len(LblIntro(5)) Len(StrIntro(5)) Then LblIntro(5).Caption = Left(StrIntro(5), Len(LblIntro(5).Caption) + 1) End If If Len(LblIntro(5)) = Len(StrIntro(5)) And Len(LblIntro(6)) Len(StrIntro(6)) Then LblIntro(6).Caption = Left(StrIntro(6), Len(LblIntro(6).Caption) + 1) End If End Sub ? 在該窗體加載時(shí)，將自動(dòng)在用戶名下拉列表中顯示所有用戶名稱，并自動(dòng)檢測匿名登陸功能是否被啟用，從而確定用戶是否可以匿名登陸。 amp。 amp。具體代碼如下： Private Sub Timer1_Timer() Dim StrIntro(0 To 6) As String StrIntro(0) = 軟件名稱： amp。 39。 amp。 39。 amp。 39。 amp。 If Not An