【導(dǎo)讀】本文介紹了賓館客房管理信息系統(tǒng)的開發(fā)過程。論文詳盡論述了從需求分。開發(fā)過程中的經(jīng)驗及本系統(tǒng)今后的改進方向。遵循軟件工程的方法。密碼設(shè)置、權(quán)限設(shè)置等。理從純?nèi)斯げ僮鬓D(zhuǎn)換成人工與計算機共同處理的。要想在競爭中取得優(yōu)勢，必須在經(jīng)營管理、產(chǎn)品服務(wù)等方面提高服務(wù)管理意。而對賓館的經(jīng)營狀況起決定作用的是賓館的管理。如何利用先進的管理手段，

　　

【正文】 39。調(diào)入房態(tài)查看 = False 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 31 End Sub Private Sub gzcx_Click() 39。調(diào)入掛帳查詢 Load main_gzcx = False End Sub Private Sub khjk_Click() 39。調(diào)入客戶結(jié)款 Load main_khjk = False End Sub Private Sub ydfcx_Click() 39。調(diào)入預(yù)定房查詢 = False End Sub Private Sub zscx_Click() 39。調(diào)入住宿查詢 Load main_zscx = False End Sub Private Sub tfcx_Click() 39。調(diào)入退宿查詢 Load main_tfcx = False End Sub Private Sub sftx_Click() 39。調(diào)入宿費提醒 Load main_xftx = False End Sub Private Sub ysbb_Click() 39。調(diào)入登記預(yù)收報表 = False End Sub 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 32 Private Sub xsbb_Click() 39。調(diào)入客房銷售報表 = False End Sub Private Sub xstj_Click() 39。調(diào)入客房銷售統(tǒng)計 = False End Sub Private Sub czysz_Click() 39。調(diào)入操作員設(shè)置 Load main_czysz = False End Sub Private Sub ma_Click() 39。調(diào)入密碼設(shè)置 = False End Sub Private Sub csh_Click() 39。調(diào)入初始化 = False End Sub Private Sub qxsz_Click() 39。調(diào)入權(quán)限設(shè)置 = False End Sub Private Sub tc_Click() End End Sub ① 實現(xiàn)目標(biāo) 程序啟動后，首先進入系統(tǒng)登錄界面驗證操作員及密碼。在系統(tǒng)登錄模塊中主要實現(xiàn)如下功能： 可選擇操作員，支持鼠標(biāo)和鍵盤操作。 操作員和密碼驗證成功后，進入主界面。 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 33 操作員錯誤或密碼錯誤提醒并返回錯誤點。 輸入三次錯誤的密碼，自動退出系統(tǒng)。 系統(tǒng)登錄界面如圖 54 所示 。 圖 54 系統(tǒng)登錄界面 ② ．實現(xiàn)過程 a、 在“客房管理系統(tǒng)”工程中，添加一個新窗體，命名為 ma in_mima。 b、 單擊“ 工程”菜單下的“部件”選項，在彈出的列表中，選定“ Microsoft Dat BoundList Control 6． 0”選項，然后單擊“確定”按鈕， DBCombo 控件將被添加到工具箱中。 ③ 在窗體中添加 2 個 Data 控件、 1 個 DBC0mbo 控件、 2 個 Label控件、1 個 Text 控件、 2 個 Conunand 控件。主要控件對象的屬性如表 59 所示。 表 59 主要控件對象的屬性列表 對象 屬性 值 功能 Data1 Databasename 提供數(shù)據(jù)綁定 recoudsource qxsz Data2 Databasename 查找數(shù)據(jù) recoudsource qxsz DBCombo1 名稱 Text1 提供數(shù)據(jù)選擇 Rowsource Data1 Listfield 操作員 Boundcolumn 操作員 Text2 Passwordchar * 輸入密碼 Maxlength 6 ④ 程序流程圖： 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 34 ⑤ 程序代碼： Dim tim As Integer 39。定義一個整型變量 Dim myval As String 39。定義一個字符串變量 Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() 39。當(dāng)記錄為零時，進入系統(tǒng)具有所有權(quán)限 If = 0 Then MsgBox (請先設(shè)置操作員密碼和權(quán)限！ ) Load main Unload Me Else End If End Sub 開始（ tim =0） N Y 輸入用戶名 存在此用戶？ Y 輸入密碼 密碼正確否 ？ 進入主界面 N tim = tim +1 tim ＝ 3？ Y 退出登錄 N 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 35 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() 39。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) 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 (查無此操作員 ,請重新輸入操作員 !) 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 36 Else If = Then MsgBox (請輸入操作員密碼 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub 一、 住宿登記模塊設(shè)計 1．實現(xiàn)目標(biāo) 程序啟動后，選擇“住宿管理”菜單下的“住宿登記”項，將進入住宿登記模塊。在住宿登記模塊中主要實現(xiàn)如下功能： ．自動生成住宿登記憑證號碼。 ．提供空閑房間供用戶選擇。 ．實現(xiàn)客人住宿登記，收取客人預(yù)交宿費。 ．自動計算折前 宿費、實際宿費、宿費提醒時間、退宿時間。 ．打印住宿登記單據(jù)。 “住宿登記”界面如圖 55 所示。 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 37 圖 55“住宿登記”界面 2．實現(xiàn)過程 （ 1） 在“客房管理系統(tǒng)”工程中，添加一個新窗體，命名為 main_kfdj。 （ 2） 在窗體中添加 3 個 Data 控件、 1 個 DBCombo 控件、 3 個 DTpicker控件、 2 個 Combo 控件、 18 個 Text 控件等。主要控件對象的屬性如表 510 所示。 表 510 主要控件對象的屬性列表 對象 屬性 值 功能 Data1 Databasename 提供數(shù)據(jù)查找 recordsource djb Data2 Databasename 提供數(shù)據(jù)查找 recordsource djb Data3 Databasename 提供數(shù)據(jù)綁定 recordsource djb DBCombo1 Rowsource Data3 提供數(shù)據(jù)選擇 Listfield 房間號 Boundcolumn 房間號 Combo1 List 身份證、軍官證、工作證 證件列表 Combo2 List 折扣、招待、掛帳 付款方式列表 3）程序代碼： Dim i As Integer 39。定義一個整型變量 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 38 Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = amp。 \ = amp。 \ = amp。 \ End Sub Private Sub Form_Activate() = Date: = Time39。初始化日期及時間 = 12:00:00 PM: = Date: = Date = (4).Text 39。賦值給 czy 39。Comdj 獲得焦點 End Sub Private Sub Form_Unload(Cancel As Integer) = True 39。設(shè)置主窗體有效 End Sub Private Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).SetFocus 39。ZSDJ(8)獲得焦點 End If If = 招待 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).Text = 0 39。賦值給 ZSDJ(8) End If End Sub Private Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), ) 39。計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 39。賦值給 ZSDJ(9) ZSDJ(8).Text = 100 = + Val(ZSDJ(6).Text) 39。計算退宿日期 Case 8 天津工業(yè)大學(xué) 09 屆高職生畢業(yè)論文 39 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, ) 39。計算實際宿費 Case 10 If ZSDJ(10).Text Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 39。用 val 函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。計算提醒日期 If (Val(ZSDJ(10).Text) Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) * Val(ZSDJ(5).Text) Then