【正文】 = conn = conn Try () () MsgBox(刪除成功) Catch ex As Exception 。 amp。 where 房間號碼 = 39。 = update 客房設(shè)置 set 房態(tài) = 39。 amp。 cmd = New (Str, conn) dr = () If () Then () = delete from 預定單 where 房間號碼 = 39。 and 單據(jù)狀態(tài) = 39。 amp。 And 姓名 =39。 amp。Integrated Security = True () str = Select * From 預定單 Where 房間號碼 =39。圖511 取消預定界面取消預定相關(guān)事件代碼： Private Sub btnOK_Click(ByVal sender As , ByVal e As ) Handles If = Then (房間號碼不能為空！, 系統(tǒng)提示, , ) ElseIf = Then (姓名不能為空！, 系統(tǒng)提示, , ) Else = Data Source = (local)。操作員輸入房間號碼和姓名信息后，單擊“確定”按鈕，系統(tǒng)會自動刪除對應(yīng)預定單信息。 = conn Try () () MsgBox(插入成功) dt = (yyyyMMddHHmmss) = YD + dt = Catch ex As Exception MsgBox() Finally () End Try Else (該客房不為空！, 系統(tǒng)提示, , ) End If End If End Sub 取消預定取消預定界面由Label，TextBox和Button控件組成。 amp。 where 房間號碼 = 39。 cmd = New (str, conn) () dr = () If () Then () = insert into 預定單 (預定單號,姓名,身份證,聯(lián)系電話,入住日期,單據(jù)狀態(tài),是否加床,加床價格,房間號碼,類型名稱,客房價格,入住人數(shù),折扣,折扣原因,轉(zhuǎn)入房費,預收押金,早餐,叫醒,保密,VIP貴賓,備注,操作員,是否結(jié)賬)values (預定單號,姓名,身份證,聯(lián)系電話,getdate(),單據(jù)狀態(tài),是否加床,加床價格,房間號碼,類型名稱,客房價格,入住人數(shù),折扣,折扣原因,轉(zhuǎn)入房費,預收押金,早餐,叫醒,保密,VIP貴賓,備注,操作員,是否結(jié)賬) (預定單號, ) (預定單號).Value = (姓名, ) (姓名).Value = (身份證, ) (身份證).Value = (聯(lián)系電話, ) (聯(lián)系電話).Value = (單據(jù)狀態(tài), ) (單據(jù)狀態(tài)).Value = (是否加床, ) (是否加床).Value = (加床價格, ) (加床價格).Value = (房間號碼, ) (房間號碼).Value = (類型名稱, ) (類型名稱).Value = (客房價格, ) (客房價格).Value = (入住人數(shù), ) (入住人數(shù)).Value = (折扣, ) (折扣).Value = (折扣原因, ) (折扣原因).Value = (轉(zhuǎn)入房費, ) (轉(zhuǎn)入房費).Value = (預收押金, ) (預收押金).Value = (早餐, ) (早餐).Value = (叫醒, ) (叫醒).Value = (保密, ) (保密).Value = (VIP貴賓, ) (VIP貴賓).Value = (備注, ) (備注).Value = (操作員, ) (操作員).Value = (是否結(jié)賬, ) (是否結(jié)賬).Value = = update 客房設(shè)置 set 房態(tài) = 39。 and 房態(tài) = 39。 amp。Integrated Security = True str = Select * From 客房設(shè)置 Where 房間號碼 =39。圖510 預定登記界面預定登記相關(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)會自動保存到預定單信息表中。 = conn = conn = conn = conn Try () () () () () MsgBox(插入成功) dt = (yyyyMMddHHmmss) = RZ + dt = Catch ex As Exception MsgBox() End Try Else (該客房不可入??！, 系統(tǒng)提示, , ) End If () End If End If End Sub 預定登記預定登記界面由Label，TextBox，CheckBox，ComboBox，DateTimPicker，GroupBox，DataGridView和Button多個控件組成。 amp。 = delete from 預定單 where 房間號碼 = 39。 amp。 = insert into 預定單歷史 select * from 預定單 where 房間號碼 = 39。 amp。 where 房間號碼 = 39。 = update 預定單 set 單據(jù)狀態(tài) = 39。 amp。 where 房間號碼 = 39。) (入住單號, ) (入住單號).Value = (姓名, ) (姓名).Value = (身份證, ) (身份證).Value = (聯(lián)系電話, ) (聯(lián)系電話).Value = (單據(jù)狀態(tài), ) (單據(jù)狀態(tài)).Value = (是否加床, ) (是否加床).Value = (加床價格, ) (加床價格).Value = (房間號碼, ) (房間號碼).Value = (類型名稱, ) (類型名稱).Value = (客房價格, ) (客房價格).Value = (入住人數(shù), ) (入住人數(shù)).Value = (折扣, ) (折扣).Value = (折扣原因, ) (折扣原因).Value = (轉(zhuǎn)入房費, ) (轉(zhuǎn)入房費).Value = (預收押金, ) (預收押金).Value = (早餐, ) (早餐).Value = (叫醒, ) (叫醒).Value = (保密, ) (保密).Value = (VIP貴賓, ) (VIP貴賓).Value = (備注, )