【導讀】軟件工程實驗報告。完成日期：2020年12月18日

　　

【正文】 clamation, = 您還有 amp。 t 1 amp。 次輸入密碼機會！ = = End If End If End If t = t 1 11: If t = 0 Then 12: MsgBox 對不起，您已連續(xù)三次輸入錯誤 ,請確認正確密碼再試，謝謝！ , vbOKOnly + vbExclamation, 18: Unload Me Exit Sub End If End Sub Private Sub txtpwd_Change() 13: If Len() 12 Then 14: = Left(, 12) End If End Sub Private Sub txtuser_Change() 15: If Len() 12 Then 16： = Left(, 12) End If End Sub （ b）詳細流圖 “倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 28 頁 / 共 35 頁 圖 登錄模塊詳細流圖 （ 2）出入庫錄入模塊 （ a）代碼 Private Sub Command1_Click() Dim rs_save As New Dim sql As String Dim i, num As Integer Dim s As String 39。轉化數(shù)據(jù)用 On Error GoTo saveerror 1: If Trim() = Then 2: MsgBox 編號不能為空 !, vbOKOnly + vbExclamation, Exit Sub End If 3: If = Then 4: MsgBox 請選擇貨源地！ , vbOKOnly + vbExclamation, Exit Sub End If 5: If = Then 6: MsgBox 請選擇年份！ , vbOKOnly + vbExclamation, Exit Sub End If 7: If = Then 8: MsgBox 請選擇月份！ , vbOKOnly + vbExclamation, Exit Sub “倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 29 頁 / 共 35 頁 End If 9: If = Then 10: MsgBox 請選擇日期！ , vbOKOnly + vbExclamation, Exit Sub End If 11: If = Then 12: MsgBox 請?zhí)顚憘}庫編號！ , vbOKOnly + vbExclamation, Exit Sub End If 13: If 0 Then 14: MsgBox 請輸入完整的物品信息！ , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 入出庫 where 倉庫編號 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic 15: If Then 16: (0) = Trim() (1) = CDate(Trim() amp。 amp。 Trim() amp。 amp。 Trim()) (2) = Trim() (3) = Trim() (4) = Trim() 39。入出庫標記 17: If = 入庫 Then 18: (5) = 入庫 19: Else 20: (5) = 出庫 End If 21: Else 22: (日期 ) = CDate(Trim() amp。 amp。 Trim() amp。 amp。 Trim()) sql = select * from 貨物詳況 sql, conn, adOpenKeyset, adLockPessimistic num = (數(shù)量 ) = 2 (數(shù)量 ) = num + Val() “倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 30 頁 / 共 35 頁 MsgBox 倉庫編號重復！。 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 貨物詳況 sql, conn, adOpenKeyset, adLockPessimistic For i = 1 To 1 (0) = Trim() (1) = CDate(Trim() amp。 amp。 Trim() amp。 amp。 Trim()) (2) = Trim() = i = 0 (3) = Trim() = 1 23: If = 出庫 Then 24: s = amp。 Trim() (4) = CDbl(s) 25: Else 26: (4) = CDbl(Trim()) End If = 2 (5) = Trim() = 3 (6) = Trim() = 4 27: If = 出庫 Then 28: s = amp。 Trim() (7) = CDbl(s) 29: Else 30: (7) = CDbl(Trim()) End If = 5 (8) = Trim() Next i MsgBox 添加成功！ , vbOKOnly + vbExclamation, 31: Unload Me Exit Sub saveerror: MsgBox “倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 31 頁 / 共 35 頁 End Sub （ b）詳細流圖 圖 出入庫錄入模塊詳細流圖 七、調(diào)試 （ 1）登錄模塊調(diào)試 ①輸入錯誤計數(shù)器顯示錯誤： 回溯法：（ a）檢驗用戶名輸入正確性和內(nèi)容正確性缺少計數(shù)器 （ b）檢測密碼內(nèi)容正確性程序正確 （ c）此類問題延伸到修改密碼、添加用戶、用戶管理等模塊 （ d）修改計數(shù)器出現(xiàn)地點，已經(jīng)修復，并且經(jīng)測試未出現(xiàn)問題 ②修改密碼輸入字數(shù)溢出錯誤： 原因排除法：（ a）非數(shù)據(jù)庫接口錯誤，數(shù)據(jù)庫內(nèi)字段設置正常、統(tǒng)一。 （ b） 輸入正確性檢測缺少 （ c）三個輸入框都出現(xiàn)了輸入溢出的問題 （ d）添加輸入框輸入字數(shù)限制，已經(jīng)修復，經(jīng)測試未出現(xiàn)問題 ③添加用戶輸入字數(shù)溢出錯誤： 原因排除法：（ a）非數(shù)據(jù)庫接口錯誤，數(shù)據(jù)庫內(nèi)字段設置正常、統(tǒng)一。 （ b）輸入正確性檢測缺少 （ c）三個輸入框都出現(xiàn)了輸入溢出的問題 （ d）添加輸入框輸入字數(shù)限制，已經(jīng)修復，經(jīng)測試未出現(xiàn)問題 ④用戶管理輸入字數(shù)溢出錯誤： 原因排除法：（ a）非數(shù)據(jù)庫接口錯誤，數(shù)據(jù)庫內(nèi)字段設置正常、統(tǒng)一。 （ b）輸入正確性檢測缺少 （ c）輸入框出現(xiàn)了輸入溢出的問題 （ d） 添加輸入框輸入字數(shù)限制，已經(jīng)修復，經(jīng)測試未出現(xiàn)問題 ⑤輸入新密碼時，輸入空格，系統(tǒng)未給出錯誤提示，正常修改“ “倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 32 頁 / 共 35 頁 原因排除法：（ a）非數(shù)據(jù)庫接口錯誤，數(shù)據(jù)庫內(nèi)字段設置正常、統(tǒng)一。 （ b）輸入正確性檢測缺少 （ c）添加輸入框輸入字符限制，已修復，經(jīng)檢測未出現(xiàn)問題 （ 2）出入庫錄入模塊調(diào)試 ①入庫的貨物信息錄入后，顯示窗口中的數(shù)量、單價、總價、生產(chǎn)廠家無法輸入 原因排除法：（ a）非數(shù)據(jù)庫接口錯誤 （ b）數(shù)據(jù)庫表單中 字段屬性的問題，應設置為可輸入，未修復，由開發(fā)人員進行修復 （ c）開發(fā)人員已修復 ②入庫信息錄入后 ，點擊確定后，對請求表的改變沒有成功 原因排除法：（ a）在表中，索引、主關鍵字或關系中創(chuàng)建了重復的值，未修復，交與開發(fā)人員進行修復 （ b）開發(fā)人員已修復 ③出庫的貨物信息錄入后，顯示窗口中的數(shù)量、單價、總價、生產(chǎn)廠家無法輸入 原因排除法： （ a）非數(shù)據(jù)庫接口錯誤 （ b）數(shù)據(jù)庫表單中 字段屬性的問題，應設置為可輸入，未修復，由開發(fā)人員進行修復 （ c）開發(fā)人員已修復 ④出庫信息錄入后，點擊確定后，對請求表的改變沒有成功 原因排除法： （ a）在表中，索引、主關鍵字或關系中創(chuàng)建了重復的值，未修復，交與開發(fā)人員 進行修復 （ b）開發(fā)人員已修復 ⑤執(zhí)行出庫操作時，在出庫內(nèi)無庫存或庫存量少于出庫量時，系統(tǒng)發(fā)生運行錯誤 原因排除法： （ a）非數(shù)據(jù)庫接口錯誤，數(shù)據(jù)庫內(nèi)字段設置正常、統(tǒng)一。 （ b）出庫權限發(fā)生錯誤，未修復，交由開發(fā)人員修復 （ c）已由開發(fā)人員修復 八、開發(fā)總結 倉庫作為一種信息資源的集散地，用戶和貨物資料繁多，包含很多的信息數(shù)據(jù)的管理。根據(jù)調(diào)查得知，以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于倉庫信息的統(tǒng)計和核實等往往采用人工檢查進行。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失 ，且不易查找?？偟膩碚f，缺乏系統(tǒng)，規(guī)范的信息管理手段。 為了適應日趨激烈的市場競爭，企業(yè)需要對自身的經(jīng)營狀況有所了解。高效率、科學化地管理倉庫成為提高生產(chǎn)經(jīng)營效率的有效途徑。采用計算機管理信息系統(tǒng)能有效地避免倉庫管理的隨意性，提高信息處理的速度和準確性，能夠及時、準確、有效地查詢和修改倉庫信息情況，并給企業(yè)管理帶來了明顯的經(jīng)濟效益和社會效益，成為當今倉庫管理科學化和現(xiàn)代化的重要標志。 本系統(tǒng)針對企業(yè)的實際需要，分析了企業(yè)倉庫管理系統(tǒng)的功能，以入庫管理和出庫管理為重點，描述各個模塊結構設計及實 施過程中的技術要點，實現(xiàn)倉庫的基本管理 (出入庫管理 )、查詢管理、統(tǒng)計管理、打印管理及操作員、管理人員和數(shù)據(jù)設置管理等功能。同時，還對代碼維護及庫存數(shù)據(jù)整理等做了設計。用戶可以通過相應的模塊，對倉庫里的材料的基本情況進行更新、刪除和查詢，對材料的出庫和入庫進行管理，對出入庫明細進行查詢，對“倉庫管理系統(tǒng) ” 設計與實現(xiàn) 第 33 頁 / 共 35 頁 出庫，入庫，和材料的庫存余額進行報表生成，對使用該系統(tǒng)的用戶進行更新、刪除，對庫存數(shù)據(jù)進行整理，還有操作員管理，權限設置，密碼修改等其他系統(tǒng)管理功能。 本系統(tǒng)基于 Windows 平臺，采用 Visual 作前臺開發(fā)工具，利用 Access 作后臺數(shù)據(jù)庫。首先進行可行性分析和用戶需求分析以及數(shù)據(jù)需求分析，然后根據(jù)開發(fā)環(huán)境及自身知識條件確定開發(fā)工具、開發(fā)技術、開發(fā)平臺。本系統(tǒng)是一個面向倉庫業(yè)務管理的信息系統(tǒng)，主要功能模塊有登錄模塊、主界面模塊、入庫管理模塊、出庫管理模塊、查詢模塊、統(tǒng)計 /打印模塊、設置模塊。 通過對本次倉庫系統(tǒng)的設計，使我們對軟件工程這門課程有了更深入的了解，知道軟件工程不僅是一門研究用工程化方法構建和維護有效的、實用的、高質(zhì)量的軟件的學科，而且在現(xiàn)代社會中，軟件應用于多個方面，如工業(yè)、農(nóng)業(yè)、銀行、 航空、政府部門等，這些應用促進了經(jīng)濟和社會的發(fā)展，使人們的工作更加高效，同時提高了生活質(zhì)量；也使我們意識到VB 語言的重要性。 Visual Basic 是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結構化高級程序設計語言，可用于開發(fā) Windows 環(huán)境下的各類應用程序。它簡單易學、效率高，且功能強大可以與 Windows 專業(yè)開發(fā)工具 SDK 相媲美。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具，使用 Windows內(nèi)部的廣泛應用程序接口（ API）函數(shù)，動態(tài)鏈接庫（ DLL）、對 象的鏈接與嵌入（ OLE）、開放式數(shù)據(jù)連接（ ODBC）等技術，可以高效、快速地開發(fā) Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。 對我們來說， Visual Basic 有著更特殊的意義。通過以前對 Visual Basic 的學習，讓我們感覺到它的優(yōu)越性，隨著對 Visual Basic 學習和研究的深入，讓我們更加熱愛這么語言。雖然學習 V