【導讀】為了搞好賓館的事務處理工作和服務質量，使公司內(nèi)信息流通體系能協(xié)調一致地運行，理提供決策依據(jù)。我們根據(jù)賓館行業(yè)的特點，進行了實地調查與研究。登記和結帳手續(xù)、旅客費用計算錯誤、空余客房資料不能及時提供等，從而影響出租率，使的管理人員不得不集中精力規(guī)劃管理運行策略和進行決策。務質量都有十分積極的作用。開發(fā)本系統(tǒng)主要是為了改善對賓館的管理，更好的利用計算機在管理方面的發(fā)揮。

　　

【正文】 個開發(fā)平臺，一切工作都將在該平臺上制作進行，這便是可視化編程的一種通俗稱呼，也即所為的開發(fā)平臺，在該開發(fā)平臺上將出現(xiàn)一個新的工具。 啟動后的工程往往是一個空白的工程，它只有一個空框窗體，但我們首先應保存它，做為以后的起點，經(jīng)常有許多程序人員因為沒有保存工程，而造成許多開發(fā)工作，由于多種原因的計算機故障而被丟失。保存的方法是：點擊文件菜單下拉的保存 form1，這樣整個的新創(chuàng)建工程便得以保存，以后可以經(jīng)常打開 進行使用。 在登陸界面中，如圖 51 主要是對用戶的身份進行確認，在界面中需要輸入用戶名和密碼，密碼用 **號顯示，確保用戶信息的安全性。本賓館總共有 5 個管理員同時通過登陸信息輸入來確認使用權限，如輸入有誤，會有提示信息“密碼錯誤，請從新輸入密碼?！碧崾惧e誤信息出現(xiàn)三次以上，界面會自動退出。管理員通過登陸系統(tǒng)后，便可進行管理和維護。界面如圖 51 所示范： 圖 51 系統(tǒng) 登錄 窗體 設計代碼如下： Dim TIM As Integer 39。定義一個整型變量 Dim myval As String 39。定義一個字符串變量 Private Sub Form_Load() 黑龍江東方學院學士學位論文 21 39。自動識別數(shù)據(jù)庫路徑 = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() 39。當記錄為零時，進入系統(tǒng)具有所有權限 If = 0 Then MsgBox (請先設置操作員密碼和權限！ ) Load main Unload Me Else End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵， text2 獲得焦點 End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 cmd1 獲得焦點 If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() (4).Text = 39。賦值給 (4).Text 39。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) 新城賓館管理系統(tǒng) 22 Else = select * from qxsz where 操作員 =39。 amp。 amp。 39。 If And And = (密碼 ) Then Load main Unload Me Else If TIM = 3 Then 39。密碼輸錯 3 次，退出系統(tǒng) myval = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, ) If myval = vbOK Then End End If If = Then MsgBox (請輸入操作員 !) Else If (操作員 ) Then MsgBox (查無此操作員 ,請重新輸入操作員 !) Else If = Then MsgBox (請輸入操作員密碼 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重新輸入密碼 !) TIM = TIM + 1 End If End If End If 黑龍江東方學院學士學位論文 23 End If End If End If End Sub Private Sub cmd2_Click() End End Sub 客房設置模塊 本功能模塊可以添加新的客房信息，管理員可以按提示輸入：房間號，房間類型，房態(tài)，價格，備注等等相關信息，變便可以完成整個流程，本模塊界面簡單，易于操作。界面如圖 52 所示： 圖 52 房 間設置窗體 具體代碼如下： Private Sub Data1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Form_Load() = amp。 \ 39。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 新城賓館管理系統(tǒng) 24 39。查詢客房信息 = select * from kf where 房間類型 =39。 amp。 amp。 39。 39。賦值給 If 0 Then = (價格 ) End Sub Private Sub texfjh_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 Combo1 獲得焦點 End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texjg_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵 Texsz獲得焦點 End Sub Private Sub texsz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texpz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texbz_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub dj_Click() 39。登記 = : = : = = : = = True: = True: = False End Sub 黑龍江東方學院學士學位論文 25 Private Sub save_Click() 39。查找客房信息 房間號 like + Chr(34) + + Chr(34) + If Then 39。添加客房 If Then (房間號 ) = If Then (房間類型 ) = If Then (房態(tài) ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。更新記錄 Else 39。編輯客房信息 If Then (房間號 ) = If Then (房態(tài) ) = If Then (房間類型 ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標志 ) = 0 39。更新記錄 新城賓館管理系統(tǒng) 26 End If 39。設置控件有效或無效 = False: = False = True: = True End Sub Private Sub cancel_Click() 39。取消操作 = : = : = = : = = False: = False: = True End Sub Private Sub end_Click() = True Unload Me End Sub 員工管理模塊 本模塊是員工信息錄入的模塊，有新的員工進入本賓館，管理員都要對該員工進行相關信息的錄入，主要有：員工號，姓名，性別，職務，年齡，聯(lián)系方式等等。本模塊主要界面如 圖 53 所示： 圖 53 添加員工信息窗體 具體代碼如下： Private Sub Command1_Click() If Text1 = Then 黑龍江東方學院學士學位論文 27 MsgBox 請輸入員工號 !, vbInformation, 提示 Exit Sub End If If Text2 = Then MsgBox 請輸入員姓名 !, vbInformation, 提示 Exit Sub End If If Text3 = Then MsgBox 請輸入員姓別 !, vbInformation, 提示 Exit Sub End If If Text4 = Then MsgBox 請輸入員職務 !, vbInformation, 提示 Exit Sub End If If Text5 = Then MsgBox 請輸入員年齡 !, vbInformation, 提示 Exit Sub End If If Text6 = Then MsgBox 請輸入員聯(lián)系方式 !, vbInformation, 提示 Exit Sub End If (員工號 ) = (姓名 ) = 新城賓館管理系統(tǒng) 28 (性別 ) = (職務 ) = (年齡 ) = (聯(lián)系方式 ) = 39。更新記錄 = : = : = = : = : = MsgBox 員工添加成功 !, vbInformation, 提示 End Sub Private Sub Command2_Click() = : = : = = : = : = End Sub Private Sub Command3_Click() = True Unload Me End Sub Private Sub Form_Load() = amp。 \ End Sub 押金模塊 在賓館住房通常都要收取押金，所以本模塊對此而設計的，管理員根據(jù)住戶要住宿的天數(shù)，房間類型，房間價格來分別收取相關的押金數(shù)額。本模塊外觀如 圖 54