軟件項目管理實驗bug票管理系統(tǒng)課程設(shè)計

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：18 大?。?05.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩17頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　實驗報告　　課程名稱：軟件項目管理 　　實驗名稱：BUG 票信息管理系統(tǒng) 　　實驗類型：驗證性□ 綜合性√ 設(shè)計性□　　實驗室名稱：信息工程

2、學(xué)院九樓機(jī)房 　　班級：學(xué)號： 　　姓名：組別： 　　同組人：成績： 　　實驗日期： 2013年4月

3、 　　預(yù)習(xí)報告　　一、實驗?zāi)康模?lt;/b>　?。?）掌握BUG票信息及BUG管理有關(guān)信息。　?。?）掌握熟悉Excel圖表及常用工具欄的使用。　?。?）掌握VBA

4、編程基本知識和編程技巧，并能夠進(jìn)行簡單的系統(tǒng)開發(fā)。　　二、實驗題目：　　設(shè)計一個BUG票管理系統(tǒng)，實現(xiàn)對軟件項目中產(chǎn)生BUG信息的管理,從而提高軟件項目過程的效率和質(zhì)量，提高企業(yè)生產(chǎn)率。　　三、實驗要求：<p

5、>　?。?）根據(jù)BUG票信息管理的特征，設(shè)計BUG票模板；　?。?）分析BUG票所具有的屬性字段，并進(jìn)行整理；　?。?）抽取BUG條件列表；　?。?）自動生成趨勢曲線或統(tǒng)計表格。　　四、實驗用儀器設(shè)備、器材或軟件環(huán)境：　　軟

6、件環(huán)境：Windows XP以上操作系統(tǒng)，Microsoft Excel 2003 或Microsoft Excel 2007；　　硬件環(huán)境：PC機(jī)一臺。　　實驗報告　　一、實驗?zāi)康模?lt;/b>　?。?）

7、掌握BUG票信息及BUG管理有關(guān)信息。　?。?）掌握熟悉Excel圖表及常用工具欄的使用。　?。?）掌握VBA編程基本知識和編程技巧，并能夠進(jìn)行簡單的系統(tǒng)開發(fā)。　　二、實驗題目：　　設(shè)計一個BUG票管理系統(tǒng)，實現(xiàn)對軟件項目中產(chǎn)生BUG

8、信息的管理,從而提高軟件項目過程的效率和質(zhì)量，提高企業(yè)生產(chǎn)率。　　三、實驗要求：　　（1）根據(jù)BUG票信息管理的特征，設(shè)計BUG票模板；　?。?）分析BUG票所具有的屬性字段，并進(jìn)行整理；　?。?）抽取BUG條件列表；</p&g

9、t;　?。?）自動生成趨勢曲線或統(tǒng)計表格。　　四、實驗用儀器設(shè)備、器材或軟件環(huán)境：　　軟件環(huán)境：Windows XP以上操作系統(tǒng)，Microsoft Excel 2003 或Microsoft Excel 2007；　　硬件環(huán)境：PC機(jī)一臺。　　五

10、、實驗原理及設(shè)計方案：　　利用BVA編程基礎(chǔ)知識和BUG票相關(guān)信息進(jìn)行系統(tǒng)設(shè)計。　　設(shè)計方案:　　系統(tǒng)主界面：如圖1-1　　首先，打開Excel表格，打開Office按鈕中的Excel選項，選中“在功能區(qū)顯示“開發(fā)工具”選項卡”。然后

11、再Sheet1中利用開發(fā)工具欄中菜單，設(shè)計出如圖所示的界面。　　圖1-1　　主界面調(diào)用的部分宏代碼：　　Sub 添加BUG票信息_Click()　　添加BUG票信息.Show

12、　　End Sub　　Sub 管理BUG票信息_click()　　管理BUG票信息.Show　　End Sub　　Sub 提取BUG票信息_click()　　提取BUG票信

13、息.Show　　End Sub　　Sub 產(chǎn)生數(shù)據(jù)()　　Sheets("Sheet4").Select　　n = Sheet2.UsedRange.Rows.Count

14、　Dim j As Integer　　j = 3　　Sheet4.Cells(2, 5).Value = Sheet4.Cells(2, 3).Value　　If Sheet4.Cells(2, 2).Value = Sheet4.Cells(1, 6).Value Then

