超市會(huì)員管理項(xiàng)目軟件系統(tǒng)測(cè)試報(bào)告(編輯修改稿)
2025-01-20 19:57 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 員修 改 會(huì) 員注 銷(xiāo) 會(huì)員查 找 會(huì)員積 分 換購(gòu)消 費(fèi) 情況操 作 員登 錄添 加 操作 員 開(kāi) 始結(jié) 束初 始 化 環(huán) 境讀 取 測(cè)試 用 例消 費(fèi) 模塊結(jié) 果 處 理結(jié) 果 輸出積 分 換購(gòu)判 斷 測(cè) 試 模 塊添 加 會(huì)員修 改 會(huì)員注 銷(xiāo) 會(huì)員添 加 操作 員操 作 員登 錄查 找 會(huì)員瀏 覽 會(huì)員 驅(qū)動(dòng)模塊代碼： Private Sub Command1_Click() End Sub Private Sub Command6_Click() = Provider=。Data Source= amp。 amp。 \會(huì)員管理 .mdb。Persist Security Info=False Dim Testdata(4, 2) As String 39。定義數(shù)組用于存放測(cè)試用例 Dim TextLine 39。存放讀取測(cè)試用例 Dim n 39。測(cè)試數(shù)據(jù)個(gè)數(shù) Open amp。 \\測(cè)試用例 \\操作員登錄測(cè)試用例 .txt For Input As 1 39。讀取測(cè)試用例文件 39。將文件中所有測(cè)試用例，存放到數(shù)組中 Do While Not EOF(1) 39。 循環(huán)至文件尾。 Line Input 1, TextLine 39。 讀入一行數(shù)據(jù)并將其賦予某變量。 Testdata(n, 0) = Split(TextLine, ,)(0) Testdata(n, 1) = Split(TextLine, ,)(1) Testdata(n, 2) = Split(TextLine, ,)(2) n = n + 1 Loop Close 1 39。關(guān)閉測(cè)試用例 39。打開(kāi)輸出文件，用于存放測(cè)試結(jié)果 Open amp。 \\測(cè)試用例 \\測(cè)試結(jié)果輸出 \\操作員登錄測(cè)試用例 .txt For Output As 2 39。 打開(kāi)輸出文件。 39。使用測(cè)試用例，測(cè)試此模塊，并將結(jié)果輸出到測(cè)試結(jié)果文件中 For i = 0 To 4 登錄 . = 登錄 . = 登錄 . = Testdata(i, 0) 登錄 . = Testdata(i, 1) 登錄 .Command1_Click 主界面 .Caption = i If 主界面 .Visible = True Then Print 2, Testdata(i, 0) amp。 , amp。 Testdata(i, 1) amp。 , amp。 Testdata(i, 2) amp。 , amp。 登錄成功 Unload 主界面 Else Print 2, Testdata(i, 0) amp。 , amp。 Testdata(i, 1) amp。 , amp。 Testdata(i, 2) amp。 , amp。 登錄失敗 End If Next i Close 2 39。關(guān)閉測(cè)試結(jié) 果文件 End Sub Private Sub Command7_Click() Dim Testdata(4, 2) As String 39。定義數(shù)組用于存放測(cè)試用例 Dim TextLine 39。存放讀取測(cè)試用例 Dim n 39。測(cè)試數(shù)據(jù)個(gè)數(shù) Open amp。 \\測(cè)試用例 \\添加操作員測(cè)試用例 .txt For Input As 1 39。讀取測(cè)試用例文件 39。將文件中所有測(cè)試用例，存放到數(shù)組中 Do While Not EOF(1) 39。 循環(huán)至文件尾。 Line Input 1, TextLine 39。 讀入一行數(shù)據(jù)并將其賦予某變量。 Testdata(n, 0) = Split(TextLine, ,)(0) Testdata(n, 1) = Split(TextLine, ,)(1) Testdata(n, 2) = Split(TextLine, ,)(2) n = n + 1 Loop Close 1 39。關(guān)閉測(cè)試用例 39。打開(kāi)輸出文件，用于存放測(cè)試結(jié)果 Open amp。 \\測(cè)試用例 \\測(cè)試結(jié)果輸出 \\添加操作員測(cè)試用例 .txt For Output As 2 39。 打開(kāi)輸出文件。 39。使用測(cè)試用例，測(cè)試此模塊，并將結(jié)果輸出到測(cè)試結(jié)果文件中 For i = 0 To 4 添加操作員 . = 添加操作員 . = 添加操作員 . = 添加操作員 . = Testdata(i, 0) 添加操作員 . = Testdata(i, 1) 添加操作員 . = Testdata(i, 1) If 添加操作員 . = 已存在 Then Print 2, Testdata(i, 0) amp。 , amp。 Testdata(i, 1) amp。 , amp。 Testdata(i, 2) amp。 , amp。 無(wú)法添加 Else 添加操作員 .Command1_Click 39。查詢是否添加成功 = = select * from 管理員 where 用戶名 =39。 + Testdata(i, 0) + 39。 If 0 Then Print 2, Testdata(i, 0) amp。 , amp。 Testdata(i, 1) amp。 , amp。 Testdata(i, 2) amp。 , amp
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1