【正文】 的用戶口令控制。代碼格式如圖51所示：d序號日期年份月份圖51 憑證編碼格式在開發(fā)賓館客房管理系統(tǒng)過程中，從客人入住到客人退宿涉及到客房管理的方方面面，如處理不當(dāng)，便會給賓館造成很大的損失。調(diào)房后，應(yīng)對原客房、目標(biāo)客房的狀態(tài)進行編輯，再對住宿登記表中的信息進行編輯。由于本系統(tǒng)的最終用戶是酒店的倉庫管理員、收銀員，而非計算機專業(yè)人員，因此用戶界面必須符合他們的使用習(xí)慣，滿足用戶的需求。④程序代碼： Private Sub Form_Load() = amp。調(diào)入宿費提醒 sftx_ClickEnd SubPrivate Sub label6_Click() EndEnd SubPrivate Sub kfyd_Click() 39。調(diào)入房態(tài)查看 = FalseEnd SubPrivate Sub gzcx_Click() 39。調(diào)入客房銷售報表 = FalseEnd SubPrivate Sub xstj_Click() 39。 ．操作員錯誤或密碼錯誤提醒并返回錯誤點。定義一個整型變量Dim myval As String 39。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤!) Else = select * from qxsz where 操作員=39。 ．實現(xiàn)客人住宿登記，收取客人預(yù)交宿費。定義一個整型變量Private Sub Form_Load() 39。設(shè)置主窗體有效End SubPrivate Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。計算實際宿費 Case 10 If ZSDJ(10).Text Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 39。按回車鍵ZSDJ(6)獲得焦點 Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus’回車鍵ZSDJ(10)獲得焦點 Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。 amp。 amp。ZSDJ(5)獲得焦點End Sub 單擊“登記”按鈕，將自動生成憑證號碼?？辗?9。 Format(1, 000) End IfEnd If39。 Right(Left(Date, 7), 2) amp。 Right(Date, 2) amp。PrinterNewPage打印新的一頁；；；, ；。 B = B + D = 100 + A = B + 200 押金: amp。 amp。 B = B + D (A, B + 100)(C, B + 100) = 100 + A = B + 200 姓名： amp。取消操作 For i = 0 To 11 ZSDJ(i).Enabled = False Next i = False: = False: = False = False: = False: = False: = False = False: = False: = TrueEnd Sub使用Printer對象打印住宿登記單。(BZ) = Left(Date, 4) amp。添加住宿信息 If Then (憑證號碼) = If ZSDJ(0).Text Then (姓名) = ZSDJ(0).Text If Then (證件名稱) = If ZSDJ(1).Text Then (證件號碼) = ZSDJ(1).Text If ZSDJ(2).Text Then (詳細地址) = ZSDJ(2).Text If ZSDJ(3).Text Then (出差事由) = ZSDJ(3).Text If Then (房間號) = Val() If ZSDJ(4).Text Then (客房類型) = ZSDJ(4).Text If Then (住宿日期) = If Then (住宿時間) = If ZSDJ(5).Text Then (客房價格) = Val(ZSDJ(5).Text) If ZSDJ(6).Text Then (住宿天數(shù)) = ZSDJ(6).Text If ZSDJ(8).Text Then (折扣) = ZSDJ(8).Text If ZSDJ(7).Text Then (宿費) = ZSDJ(7).Text If Then (結(jié)款方式) = If ZSDJ(9).Text Then (應(yīng)收宿費) = ZSDJ(9).Text If ZSDJ(10).Text Then (預(yù)收金額) = Val(ZSDJ(10).Text) If Then (提醒日期) = If Then (提醒時間) = If Then (退宿日期) = If Then (退宿時間) = If ZSDJ(11).Text Then (備注) = ZSDJ(11).Text (日期) = Date (時間) = Time 39。 Format(Val(Right(, 3)) + 1, 000) End If If Then = Date amp?？辗?9。賦值給ZSDJ(4) ZSDJ(5).Text = (價格) 39。查詢空閑房間信息 = select * from djb where 房間號=39。按回車鍵DTP3獲得焦點End SubPrivate Sub tim4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵ZSDJ(2)獲得焦點 Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。賦值給ZSDJ(9) ZSDJ(8).Text = 100 = + Val(ZSDJ(6).Text) 39。賦值給czy 39。主要控件對象的屬性如表3－10所示。在住宿登記模塊中主要實現(xiàn)如下功能： ．自動生成住宿登記憑證號碼。按回車鍵，text2獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then 39。主要控件對象的屬性如表3一9所示。在系統(tǒng)登錄模塊中主要實現(xiàn)如下功能： ．可選擇操作員，支持鼠標(biāo)和鍵盤操作。調(diào)入宿費提醒 Load main_xftx = FalseEnd SubPrivate Sub ysbb_Click() 39。調(diào)入客房管理 = FalseEnd SubPrivate Sub kfcx_Click() 39。調(diào)入住宿查詢 zscx_ClickEnd SubPrivate Sub Label4_Click() 39。圖53主程序界面 ⑵ 實現(xiàn)過程 ①新建一個標(biāo)準(zhǔn)工程，命名為“客房管理系統(tǒng)”，在該工程中會自動創(chuàng)建一個新窗體，將該窗體命名為main. ②單擊“工程”菜單下的“部件”選項，在彈出的列表中，選定Microsoft WindowsCommon Control 選項，然后單擊“確定”按鈕，StatusBar控件將被添加到工具箱中。例如，本例根據(jù)押金的多少計算提醒日期。由于客人的住宿習(xí)慣不同，有些客人會在住宿過程中要求調(diào)房，例如客人要求換一個朝陽的房間或空調(diào)房等，這就要求客房管理系統(tǒng)有調(diào)房的功能。為方便系統(tǒng)的使用與維護，本系統(tǒng)對一些基本數(shù)據(jù)項的代碼格式進行規(guī)范化，舉例說明如下。在一般的計算機中，安全措施是逐級設(shè)置的：數(shù)據(jù)庫的安全控制的一般方法有：用戶標(biāo)識和鑒定，存取控制，審計，數(shù)據(jù)加密，視圖的保護。字段名稱數(shù)據(jù)類型字段大小日期日期/時間8掛帳單位文本100摘要文本100住宿金額貨幣8欠款金額貨幣8還款金額貨幣8金額累計貨幣8姓名文本16證件號碼文本50票號文本20時間日期/時間8序號數(shù)字整型房間標(biāo)準(zhǔn)文本10房間價格文本10表43表gzmx的結(jié)構(gòu) 4．客房基礎(chǔ)信息表kf 客房基礎(chǔ)信息表kf用來保存客房的基礎(chǔ)信息，結(jié)構(gòu)見表4一4所示。這個關(guān)系模式由每個參加的實體集的主屬性以及這個聯(lián)系的任何屬性一起組成。 實體的屬性顧客：｛身份證號，姓名，地址，出差事由，住宿天數(shù)，聯(lián)系電話｝客房：｛房間號，房間類型，價格，房態(tài)｝憑證：｛憑證號碼，金額，日期，姓名｝預(yù)訂單：｛顧客姓名，身份證號，聯(lián)系電話，詳細地址，工作單位，客房類型，房間價格，預(yù)住日期，預(yù)住天數(shù)，預(yù)付金額｝退房信息：｛憑證號碼，姓名，證件號碼，聯(lián)系電話，詳細地址，工作單位，房間號，客房類型，房間價格，住宿日期，住宿天數(shù)，宿費，折扣，預(yù)付金額，電話費，會議費，存車費，賠償費，退房日期時間｝續(xù)費信息：｛憑證號碼，姓名，證件號碼，聯(lián)系電話，詳細地址，工作單位，房間號，客房類型，房間價格，住宿日期，住宿天數(shù)，續(xù)費金額，續(xù)費日期時間｝ 實體間的聯(lián)系1．入住， 實體集 顧客 和 房間 之間的1：1聯(lián)系（有可能是團體消費）2．退房， 實體集 顧客 和 房間 之間的1：1聯(lián)系3．續(xù)費，實體集 顧客 和 房間 之間的1：1聯(lián)系4．預(yù)訂， 實體集 顧客 和房間之間的1：1聯(lián)系5．掛賬，實體集 顧客 和 賓館之間的n：m聯(lián)系 E－R圖E—R圖可以用來描述靜態(tài)數(shù)據(jù)結(jié)構(gòu)：實體、聯(lián)系、實體和聯(lián)系的屬性。本系統(tǒng)采用ER圖的方法進行數(shù)據(jù)結(jié)構(gòu)分析，通過ER圖來描述現(xiàn)實世界信息結(jié)構(gòu)的數(shù)據(jù)庫設(shè)計方法。２） IPO圖（輸入―處理―輸出圖）。3．根據(jù)顧客退房請求，進行退房處理，形成退宿登記信息和客人結(jié)賬信息。 對數(shù)據(jù)流圖中所有的數(shù)據(jù)元素都要加以說明，現(xiàn)在以二層圖中的“顧客姓名”為例進行說明。 系統(tǒng)頂層數(shù)據(jù)流程圖說明D1住宿登記信息 。下面分別從數(shù)據(jù)流圖、數(shù)據(jù)字典、基本加工角度對本系統(tǒng)要實現(xiàn)的功能進行詳細說明。因此本系統(tǒng)營運方面可行。其中：年運營耗材費：人民幣 5000元年折舊費（支付系統(tǒng)軟硬件維護及更新）： 人民幣 7000元 （3）新系統(tǒng)投產(chǎn)后預(yù)期年經(jīng)濟收益 為人民幣 30000元。這也正是提出新系統(tǒng)的直接原因。采購部制定采購計劃，進行供應(yīng)商管理，向市場采購賓館所需各項物資餐飲部管理賓館服務(wù)生，向客戶提供餐飲服務(wù)（開臺、點菜、傳菜、供應(yīng)飲品、輔助結(jié)算等）。 本畢業(yè)設(shè)計只需實現(xiàn)賓館客房管理。該賓館已明顯覺得手工管理已不能適應(yīng)當(dāng)前賓館高速發(fā)展的需要，已意識到使用計算機網(wǎng)絡(luò)和計算機管理的重要性，決定首先在客房部采用賓館客房管理系統(tǒng)。賓館部門以前那種老的運作機制已經(jīng)不能適應(yīng)當(dāng)今社會的需要，單純靠手工去進行大量的信息處理，不但給企業(yè)本身帶來很大的不便，同時也給顧客帶來很大的麻煩，造成企業(yè)雖然耗費了大量的人力、物力和時間，但仍然導(dǎo)致工作效率的降低。賓館客房管理系統(tǒng)的開發(fā)與設(shè)計畢業(yè)論文目 錄第一章 前 言 4 5 5第二章 系統(tǒng)需求分析 7 現(xiàn)行業(yè)務(wù)描述 7 組織結(jié)構(gòu) 7 業(yè)務(wù)流程分析 8 現(xiàn)行系統(tǒng)存在的主要問題 8 解決方案 9 可行性分析與抉擇 9第三章 新系統(tǒng)邏輯方案 12 數(shù)據(jù)流圖描述 12 系統(tǒng)頂層數(shù)據(jù)流程圖說明 13 客房管理數(shù)據(jù)流程二層圖說明 14 數(shù)據(jù)字典描述 15第四章 系統(tǒng)總體結(jié)構(gòu)設(shè)計 19 軟件模塊結(jié)構(gòu)設(shè)計 19 數(shù)據(jù)庫設(shè)計 20 數(shù)據(jù)庫設(shè)計需求分析 21 需求分析的建模 21 E－R模型轉(zhuǎn)化為關(guān)系模式 23 2可靠性方案與措施 31第五章 系統(tǒng)詳細設(shè)計 33 代碼設(shè)計 33 33 33 34 34 程序界面設(shè)計 35. 1 主界面實現(xiàn)目標(biāo) 35⑴實現(xiàn)目標(biāo) 35⑵ 實現(xiàn)過程 36 41 45第六章 系統(tǒng)測試 5引言 5測試計劃： 5測試內(nèi)容說明： 5測試分析報告 5系統(tǒng)安裝 59第七章 結(jié) 論 60致 謝 60參考文獻 60附錄：部分模塊設(shè)計代碼 61 第一章 前 言當(dāng)今社會