【正文】 蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂 蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿肁蒞蚄 螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿 肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅 莆薂衿肁蒞蚄 螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿 肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅 莆薂衿肁蒞蚄 螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅莆薂衿 肁蒞蚄螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁薈襖芁芀螄螀芀莃薇聿艿蒅螂羅莈薇薅袁莇芇螀螆莇荿薃膅 莆薂衿肁蒞蚄 螞羇莄莄袇袃羈蒆蝕蝿羀薈裊肈聿羋蚈羄肈莀襖袀肇薂蚆袆肆蚅蕿膄肅莄螅肀肅蕆薈羆肄蕿螃袂肅艿薆螈膂莁螁肇膁蒃薄羃膀蚆螀罿腿蒞螞裊腿蒈袈螁膈薀蟻聿膇艿袆羅膆莂蠆袁芅蒄襖螇芄薆蚇肆芃芆蒀肂芃蒈螆羈節(jié)薁。 黃 老師以其嚴謹求實的治學 態(tài)度、高度的敬業(yè)精神、兢兢業(yè)業(yè)、孜孜以求的工作作風和大膽創(chuàng)新的進取精神對我產(chǎn)生重要影響。但是由于個人水平有限，時間比較倉促，系統(tǒng)還是有些不盡人意的地方，以 后還要加強改進。 圖 7 酒店管理性能測試一 ,超出則提示錯誤信息 ,如下圖： 1 圖 8 酒店管理性能測試二 七、結(jié)束語 經(jīng)過近三個月的構(gòu)思與設計，在指導老師的精心指導和安排下，本系統(tǒng)已經(jīng)設計完畢。 ： Microsoft windows 2021 Server， Microsoft Visual Studio .NET 2021， Microsoft SQL 1 Server2021。測試程序?qū)嵗斎霐?shù)據(jù)和預期輸出結(jié)果是否符合設計的效果，還要輸 入不正確或非法的數(shù)據(jù)進行測試，檢查程序是否做了不應該做得工作，主要測試容易出錯的程序模塊并對其修改，修改完成后必須重新進行測試。設置數(shù)據(jù)源 = End Sub 六、性能測試與分析 （一）測試實例（測試集）的研究與選擇 在系統(tǒng)完成后，進行用戶的驗收測試，它是用戶在實際應用環(huán)境中所進行的真實數(shù)據(jù)測試。 strSQL += dv(iCol 1)(0). + 39。 strSQL += GetStateText(strTmpState) + 39。設置數(shù)據(jù)源 = End Sub 設置房態(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。將樓層房間信息添加到數(shù)據(jù)行中 dr(0) = dvFloor(i)(0). + /F For j As Int16 = 0 To iMaxRoomNumber 1 39。查詢出每個樓層的房間信息 Dim tmpdv As DataView = (strSQL) 39。 （五）設置房態(tài)圖功能 新建一個 Name屬性為“ frmRoomState”的窗體，并為其添加如圖 7所示的控件。 然后在 SqlDataAdapter1對象上右擊，在彈出的快捷菜單中選擇生成數(shù)據(jù)集命 令，在生成數(shù)據(jù)集對話框中單擊確定按鈕。 客房類型設置、客房信息設置、預訂管理、入住管理和消費記賬都是從工具箱中拖動一個SqlDataAdapter對象到窗體上，連接 hotelbook數(shù)據(jù)庫，添加相對應的表，并選折所有字段。關閉本窗體 () End Select Try = SetData() Catch ex As Exception End Try End Sub 搜索 btnSearch的 Click事件主要代碼 Private Sub btnSearch_Click(ByVal sender As , _ ByVal e As ) Handles SearchResult() End Sub （四）設置系統(tǒng)界面與數(shù)據(jù)庫連接 創(chuàng)建客房類型設置、客房信息設置、預訂管理、入住管理、消費記賬和收銀退房的窗體界面相似：選擇文件，添加新項命令，在添加新項對話框模板列表框中選擇繼承的窗體選項，并分別命名為“ ”、“ ”、“ ”、“ ”、“ ”和“ ”。為新增數(shù)據(jù)保存 SaveForAdd() Else 39。返回尾記錄 = Case 新增 = False SetTextBoxState(False) SetToolBarState(False) bAdd = True Clear() Case 修改 = False SetTextBoxState(False) SetToolBarState(False) bAdd = False Case 刪除 39。 圖 5 基礎窗體