vb60物資倉庫管理系統(tǒng)的設(shè)計與實現(xiàn)-資料下載頁
2024-12-06 12:42本頁面
【導(dǎo)讀】摘要隨著現(xiàn)代工業(yè)的發(fā)展，利用計算機輔助人們完成日常信息管理越來越受到重視。統(tǒng)采用生命周期法作為開發(fā)方法，并選用VisualBasic作為開發(fā)工具。通過對用戶的需求分析以及系統(tǒng)的可行性分析，明確了系統(tǒng)應(yīng)該實現(xiàn)的基本功能。查用戶需求分析的基礎(chǔ)上，構(gòu)建了相應(yīng)的數(shù)據(jù)庫，并且利用先進的面向?qū)ο蟮某绦蛟O(shè)計方法，
【正文】 報告，說明測試數(shù)據(jù)的選擇，測試 用例 以及測試結(jié)果是否符合預(yù)期結(jié)果。測試發(fā)現(xiàn)問題之后要經(jīng)過調(diào)試找出錯誤原因和位 置，然后進行改正。是基于系統(tǒng)整體需求說明書的黑盒類測試，應(yīng)覆蓋系統(tǒng)所有聯(lián)合的部件。系統(tǒng)測試是針對整個產(chǎn)品系統(tǒng)進行的測試，目的是驗證系統(tǒng)是否滿足了需求規(guī)格的定義，找出與需求規(guī)格不相符合或與之矛盾的地方。 鑒于本系統(tǒng)的一些特性，本人設(shè)計了以下幾各方面進行測試： 集成測試 集成測試將測試每一個部件之間的工作是否正常。在這個階段，我們假設(shè)所有的單元已通過開發(fā)人員個人在單元測試階段測試全部通過，沒有任何錯誤。 功能測試 系統(tǒng)功能測試如下： 測試是否可以正常添加用戶和修改密碼，系統(tǒng)正常退出； 測試是否可以正常對 物資信息進行管理，如物資信息、貨品信息的添加、刪除以及修改； 測試是否可以正常對物資變動進行管理，如物資入庫、出庫、盤點等的操作； 文檔測試 測試文檔是否包括全部內(nèi)容 測試軟件功能描述與其他功能有沒有沖突 查看軟件功能描述是否是原來系統(tǒng)分析和需求 查看文檔內(nèi)容在特定的情況和進度下 ,以現(xiàn)有人力 ,物力和資源能否實現(xiàn) 極限測試 這一部分將測試所有極端的情況，如速度非?？斓那闆r下和速度非常慢的情況下，以及所有其它的極端情況。 21 附錄 1. 文件 41 入庫登記模塊添加按鈕代碼如下： Private Sub cmdAdd_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 入庫登記模塊刪除按鈕代碼如下： Private Sub cmdDelete_Click() On Error GoTo DeleteErr With .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub 2．文件 42 組合查詢窗口中組合查詢按鈕代碼如下： Private Sub Command6_Click() ss2 = ss3 = ss4 = ss5 = = SELECT * FROM 貨品信息 where + ss2 + =39。 + ss4 + 39。 and + ss3 + =39。 + ss5 + 39。 End Sub 43 添加用戶窗體中確定按鈕代碼如下： Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。判斷用戶名稱是否為空 22 MsgBox 請輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=39。 amp。 UserName amp。 39。 Set rs = transactSQL(sql) If = False Then 39。判斷是否已經(jīng)存在用戶 MsgBox 這個用戶已經(jīng)存在！請重新輸入用戶名稱！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else If Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = Exit Sub ElseIf Trim() = Then 39。判斷密碼是否為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = confirmPWD = Else 39。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。 amp。 UserName sql = sql amp。 39。,39。 amp。 PassWord amp。 39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 = = = End If End If End If End Sub 44 修改密碼窗體的確定按鈕代碼如下： Private Sub Command1_Click() 23 Dim sql As String Dim rs As If Trim() = Then 39。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。修改密碼 sql = update 用戶 set UserPWD = 39。 amp。 NewPWD amp。 39。where UserID=39。 sql = sql amp。 gUserName amp。 39。 transactSQL (sql) MsgBox 密碼已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub
研究報告相關(guān)推薦
鄂ICP備17016276號-1