15、　　Sheet4.Cells(2, 6).Value = 1　　Sheet4.Cells(2, 7).Value = 0　　Sheet4.Cells(2, 8).Value = 0　　Else

16、　　If Sheet4.Cells(2, 2).Value = Sheet4.Cells(1, 7).Value Then　　Sheet4.Cells(2, 6).Value = 0　　Sheet4.Cells(2, 7).Value = 1　　Sheet4.Cells(2, 8).Value = 0</p

17、>　　Else　　Sheet4.Cells(2, 6).Value = 0　　Sheet4.Cells(2, 7).Value = 0　　Sheet4.Cells(2, 8).Value = 1<b&

18、gt;　　End If　　End If　　For i = 3 To n　　If Sheet4.Cells(i - 1, 3).Value = Sheet4.Cells(i, 3).Value Then　　If Sh

19、eet4.Cells(i, 2).Value = Sheet4.Cells(1, 6).Value Then　　Sheet4.Cells(j - 1, 6).Value = Sheet4.Cells(j - 1, 6).Value + 1　　Else　　If Sheet4.C

20、ells(i, 2).Value = Sheet4.Cells(1, 7).Value Then　　Sheet4.Cells(j - 1, 7).Value = Sheet4.Cells(j - 1, 7).Value + 1　　Else　　Sheet4.Cells(j -

21、1, 8).Value = Sheet4.Cells(j - 1, 8).Value + 1　　End If　　End If　　Else　　Sheet4.Ce

22、lls(j, 5).Value = Sheet4.Cells(i, 3).Value　　'將修改后的值寫入excel表格中　　If Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 6).Value Then　　Sheet4.Cells(j, 6).Value = 1&

23、lt;/p>　　Sheet4.Cells(j, 7).Value = 0　　Sheet4.Cells(j, 8).Value = 0　　Else　　If Sheet4.Cells(i, 2).Value = Sheet4.Cells(1, 7).V

24、alue Then　　Sheet4.Cells(j, 6).Value = 0　　Sheet4.Cells(j, 7).Value = 1　　Sheet4.Cells(j, 8).Value = 0　　Else

25、　　Sheet4.Cells(j, 6).Value = 0　　Sheet4.Cells(j, 7).Value = 0　　Sheet4.Cells(j, 8).Value = 1　　End If

26、　End If　　j = j + 1　　End If　　Next　　End Sub

27、;　　Sub 獲取圖表數(shù)據(jù)()　　Dim i, n, m As Integer　　n = Sheet2.UsedRange.Rows.Count 'n為已經(jīng)使用的行數(shù)　　For i = 1 To n　　Sheet4.Cells(i, 1)

28、.Value = Sheet2.Cells(i, 1).Value '將修改后的值寫入excel表格中　　Sheet4.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value　　Sheet4.Cells(i, 3).Value = Sheet2.Cells(i, 4).Value<

29、;p>　　Next　　Sheets("Sheet4").Select　　'按起票日期排序　　Columns("A:C").Select　　Se

30、lection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _　　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _　　:=xlPinYin, DataOpt

31、ion1:=xlSortNormal　　'復(fù)制產(chǎn)生表格數(shù)據(jù)區(qū)　　Call 產(chǎn)生數(shù)據(jù)　　End Sub　　Sub 生成圖表()　　Call 獲取圖表

32、數(shù)據(jù)　　'Sheets("sheet4").Range("E1:H20").Select　　' 宏由吳云濤錄制，時間: 2013-4-30　　Charts.Add　　ActiveChart.ChartType =

33、 xlLine　　ActiveChart.SetSourceData Source:=Sheets("Sheet4").Range("E1:H20"), PlotBy _　　:=xlColumns　　ActiveChart.SeriesCollection(1).Delet

34、e　　ActiveChart.SeriesCollection(1).XValues = "=Sheet4!R2C5:R20C5"　　ActiveChart.SeriesCollection(2).XValues = "=Sheet4!R2C5:R20C5"　　Active

35、Chart.SeriesCollection(3).XValues = "=Sheet4!R2C5:R20C5"　　ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet4"　　With ActiveChart

36、;　　.HasTitle = True　　.ChartTitle.Characters.Text = "BUG票信息統(tǒng)計表"　　.Axes(xlCategory, xlPrimary).HasTitle = True　　.Axes(xlCategory, xlPrimary).AxisTitl

