大酒店標準管理系統(tǒng)的設計和實現(xiàn)

摘要：伴隨計算機和信息技術飛速發(fā)展，酒店客房管理由傳統(tǒng)工作模式逐步被信息化、網(wǎng)絡化現(xiàn)代工作模式所替換。以住宿為主酒店假如再延用傳統(tǒng)管理模式，就會增加酒店管理成本和降低工作效率。在酒店客房管理中融入優(yōu)異計算機和軟件技術，利用酒店客房管理系統(tǒng)進行管理就顯得十分有意義。利用酒店客房管理系統(tǒng)進行管理能讓管理者立即了解酒店整體情況，便于多種決議，同時也簡化了管理多種復雜操作，提升了酒店管理效率。本文以茂名星期八商務酒店為例采取VisualBasic和ACCESS相結合，創(chuàng)建一個適合實際情況酒店客房管理系統(tǒng)。關鍵詞：酒店客房管理系統(tǒng)設計實現(xiàn)Abstract：Withtherapiddevelopmentofcomputerandinformationtechnology,themanagementofhotelroomsbythetraditionalworkingmodehasgraduallyreplacedbymoderninformationtechnology,thenetworkworkmode.Inordertostayatthemainhoteliftheextensionofthetraditionalmanagementmode,willincreasethecostandreducetheefficiencyofhotelmanagement.Withadvancedcomputersandsoftwaretechnologyinthehotelguestroommanagement,itisverymeaningfulandmanagedbythehotelguestroommanagementsystem.Managementcanmakemanagerstounderstandtheoverallsituationofthehotel,hotelroomsmanagementsystem,convenientforvariousdecision-making,butalsosimplifiesthemanagementofavarietyofcomplexoperation,improvethemanagementefficiencyofthehotelmanagement.Inthispaper,MaomingweekeightTradersHotelasanexampleusingVisualBasicandACCESScombination,tocreateasuitablefortheactualsituationofthehotelroommanagementsystem.Keywords：HotelroommanagementsystemDesignRealization目錄第一章課題研究背景 3（一）酒店客房管理現(xiàn)實狀況 3（二）課題研究意義 3第二章需求分析 3（一）系統(tǒng)目標 3（二）系統(tǒng)需求 3（三）功效需求 4（四）系統(tǒng)性能需求 4（五）開發(fā)技術 5第三章系統(tǒng)總體功效 5（一）系統(tǒng)功效結構 5（二）系統(tǒng)步驟圖 6第五章各功效模塊代碼 11（一）酒店客房管理系統(tǒng)Main模塊 11（二）初始化main_csh模塊 16（四）操作員設置main_czysz模塊 17（五）房態(tài)查詢main_ftcx模塊 19（六）掛賬結款main_gzjk 20（七）客房查詢main_kfcx 23（八）住宿登記main_kfdj 23（九）客房設置main_kfgl 31（十）密碼設置main_mmsz 34（十一）權限設置main_qxsz 36（十二）數(shù)據(jù)備份main_sjbf 38（十三）數(shù)據(jù)恢復main_sjhf 38（十四）退宿結賬main_tf 39（十五）退宿查詢main_tfcx 50（十六）調房登記main_tfdj 51（十七）宿費提醒main_xftx 55（十八）客房銷售報表main_xsbb 56（十九）客房銷售統(tǒng)計main_xstj 59（二十）登記預收報表main_ysbb 60（二十一）追加押金main_zjyj 61（二十二）住宿查詢main_zscx 66（二十三）酒店客房管理系統(tǒng)main_Login 67第六章調試和結果 68（一）初始化系統(tǒng)登錄調試 68（二）登記模塊功效調試 68（三）退房功效調試 69（四）住房查詢功效調試 69參考文件 70致謝 71酒店客房管理系統(tǒng)設計和實現(xiàn)第一章課題研究背景伴隨經(jīng)濟快速發(fā)展，酒店業(yè)競爭日趨猛烈。酒店業(yè)內不得不深入尋求經(jīng)過擴大酒店銷售、改善服務質量、降低管理成本和提升用戶滿意度等措施來增強酒店關鍵競爭力。其中最有效手段就是應用現(xiàn)代化信息化技術，變革傳統(tǒng)意義上酒店業(yè)經(jīng)營管理模式，跟上時代競爭步伐?？紤]到酒店業(yè)務不停提升和用戶需求日益多樣化，盡可能滿足酒店個性化需求，同時吸收了同類產(chǎn)品及現(xiàn)有軟件系統(tǒng)優(yōu)點，努力爭取設計成為一套優(yōu)異適用酒店管理軟件系統(tǒng)，為用戶提供愈加便捷信息化服務，為酒店管理者、決議者提供正確立即酒店經(jīng)營信息，以達成酒店節(jié)省經(jīng)營成本、提升經(jīng)營質量和經(jīng)濟效益信息化管理目標。（一）酒店客房管理現(xiàn)實狀況伴隨計算機和信息技術飛速發(fā)展，傳統(tǒng)酒店客房管理模式逐步被信息化現(xiàn)代酒店客房管理模式所替換。傳統(tǒng)酒店管理往往令管理者花大量人力和物力以滿足多種繁瑣經(jīng)營活動需要，比如冗長登記和結賬手續(xù)、手工統(tǒng)計全部客房狀態(tài)、列表統(tǒng)計用戶消費情況等。這種工作模式不僅效率低下，且極易出現(xiàn)錯誤和遺漏，有時甚至會造成嚴重經(jīng)濟損失，給酒店經(jīng)營帶來負面影響。（二）課題研究意義對酒店整個來說，對酒店經(jīng)營情況起決定作用是酒店服務管理水平。怎樣利用優(yōu)異管理手段來提升酒店管理水平成為酒店業(yè)務發(fā)展當務之急。面對信息時代機遇和挑戰(zhàn)，利用科技手段提升酒店管理無疑是一條行之有效路徑。即使計算機管理并不是酒店管理走向成功關鍵元素，但它能夠最大程度地發(fā)揮正確、快捷、高效等作用，對酒店業(yè)務管理提供強有力支持。所以，采取全新計算機網(wǎng)絡和酒店業(yè)務管理系統(tǒng)，已成為提升酒店管理效率，使作業(yè)人員和管理系統(tǒng)之間靈活互動，實現(xiàn)流暢工作流銜接，幫助酒店有效地進行業(yè)務管理，釋放最大價值。酒店業(yè)務管理系統(tǒng)在達成在節(jié)省人力資源成本同時，能夠提升業(yè)務效率，并能夠立即、正確、快速地滿足用戶服務需求。第二章需求分析（一）系統(tǒng)目標本系統(tǒng)需要滿足以下多個系統(tǒng)設計目標。（1）實用性標準：真正為酒店工作人員實際工作服務，根據(jù)酒店客房管理工作實際步驟，設計出實用酒店客房管理系統(tǒng)。（2）安全性標準：必需為酒店客房提供信息安全服務，以確保酒店信息不被泄露。（3）可操作性標準：本酒店客房管理系統(tǒng)面向是酒店內工作人員，所以系統(tǒng)操作上要求簡單、方便、快捷，便于用戶使用。（4）可擴展性標準：采取開發(fā)標準和接口，便于系統(tǒng)向更大規(guī)模和功效擴展。（二）系統(tǒng)需求依據(jù)酒店客房管理系統(tǒng)理念，此酒店客房管理系統(tǒng)必需滿足以下需求：(1)含有設置酒店客房類型和房間信息功效(2)能快速、正確地了解酒店客房狀態(tài)，方便訂房和退房(3)提供多個手段查詢客房訂房信息(4)提供修改訂房和修改退房功效(5)提供簡單酒店工作人員添加用戶和修改密碼功效（三）功效需求（1）利用系統(tǒng)設置中初始化模塊清空系統(tǒng)中全部數(shù)據(jù)。（2）系統(tǒng)設置模塊關鍵是設置操作員、密碼及權限。（3）客房管理模塊關鍵是對客房進行設置和查詢。（4）住宿管理模塊關鍵是對住宿登記、追加押金、調房登記和退宿結賬進行管理。（5）掛賬查詢模塊關鍵是對掛賬和用戶結款進行查詢。（6）查詢統(tǒng)計模塊關鍵是對住宿、退宿進行查詢和對宿費進行提醒。（7）日結模塊關鍵是對登記預收、客房銷售進行報表管理和對客房銷售進行統(tǒng)計。（8）系統(tǒng)維護關鍵是對數(shù)據(jù)備份和恢復進行維護。（四）系統(tǒng)性能需求為了確保系統(tǒng)能夠長久、安全、穩(wěn)定、可靠、高效運行，系統(tǒng)應該滿足以下性能需求：（1）系統(tǒng)處理正確性和立即性系統(tǒng)處理正確性和立即性是系統(tǒng)必需性能。在系統(tǒng)設計和開發(fā)過程中，要充足考慮系統(tǒng)目前和未來可能承受工作量，使系統(tǒng)處理能力和響應時間能夠滿足用戶對信息處理。因為系統(tǒng)查詢功效對于整個系統(tǒng)功效和性能完成很關鍵。從系統(tǒng)多個數(shù)據(jù)起源來看，客房信息查詢、訂房信息查詢、結算信息查詢，其正確性很大程度上決定了系統(tǒng)成敗。所以，在系統(tǒng)開發(fā)過程中，系統(tǒng)采取優(yōu)化SQL語句及安全擴展存放過程來確保系統(tǒng)正確性和立即性。（2）系統(tǒng)開放性和系統(tǒng)可擴充性系統(tǒng)在開發(fā)過程中，應該充足考慮以后可擴充性。比如系統(tǒng)權限和客房信息設置等模塊也會不停更新和完善。全部這些全部要求系統(tǒng)提供足夠手段進行功效調整和擴充。而要實現(xiàn)這一點，應經(jīng)過系統(tǒng)開放性來完成，既系統(tǒng)應是一個開放系統(tǒng)，只要符合一定規(guī)范，能夠簡單加入和降低系統(tǒng)模塊，配置系統(tǒng)硬件。經(jīng)過軟件修補、替換完成系統(tǒng)升級和更新?lián)Q代。（3）系統(tǒng)可操作性性本酒店客房管理系統(tǒng)面向用戶是酒店內工作人員，而有些使用人員往往對計算機并不是很熟悉，所以系統(tǒng)操作上要求簡單、方便、快捷，便于用戶使用。這就要求系統(tǒng)能夠提供良好用戶接口，易用人機交互界面。（4）系統(tǒng)響應速度系統(tǒng)設計中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫處理方案，大量使用存放過程，大大提升系統(tǒng)響應時間和速度。系統(tǒng)在日常處理中響應速度為秒級，達成實時要求，以立即反饋信息。嚴格確保操作人員不會因為速度問題而影響工作效率。（五）開發(fā)技術本系統(tǒng)利用VisualBasic編譯環(huán)境，采取可視化編程，以MicrosoftOfficeAccess作為后臺數(shù)據(jù)庫，選擇ADO訪問數(shù)據(jù)庫來實現(xiàn)多種功效。1.計算機及操作系統(tǒng)：WindowsXP或Windows7；2.開發(fā)工具：VisualBasic3.運行環(huán)境:裝有完整MicrosoftOfficeAccess系統(tǒng)4.語言：VisualBasic和SQL查詢語言第三章系統(tǒng)總體功效（一）系統(tǒng)功效結構1.基礎系統(tǒng)模型登錄身份驗證登錄身份驗證工作界面2.系統(tǒng)功效模型依據(jù)星期八商務酒店實際情況，酒店客房管理系統(tǒng)總體功效模型以下圖所表示。酒店客房管理系統(tǒng)酒店客房管理系統(tǒng)住宿管理客房管理掛賬管理查詢統(tǒng)計日結系統(tǒng)設置系統(tǒng)維護（二）系統(tǒng)步驟圖1.預訂步驟：2.結賬步驟：第四章數(shù)據(jù)庫設計依據(jù)酒店客房管理系統(tǒng)需要，設置數(shù)據(jù)庫包含入住記錄表tb_djb、預收記錄表tb_djys、掛賬信息表tb_gzmx、酒店房間信息表tb_kf、權限設置表tb_qxsz、調房記錄表tb_tfd和管理者信息表tb_user。其結構以下：入住記錄表tb_djb：字段字段名類型字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205具體地址文本506住宿事由文本507房間號文本308客房類型文本209客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精度型13宿費貨幣14折扣數(shù)字雙精度型15應收宿費貨幣16預收金額貨幣17提醒日期日期/時間18退宿日期日期/時間19備注文本5020標志文本1021日期日期/時間22時間日期/時間23結款方法文本1024退宿時間日期/時間25提醒時間日期/時間26摘要文本20027BZ數(shù)字雙精度型預收記錄表tb_djys：字段字段名類型字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205具體地址文本506住宿事由文本507房間號文本308客房類型文本9客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精度型13宿費貨幣14折扣數(shù)字雙精度型15應收宿費貨幣16預收金額貨幣17提醒日期日期/時間18退宿日期日期/時間19備注文本5020標志文本1021日期日期/時間22時間日期/時間23結款方法文本1024摘要文本20025退宿時間日期/時間26提醒時間日期/時間27BZ數(shù)字雙精度型掛賬信息表tb_gzmx：字段字段名類型字段大小1日期日期/時間2掛賬單位文本1003摘要文本1004住宿金額貨幣5欠款金額貨幣6還款金額貨幣7金額累計文本208姓名文本209證件號碼文本2010票號文本2011時間日期/時間12序號數(shù)字整型13房間標準文本1014房間價格文本10酒店房間信息表tb_kf：字段字段名類型字段大小1房間號文本302房間類型文本203價格貨幣4房態(tài)文本45標志是/否6備注文本1007配置文本1008使用設置文本1009營業(yè)日期日期/時間權限設置表tb_qxsz：字段字段名類型字段大小1住宿登記是/否2追加押金是/否3調房登記是/否4退宿登記是/否5客房管理是/否6客房查詢是/否7房態(tài)查看是/否8掛賬查詢是/否9掛賬結款是/否10住宿查詢是/否11退宿查詢是/否12宿費提醒是/否13登記預收報表是/否14客房銷售報表是/否15客房銷售統(tǒng)計報表是/否16操作員設置是/否17密碼設置是/否18初始化是/否19權限設置是/否20設置窗口圖像是/否21數(shù)據(jù)備份是/否22數(shù)據(jù)恢復是/否23編號文本5024操作員文本5025密碼文本50調房記錄表tb_tfd：字段字段名類型字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205具體地址文本506工作單位文本507房間號文本308客房類型文本209客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精度型13宿費貨幣14折扣或招待文本1615折扣貨幣16應收宿費貨幣17雜費貨幣18電話費貨幣19會議費貨幣20存車費貨幣21賠償費貨幣22金額總計貨幣23預收宿費貨幣24退還宿費貨幣25退房日期日期/時間26退房時間日期/時間27備注文本10028BZ數(shù)字雙精度型管理者信息表tb_user：字段字段名類型字段大小1操作員文本102密碼文本50第五章各功效模塊代碼（一）酒店客房管理系統(tǒng)Main模塊：DimstrtempAsString*60'定義字符變量存放路徑PrivateDeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong'申明API函數(shù)PrivateSubForm_Load()'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_user"Adodc1.RefreshAdodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc2.RecordSource="select*fromtb_qxsz"Adodc2.RefreshOnErrorGoToaa'錯誤處理。當找不到路徑時則轉向錯誤處理Open(App.Path&"\picture.txt")ForInputAs#1LineInput#1,intextTemp=intextClose#1Image2.Picture=LoadPicture(intext)ExitSubaa:Image2.Picture=LoadPicture(App.Path&"\image\酒店客房管理系統(tǒng)主界面.bmp")'當找不到路徑時，賦給一個固定圖片路徑EndSubPrivateSubForm_Activate()'設置操作員權限Adodc1.RecordSource="select*fromtb_userwhere操作員='"+StatusBar1.Panels(4).text+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc2.RecordSource="select*fromtb_qxszwhere操作員='"+StatusBar1.Panels(4).text+"'"Adodc2.RefreshIfAdodc2.Recordset.RecordCount>0ThenWithAdodc2.RecordsetMain.zjyj.Enabled=.Fields("追加押金")Main.ZSDJ.Enabled=.Fields("住宿登記")Main.tf.Enabled=.Fields("退宿登記")Main.tfdj.Enabled=.Fields("調房登記")Main.kfsz.Enabled=.Fields("客房管理")Main.kfcx.Enabled=.Fields("客房查詢")Main.ftck.Enabled=.Fields("房態(tài)查看")Main.gzcx.Enabled=.Fields("掛賬查詢")Main.gzjk.Enabled=.Fields("掛賬結款")Main.zscx.Enabled=.Fields("住宿查詢")Main.tfcx.Enabled=.Fields("退宿查詢")Main.sftx.Enabled=.Fields("宿費提醒")Main.ysbb.Enabled=.Fields("登記預收報表")Main.xsbb.Enabled=.Fields("客房銷售報表")Main.xstj.Enabled=.Fields("客房銷售統(tǒng)計報表")Main.czysz.Enabled=.Fields("操作員設置")Main.ma.Enabled=.Fields("密碼設置")Main.csh.Enabled=.Fields("初始化")Main.qxsz.Enabled=.Fields("權限設置")Main.sztx.Enabled=.Fields("設置窗口圖像")Main.sjbf.Enabled=.Fields("數(shù)據(jù)備份")Main.sjhf.Enabled=.Fields("數(shù)據(jù)恢復")Main.Toolbar1.Buttons(1).Enabled=.Fields("住宿登記")Main.Toolbar1.Buttons(3).Enabled=.Fields("退宿登記")Main.Toolbar1.Buttons(5).Enabled=.Fields("房態(tài)查看")Main.Toolbar1.Buttons(7).Enabled=.Fields("住宿查詢")Main.Toolbar1.Buttons(9).Enabled=.Fields("客房銷售報表")Main.Toolbar1.Buttons(11).Enabled=.Fields("宿費提醒")EndWithEndIfEndIfEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"DJ"zsdj_Click'調入住宿登記Case"TF"tf_Click'調入退宿結賬Case"FT"ftck_Click'調房態(tài)宿查詢Case"CX"zscx_Click'調入住宿查詢Case"RJ"xsbb_Click'調入客房銷售報表Case"TX"sftx_Click'調入提醒Case"counter"DimL,S'調用計算器L=GetSystemDirectory(strtemp,Len(strtemp))Paths=Left(strtemp,L)&"\CALC.EXE"S=Shell(Paths,1)'Shell函數(shù)實施一個可實施文件，返回一個Variant(Double)，假如成功話，代表這個程序任務ID，若不成功，則會返回0。Case"CXDL"'重新登錄Loadmain_Loginmain_Login.ShowCase"exit"IfMsgBox("確定退出該系統(tǒng)？",4,"系統(tǒng)提醒")=vbYesThenEndEndIfEndSelectEndSubPrivateSubsztx_Click()'設置主窗口圖像DimStr'定義變量CommonDialog1.Filter="BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片(*.GIF)|*.GIF|全部文件(*.*)|*.*"'設置圖片格式'CommonDialog控件CommonDialog控件提供一組標準操作對話框，進行諸如打開和保留文件，設置打印選項，和選擇顏色和字體等操作。CommonDialog1.ShowOpen'顯示“打開”對話框IfCommonDialog1.FileName<>""Then'假如文件不為空Image2.Picture=LoadPicture(CommonDialog1.FileName)'加載圖片Str=CommonDialog1.FileName'將圖片名賦給變量Open(App.Path&"\picture.txt")ForOutputAs#1'打開一個txt文件Print#1,Str'打印圖片名Close#1'關閉文件CommonDialog1.FileName=""'把空值賦給文件名ElseCommonDialog1.FileName=""'把空值賦給文件名EndIfEndSubPrivateSubsjbf_Click()'調入數(shù)據(jù)備份main_sjbf.ShowMain.Enabled=FalseEndSubPrivateSubsjhf_Click()'數(shù)據(jù)恢復main_sjhf.ShowEndSubPrivateSubzsdj_Click()'調入住宿登記main_kfdj.ShowMain.Enabled=FalseEndSubPrivateSubzjyj_Click()'調入追加押金Loadmain_zjyjmain_zjyj.ShowMain.Enabled=FalseEndSubPrivateSubtfdj_Click()'調入調房登記main_tfdj.ShowMain.Enabled=FalseEndSubPrivateSubtf_Click()'調入退宿結賬main_tf.ShowMain.Enabled=FalseEndSubPrivateSubkfsz_Click()'調入客房管理main_kfgl.ShowMain.Enabled=FalseEndSubPrivateSubkfcx_Click()'調入客房查詢main_kfcx.ShowMain.Enabled=FalseEndSubPrivateSubftck_Click()'調入房態(tài)查看main_ftcx.ShowMain.Enabled=FalseEndSubPrivateSubgzcx_Click()'調入掛賬查詢Loadmain_gzcxmain_gzcx.ShowMain.Enabled=FalseEndSubPrivateSubgzjk_Click()'調入掛賬結款Loadmain_gzjkmain_gzjk.ShowMain.Enabled=FalseEndSubPrivateSubzscx_Click()'調入住宿查詢Loadmain_zscxmain_zscx.ShowMain.Enabled=FalseEndSubPrivateSubtfcx_Click()'調入退宿查詢Loadmain_tfcxmain_tfcx.ShowMain.Enabled=FalseEndSubPrivateSubsftx_Click()'調入宿費提醒Loadmain_xftxmain_xftx.ShowMain.Enabled=FalseEndSubPrivateSubysbb_Click()'調入登記預收報表main_ysbb.ShowMain.Enabled=FalseEndSubPrivateSubxsbb_Click()'調入客房銷售報表main_xsbb.ShowMain.Enabled=FalseEndSubPrivateSubxstj_Click()'調入客房銷售統(tǒng)計main_xstj.ShowMain.Enabled=FalseEndSubPrivateSubczysz_Click()'調入操作員設置Loadmain_czyszmain_czysz.ShowMain.Enabled=FalseEndSubPrivateSubma_Click()'調入密碼設置main_mmsz.ShowMain.Enabled=FalseEndSubPrivateSubcsh_Click()'調入初始化main_csh.ShowMain.Enabled=FalseEndSubPrivateSubqxsz_Click()'調入權限設置main_qxsz.ShowMain.Enabled=FalseEndSubPrivateSubDL_Click()'重新登錄Loadmain_Loginmain_Login.ShowEndSub（二）初始化main_csh模塊：Dimworkarea(200),sqlAsString'定義字符串變量DimrsAsADODB.RecordsetPrivateSubForm_Load()'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_kf"Adodc1.RefreshEndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TrueEndSubPrivateSubcomstart_Click()Frame1.Enabled=True:Comcreat.Enabled=TrueEndSubPrivateSubcomcreat_Click()'清空選定表中數(shù)據(jù)A=MsgBox("確定初始化該數(shù)據(jù)？",4,"系統(tǒng)提醒")IfA=vbYesThenProgressBar1.Visible=True'ProgressBar控件ProgressBar控件經(jīng)過從左到右用部分方塊填充矩形來表示一個較長操作進度。ProgressBar1.Max=UBound(workarea)ProgressBar1.Value=ProgressBar1.MinForCounter=LBound(workarea)ToUBound(workarea)'LBound函數(shù)返回一個Long型數(shù)據(jù)，其值為指定數(shù)組維可用最小下標。'UBound函數(shù)返回一個Long型數(shù)據(jù)，其值為指定數(shù)組維可用最大下標。workarea(Counter)="initialvalue"&CounterProgressBar1.Value=CounterIfCheck1.Value=1Thensql="delete*fromtb_djb"Setrs=ESQL(sql)'調用模塊中自定義函數(shù)sql="delete*fromtb_djys"Setrs=ESQL(sql)'調用模塊中自定義函數(shù)EndIfIfCheck2.Value=1Thensql="delete*fromtb_tfd"Setrs=ESQL(sql)'調用模塊中自定義函數(shù)EndIfIfCheck3.Value=1Thensql="delete*fromtb_gzmx"Setrs=ESQL(sql)'調用模塊中自定義函數(shù)EndIfIfCheck5.Value=1ThenAdodc1.RecordSource="select*fromtb_kfwhere房態(tài)='入住'"Adodc1.Refresh'ADOData控件ADOData控件和內部Data控件和RemoteData控件(RDC)相同。ADOData控件使您能使用MicrosoftActiveXDataObjects(ADO)快速地創(chuàng)建一個到數(shù)據(jù)庫連接。IfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstFori=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.Fields("房態(tài)")="空房"Adodc1.Recordset.UpdateIfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNextNextiEndIfEndIfNextCounterEndIfMsgBox"初始化完成!",,"系統(tǒng)提醒"ProgressBar1.Visible=FalseProgressBar1.Value=ProgressBar1.MinEndSubPrivateSubcomend_Click()Main.Enabled=TrueUnloadMeEndSub（四）操作員設置main_czysz模塊：PrivateSubForm_Load()'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_qxsz"Adodc1.RefreshAdodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc2.RecordSource="select*fromtb_user"Adodc2.RefreshEndSubPrivateSubForm_Activate()Text1.SetFocus'text1取得焦點EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TrueEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenText2.SetFocus'回車text2取得焦點EndSubPrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenText3.SetFocus'回車text3取得焦點EndSubPrivateSubText3_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenCommand1.SetFocus'回車Command1取得焦點EndSubPrivateSubCommand1_Click()'保留操作員及密碼IfText1.text<>""ThenIfText2.text<>""AndText3.text<>""AndText2.text=Text3.textThenadocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"adoRs.Open"select*fromtb_user",adocon,adOpenKeyset,adLockOptimisticadoRs.AddNewadoRs.Fields("操作員")=Text1.textadoRs.Fields("密碼")=Text2.textadoRs.Updateadocon.Closeadocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"adoRs.Open"select*fromtb_qxsz",adocon,adOpenKeyset,adLockOptimisticadoRs.AddNewadoRs.Fields("操作員")=Text1.textadoRs.Fields("密碼")=Text2.textadoRs.Updateadocon.CloseText1.text="":Text2.text="":Text3.text=""MsgBox"操作員設置成功！",,"系統(tǒng)提醒"'MsgBox函數(shù)在對話框中顯示消息，等候用戶單擊按鈕，并返回一個Integer告訴用戶單擊哪一個按鈕。ElseIfText3.text=""ThenMsgBox"請輸入確定密碼",,"系統(tǒng)提醒"Text3.SetFocusElseIfText2.text<>Text3.textThenMsgBox"兩次輸入密碼不相同",,"系統(tǒng)提醒"Text2.text=""Text3.text=""Text2.SetFocusEndIfElseMsgBox"請輸入操作員！",,"系統(tǒng)提醒"EndIfEndSubPrivateSubCommand2_Click()Text1.text="":Text2.text="":Text3.text=""EndSubPrivateSubCommand3_Click()Main.Enabled=TrueUnloadMeEndSub（五）房態(tài)查詢main_ftcx模塊：DimitmXAsListItem'申明一個ListItem對象DimtextAsString'申明字符串變量DimMyIconAsInteger'申明一個整型變量PrivateSubCommand1_Click()UnloadMeMain.Enabled=TrueEndSubPrivateSubForm_Activate()Dimrs1AsADODB.RecordsetDimrs2AsADODB.RecordsetDimrs3AsADODB.RecordsetDimsqlAsString'定義一個字符串變量ListView1.ListItems.Clear'ListView控件ListView控件可使用四種不一樣視圖顯示項目。經(jīng)過此控件，可將項目組成帶有或不帶有列標頭列，并顯示伴隨圖標和文本。sql="select*fromtb_kfwheretb_kf.房態(tài)='入住'"Setrs1=ESQL(sql)'調用模塊中自定義函數(shù)Ifrs1.RecordCount>0ThenDoWhilers1.EOF=Falsetext=rs1.Fields("房間號")SetitmX=ListView1.ListItems.Add(,,text,1)rs1.MoveNextLoopEndIfsql="select*fromtb_kfwheretb_kf.房態(tài)='空房'"Setrs1=ESQL(sql)Ifrs1.RecordCount>0ThenDoWhilers1.EOF=Falsetext=rs1.Fields("房間號")SetitmX=ListView1.ListItems.Add(,,text,2)rs1.MoveNextLoopEndIfsql="select*fromtb_kfwheretb_kf.房態(tài)='維修'"Setrs1=ESQL(sql)'調用模塊中自定義函數(shù)Ifrs1.RecordCount>0ThenDoWhilers1.EOF=Falsetext=rs1.Fields("房間號")SetitmX=ListView1.ListItems.Add(,,text,3)rs1.MoveNextLoopEndIfsql="select*fromtb_kfwheretb_kf.房態(tài)='入住'"Setrs2=ESQL(sql)'調用模塊中自定義函數(shù)sql="select*fromtb_kfwheretb_kf.房態(tài)='維修'"Setrs3=ESQL(sql)'調用模塊中自定義函數(shù)Labsy.Caption=rs2.RecordCount'客房入住數(shù)Labwx.Caption=rs3.RecordCount'客房維修數(shù)Labkx.Caption=25-Val(Labwx.Caption)-Val(Labsy.Caption)'客房空閑數(shù)Labsyl.Caption=Val(Labsy.Caption)/25*100&"%"'客房使用率EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TrueEndSubPrivateSubListView1_Click()'ListView控件可使用四種不一樣視圖顯示項目。經(jīng)過此控件，可將項目組成帶有或不帶有列標頭列，并顯示伴隨圖標和文本。main_zscx.Text2.text="1"main_zscx.Adodc1.RecordSource="select*fromtb_djbwhere標志='1'and房間號='"+ListView1.SelectedItem+"'"main_zscx.Adodc1.RefreshLoadmain_zscxmain_zscx.ShowEndSub（六）掛賬結款main_gzjk：DimdAsStringDimrs1AsNewADODB.RecordsetPrivateSubForm_Load()d=Format(Date,"YYYY-MM-DD")t=Format(Time,"HH:MM:SS")DimiAsInteger'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_gzmx"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1Adodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"adocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"rs1.Open"selectdistinct掛賬單位fromtb_gzmx",adocon,adOpenKeyset,adLockOptimisticFori=1Tors1.RecordCountCombo2.AddItemrs1.Fields("掛賬單位").Valuers1.MoveNextNextiAdodc2.RecordSource="select*fromtb_gzmxwhere摘要='房費已結清'"Adodc2.RefreshIfAdodc2.Recordset.RecordCount>0ThenFori=0ToAdodc2.Recordset.RecordCount-1Combo2.ListIndex=0Forj=0ToCombo2.ListCountIfCombo2.List(j)=Adodc2.Recordset.Fields("掛賬單位")ThenCombo2.RemoveItem(j)EndIfNextjAdodc2.Recordset.MoveNextNextiEndIfrs1.Closeadocon.CloseEndSubPrivateSubForm_Activate()czy.text=Main.StatusBar1.Panels(4).text'賦值給czy.textEndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TrueEndSubPrivateSubtext2_Change()'查詢掛賬單位Adodc1.RecordSource="select*fromtb_gzmxwhere掛賬單位='"+Combo2.text+"'"Adodc1.RefreshEndSubPrivateSubCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenText1.SetFocus'按回車鍵text1取得焦點EndSubPrivateSubCommand1_Click()IfText1.text=""OrCombo2.text=""ThenMsgBox"請輸入完整信息"ExitSubEndIf'查詢掛賬單位Adodc1.RecordSource="select*fromtb_gzmxwhere掛賬單位='"&Combo2.text&"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenIfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveLastIfVal(Adodc1.Recordset.Fields("金額累計"))>0Thenkhye.text=Adodc1.Recordset.Fields("金額累計")adocon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"adoRs.Open"select*fromtb_gzmx",adocon,adOpenKeyset,adLockOptimisticadoRs.AddNew'添加新統(tǒng)計adoRs.Fields("日期")=dadoRs.Fields("時間")=tadoRs.Fields("摘要")="用戶還款"adoRs.Fields("姓名")=Text2.textIfCombo2.text<>""ThenadoRs.Fields("掛賬單位")=Combo2.textadoRs.Fields("還款金額")=Format(Val(Text1.text),"0.00")adoRs.Fields("金額累計")=Format((Val(khye.text)-Val(Text1.text)),"0.00")IfVal(adoRs.Fields("金額累計"))<=0ThenMsgBox"房費已結清,找零為"&Trim(-adoRs.Fields("金額累計"))&""adoRs.Fields("摘要")="房費已結清"Combo2.RemoveItem(Combo2.ListIndex)EndIfrs1.Open"select*fromtb_gzmxwhere掛賬單位='"&Combo2.text&"'",adocon,adOpenKeyset,adLockOptimisticDoWhilers1.EOF=Falsers1.DeleteLooprs1.Close'IfVal(adoRs.Fields("金額累計"))<0Then'MsgBox"超出剩下金額，找零為"&Trim(-adoRs.Fields("金額累計"))&""'adoRs.Fields("摘要")="房費已結清"'EndIfadoRs.Update'更新統(tǒng)計adocon.CloseEndIfEndIf'清空數(shù)據(jù)Text1.text="":khye.text="":Text2.text=""EndSubPrivateSubCommand2_Click()Main.Enabled=TrueUnloadMeEndSub（七）客房查詢main_kfcx：PrivateSubCommand2_Click()'查詢Adodc1.RecordSource="select*fromtb_kfwhere房間號like'%"+Text1.text+"%'"Adodc1.RefreshEndSubPrivateSubForm_Load()'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_kf"Adodc1.RefreshSetDataGrid1.DataSource=Adodc1DataGrid1.Columns(4).Width=0EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TrueEndSubPrivateSubCommand3_Click()Main.Enabled=TrueUnloadMeEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCommand2.SetFocus'按回車鍵Command2取得焦點EndSub（八）住宿登記main_kfdj：DimiAsInteger'定義一個整型變量DimFdateAsString,FtimeAsStringPrivateSubbh_Change()EndSubPrivateSubCombo3_Click()'查詢客房信息Adodc1.RecordSource="select*fromtb_kfwhere房間號='"&Combo3.text&"'and房態(tài)='空房'"Adodc1.Refresh'查詢住宿登記信息Adodc2.RecordSource="select*fromtb_djbwhere房間號='"&Combo3.text&"'and標志='1'"Adodc2.RefreshIfAdodc1.Recordset.RecordCount>0Then'假如存在空房IfAdodc2.Recordset.RecordCount=0Then'假如選擇房間沒被登記ZSDJ(4).text=Adodc1.Recordset.Fields("房間類型")'為“客房標準”文本框賦值ZSDJ(5).text=Adodc1.Recordset.Fields("價格")'為“客房價格”文本框賦值EndIfEndIfEndSubPrivateSubForm_Load()Fdate=Format(Date,"YYYY-MM-DD")Ftime=Format(Time,"HH:MM:SS")'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromtb_kf"Adodc1.RefreshAdodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc2.RecordSource="select*fromtb_djb"Adodc2.RefreshAdodc3.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DB_KFGL.mdb;PersistSecurityInfo=False"Adodc3.RecordSource="select*fromtb_kfwhere房態(tài)='空房'"Adodc3.RefreshIfAdodc3.Recordset.RecordCount>0ThenFori=1ToAdodc3.Recordset.RecordCountCombo3.AddItemAdodc3.Recordset.Fields("房間號").ValueAdodc3.Recordset.MoveNextNextiEndIfCombo3.Enabled=FalseComok.Enabled=FalseEndSubPrivateSubForm_Activate()'初始化日期立即間DTP1.Value=Fdate:tim1.Value=Ftimetim2.Value=#12:00:00PM#:DTP2.Value=Fdate:DTP3.Value=Fdate'DateTimePicker控件使您能夠提供格式化日期字段，使得進行日期選擇很輕易。另外，用戶還能夠從類似于MonthView控件下拉式日歷界面中選擇日期。czy.text=Main.StatusBar1.Panels(4).text'賦值給czyComdj.SetFocus'Comdj取得焦點EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=True'設置主窗體有效EndSubPrivateSubCombo2_Click()IfCombo2.text="折扣"ThenZSDJ(8).Enabled=True'設置ZSDJ(8)有效ZSDJ(8).SetFocus'ZSDJ(8)取得焦點EndIfIfCombo2.text="招待"ThenZSDJ(8).Enabled=False'設置ZSDJ(8)無效ZSDJ(8).text=0'賦值給ZSDJ(8)EndIfEndSubPrivateSubZSDJ_Change(IndexAsInteger)SelectCaseIndexCase6ZSDJ(7).text=Format(Val(ZSDJ(6).text)*Val(ZSDJ(5).text),"0.00")'計算折前宿費'Format函數(shù)返回Variant(String)，其中含有一個表示式，它是依據(jù)格式表示式中指令來格式化。ZSDJ(9).text=ZSDJ(7).text'賦值給ZSDJ(9)ZSDJ(8).text=100DTP3.Value=DTP1.Value+Val(ZSDJ(6).text)'計算退宿日期'Val函數(shù)返回包含于字符串內數(shù)字，字符串中是一個合適類型數(shù)值。Case8ZSDJ(9).text=Format(Val(ZSDJ(7).text)*Val(ZSDJ(8).text)/100,"0.00")'計算實際宿費Case10IfZSDJ(10).text<>""ThenZSDJ(10).text=Val(ZSDJ(10).text)'用val函數(shù)將字符串轉換為數(shù)字DTP2.Value=DTP1.Value+Int(Val(ZSDJ(10).text)/Val(ZSDJ(5).text))'計算提醒日期'Int函數(shù)返回參數(shù)整數(shù)部分。If(Val(ZSDJ(10).text)-Int(Val(ZSDJ(10).text)/Val(ZSDJ(5).text)))>0.5*Val(ZSDJ(5).text)Thentim2.Value=#6:00:00PM#'計算提醒時間Else