【正文】 菜單單擊事件 End Sub Private Sub M_BaleIn_Click() //進(jìn)貨菜單單擊事件 End Sub Private Sub M_BaleMove_Click() //貨品流動(dòng)菜單單擊事件 End Sub Private Sub M_BaleOut_Click() //出貨菜單單擊事件 End Sub Private Sub MDIForm_Load() //MDI窗體加載事件 = 8000 = 6000 = False = False = False = False = False End Sub E. 登錄窗體： ? 窗體控件： 控件名稱 說(shuō)明 AdoLogin 登陸 ADO控件 CmbUserList 退出按鈕 CmdLogon 登陸按鈕 FraIntro 軟件介紹框架 FraLogin 登陸框架 FraShow 總框架 LblIntro() 介紹文本標(biāo)簽數(shù)組 OptAdmin 管理員登陸選項(xiàng) OptGuest 匿名登陸選項(xiàng) OptUser 用戶登陸選項(xiàng) TxtAdminPsw 管理員密碼框 TxtUserPsw 用戶密碼框 Timer 時(shí)間控件 ? 在該窗體中，利用 Timer控件和標(biāo)簽數(shù)組控件實(shí)現(xiàn)了文本自動(dòng)展示的功能。 StrIntro(1) = 目前版本： amp。 . amp。 . amp。具體代碼如下 ： Private Sub Form_Load() 39。Data Source= amp。 \。以下語(yǔ)句用于在用戶名下拉列表中顯示所有用戶名稱 = SELECT OpLogin FROM operator WHERE OpEnabled=true While (Not ) ((0).Value) Wend 39。 ，目前禁用 Else = True End If End Sub ? 在該窗體中， LogAdmin 過(guò)程用于在用戶輸入管理員密碼并點(diǎn)擊登陸按鈕后，檢查用戶密碼是否正確。具體代碼如下： Sub LogAdmin() = SELECT AdminPsw FROM config If (0).Value = Then 39。從而設(shè)置登陸用戶名。密碼正確 PubLogin = Call LogOk Else aa = MsgBox(密碼不正確，請(qǐng)重新輸入 , vbOKOnly, ) = End If End If Wend End Sub ? 在該窗體中， LogGuest 過(guò)程用于在匿名用戶點(diǎn)擊登陸按鈕后，設(shè)置登陸用戶名。具體代碼如下： Sub LogOk() = True = True = True = True 39。若是匿名登錄，則缺少較多權(quán)限 If PubLogin = guest Then = False = False = False = True End If = False = True Call StartIntro End Sub F. 進(jìn)貨管理窗體： ? 窗體控件： 控件名稱 說(shuō)明 AdoMain ADO數(shù)據(jù)控件 AdoMain2 第二個(gè) ADO數(shù)據(jù)控件 CmdAddNew 添加新貨品按鈕 CmdAddOld 添加已有貨品按鈕 FraAddNew 添加新貨品框架 FraAddOld 添加已有貨品框架 FraMain 主框架 FraBaleIn 進(jìn)貨區(qū)框架 LblMsg 消息標(biāo)簽 LblMsg2 消息標(biāo)簽 2 LstAllBale 所有貨品清單 LstBale 貨品清單 LstDepot 倉(cāng)庫(kù)清單 OptBaleInNew 進(jìn)新貨選項(xiàng) OptBaleInOld 進(jìn)已有貨品選項(xiàng) TxtNum 數(shù)值輸入框 TxtNum2 數(shù)值輸入框 2 ? 該窗體定義了 tDepotID 變量用于保存當(dāng)前的倉(cāng)庫(kù)信息。定義了tBaleID2, tBaleName2, tBaleFrom2, tBaleSpec2, tBalePrice2 變量用于保存當(dāng)前的貨品表中的貨品信息。定義變量用于保存當(dāng)前的倉(cāng)庫(kù)信息 Dim tDepotID 39。定義變量用于保存當(dāng)前的貨品表中的貨品信息 Dim tBaleID2, tBaleName2, tBaleFrom2, tBaleSpec2, tBalePrice2 ? 當(dāng)用戶點(diǎn)了填加新的貨品時(shí)，該貨品的記錄回自動(dòng)保存到 storage表中，做為存儲(chǔ)記錄，具體代碼如下： Private Sub CmdAddNew_Click() 39。查詢貨品 CheckBale CheckAllBale End If End If 39。 Private Sub CmdAddTotal_Click() 39。 amp。 39。查詢已有貨品 CheckBale 39。 amp。 39。 amp。 39。 tBaleID amp。 tBaleName amp。 tBaleTotal End If End If End Sub ? 當(dāng)用戶點(diǎn)了相應(yīng)的列表框如貨品列表，已有貨品列表，倉(cāng)庫(kù)列表時(shí)，列表的響應(yīng) text 值會(huì)被程序捕獲并從數(shù)據(jù)庫(kù)中取出相應(yīng)的記錄，顯示給用戶，具體代碼如下： Private Sub LstAllBale_Click() 39。 amp。 39。 tBaleID2 amp。 tBaleName2 amp。 tBaleFrom2 amp。 tBaleSpec2 amp。 tBalePrice2 amp。顯示點(diǎn)選貨品的信息 tBaleName = = SELECT BaleID FROM Bale WHERE BaleName=39。 tBaleName amp。 tBaleID = (BaleID).Value = SELECT STotal FROM Storage WHERE SBaleID=39。 tBaleID amp。 AND SDepotID=39。 tDepotID amp。 tBaleTotal = (STotal).Value = 商 品編號(hào)： amp。 ； 商品名稱： amp。 ； 商品現(xiàn)存數(shù)量： amp。復(fù)原 lbl信息 = 商品信息 = 商品信息 39。通過(guò)名稱選擇倉(cāng)庫(kù)的 ID,保存 到 tDepotID = SELECT DepotID FROM Depot WHERE DepotName=39。 amp。 tDepotID = (DepotID).Value 39。查詢倉(cāng)庫(kù)中沒有的貨品 CheckAllBale End Sub ? CheckDepot過(guò)程用于從數(shù)據(jù)庫(kù)中讀取倉(cāng)庫(kù)列表代碼如下： Sub CheckDepot() 39。查詢所有倉(cāng)庫(kù)的名稱 = SELECT DepotName FROM depot Do While Not ((DepotName).Value) Loop End Sub ? CheckBale 過(guò)程和 CheckAllBale過(guò)程分別從數(shù)據(jù)庫(kù)中讀出相應(yīng)倉(cāng)庫(kù)中已經(jīng)存在的貨品和在貨品表中存在但在倉(cāng)庫(kù)中不存在的貨品列表，供用戶點(diǎn)擊，具體代碼如下： Sub CheckBale() 39。查詢所有倉(cāng)庫(kù)中已經(jīng)有的貨品名稱 = SELECT BaleName FROM Bale WHERE BaleID IN (SELECT SBaleID FROM Storage WHERE SDepotID IN (SELECT DepotID FROM Depot WHERE DepotName=39。 amp。)) Do While Not ((BaleName).Value) Loop End Sub Sub CheckAllBale() 39。查詢所有貨品表中的貨品 = SELECT * FROM Bale Do While Not = SELECT * FROM Storage WHERE SBaleID=39。 (BaleID).Value amp。 AND SDepotID=39。 tDepotID amp。 If Then ((BaleName).Value) End If Loop End Sub G. 出貨管理模塊： 控件名稱 說(shuō)明 AdoMain ADO數(shù)據(jù)控件 AdoMain2 第二個(gè) ADO數(shù)據(jù)控件 CmdBaleOut 出貨按鈕 LblMsg 消息標(biāo)簽 LblMsg2 消息標(biāo)簽 2 LstBale 貨品清單 LstDepot 倉(cāng)庫(kù)清單 TxtNum 數(shù)值輸入框 ? 該窗體定義了 tDepotID 變量用于保存當(dāng)前的倉(cāng)庫(kù)信息。具體代碼如下： 39。定義變量用于保存當(dāng)前倉(cāng)庫(kù)中的貨品信息 Dim tBaleID, tBaleName, tBaleTotal ? 當(dāng)用戶點(diǎn)了出貨按鈕，系統(tǒng)回自動(dòng)檢查該貨品的庫(kù)存數(shù)量。 amp。 39。 amp。 39。 tBaleTotal amp。顯示點(diǎn)選貨品的信息 tBaleName = = SELECT BaleID FROM Bale WHERE BaleName=39。 tBaleName amp。 tBaleID = (BaleID).Value = SELECT STotal FROM Storage WHERE SBaleID=39。 tBaleID amp。 AND SDepotID=39。 tDepotID amp。 tBaleTotal = (STotal).Value = 商品編號(hào)： amp。 ； 商品名稱： amp。 ； 商品現(xiàn)存數(shù)量： amp。顯示點(diǎn)選貨品的信息 tBaleName = = SELECT BaleID FROM Bale WHERE BaleName=39。 tBaleName amp。 tBaleID = (BaleID).Value = SELECT STotal FROM Storage WHERE SBaleID=39。 tBaleID amp。 AND SDepotID=39。 tDepotID amp。 tBaleTotal = (STotal).Value = 商品編號(hào)： amp。 ； 商品名稱： amp。 ； 商品現(xiàn)存數(shù)量： amp。以前在課堂上學(xué)習(xí)新知識(shí)很少實(shí)踐，知識(shí)的學(xué)習(xí)近乎填鴨似的；然而在這次畢業(yè)設(shè)計(jì)中， 對(duì)新知識(shí)的學(xué)習(xí)方式發(fā)生了質(zhì)的變化。并且在學(xué)習(xí)新知識(shí)之前就對(duì)知識(shí)有了一個(gè)感性的認(rèn)識(shí)，了解其基本框架，再也不會(huì)在學(xué)習(xí)過(guò)程中迷失方向。 循序漸進(jìn)，逐步完善。系統(tǒng)設(shè)計(jì)不可能一蹴而就，一口吃個(gè)大胖子。 九、致謝 首先感謝我的指導(dǎo)老師 白濤 ，在畢業(yè)設(shè)計(jì)的選題、文 獻(xiàn)查閱、論文修改、定稿等過(guò)程中的幫助，使我受益匪淺。 八、結(jié)束語(yǔ) 本論文描述的是我關(guān)于《物流管理系統(tǒng)》的設(shè)計(jì)建設(shè)過(guò)程，在整個(gè)設(shè)計(jì)的過(guò)程中，我查閱了大量的材料，進(jìn)行了大量的實(shí)踐應(yīng)該說(shuō)收獲豐碩，當(dāng)然在這期間充滿