37、e.Characters.Text = "起票日期"　　.Axes(xlValue, xlPrimary).HasTitle = True　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "BUG數(shù)量"<b

38、>　　End With　　With ActiveChart　　.HasAxis(xlCategory, xlPrimary) = True　　.HasAxis(xlValue, xlPrimary) = True　　End Wi

39、th　　ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale　　With ActiveChart.Axes(xlCategory)　　.HasMajorGridlines = False

40、　　.HasMinorGridlines = False　　End With　　With ActiveChart.Axes(xlValue)　　.HasMajorGridlines = False　　.HasMi

41、norGridlines = False　　End With　　ActiveChart.HasDataTable = False　　End Sub　　添加BUG票信息界面：如圖1-2，圖1-3&l

42、t;/p>　　在Visual Basic編輯器中，插入窗體，使用工具箱中的框架，標(biāo)簽，文本框，復(fù)合框等設(shè)計出如圖1-2的界面，并編寫代碼實現(xiàn)添加功能；　　圖1-2　　添加成功后，彈出“添加成功”界面，如圖1-3　　圖1-3<

43、/b>　　具體實現(xiàn)代碼如下：　　Private Sub UserForm_Initialize() '窗體初始化　　功能名.List = Array("差旅費用管理系統(tǒng)", "教務(wù)管理系統(tǒng)", "軟件項目管理

44、系統(tǒng)")'給下拉列表設(shè)置選項　　緊急度.List = Array("至急", "急", "一般", "緩") 　　Test階段.List = Array("未修改", "修改中", "已修改")

