【導(dǎo)讀】隨著計算機技術(shù)的日益成熟，為社會的各行各業(yè)都帶來了極大的發(fā)展和進步。我國的服務(wù)行業(yè)也取得了巨大發(fā)展。要求越來越高，競爭也愈來愈激烈。因此，采用全新的計算機網(wǎng)絡(luò)和賓館管理系。統(tǒng)，已成為提高賓館的管理效率、改善服務(wù)水準(zhǔn)的重要手段之一。和Access數(shù)據(jù)庫進行設(shè)計。系統(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 設(shè)施設(shè)備模塊 賓館設(shè)施設(shè)置是對賓館的房間進行添加、更改和刪除使用的模塊，主要包括添加新房間，更改房間類型、類型配置，刪除已有房間。 本模塊是用于賓館的房間管理，先定義賓館的房間類型，然后對賓館的房間進行類型配置，即添加定義房間里的使用設(shè)施，對現(xiàn)有的房間因裝修、改造不能夠使用的進行刪除和添加。 圖 59 賓館設(shè)施設(shè)置窗口 Setinfor 窗體主要設(shè)計編碼： 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 窗口，在這里需要管理員先選擇要添加的房間類型，然后才能夠?qū)φ找延械姆块g號碼新建一個新的房間號碼，建立的新房間號碼存儲在已經(jīng)選擇的房間類型中，添加完成新的房間號后提交，系統(tǒng)顯示操作成功，則本房間號碼被存儲于數(shù)據(jù)庫表中。 33 圖 510 添加新房間窗口 主要設(shè)計編碼： Dim sprice Dim sthings Private Sub Command1_Click() Frame1(1).Visible = True Frame1(2).Visible = True If Option1(0).Value = True Then = 標(biāo)準(zhǔn)間 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 房間號重復(fù) , 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 窗口，選擇所要更改的房間類型后“確定”，在這 里可以修改房間的價格和房間中的設(shè)施信息。 36 圖 511 更改類型配置窗口 主要設(shè)計編碼： Private Sub Command1_Click() = True If Option1(0).Value = True Then Label3(1).Caption = 標(biāo)準(zhǔn)間 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 窗口，選擇所要更改的房間類型后“確定”，在這里可以修改房間類型及房間號碼。窗口設(shè)計入下圖所示： 38 圖 512 更改房間類型窗口 單擊刪除已有房間，進入到 delhouse 窗口，在這里同樣需要先確定要刪除的房間類型，然后在下拉菜單中選擇要刪除的房間號碼。設(shè)計窗口如下所示： 圖 513 刪除已有房間窗口 39 主要設(shè)計編碼： 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 = 標(biāo)準(zhǔn)間 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 更改登陸信息模塊 更改登陸信息是用來添加管理員使用的模塊。在這里能夠添加新的管理員，其使用權(quán)限與原管理員具有一樣的權(quán)限，能夠?qū)ο到y(tǒng)的所有功能模塊進行操作，在本模塊設(shè)計中需要重復(fù)輸入用戶名與用戶密碼，防止在添加管理員的時候出現(xiàn)錯誤操作，避免在添加后由于錯誤操作鍵盤不能夠正確的輸入添加的管理員名和密碼。提交的信息將直接被保存到數(shù)據(jù)庫中的 user 表中。設(shè)計窗口如下。 41 圖 514 更改登陸信息窗口 主要設(shè)計編碼： 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)性能與調(diào)試 系統(tǒng)調(diào)試 任何軟件在編寫之后都不可能是完美的、都會有錯誤的，所以說需要對軟件程序進行優(yōu)化與調(diào)試。測試階段的根本目的是盡可能多地發(fā)現(xiàn)并排除軟件中潛藏的錯誤，而測試本身的目的是暴露程序的錯誤，在成功測試之后，還必須進一步論斷改正程序中的錯誤，這是調(diào)試的任務(wù) [10]。 測試任何產(chǎn)品都有兩種方法：如果已經(jīng)知道了產(chǎn)品應(yīng)該具有的功能，可以通過測試來檢驗產(chǎn)品的內(nèi)部動作是否按照規(guī)格說明書的規(guī)定正常進行。前一個方法稱為黑盒測試，后一個方法稱為白盒測試 [11]。我在模塊測試的時候采用的是白盒測試 ，在系統(tǒng)測試時采用的是黑盒測試。 單元測試 單元測試集中的檢驗軟件設(shè)計的最小單元 模塊。正式測試之前必須先通過編譯程序檢查并且改正所有語法錯誤，然后用詳細設(shè)計描述作指南，對重要的招待通路進行測試，以便發(fā)現(xiàn)模塊內(nèi)部的錯誤。單元測試可以使用白盒測試法，而且對多個模塊的測試可以并行地進行。在測試的時候主要是檢查下述各點： 1) 參數(shù)的數(shù)目、屬性和由調(diào)用模塊送來的變元是否相同？ 2) 全程變量的定義和用法在各個模塊中是否一致？ 3) 輸入 /輸出錯誤的檢查和處理。 4) 錯誤的或不相容的說明。 5) 錯誤的初始值或不正確的缺省值 。 6) 數(shù)據(jù)類型不相容。 7) 精度不夠。 8) 發(fā)散的迭代或不能終止循環(huán)。 9) 操作過程中的操作流向 10) 是否易出錯 [12] 在測試過程中出現(xiàn)了不少問題，而問題主要是集中在