【正文】 )
。,39。 cmd = New (str, conn) = conn () dr = () If () Then () = insert into 入住單 (入住單號(hào) ,姓名 ,身份證 ,聯(lián)系電話 ,入住日期 ,單據(jù)狀態(tài) ,是否加床 ,加床價(jià)格 ,房間號(hào)碼 ,類型名稱 ,客房?jī)r(jià)格 ,入住人數(shù) ,折扣 ,折扣原因 ,轉(zhuǎn)入房費(fèi) ,預(yù)收押金 ,早餐 ,叫醒 ,保密 ,VIP貴賓 ,備注 ,操作員 ,是否結(jié)賬 ,其他費(fèi)用 ,結(jié)賬金額 )values (入住單號(hào) ,姓名 ,身份證 ,聯(lián)系電話 ,getdate(),單據(jù)狀態(tài) ,是否加床 ,加床價(jià)格 ,房間號(hào)碼 ,類型名稱 ,客房 價(jià)格 ,入住人數(shù) ,折扣 ,折扣原因 ,轉(zhuǎn)入房費(fèi) ,預(yù)收押金 ,早餐 ,叫醒 ,保密 ,VIP貴賓 ,備注 ,操作員 ,是否結(jié)賬 ,39。 and 房態(tài) = 39。 amp。 = conn 嘉興學(xué)院南湖學(xué)院本科生畢業(yè)論文（設(shè)計(jì)） 31 Try () () MsgBox(插入成功 ) dt = (yyyyMMddHHmmss) = RZ + dt = Catch ex As Exception MsgBox() Finally () End Try Else str = Select * From 客房設(shè)置 Where 房間號(hào) 碼 =39。 amp。 where 房間號(hào)碼 = 39。) (入住單號(hào) , ) (入住單號(hào) ).Value = (姓名 , ) 嘉興學(xué)院南湖學(xué)院本科生畢業(yè)論文（設(shè)計(jì)） 30 (姓名 ).Value = (身份證 , ) (身份證 ).Value = (聯(lián)系電話 , ) (聯(lián)系電話 ).Value = (單據(jù)狀態(tài) , ) (單據(jù)狀態(tài) ).Value = (是否加床 , ) (是否加床 ).Value = (加床價(jià)格 , ) (加床價(jià)格 ).Value = (房間號(hào)碼 , ) (房間號(hào)碼 ).Value = (類型名稱 , ) (類型名稱 ).Value = (客房?jī)r(jià)格 , ) (客房?jī)r(jià)格 ).Value = (入住人數(shù) , ) (入住人數(shù) ).Value = (折扣 , ) (折扣 ).Value = (折扣原因 , ) (折扣原因 ).Value = (轉(zhuǎn)入房費(fèi) , ) (轉(zhuǎn)入房費(fèi) ).Value = (預(yù)收押金 , ) (預(yù)收押金 ).Value = (早餐 , ) (早餐 ).Value = (叫醒 , ) (叫醒 ).Value = (保密 , ) (保密 ).Value = (VIP貴賓 , ) (VIP貴賓 ).Value = (備注 , ) (備注 ).Value = (操作員 , ) (操作員 ).Value = (是否結(jié)賬 , ) (是否結(jié)賬 ).Value = = update 客房設(shè)置 set 房態(tài) = 39。,39。 cmd = New (str, conn) = conn () dr = () If () Then () = insert into 入住單 (入住單號(hào) ,姓名 ,身份證 ,聯(lián)系電話 ,入住日期 ,單據(jù)狀態(tài) ,是否加床 ,加床價(jià)格 ,房間號(hào)碼 ,類型名稱 ,客房?jī)r(jià)格 ,入住人數(shù) ,折扣 ,折扣原因 ,轉(zhuǎn)入房費(fèi) ,預(yù)收押金 ,早餐 ,叫醒 ,保密 ,VIP貴賓 ,備注 ,操作員 ,是否結(jié)賬 ,其他費(fèi)用 ,結(jié)賬金額 )values (入住單號(hào) ,姓名 ,身份證 ,聯(lián)系電話 ,getdate(),單據(jù)狀態(tài) ,是否加床 ,加床價(jià)格 ,房間號(hào)碼 ,類型名稱 ,客房?jī)r(jià)格 ,入住人數(shù) ,折扣 ,折扣原因 ,轉(zhuǎn)入房費(fèi) ,預(yù)收押金 ,早餐 ,叫醒 ,保密 ,VIP貴賓 ,備注 ,操作員 ,是否結(jié)賬 ,39。 and 房態(tài) = 39。 amp。Integrated Security = True str = Select * From 客房設(shè)置 Where 房間號(hào)碼 =39。 嘉興學(xué)院南湖學(xué)院本科生畢業(yè)論文（設(shè)計(jì)） 29 圖 59 住宿登記界面 住宿登記相關(guān)事件代碼： Private Sub btnSave_Click(ByVal sender As , ByVal e As ) Handles If = Then (姓名不能為空！ , 系統(tǒng)提示 , , ) ElseIf = And = Then (該客房不可入??！ , 系統(tǒng)提示 , , ) Else = Data Source = (local)。 操作員填好登記信息 后，單擊“保存”按鈕，系統(tǒng)會(huì)自動(dòng)保存到入住單信息表中 ，也可以從對(duì)應(yīng)預(yù)定單中獲取數(shù)據(jù) 。 住宿登記 住宿登記界面由 Label， TextBox， CheckBox， ComboBox， DateTimPicker， GroupBox，DataGridView 和 Button多個(gè)控件組成。 嘉興學(xué)院南湖學(xué)院本科生畢業(yè)論文（設(shè)計(jì)） 28 圖 58 房態(tài) 查看 界面 房態(tài) 查看 相關(guān)事件代碼： Private Sub InitDataTable() Dim dv1 As New DataView Dim str As String = select count(客房設(shè)置 .房間號(hào)碼 ) as total from 客房設(shè)置 ,樓層信息 where 客房設(shè)置 .樓層名稱 = 樓層信息 .樓層名稱 group by 樓層信息 .樓層編號(hào) order by 樓層信息 .樓層編號(hào) Dim dsRoomCount As New DataSet Dim daRoomCount As SqlDataAdapter = New SqlDataAdapter(str, conn) (dsRoomCount, 房間數(shù) ) dv1 = (房間數(shù) ).DefaultView If 0 Then For i As Integer = 0 To 1 If maxnumber CInt(dv1(i)(0)) Then maxnumber = CInt(dv1(i)(0)) End If Next End If Dim dv2 As New DataView str = select 房間號(hào)碼 ,樓層名稱 from 客房設(shè)置 Dim dsRoomInf As New DataSet Dim daRoomInf As SqlDataAdapter = New SqlDataAdapter(str, conn) (dsRoomInf, 房間信息 ) dv2 = (房間信息 ).DefaultView dtRoomState = New DataTable (樓層 ) For j As Integer = 1 To maxnumber () Next End Sub 打開房態(tài)查看界面 ，可通過(guò)左側(cè)數(shù)據(jù)窗口查看酒店房態(tài)信息。操作員 可以 通過(guò) 該模塊查詢酒店客房的狀態(tài)信息 ， 還可以在該模塊中 修改 各房間 的 狀態(tài) 。 圖 57 清除數(shù)據(jù)界面 清除數(shù)據(jù)相關(guān)事件代碼： Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As ) Handles If Is Nothing Then (請(qǐng)選中數(shù)據(jù)！ , 系統(tǒng)提示 , , ) ElseIf (確定要?jiǎng)h除該數(shù)據(jù)嗎？ , 系統(tǒng)提示 , , ) = Then Dim i As Integer i = 嘉興學(xué)院南湖學(xué)院本科生畢業(yè)論文（設(shè)計(jì)） 27 Dim cmd As New SqlCommand(delete from 入住單歷史 where 入住單號(hào) = 入住單號(hào) , conn) (入住單號(hào) , , 60).Value = (0).() Try () () () daDeleData1 = New SqlDataAdapter(select * from 入住單歷史 , conn) (dsDeleData1, 入住單歷史 ) = (入住單歷史 ) MsgBox(刪除成功！ ) Catch ex As Exception MsgBox() Finally () End Try End If End Sub 總臺(tái)接待 本系統(tǒng)的總臺(tái)接待功能主要實(shí)現(xiàn)了房態(tài)圖的查 詢與修改，客房的入住和預(yù)定，以及預(yù)定的取消，客房的調(diào)換等功能。該模塊 用于刪除酒店歷史記錄 ，操作員 可以 通過(guò)雙擊想要?jiǎng)h除的數(shù)據(jù)來(lái)實(shí)現(xiàn)刪除功能。 cmd = New (str, conn) dr = () If () Then (該用戶已存在！ , 系統(tǒng)提示 , , ) Else ()