【正文】
Else dr(j + 1) = 6 End If Next (dr) Next End Sub 更新房態(tài)圖 btnUpate的 Click事件 Private Sub btnUpate_Click(ByVal sender As , _ ByVal e As ) Handles LoadData() Dim dv As DataView = = False = False = False 39。設(shè)置數(shù)據(jù)源 = End Sub 設(shè)置房態(tài) btnSet的 Clickshij Private Sub btnSet_Click(ByVal sender As , _ ByVal e As ) Handles Dim iRow, iCol As Integer iRow = iCol = Dim strState As String = (iRow, iCol) Dim strTmpState As String If iCol 0 Then If = True Then strTmpState = 0 ElseIf = True Then strTmpState = 2 ElseIf = True Then strTmpState = 4 ElseIf = True Then 1 strTmpState = 1 ElseIf = True Then strTmpState = 3 ElseIf = True Then strTmpState = 5 End If Else Return End If 39。如果狀態(tài)已經(jīng)更新 If strTmpState strState Then Dim db As DataBase = New DataBase Dim dv As DataView = = 樓層編號(hào) = + _ (iRow, 0).(/)(0) Dim strSQL As String = update 客房信息 set 狀態(tài) =39。 strSQL += GetStateText(strTmpState) + 39。 strSQL += where 客房編號(hào) =39。 strSQL += dv(iCol 1)(0). + 39。 (strSQL) () End If LoadData() Dim dvTmp As DataView = = False = False = False 39。設(shè)置數(shù)據(jù)源 = End Sub 六、性能測試與分析 (一)測試實(shí)例(測試集)的研究與選擇 在系統(tǒng)完成后,進(jìn)行用戶的驗(yàn)收測試,它是用戶在實(shí)際應(yīng)用環(huán)境中所進(jìn)行的真實(shí)數(shù)據(jù)測試。一般來說,對程序測試有兩種測試方法:根據(jù)系統(tǒng)應(yīng)具有的功能,來測試每個(gè)功能是否都能正常使用;如果知道程序的內(nèi)部工作過程,根據(jù)系統(tǒng)程序結(jié)構(gòu),來測試程序內(nèi)部是否按照程序設(shè)計(jì)正常進(jìn)行。測試程序?qū)嵗斎霐?shù)據(jù)和預(yù)期輸出結(jié)果是否符合設(shè)計(jì)的效果,還要輸 入不正確或非法的數(shù)據(jù)進(jìn)行測試,檢查程序是否做了不應(yīng)該做得工作,主要測試容易出錯(cuò)的程序模塊并對其修改,修改完成后必須重新進(jìn)行測試。 (二)測試環(huán)境與測試條件 Intel Core 2 Duo E7500雙核處理器的計(jì)算機(jī),內(nèi)存 2GB。 : Microsoft windows 2021 Server, Microsoft Visual Studio .NET 2021, Microsoft SQL 1 Server2021。 (三)實(shí)例測試 1. 首先 Microsoft SQL Server2021導(dǎo)入 hotelbook數(shù)據(jù)庫; 2. 運(yùn)行系統(tǒng)登入,輸入密碼,正確驗(yàn)證密碼,系統(tǒng)報(bào)錯(cuò)如下圖所示,返回輸入正確的用戶名密碼,就能夠登入系統(tǒng)主界面進(jìn)行操作了。 圖 7 酒店管理性能測試一 ,超出則提示錯(cuò)誤信息 ,如下圖: 1 圖 8 酒店管理性能測試二 七、結(jié)束語 經(jīng)過近三個(gè)月的構(gòu)思與設(shè)計(jì),在指導(dǎo)老師的精心指導(dǎo)和安排下,本系統(tǒng)已經(jīng)設(shè)計(jì)完畢。其使用功能基本符合酒店在實(shí)際工作的需要,具有一定的實(shí)用性。但是由于個(gè)人水平有限,時(shí)間比較倉促,系統(tǒng)還是有些不盡人意的地方,以 后還要加強(qiáng)改進(jìn)。 參考文獻(xiàn): [1] (第 3版 ) 清華大學(xué)出版社 [2]VISUAL BASIC 高級編程解決方案 機(jī)械工業(yè)出版社 [3]SQL Server 2021 編程員指南 北京希望電子出版社 [4] 電子書版本 [5]Visual 電子工業(yè)出版社 1 致 謝 特別感謝我的導(dǎo)師黃曉東老師, 本文是在 黃 老師精心指導(dǎo)和大力支持下完成的。 黃 老師以其嚴(yán)謹(jǐn)求實(shí)的治學(xué) 態(tài)度、高度的敬業(yè)精神、兢兢業(yè)業(yè)、孜孜以求的工作作風(fēng)和大膽創(chuàng)新的進(jìn)取精神對我產(chǎn)生重要影響。他 淵博的知識(shí)、開闊的視野和敏銳的思維給了我深深的啟迪。 螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈芁莇蚄羇芀蕿羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕 羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈芁莇蚄羇芀蕿 羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈芁莇蚄 羇芀蕿羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈 芁莇蚄羇芀蕿 羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈芁莇蚄 羇芀蕿羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈 芁莇蚄羇芀蕿 羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈芁莇蚄 羇芀蕿羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆膇蒆袇膂膆薈肂肈膆蟻裊羄膅螃蚈芃膄蒃袃腿芃薅蚆肅節(jié)蚇袁羈 芁莇蚄羇芀蕿 羀芅芀螞螃膁艿螄羈肇羋蒄螁羃芇薆羆衿莆蚈蝿膈蒞莈羅肄莄薀螇肀莄螞肅羆莃螅袆芄莂蒄蠆膀莁薇襖肆莀蠆蚇羂葿荿袂袈蒈蒁蚅膇蒈蚃袁膃蕆螆?bào)采H蒅罿羅蒅薈螂芄蒄蝕羇膀薃螂螀肅薂蒂羅羈腿薄螈袇膈螇羄芆