45、　　修改確認(rèn)原因.List = Array("文檔不備", "BUG不可再現(xiàn)", "環(huán)境同期問題", "誤操作", "重復(fù)指南", "其它")　　BUG原因.List = Array("說明書缺失", "橫

46、展開問題", "硬件關(guān)聯(lián)", "system-down", "數(shù)據(jù)破壞", "帳票", "異常結(jié)束", "其他")　　評審.List = Array("OK", "NG")　　功能名.V

47、alue = "差旅費用管理系統(tǒng)"　　緊急度.Value = "急" '設(shè)置默認(rèn)值　　添加材料.Value = "無" '設(shè)置默認(rèn)值　　Test階段.Value = "未修改" '設(shè)置默認(rèn)值<

48、/p>　　修改確認(rèn)原因.Value = "文檔不備" '設(shè)置默認(rèn)值　　BUG原因.Value = "說明書缺失" '設(shè)置默認(rèn)值　　評審.Value = "OK" '設(shè)置默認(rèn)值<p&

49、gt;　　End Sub　　Private Sub 提交_Click() '單擊提交按鈕時執(zhí)行以下操作　　If BUG號 = "" Then '判斷BUG號是否為空　　MsgBox "BUG號為空，請輸入BUG號！&quo

50、t;　　BUG號.SetFocus　　Exit Sub　　End If　　Dim i, n, flag As Integer　　n = Sheet2.Us

51、edRange.Rows.Count 'n為已經(jīng)使用的行數(shù)　　flag = 0　　For i = 1 To n '判斷BUG號是否和現(xiàn)有的BUG號重復(fù)　　If Sheet2.Cells(i, 1).Value = BUG號.Text Then</

52、p>　　flag = 1　　Exit For　　End If　　Next　　If flag

53、= 1 Then '如果BUG號已經(jīng)存在，則要重新輸入　　MsgBox "該BUG票已存在！" '同時顯示提示信息　　BUG號.Text = "" '把所有輸入框都置空以便繼續(xù)輸入　　功能名.T

54、ext = ""　　起票人.Text = ""　　起票日期.Text = ""　　修改人.Text = ""　　修改日期.Text = ""<

55、p>　　BUG號.SetFocus　　Exit Sub　　End If　　i = n + 1 '把BUG票信息添加到excel表的末尾　　Sheet2.Cells(i, 1).V

56、alue = BUG號.Value　　Sheet2.Cells(i, 2).Value = 功能名.Value　　Sheet2.Cells(i, 3).Value = 起票人.Value　　Sheet2.Cells(i, 4).Value = 起票日期.Value　　Sh

57、eet2.Cells(i, 5).Value = 緊急度.Value　　Sheet2.Cells(i, 6).Value = 添加材料.Value　　Sheet2.Cells(i, 7).Value = Test階段.Value　　Sheet2.Cells(i, 8).Value = 修改確認(rèn)原因.Value&l

58、t;/p>　　Sheet2.Cells(i, 9).Value = 修改人.Value　　Sheet2.Cells(i, 10).Value = 修改日期.Value　　Sheet2.Cells(i, 11).Value = BUG原因.Value　　Sheet2.Cells(i, 1

59、2).Value = 評審.Value　　MsgBox "添加成功！"　　BUG號.Text = "" '添加成功后，將所有輸入框都置空　　功能名.Text = ""　　起票人.Text = &qu

60、ot;"　　起票日期.Text = ""　　修改人.Text = ""　　修改日期.Text = ""　　BUG號.SetFocus　　End

61、 Sub　　Private Sub 打開文件_Click()　　theSh = Application.GetOpenFilename("Txt Files (*.txt), *.txt", , , , False) 'TRUE為多選，F(xiàn)ALSE為單選　　If Va

62、rType(theSh) = vbBoolean Then　　添加材料.Value = "無"　　Else　　添加材料.Value = theSh　　End If</p&

63、gt;　　End Sub　　Private Sub 退出_Click() '單擊退出按鈕時退出添加窗口　　End　　End Sub<p&

64、gt;　　c.管理BUG票信息界面：如圖1-4，圖1-5，圖1-6　　圖1-4　　圖1-5圖1-6　　具體實現(xiàn)代碼如下：　　Private Sub 退出_Click() '

65、單擊退出按鈕時退出查詢窗口　　End　　End Sub　　Private Sub UserForm_Initialize()　　緊急度.List = Array("至急", &

66、quot;急", "一般", "緩") '給下拉列表設(shè)置選項　　系統(tǒng)功能名.List = Array("差旅費用管理系統(tǒng)", "教務(wù)管理系統(tǒng)", "軟件項目管理系統(tǒng)")　　Test階段.List = Array("未修改&q

67、uot;, "修改中", "已修改")　　修改確認(rèn)原因.List = Array("文檔不備", "BUG不可再現(xiàn)", "環(huán)境同期問題", "誤操作", "重復(fù)指南", "其它")　　BUG原因.

68、List = Array("說明書缺失", "橫展開問題", "硬件關(guān)聯(lián)", "system-down", "數(shù)據(jù)破壞", "帳票", "異常結(jié)束", "其他")　　評審.List = Array("OK", &quo

69、t;NG")　　緊急度.Value = "急" '設(shè)置默認(rèn)值　　系統(tǒng)功能名.Value = "差旅費用管理系統(tǒng)"　　添加材料.Value = "無" '設(shè)置默認(rèn)值　　Test階段

70、.Value = "未修改"　　修改確認(rèn)原因.Value = "文檔不備"　　BUG原因.Value = "說明書缺失"　　評審.Value = "OK"　　End Sub&

71、lt;/b>　　Private Sub 查詢_Click() '單擊查詢按鈕時執(zhí)行以下操作　　If BUG號 = "" Then '判斷BUG號是否為空　　MsgBox "BUG號為空，請輸入BUG號！"

72、;　　BUG號.SetFocus　　Exit Sub　　End If　　BUG號2.Text = ""　　起票人.Text = ""

73、　　起票日期.Text = ""　　修改人.Text = ""　　修改日期.Text = ""　　Dim i, n As Integer　　n = Sheet2.UsedRange.Rows.C

74、ount 'n為已經(jīng)使用的行數(shù)　　For i = 1 To n '在所有的記錄中尋找等于輸入的BUG號的記錄　　If Sheet2.Cells(i, 1).Value = BUG號.Text Then　　BUG號2.Text = Sheet2.Cells(i, 1).Value &#

75、39;將查找到的記錄輸出　　系統(tǒng)功能名.Text = Sheet2.Cells(i, 2).Value　　起票人.Text = Sheet2.Cells(i, 3).Value　　起票日期.Text = Sheet2.Cells(i, 4).Value　　緊急度.Text

76、 = Sheet2.Cells(i, 5).Value　　添加材料.Text = Sheet2.Cells(i, 6).Value　　Test階段.Text = Sheet2.Cells(i, 7).Value　　修改確認(rèn)原因.Text = Sheet2.Cells(i, 8).Value

77、　　修改人.Text = Sheet2.Cells(i, 9).Value　　修改日期.Text = Sheet2.Cells(i, 10).Value　　BUG原因.Value = Sheet2.Cells(i, 11).Value　　評審.Value = Sheet2.Cells(i, 12

78、).Value　　Exit For　　End If　　Next　　If BUG號2.Value = "" Then '如果顯示

79、框中顯示的BUG號為空，則表示沒有查到到　　BUG號.Text = "" '輸入框置空以便繼續(xù)輸入　　BUG號.SetFocus　　MsgBox "該BUG票不存在！" '顯示提示信息

80、End If　　End Sub　　Private Sub 修改_Click() '單擊修改按鈕時執(zhí)行以下操作　　If BUG號2 = "" Then '判斷BUG號是否為空

81、;　　MsgBox "BUG號為空，請輸入BUG號！"　　BUG號2.SetFocus　　Exit Sub　　End If　　Dim i, n, flag As Integer

82、　　n = Sheet2.UsedRange.Rows.Count 'n為已經(jīng)使用的行數(shù)　　flag = 0　　For i = 1 To n '在所有的記錄中尋找等于輸入的BUG號的記錄　　If Sheet2

83、.Cells(i, 1).Value = BUG號.Text Then　　flag = 1　　Exit For　　End If　　Next&

84、lt;/b>　　If flag = 0 Then　　MsgBox "該BUG票不存在！"　　BUG號.SetFocus　　Else　　Sheet2.Cells(i,

85、1).Value = BUG號.Value　　Sheet2.Cells(i, 2).Value = 系統(tǒng)功能名.Value　　Sheet2.Cells(i, 3).Value = 起票人.Value　　Sheet2.Cells(i, 4).Value = 起票日期.Value<p&g

86、t;　　Sheet2.Cells(i, 5).Value = 緊急度.Value　　Sheet2.Cells(i, 6).Value = 添加材料.Value　　Sheet2.Cells(i, 7).Value = Test階段.Value　　Sheet2.Cells(i, 8).Value = 修改確認(rèn)原因.V

87、alue　　Sheet2.Cells(i, 9).Value = 修改人.Value　　Sheet2.Cells(i, 10).Value = 修改日期.Value　　Sheet2.Cells(i, 11).Value = BUG原因.Value　　Sheet2.Cell

88、s(i, 12).Value = 評審.Value　　MsgBox "修改成功！" '提示修改成功　　End　　End If　　End Sub&l

89、t;/b>　　Private Sub 刪除_Click() '單擊提交按鈕時執(zhí)行以下操作　　If BUG號 = "" Then '判斷BUG號是否為空　　MsgBox "BUG號為空，請輸入BUG號！"

90、;　　BUG號.SetFocus　　Exit Sub　　End If　　Dim i, n, flag As Integer　　n = Sheet2.UsedRange.Rows.Count &

91、#39;n為已經(jīng)使用的行數(shù)　　flag = 0　　For i = 1 To n '在所有的記錄中尋找等于輸入的BUG號的記錄　　If Sheet2.Cells(i, 1).Value = BUG號.Text Then<

92、;b>　　flag = 1　　Sheet2.Rows(i).Delete '刪除查找到的記錄　　Exit For　　End If　　Next

93、　　If flag = 0 Then '如果沒有找到與輸入BUG號相同的記錄，則顯示提示信息　　BUG號.Text = "" '輸入框置空以便繼續(xù)輸入　　MsgBox "該BUG票不存在！"<p&g

94、t;　　BUG號.SetFocus　　Else　　BUG號.Text = "" '如果成功刪除記錄后，把輸入框置空以便繼續(xù)刪除　　MsgBox "該BUG票已刪除！" '同時顯示提示信息

95、　　BUG號.SetFocus　　End If　　BUG號2.Text = ""　　起票人.Text = ""　　起票日期.Text = ""</p&

96、gt;　　'緊急度.Text = ""　　'Test階段.Text = ""　　修改人.Text = ""　　修改日期.Text = ""

97、;　　End Sub　　Private Sub 打開文件_Click()　　theSh = Application.GetOpenFilename("Txt Files (*.txt), *.txt", , , , False) '修改部分，TRUE為多選，F(xiàn)ALSE為單選<p

98、>　　If VarType(theSh) = vbBoolean Then　　添加材料.Value = "無"　　Else　　添加材料.Value = theSh　　End If</b

99、>　　'添加材料.Value = theSh　　End Sub　　d.提取BUG票信息界面：如圖1-7，圖1-8　　圖1-7　　按條件提取信

100、息得到的數(shù)據(jù)，顯示在Sheet3中，如圖1-8　　圖1-8　　具體實現(xiàn)代碼如下：　　Private Declare Function GetWindowLong Lib "user32" Alias "Get

101、WindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long　　Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWi

102、ndowName As String) As Long　　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

103、　　Private Const GWL_STYLE = (-16)　　Private Const WS_THICKFRAME As Long = &H40000 '(恢復(fù)大小)　　Private Const WS_MINIMIZEBOX As Long = &H20000 '(最小

104、化)　　Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化)　　Dim Choice As Integer　　Private Sub OptionButton1_Click()　　Choice = 1&

