【導讀】隨著計算機技術的日益成熟，為社會的各行各業(yè)都帶來了極大的發(fā)展和進步。我國的服務行業(yè)也取得了巨大發(fā)展。要求越來越高，競爭也愈來愈激烈。因此，采用全新的計算機網絡和賓館管理系。統(tǒng)，已成為提高賓館的管理效率、改善服務水準的重要手段之一。和Access數據庫進行設計。系統(tǒng)功能主要分為四大模塊：賓館房間介紹，包括查。間進行添加、更改和刪除使用；更改登陸信息是用來添加管理員使用的模塊。系統(tǒng)操作簡單，界面清晰明了。

　　

【正文】 f Label4(0).Caption = Then Do Until If (num) = Then Label3(0).Caption = (num) Label3(1).Caption = (style) Label3(2).Caption = 未入住 Label4(0).Caption = 無 Label4(1).Caption = 無 Label4(2).Caption = 無 End If Loop End If End Sub Private Sub Command3_Click() Unload housenum End Sub Private Sub Form_Load() Set db = OpenDatabase( + /) Set rs = (house) 31 Do Until If (human) = y Then (num) End If Loop End Sub 設施設備模塊 賓館設施設置是對賓館的房間進行添加、更改和刪除使用的模塊，主要包括添加新房間，更改房間類型、類型配置，刪除已有房間。 本模塊是用于賓館的房間管理，先定義賓館的房間類型，然后對賓館的房間進行類型配置，即添加定義房間里的使用設施，對現有的房間因裝修、改造不能夠使用的進行刪除和添加。 圖 59 賓館設施設置窗口 Setinfor 窗體主要設計編碼： 32 Private Sub Command1_Click(Index As Integer) If Index = 0 Then Unload setinfor End If If Index = 2 Then Unload setinfor End If If Index = 3 Then Unload setinfor End If If Index = 4 Then Unload setinfor End If End Sub Private Sub Command2_Click() Unload setinfor End Sub Private Sub Command3_Click() Unload setinfor End Sub 單擊添加新房間，進入到 creathouse 窗口，在這里需要管理員先選擇要添加的房間類型，然后才能夠對照已有的房間號碼新建一個新的房間號碼，建立的新房間號碼存儲在已經選擇的房間類型中，添加完成新的房間號后提交，系統(tǒng)顯示操作成功，則本房間號碼被存儲于數據庫表中。 33 圖 510 添加新房間窗口 主要設計編碼： Dim sprice Dim sthings Private Sub Command1_Click() Frame1(1).Visible = True Frame1(2).Visible = True If Option1(0).Value = True Then = 標準間 ElseIf Option1(1).Value = True Then = 雙人間 ElseIf Option1(2).Value = True Then = 豪華間 End If Set db = OpenDatabase( + /) Set rs = (house) 34 Do Until If (style) Like Then (num) sprice = (price) sthings = (things) End If Loop End Sub Private Sub Command2_Click() Set db = OpenDatabase( + /) Set rs = (house) Do Until If (num) Like Then MsgBox 房間號重復 , vbOKCancel Exit Sub End If Loop With rs .AddNew !num = LCase() !Style = LCase() !price = LCase(sprice) !things = LCase(sthings) !human = LCase(n) 35 .Update End With Unload creathouse MsgBox 操作成功 , vbOKOnly, 消息提示 End Sub Private Sub Command3_Click() Unload creathouse End Sub Private Sub Command4_Click() Unload creathouse End Sub Private Sub judge() If And Then = True End If End Sub Private Sub Text1_Change() Call judge End Sub 單擊更改類型配置，進入到 changestlinf 窗口，選擇所要更改的房間類型后“確定”，在這 里可以修改房間的價格和房間中的設施信息。 36 圖 511 更改類型配置窗口 主要設計編碼： Private Sub Command1_Click() = True If Option1(0).Value = True Then Label3(1).Caption = 標準間 ElseIf Option1(1).Value = True Then Label3(1).Caption = 雙人間 ElseIf Option1(2).Value = True Then Label3(1).Caption = 豪華間 End If Set db = OpenDatabase( + /) Set rs = (house) Do Until If (style) Like Label3(1).Caption Then = (price) 37 = (things) End If Loop End Sub Private Sub Command2_Click() Set db = OpenDatabase( + /) Set rs = (house) Do Until If (style) Like Label3(1).Caption Then With rs .Edit (price) = (things) = .Update End With End If Loop Unload changestlinf End Sub Private Sub Command3_Click() Unload changestlinf End Sub 單擊更改房間類型，進入到 changestyle 窗口，選擇所要更改的房間類型后“確定”，在這里可以修改房間類型及房間號碼。窗口設計入下圖所示： 38 圖 512 更改房間類型窗口 單擊刪除已有房間，進入到 delhouse 窗口，在這里同樣需要先確定要刪除的房間類型，然后在下拉菜單中選擇要刪除的房間號碼。設計窗口如下所示： 圖 513 刪除已有房間窗口 39 主要設計編碼： Private Sub Command1_Click() frame3(0).Visible = True Label3(1) = Label3(3) = = True End Sub Private Sub Command2_Click() frame3(1).Visible = True If Option1(0).Value = True Then = 標準間 ElseIf Option1(1).Value = True Then = 雙人間 ElseIf Option1(2).Value = True Then = 豪華間 End If Set db = OpenDatabase( + /) Set rs = (house) Do Until If (style) Like Then (num) End If Loop = True End Sub 40 Private Sub Command3_Click() Unload delhouse End Sub Private Sub Command4_Click() Set db = OpenDatabase( + /) Set rs = (house) Do Until If (num) Like Then Unload delhouse Exit Sub End If Loop End Sub 更改登陸信息模塊 更改登陸信息是用來添加管理員使用的模塊。在這里能夠添加新的管理員，其使用權限與原管理員具有一樣的權限，能夠對系統(tǒng)的所有功能模塊進行操作，在本模塊設計中需要重復輸入用戶名與用戶密碼，防止在添加管理員的時候出現錯誤操作，避免在添加后由于錯誤操作鍵盤不能夠正確的輸入添加的管理員名和密碼。提交的信息將直接被保存到數據庫中的 user 表中。設計窗口如下。 41 圖 514 更改登陸信息窗口 主要設計編碼： Private Sub Command1_Click(Index As Integer) If Index = 0 Then Set db = OpenDatabase( + /) Set rt = (enter) If Text1(0).Text = Text1(1).Text Add Text1(2).Text = Text1(3).Text Then Do Until With rt .Edit (user) = Text1(0).Text (password) = Text1(2).Text .Update End With Loop Unload changepassword Else 42 End If If Index = 1 Then Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End If If Index = 2 Then Unload changepassword End If End Sub Private Sub judge() If Text1(0).Text And Text1(1).Text And Text1(2).Text And Text1(3).Text Then Command1(0).Enabled = True End If End Sub Private Sub Text1_Change(Index As Integer) Call judge End Sub 43 第 6 章 系統(tǒng)性能與調試 系統(tǒng)調試 任何軟件在編寫之后都不可能是完美的、都會有錯誤的，所以說需要對軟件程序進行優(yōu)化與調試。測試階段的根本目的是盡可能多地發(fā)現并排除軟件中潛藏的錯誤，而測試本身的目的是暴露程序的錯誤，在成功測試之后，還必須進一步論斷改正程序中的錯誤，這是調試的任務 [10]。 測試任何產品都有兩種方法：如果已經知道了產品應該具有的功能，可以通過測試來檢驗產品的內部動作是否按照規(guī)格說明書的規(guī)定正常進行。前一個方法稱為黑盒測試，后一個方法稱為白盒測試 [11]。我在模塊測試的時候采用的是白盒測試 ，在系統(tǒng)測試時采用的是黑盒測試。 單元測試 單元測試集中的檢驗軟件設計的最小單元 模塊。正式測試之前必須先通過編譯程序檢查并且改正所有語法錯誤，然后用詳細設計描述作指南，對重要的招待通路進行測試，以便發(fā)現模塊內部的錯誤。單元測試可以使用白盒測試法，而且對多個模塊的測試可以并行地進行。在測試的時候主要是檢查下述各點： 1) 參數的數目、屬性和由調用模塊送來的變元是否相同？ 2) 全程變量的定義和用法在各個模塊中是否一致？ 3) 輸入 /輸出錯誤的檢查和處理。 4) 錯誤的或不相容的說明。 5) 錯誤的初始值或不正確的缺省值 。 6) 數據類型不相容。 7) 精度不夠。 8) 發(fā)散的迭代或不能終止循環(huán)。 9) 操作過程中的操作流向 10) 是否易出錯 [12] 在測試過程中出現了不少問題，而問題主要是集中在