【導讀】的賓館客戶管理已適應(yīng)不了社會的需求，取而代之的則是計算機系統(tǒng)的管理。時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。賓館客戶管理信息系統(tǒng)主要包括客房信息管理，訂房信息管理，結(jié)算信息管理，金額統(tǒng)計等幾個部分。整個系統(tǒng)有數(shù)據(jù)庫文件和數(shù)據(jù)庫管理系統(tǒng)兩大部他構(gòu)成，系統(tǒng)。進行操作和編程設(shè)計，使系統(tǒng)運行更加連貫，在此基礎(chǔ)上，進一步完善系統(tǒng)的功能，據(jù)庫中的各種資料進行各種基本操作和管理。

　　

【正文】 enu9_Click() Dim m m = MsgBox( 是否退出系統(tǒng) ？ , vbOKCancel + vbQuestion, 退出 ) If m = 1 Then End End If End Sub Private Sub zm_Click() 帳目統(tǒng)計 .Show End Sub 圖 55 代碼： Private Sub Command1_Click() = = = = = = = End Sub 27 Private Sub Command2_Click() If Text1 = Then MsgBox 請輸入客房編號！ Else If Text2 = Then MsgBox 請輸入客房類型！ Else If Text3 = Then MsgBox 請輸入客房位置！ Else If Text4 = Then MsgBox 請輸入客房單價！ Else If Text5 = Then MsgBox 請輸入目前狀態(tài)！ Else If Text6 = Then MsgBox 請輸入顧客上限！ Else If Text7 = Then MsgBox 請輸入已住人數(shù)！ Else MsgBox 已保存！ End If End If End If End If End If End If End If End Sub Private Sub Command3_Click() Unload Me 28 End Sub Private Sub Command4_Click() Dim mag If Text1 = Then MsgBox 沒有要刪除的記錄！ Else mag = MsgBox(確定要刪除嗎 ?, vbYesNo, 刪除 ) If mag = vbYes Then End If End If End Sub 圖 56 代碼： Private Sub Command1_Click() = = = = = = End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command2_Click() If Text1 = Then MsgBox 請輸入客房編號！ Else If Text2 = Then MsgBox 請輸入客房類型！ Else If Text3 = Then MsgBox 請輸入客房位置！ 29 Else If Text4 = Then MsgBox 請輸入客房單價！ Else If Text5 = Then MsgBox 請輸 入目前狀態(tài)！ Else If Text6 = Then MsgBox 請輸入顧客上限！ Else MsgBox 已保存！ End If End If End If End If End If End If End Sub Private Sub Command4_Click() Dim mag If = Then MsgBox 當前無可刪除的記錄！ Else mag = MsgBox(確定要刪除嗎 ?, vbYesNo, 刪除 ) If mag = vbYes Then End If End If End Sub 圖 57 代碼： Private Sub Check2_Click() = True End Sub 30 Private Sub Command3_Click() Unload Me End Sub Private Sub Command1_Click() = select * from 客房信息 where 目前狀態(tài) =39。未滿 39。 and 客房類型 =39。 amp。 amp。 39。 End Sub Private Sub Command2_Click() = select * from 客房信息 End Sub 圖 58 代碼： Private Sub Command1_Click() = = = = Date End Sub Private Sub Command2_Click() If Text5 = Then MsgBox 請輸入顧客姓名！ Else If Text6 = Then MsgBox 請輸入顧客性別！ Else If Text7 = Then MsgBox 請輸入顧客身份證號！ Else !所需金額 = 0 !入住日期 = Date 31 !客房編號 = !客房類型 = Text1 MsgBox 記錄已保存！ !已住人數(shù) = !已住人數(shù) + 1 If !顧客上限 !已住人數(shù) = 0 Then !目前狀態(tài) = 已滿 End If End If End If End If End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) = select * from 客 房 信 息 where 客 房 編 號 =39。 amp。 amp。 39。 and 目前狀態(tài) =39。未滿 39。 Text4 = !顧客上限 !已住人數(shù) End Sub 圖 59 代碼： Private Sub Command2_Click() = select * from 顧客信息 where 身份證號 =39。 amp。 Text2 amp。 39。 End Sub Private Sub Command1_Click() = select * from 顧客信息 where 顧客姓名 =39。 amp。 Text1 amp。 39。 End Sub Private Sub Command3_Click() 32 = select * from 顧客信息 End Sub Private Sub Option2_Click() = False = True = True = False Text1 = End Sub Private Sub Option1_Click() = True = False = False = True Text2 = End Sub 圖 510 代碼： Private Sub Command1_Click() = select * from 顧客信息 where 客房編號 =39。 amp。 Text1 amp。 39。and 所需金額 =0 = True End Sub Private Sub Command2_Click() If Or Then MsgBox 當前無記錄，請指定記錄！ Else = select * from 客房信息 where 客房編號 =39。 amp。 Text1 amp。 39。 !所需金額 = !客房單價 * (Date !入住日期 ) !退房日期 = Date !已住人數(shù) = !已住人數(shù) 1 !目前狀態(tài) = 未滿 MsgBox 退房成功！所需金額為 amp。 !所需金額 End If 33 End Sub Private Sub Command3_Click() = select * from 顧客信息 where 所需金額 =0 = False End Sub 圖 511 代碼： Private Sub Command1_Click() Dim a As Long a = 0 x = For i = 1 To x a = a + (所需金額 ) Next Text3 = a End Sub Private Sub Command2_Click() Unload Me End Sub 圖 514 代碼： Private Sub Command9_Click() = select * from 用戶修改 If And = (密碼 ) And And And And = Then (用戶名 ) = (密碼 ) = MsgBox 修改成功！ = = = = Else If = Then MsgBox 請輸入新用戶名！ 34 Else If = Then MsgBox 請輸入原密碼！ Else If (密碼 ) Then MsgBox 原密碼錯誤！請重新輸入。 = Else If = Then MsgBox 請輸入新密碼！ Else If = Then MsgBox 請確認新密碼！ Else If Then MsgBox 密碼不一致！請重新輸入。 = = End If End If End If End If End If End If End If End Sub 35 賓館信息管理系統(tǒng)客房信息管理定房信息管理結(jié)算信息管理金額統(tǒng)計數(shù)據(jù)打印其他設(shè)置客房信息設(shè)置客房標準客房信息查詢訂房基本信息顧客信息查詢結(jié)算信息帳目統(tǒng)計客房標準顧客信息修改用戶QUIT