105、lt;/p>　　End Sub　　Private Sub OptionButton2_Click()　　Choice = 2　　End Sub　　Private Sub

106、 OptionButton3_Click()　　Choice = 3　　End Sub　　Private Sub OptionButton4_Click()　　Choice = 4<b&

107、gt;　　End Sub　　Private Sub OptionButton5_Click()　　Choice = 5　　End Sub　　Private Sub UserForm_Initialize()<

108、/p>　　Dim hWndForm As Long　　Dim IStyle As Long　　hWndForm = FindWindow("ThunderDFrame", Me.Caption)　　IStyle = GetWindowLong(hWndForm, G

109、WL_STYLE)　　IStyle = IStyle Or WS_THICKFRAME '還原　　IStyle = IStyle Or WS_MINIMIZEBOX '最小化　　IStyle = IStyle Or WS_MAXIMIZEBOX '最大化<p&

110、gt;　　SetWindowLong hWndForm, GWL_STYLE, IStyle　　'初始化"緊急度"和"現(xiàn)在狀態(tài)"等下拉列表　　緊急度.List = Array("至急", "急", "一般", "緩") &#

111、39;給下拉列表設(shè)置選項　　Test階段.List = Array("未修改", "修改中", "已修改")　　修改確認(rèn)原因.List = Array("文檔不備", "BUG不可再現(xiàn)", "環(huán)境同期問題", "誤操作&quo

112、t;, "重復(fù)指南", "其它")　　BUG原因.List = Array("說明書缺失", "橫展開問題", "硬件關(guān)聯(lián)", "system-down", "數(shù)據(jù)破壞", "帳票", "異常結(jié)束", "其他

113、")　　'緊急度.Value = "急" '設(shè)置默認(rèn)值　　'Test階段1.Value = "未修改"　　End Sub　　Private Sub 查詢_

114、Click() '單擊提交按鈕時執(zhí)行以下操作　　If BUG號.Text = "" And 緊急度.Text = "" And Test階段.Text = "" And 修改確認(rèn)原因.Text = "" And BUG原因.Text = "" Then '判斷是否為空<

115、;/p>　　MsgBox "輸入信息為空，請重新輸入！"　　BUG號.SetFocus　　Exit Sub　　End If　　Dim i, j, n

116、 As Integer　　n = Sheet2.UsedRange.Rows.Count 'n為已經(jīng)使用的行數(shù)　　'若選中BUG號　　j = 2　　If Choice = 1

117、Then　　'MsgBox "BUG號"　　For i = 1 To n　　If Sheet2.Cells(i, 1).Value = BUG號.Value Then　　Sheet3.Cells(j, 1).Value = Sheet2.Cel

118、ls(i, 1).Value '將修改后的值重新寫回excel表格中，覆蓋掉原來的數(shù)據(jù)　　Sheet3.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value　　Sheet3.Cells(j, 3).Value = Sheet2.Cells(i, 3).Value

119、Sheet3.Cells(j, 4).Value = Sheet2.Cells(i, 4).Value　　Sheet3.Cells(j, 5).Value = Sheet2.Cells(i, 5).Value　　Sheet3.Cells(j, 6).Value = Sheet2.Cells(i, 6).Value

120、　　Sheet3.Cells(j, 7).Value = Sheet2.Cells(i, 7).Value　　Sheet3.Cells(j, 8).Value = Sheet2.Cells(i, 8).Value　　Sheet3.Cells(j, 9).Value = Sheet2.Cells(i, 9).Value<p&g

121、t;　　Sheet3.Cells(j, 10).Value = Sheet2.Cells(i, 10).Value　　Sheet3.Cells(j, 11).Value = Sheet2.Cells(i, 11).Value　　Sheet3.Cells(j, 12).Value = Sheet2.Cells(i, 12).Value

122、　　j = j + 1　　End If　　Next　　Sheets("sheet3").Select

123、　　Exit Sub　　End If　　If Choice = 2 Then　　For i = 1 To n　　If Sheet2.Cells(i, 5).Value = 緊急度.Value Then</p&

124、gt;　　Sheet3.Cells(j, 1).Value = Sheet2.Cells(i, 1).Value '將修改后的值重新寫回excel表格中，覆蓋掉原來的數(shù)據(jù)　　Sheet3.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value　　Sheet3.Cells(j, 3).Va

125、lue = Sheet2.Cells(i, 3).Value　　Sheet3.Cells(j, 4).Value = Sheet2.Cells(i, 4).Value　　Sheet3.Cells(j, 5).Value = Sheet2.Cells(i, 5).Value　　Sheet3.Cells(j, 6).

126、Value = Sheet2.Cells(i, 6).Value　　Sheet3.Cells(j, 7).Value = Sheet2.Cells(i, 7).Value　　Sheet3.Cells(j, 8).Value = Sheet2.Cells(i, 8).Value　　Sheet3.Cells(j, 9

127、).Value = Sheet2.Cells(i, 9).Value　　Sheet3.Cells(j, 10).Value = Sheet2.Cells(i, 10).Value　　Sheet3.Cells(j, 11).Value = Sheet2.Cells(i, 11).Value　　Sheet3.Cell

128、s(j, 12).Value = Sheet2.Cells(i, 12).Value　　j = j + 1　　End If　　Next　　Sheets(&qu

129、ot;sheet3").Select　　Exit Sub　　End If　　'MsgBox "退出來"　　If Choice = 3 Then</p&g

130、t;　　For i = 1 To n　　If Sheet2.Cells(i, 7).Value = Test階段.Value Then　　Sheet3.Cells(j, 1).Value = Sheet2.Cells(i, 1).Value '將修改后的值重新寫回excel表格中，覆蓋掉原來的數(shù)據(jù)

131、　　Sheet3.Cells(j, 2).Value = Sheet2.Cells(i, 2).Value　　Sheet3.Cells(j, 3).Value = Sheet2.Cells(i, 3).Value　　Sheet3.Cells(j, 4).Value = Sheet2.Cells(i, 4).Value

132、　　Sheet3.Cells(j, 5).Value = Sheet2.Cells(i, 5).Value　　Sheet3.Cells(j, 6).Value = Sheet2.Cells(i, 6).Value　　Sheet3.Cells(j, 7).Value = Sheet2.Cells(i, 7).Value</p&g

133、t;　　Sheet3.Cells(j, 8).Value = Sheet2.Cells(i, 8).Value　　Sheet3.Cells(j, 9).Value = Sheet2.Cells(i, 9).Value　　Sheet3.Cells(j, 10).Value = Sheet2.Cells(i, 10).Value<

134、/p>　　Sheet3.Cells(j, 11).Value = Sheet2.Cells(i, 11).Value　　Sheet3.Cells(j, 12).Value = Sheet2.Cells(i, 12).Value　　j = j + 1

135、　　End If　　Next　　Sheets("sheet3").Select　　Exit Sub　　End If<

136、;/b>　　If Choice = 4 Then　　For i = 1 To n　　If Sheet2.Cells(i, 7).Value = 修改確認(rèn)原因.Value Then　　Sheet3.Cells(j, 1).Value = Sheet2.Cells(i,

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

日本高级黄区免费,91精品国产一区二区三区免费,99爱国产精品免费视频,一区二区三区国产日韩欧美

軟件項目管理實驗bug票管理系統(tǒng)課程設(shè)計

文檔簡介

溫馨提示

最新文檔

評論

日本高级黄区免费,91精品国产一区二区三区免费,99爱国产精品免费视频,一区二区三区国产日韩欧美

軟件項目管理實驗bug票管理系統(tǒng)課程設(shè)計

文檔簡介

溫馨提示

最新文檔

評論

免費下載