【文章內(nèi)容簡(jiǎn)介】 r（12）房間號(hào)碼允許類型編號(hào)int類型編號(hào)允許客房?jī)r(jià)格money客房?jī)r(jià)格允許入住人數(shù)int入住人數(shù)允許折扣decimal折扣允許折扣原因varchar（60）折扣原因允許應(yīng)收房費(fèi)money應(yīng)收房費(fèi)允許預(yù)收押金money預(yù)收押金允許早餐bit早餐允許叫醒bit叫醒允許保密bit保密允許VIP貴賓bitVIP貴賓允許備注varchar（510）備注允許操作員varchar（20）操作員允許5 系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)本系統(tǒng)是在Visual Studio 2008集成開(kāi)發(fā)環(huán)境下，運(yùn)用Visual 。整個(gè)系統(tǒng)不僅為用戶提供了方便快捷的服務(wù)，同時(shí)也便于管理者對(duì)數(shù)據(jù)的管理。 主界面設(shè)計(jì)，實(shí)現(xiàn)了系統(tǒng)的統(tǒng)一風(fēng)格界面。打開(kāi)系統(tǒng)后，就會(huì)彈出一個(gè)登陸界面，輸入正確的用戶名和密碼之后才能進(jìn)入系統(tǒng)主界面。本系統(tǒng)的主界面加入了一個(gè)MenuStrip控件、一個(gè)StatusStrip控件和一個(gè)Timer控件，樣式如下圖51所示。圖51 系統(tǒng)主界面 系統(tǒng)設(shè)置本系統(tǒng)的設(shè)置功能主要實(shí)現(xiàn)了房間類型的增加，房間狀態(tài)的修改以及操作員的增加與刪除，密碼的修改等功能。 房間類型通過(guò)使用該模塊的功能，可以實(shí)現(xiàn)對(duì)房間類型的添加和刪除。使用時(shí)會(huì)在該窗體左側(cè)的數(shù)據(jù)窗口中顯示房間的類型，并隨著用戶的操作修改數(shù)據(jù)庫(kù)進(jìn)而改變顯示的數(shù)據(jù)。房間類型運(yùn)行界面如圖52所示。圖52 房間類型界面打開(kāi)房間類型界面，在房間類型文本框中輸入想要添加的類型名稱，再單擊“添加”按鈕，就將該數(shù)據(jù)加入數(shù)據(jù)庫(kù)中，左側(cè)的數(shù)據(jù)窗口中也顯示新添了一條記錄。如果需要?jiǎng)h除數(shù)據(jù)，只需要雙擊數(shù)據(jù)窗口中的指定信息即可。房間類型相關(guān)事件代碼： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles If = Then (房間類型不能為空！, 系統(tǒng)提示, , ) Else Dim str = insert into 房間類型 ( 類型名稱 ) values (39。 amp。 amp。 39。) Dim cmd As New SqlCommand(str, conn) Try () () () daRoomType = New SqlDataAdapter(select * from 房間類型, conn) (dsRoomType, 房間類型) = (房間類型) (0).Width = 40 (1).Width = 60 MsgBox(插入成功) = Catch ex As Exception MsgBox() = Finally () End Try End IfEnd Sub 客房設(shè)置該窗體界面由Label，TextBox，ComboBox，CheckBox，GroupBox，DataGridView和Button控件組成。通過(guò)修改這些控件的信息，再單擊對(duì)應(yīng)的按鈕來(lái)執(zhí)行對(duì)客房設(shè)置數(shù)據(jù)表中信息的添加，修改以及刪除操作，并將客房設(shè)置數(shù)據(jù)表中的信息顯示到下方的數(shù)據(jù)窗口中?？头吭O(shè)置運(yùn)行界面如圖53所示。圖53客房設(shè)置界面客房設(shè)置修改事件代碼： Private Sub btnUpdate_Click(ByVal sender As , ByVal e As ) Handles If Is Nothing Then (請(qǐng)選中數(shù)據(jù)！, 系統(tǒng)提示, , ) ElseIf = Then (房間號(hào)碼不能為空！, 系統(tǒng)提示, , ) ElseIf = Then (房間類型不能為空！, 系統(tǒng)提示, , ) ElseIf = Then (客房?jī)r(jià)格不能為空！, 系統(tǒng)提示, , ) Else = Data Source = (local)。Initial Catalog = hotelbook。Integrated Security = True () = conn str = select * from 客房設(shè)置 where 房間號(hào)碼 = 39。 amp。 amp。 39。 cmd = New (str, conn) dr = () If () Then () If Is Nothing Then (請(qǐng)選中數(shù)據(jù)！, 系統(tǒng)提示, , ) Else Dim i As Integer i = = update 客房設(shè)置 set 類型名稱 = @房間類型,樓層名稱 = @所屬樓層,房態(tài) = @房態(tài),客房?jī)r(jià)格 = @客房?jī)r(jià)格,額定人數(shù) = @額定人數(shù),床數(shù) = @床數(shù),是否可拼房 = @是否可拼房,拼房?jī)r(jià)格 = @拼房?jī)r(jià)格,客房描述 = @客房描述,備注 = @備注 where 房間號(hào)碼 = @房間號(hào)碼 (@房間號(hào)碼, ).Value = (0).() (@房間類型, ) (@房間類型).Value = (@房態(tài), ) (@房態(tài)).Value = (@客房?jī)r(jià)格, ) (@客房?jī)r(jià)格).Value = CInt() (@額定人數(shù), ) (@額定人數(shù)).Value = CInt() (@床數(shù), ) (@床數(shù)).Value = CInt() (@是否可拼房, ) (@是否可拼房).Value = CBool() (@拼房?jī)r(jià)格, ) (@拼房?jī)r(jià)格).Value = CInt() (@所屬樓層, ) (@所屬樓層).Value = (@客房描述, ) (@客房描述).Value = (@備注, ) (@備注).Value = Try () MsgBox(修改成功) () daRoom = New SqlDataAdapter(select * from 客房設(shè)置 order by 房間號(hào)碼, conn) (dsRoom, 客房設(shè)置) = (客房設(shè)置) Catch ex As Exception MsgBox() End Try End If Else (該客房不存在！, 系統(tǒng)提示, , ) End If () End If End Sub 操作員管理操作員管理功能由增加操作員、刪除操作員和修改密碼三部分組成。用戶可通過(guò)打開(kāi)對(duì)應(yīng)界面執(zhí)行對(duì)應(yīng)操作來(lái)使用對(duì)應(yīng)功能。增加操作員、刪除操作員、修改密碼運(yùn)行界面分別如圖5圖5圖56所示。圖54 增加操作員界面 圖55 刪除操作員界面圖56 修改密碼增加操作員相關(guān)事件代碼： Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles If = Then (用戶名不能為空！, 系統(tǒng)提示, , ) ElseIf = Then (密碼不能為空！, 系統(tǒng)提示, , ) ElseIf = Then (請(qǐng)確認(rèn)密碼！, 系統(tǒng)提示, , ) ElseIf = Then (請(qǐng)選擇權(quán)限！, 系統(tǒng)提示, , ) ElseIf Then (兩次輸入的密碼不一致！, 系統(tǒng)提示、, , ) Else = Data Source = (local)。Initial Catalog = hotelbook。Integrated Security = True () = conn str = Select * From 操作員 Where 用戶名 =39。 amp。 amp。 39。 cmd = New (str, conn) dr = () If () Then (該用戶已存在！, 系統(tǒng)提示, , ) Else () = insert into 操作員 values (@UserName,@Password,@Right) (@UserName, ) (@UserName).Value = (@Password, ) (@Password).Value = (@Right, ) (@Right).Value = Try () MsgBox(插入成功) Catch ex As Exception MsgBox() Finally () End Try End If End IfEnd Sub 打開(kāi)增加操作員界面，在相應(yīng)文本框內(nèi)輸入用戶名、密碼和確認(rèn)密碼，再在“權(quán)限”組合框中選擇相應(yīng)權(quán)限，單擊“添加”按鈕，便成功添加操作員；打開(kāi)刪除操作員界面，單擊選中左側(cè)數(shù)據(jù)窗口中對(duì)應(yīng)的數(shù)據(jù)，單擊“刪除”按鈕，便成功完成刪除操作；打開(kāi)修改密碼界面，在相應(yīng)文本框內(nèi)輸入正確的用戶名和舊密碼以及新密碼和確認(rèn)密碼，單擊“確定”按鈕，便成功修改密碼。 清除數(shù)據(jù)清除數(shù)據(jù)界面由DataGridView和Button控件組成。該模塊用于刪除酒店歷史記錄，操作員可以通過(guò)雙擊想要?jiǎng)h除的數(shù)據(jù)來(lái)實(shí)現(xiàn)刪除功能。清除數(shù)據(jù)運(yùn)行界面如圖57所示。圖57 清除數(shù)據(jù)界面清除數(shù)據(jù)相關(guān)事件代碼： Private