賓館住宿管理系統(tǒng)課程設計(詳細完整-附代碼)

賓館住宿管理系統(tǒng)課程設計設計報告班級：XXXXX姓名：XXXXX學號：XXXXX賓館住宿管理系統(tǒng)前言：本系統(tǒng)針對賓館住宿的一般管理模式,采用基于計算機網絡技術的賓館管理解決方案,按照賓館的現(xiàn)代化管理要求設計,實現(xiàn)對賓館住宿的接待，客房，訂房,收支情況,等效勞設施的全面全方位計算機管理。目標在于提高賓館營業(yè)體系的作業(yè)效率，提高效勞的客戶滿意度,加強賓館的市場競爭力，樹立良好的企業(yè)形象.通過計算機管理,一方面提供應客戶快捷準確可靠的效勞,另一方面提高賓館自身的管理水平,及時準確獲取營業(yè)信息,輔助對市場需求變化的決策.第一章系統(tǒng)概述1.1系統(tǒng)開發(fā)的背景和意義隨著我國經濟的迅速開展，人們的生活水平有了顯著的提高，假日經濟和旅游經濟已成為人們消費的熱點。各地也把旅游業(yè)當作本地經濟開展的重要經濟支柱之一，從而促進了賓館酒店業(yè)的快速開展。同時，隨著賓館酒店越來越多，人們的要求越來越高，賓館酒店業(yè)的競爭也愈來愈劇烈。如何在劇烈的競爭中生從開展，是每一個賓館酒店必須面臨的問題。對賓館的經營狀況起決定作用的是賓館的效勞管理水平。如何利用先進的管理手段、提高賓館的管理水平，以成為賓館酒店業(yè)開展的當務之急。面對信息時代的機遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理水平是企業(yè)管理無疑的一條行之有效的途徑?，F(xiàn)在的賓館行業(yè)已經發(fā)生拉巨大變化，已不僅是提供應人們一個吃住行的簡單場所，所以，將計算機管理引入賓館的管理體系中,無疑對賓館的效勞水平更上一層樓提供了一種有利的支持。雖然計算機管理并不是賓館管理走向成功的關鍵元素，但它可以最大限度地發(fā)揮準確、快捷、高效等作用，對賓館的效勞管理提供強有力的支持。因此，采用全新的計算機網絡和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善效勞的水準的重要手段之一。在某種意義上，賓館客房管理方面的信息話已成為現(xiàn)代化賓館的重要標志。1.2系統(tǒng)所要實現(xiàn)功能該系統(tǒng)應充分利用信息技術提高賓館客房的管理水平、效勞水平。酒店客房管理系統(tǒng)要實現(xiàn)客房住宿的登記、宿費提醒、追加押金、調房登記、退房結帳、查詢統(tǒng)計等功能。其中宿費提醒可以在住宿費超過押金時預警，提示前臺要客人補交押金，該功能可明顯提高對住宿人員宿費的有效管理。將動態(tài)時的住宿登記、客房調整追加押金等有機的聯(lián)系在一起，對酒店進行全方位的管理。1.3系統(tǒng)開發(fā)工具開發(fā)數(shù)據庫管理信息系統(tǒng)需要選擇兩種工具，即前臺開發(fā)語言和后臺數(shù)據庫。本系統(tǒng)運用了VisualBasic作為開發(fā)工具，SQLServer2000作為后臺數(shù)據庫。1.4系統(tǒng)模塊分析〔1〕系統(tǒng)管理模塊該模塊實現(xiàn)操作員的管理,如添加刪除和修改操作,并設置操作員的操作權限對指定的用戶進行密碼修改.〔2〕客房管理模塊狀該模塊實現(xiàn)對客房的根本信息的設置,如客房的地點,客房等級,客房物品等信息.同時提供對客房信息的查詢?！?〕訂房管理模塊狀該模塊實現(xiàn)用戶訂房信息管理,提供對訂房客戶資料的登記,查詢和退訂操作。其中訂房信息包括客房的類型和訂房的時間等?！?〕收銀管理模塊狀該模塊實現(xiàn)用戶確實訂房信息管理,提供對訂房客戶資料的登記,查詢，并提供當日報表的打印。第二章系統(tǒng)需求分析2.1編寫目的本文檔對《酒店管理系統(tǒng)》的開發(fā)需求進行描述，目的是明確酒店管理系統(tǒng)對用戶的功能要求.該文檔對《酒店管理系統(tǒng)》做全面細致的用戶需求分析，明確所要開發(fā)的系統(tǒng)應有的功能、性能與界面，使有關人士能夠清楚的了解用戶的需求，并在此根底上進一步提出概要設計說明書和完成后續(xù)設計與開發(fā)工作。2.2開發(fā)背景隨著人民生活水平的提高，旅游出行的人越來越多，酒店的客流量不斷增加，傳統(tǒng)的酒店管理方法已經不適應現(xiàn)代社會的需求。賓館在正常運營中需要對客房資源、顧客信息、退房信息等進行管理，利用客房管理系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理的效率。本工程作為《軟件工程課程設計》課程的訓練工程提出，目的是為了提高同學們軟件的開發(fā)和數(shù)據庫的創(chuàng)立鏈接,以及軟件文檔的相關標準和編寫原那么,提高大家的實踐能力。2.3實現(xiàn)目標建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務人員日常處理的需要，增強企業(yè)經營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對公司經營反應信息的響應速度。從而大幅度提高工作效率，提高實施管理的準確性、科學性，使擔負管理的工作人員從繁雜的手工勞作中解脫出來。面對酒店行業(yè)的高速開展和酒店行業(yè)信息化開展的過程中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實施后，應能到達以下目標：(1)實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準確、快捷和順暢。(2)效勞管理信息化，可隨時掌握客人住宿、客房狀態(tài)、客人掛帳等情況。(3)系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據存儲平安。(4)客戶檔案、掛帳信息、預警系統(tǒng)的結合，可對往來可戶進行住宿監(jiān)控，防止壞帳發(fā)生。(5)通過酒店客房管理系統(tǒng)的實施，可逐步提高賓館的管理水平，提升員工的素質。(6)系統(tǒng)維護方便可靠、有較高的平安性，滿足實用性、先進性的要求。2.4數(shù)據描述信息需求〔1〕顧客信息：姓名、有效證件、證件號碼、聯(lián)系、工作單位、詳細地址?！?〕客房信息：房間號、房間類型、房間價格、所在樓層、〔3〕住宿信息：顧客姓名、房間編號、有效證件、房間標準、房間位置、折扣、入住時間、預交押金?！?〕退房信息：顧客姓名、房間編號、客房標準、退房時間、折扣、預交押金、所付金額、找還金額?！?〕調房信息：顧客姓名、客房標準、原始房、目標房、住宿天數(shù)、入住時間、預交押金、聯(lián)系。處理需求賓館在運營中需要對賓館資源、顧客信息、結算信息進行管理，如果有顧客來往，經過對客房狀態(tài)的查詢，查看是否有房間能及時為客戶辦理登記手續(xù)，如果有顧客來退房，能及時為顧客登記并辦理退房手續(xù)，并且修改客房信息，因此，利用開發(fā)完成后的賓館管理系統(tǒng)能夠十分便利的對住房系統(tǒng)進行管理有利于提高效率。酒店住房管理系統(tǒng)開發(fā)的任務是實現(xiàn)各種住房信息的系統(tǒng)標準化、自動化主要完成的功能有以下幾個方面。〔1〕住宿管理這個模塊包括四個局部，即住宿登記、追加押金、調房登記、退宿結帳。該模塊要實現(xiàn)客人的住宿登記，收取客人的預交宿費，自動計算折前宿費、實際宿費等；能夠收取客人的續(xù)交押金，自動計算宿費提醒日期，并能夠實現(xiàn)客戶調房登記、退宿結帳、自動計算住宿費用及退還費等?！?〕客房管理這個模塊包括三個局部，即客房設置、客房查詢、房態(tài)查看。賓館客房在不同的時間有不同的狀態(tài)，如空靜房、空臟房、清理房、占用房、毛病房、修理房等。該局部要完成客房根本信息的查詢、能夠按房間號檢索所需的客房根本信息，以及顯示當前客房的入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率等。〔3〕查詢管理這個模塊包括三個局部，即住宿查詢、退宿查詢、宿費提醒。該局部要實現(xiàn)對客房的查詢，查詢客房的住宿情況、退宿情況以及宿費提醒等。尤其是宿費提醒，當客人的上帳金額超過押金時系統(tǒng)自動提示要求客人補交押金，以防止賓館財產損失?！?〕日結設置該模塊包括兩個局部：客房銷售報表、客房銷售統(tǒng)計。該模塊中要實現(xiàn)按任意時間匯總客人結帳后所需費用的總額的功能及按任意年匯總應收宿費、費等的功能?！?〕結帳管理這個模塊包括兩個模塊，掛帳查詢模塊、客戶結款模塊。主要實現(xiàn)選擇掛帳單位或個人，檢索符合條件的掛帳信息、還款信息及統(tǒng)計欠款余額等。〔6〕設置管理這個模塊包括三個局部，主要用來完成操作員及密碼設置，操作員密碼的修改以及實現(xiàn)清空選定表的數(shù)據的功能。2.5數(shù)據流圖數(shù)據流圖描繪信息流和數(shù)據從輸入移動到輸出過程中在系統(tǒng)中流動和處理的情況?？傮w數(shù)據流圖11住宿管理管理員2查詢管理3客房管理退宿信息D1退房信息住宿信息客房號碼住宿信息D2住宿信息客房信息客房信息D3客房信息圖2.1總數(shù)據流圖分數(shù)據流圖①住宿數(shù)據流圖管理員管理員2.1查詢登記顧客.2.2預定登記客房號碼客房信息查詢信息預定信息客房信息D3客房信息D4退宿信息圖2.2住宿數(shù)據流圖②退房數(shù)據流圖管理員管理員1.1住宿登記顧客1.2退宿登記退宿信息住宿信息住宿信息住宿信息退房信息D1住宿信息D2退宿信息圖2.3退房數(shù)據流圖③客房數(shù)據流圖管理員管理員.3.1客房登記顧客3.2客房管理住宿信息客房信息住宿信息客房號碼住宿對象D5客房信息D6房客信息圖2.4客房數(shù)據流圖2.6數(shù)據字典數(shù)據字典是關于數(shù)據信息的集合，即對數(shù)據流圖中包含的所有元素的定義的集合。名字：住宿信息名字：住宿信息別名：住宿登記信息描述：顧客住宿是需要填寫的登記表。定義：住宿信息=姓名+有效證件+客房類型+客房號+住宿日期。位置：登記表名稱：客房信息名稱：客房信息別名：賓館客房的信息描述：描述賓館各種客房的信息。定義：客房信息=客房標準+客房號碼+客房價格+使用配置位置：客房登記退房登記名稱：退房信息名稱：退房信息別名：退飯登記信息描述：客人退房時需要填寫的信息定義：退房信息=客人姓名+有效證件+房間標準+房間號碼+住宿天數(shù)。位置：系統(tǒng)退房登記信息名稱：權限信息名稱：權限信息別名：權限登記信息描述：用來保存操作員的權限定義：權限信息=操作員+密碼+客房預定+住宿登記+退宿登記+客房查詢+密碼位置：系統(tǒng)名稱：客房管理別名：客房管理信息描述：客房日常管理信息名稱：客房管理別名：客房管理信息描述：客房日常管理信息定義：客房管理=效勞員+房間號+操作員+密碼位置：系統(tǒng)客房管理系統(tǒng)名稱：查詢管理別名：查詢登記信息描述：查詢客房登記的信息定義：查詢管理=操作員+密碼+住宿信息+客房預訂位置：系統(tǒng)名稱：退房登記名稱：退房登記別名：退房管理登記描述：退房管理登記信息定義：退房登記=房客+房間號+效勞員+密碼位置：賓館客房管理系統(tǒng)名稱：客房登記名稱：客房登記別名：客房登記管理描述：客房管理登記信息定義：客房登記=房間號+房客+操作員+密碼+效勞員位置：賓館客房管理系統(tǒng)2.7數(shù)據庫概念設計概念性信息模型是一種面向問題的數(shù)據模型，是按照用戶的觀點來對數(shù)據和信息建模。它描述了從用戶角度看到的數(shù)據，它反映了用戶的現(xiàn)實環(huán)境。最常用的表示概念性數(shù)據模型方法，是實體——聯(lián)系方法〔Entity-RelationshipApproach〕。這種方法用E——R圖描述現(xiàn)實世界中的實體，而不涉及這些實體在系統(tǒng)中的實現(xiàn)方法。用這種方法表示的概念性數(shù)據模型又稱為ER模型。ER模型包含“實體〞、“聯(lián)系〞、“屬性〞等三個根本成份。局部E-R圖1顧客屬性如圖2.5顧客顧客詳細地址姓名身份證號工作單位聯(lián)系圖2.5顧客實體屬性圖2客房屬性如圖2.6客房客房房間號碼所在樓層房態(tài)房間類型房間價格使用配置圖2.6客房實體屬性圖3效勞員屬性如圖2.7效勞員效勞員工作編號姓名操作密碼圖2.7效勞員實體屬性圖4經理屬性如圖2.8大堂經理大堂經理工作編號姓名操作密碼年齡圖2.8經理實體屬性圖總E-R圖顧客顧客客房姓名身份證聯(lián)系工作單位詳細地址登記效勞員操作密碼姓名工作編號住宿房間號碼所在樓層價格房間類型使用配置房態(tài)111NNN管理管理1大堂經理大堂經理操作密碼1操作密碼年齡名字工作編號年齡名字工作編號圖2.9總E-R實體圖第三章系統(tǒng)總體設計3.1系統(tǒng)功能模塊設計功能模塊圖圖3.1功能模塊圖3.2系統(tǒng)主要功能描述〔1〕住宿管理：住宿登記、追加押金、調房登記、推房結帳?！?〕客房管理：客房設置、客房查詢、房態(tài)查看。〔3〕查詢統(tǒng)計：住宿查詢、退宿查詢、宿費提醒。〔4〕系統(tǒng)設置：初始化、密碼設置、權限設置?！?〕日結設置：客房銷售報表、客房銷售統(tǒng)計。〔6〕掛帳管理：客戶結款、掛帳查詢。3.3系統(tǒng)流程分析調房調房房態(tài)查詢Fangtaichaxun房態(tài)查詢Fangtaichaxun掛賬續(xù)住追加押金查詢掛賬續(xù)住追加押金宿費提醒結賬選房宿費提醒結賬點單消費離店手牌入住前臺登記點單消費離店手牌入住前臺登記客人確定手牌退牌現(xiàn)結歷史單據建立賬戶現(xiàn)結歷史單據報表預訂客房當前客戶賬單預訂房費單報表預訂客房當前客戶賬單預訂房費單報表報表圖3.2系統(tǒng)流程圖第四章系統(tǒng)詳細設計4.1程序流程設計所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時的工作過程。不同的用戶有著不同的工作流程和使用權限。但是所有的用戶都是從用戶登錄模塊開始的。登錄主要是判斷是否是合法的用戶，在數(shù)據庫設計中用戶的登錄名是固定的，如果要添加用戶那么在用戶主界面進行添加用戶信息。本系統(tǒng)的系統(tǒng)流程分析如下列圖所示：開始開始用戶登陸讀取用戶類型失敗超過3次退出程序ⅰ管理自己的擁護信息ⅱ管理領班用戶的用戶信息ⅲ管理普通用戶的用戶信息ⅰ管理自己的擁護信息ⅱ管理普通用戶的用戶信息管理自己的用戶信息1系統(tǒng)的其他功能2領班用戶管理模塊3普通用戶管理模塊否退出程序重試退出程序否失敗是成功用戶管理模塊賓館管理模塊Admin用戶領班用戶普通用戶圖4.1程序流程圖4.2系統(tǒng)結構的實現(xiàn)該系統(tǒng)采用了SQLServer2000數(shù)據庫，數(shù)據庫名稱為kfgl.數(shù)據庫包含以下幾個表：客房根本信息表kf、登記表djb、密碼表ma、權限設置表qxsz、退房登記表tfdj、掛帳明細表gzmx。表4-1密碼表字段名稱數(shù)據類型字段大小操作員文本10密碼文本6表4-2客房根底信息表字段名稱數(shù)據類型字段大小房間號文本30房間類型文本50價格貨幣8房態(tài)文本4標志是/否1備注文本100配置文本100使用設置文本10營業(yè)日期時間/日期8表4-3掛賬明細表字段名稱數(shù)據類型字段大小日期日期/時間100掛帳單位文本100摘要文本8住宿金額貨幣8欠款金額貨幣8還款金額貨幣8金額累計文本16姓名文本100證件號碼文本100票號文本20時間日期/時間8房間標準文本10房間價格文本10表4-4登記表字段名稱數(shù)據類型字段大小姓名文本50證件名稱文本20證件號碼文本20詳細地址文本50房間號文本20客房類型文本10聯(lián)系文本20客房價格貨幣8住宿日期日期/時間8住宿時間日期/時間8住宿天數(shù)數(shù)字雙精度型宿費貨幣8折扣數(shù)字雙精度型應收宿費貨幣8預收金額貨幣8提醒日期日期/時間8提醒時間日期/時間8退宿日期日期/時間8退宿時間日期/時間8備注文本50結款方式文本10摘要文本200表4-5退房登記應收宿費貨幣8雜費貨幣8費貨幣8存車費貨幣8賠償費貨幣8金額總計貨幣8預收宿費日期/時間8退還宿費日期/時間8退還日期日期/時間8備注文本8表4-6權限設置表字段名稱數(shù)據類型字段大小編號是/否50操作員是/否50密碼是/否雙精度型住宿登記是/否1退宿登記是/否1追加押金是/否1客房管理是/否1客房查詢是/否1住宿查詢是/否1退宿查詢是/否1宿費查詢是/否1客房銷售報表是/否1操作員設置是/否1密碼設置是/否1權限設置是/否1調房登記是/否1客戶結款是/否1第五章系統(tǒng)界面設計及代碼實現(xiàn)5.1系統(tǒng)登陸窗口界面程序啟動后，首先進入系統(tǒng)登陸界面驗證操作密碼。在系統(tǒng)登陸模塊中主要實現(xiàn)如下功能：〔1〕可選擇操作員，支持鼠標和鍵盤操作?！?〕操作員和密碼驗證成功后，進入主界面?！?〕操作員錯誤或密碼錯誤提醒并返回錯誤點?！?〕輸入三次錯誤密碼，自動退出系統(tǒng)。圖5.1用戶登陸界面[登陸代碼實現(xiàn)]OptionExplicitDimcntAsInteger'記錄確定次數(shù)PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(text1.Text)=""Then'判斷輸入的用戶名是否為空MsgBox"沒有這個用戶",vbOKOnly+vbExclamation,""text1.SetFocusElsesql="select*from系統(tǒng)管理where用戶名='"&text1.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"沒有這個用戶",vbOKOnly+vbExclamation,""text1.SetFocusElse'檢驗密碼是否正確IfTrim(rs_login.Fields(1))=Trim(text2.Text)ThenuserID=text1.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMDIForm1.ShowElseMsgBox"密碼不正確",vbOKOnly+vbExclamation,""text2.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=jiudian.mdb"conn.Openconnectionstringcnt=0EndSub5.2系統(tǒng)主程序窗口界面程序啟動后，在系統(tǒng)登陸界面驗證完操作員及操作員密碼后，將進入主程序界面。主程序界面要實現(xiàn)：〔1〕選擇菜單或工具欄，調用相應程序，進行相應操作?！?〕根據操作員不同，確定操作員相應的權限。圖5.2主程序窗口[登陸代碼實現(xiàn)]PrivateSubadd_user_Click()frmadduser.ShowEndSubPrivateSubdouble_check_Click()frmfind_double.ShowEndSubPrivateSubcheck_Click()frmfind.ShowEndSubPrivateSubdouble_client_Click()frmdouble_client.ShowEndSubPrivateSubexit_Click()UnloadMeEndSubPrivateSubkhts_Click()frmkhts.ShowEndSubPrivateSubMDIForm_Load()frmdata=Falsefind=FalseEndSubPrivateSubmodify_pw_Click()frmchangepwd.ShowEndSubPrivateSubonly_check_Click()frmfind.ShowEndSubPrivateSubonly_client_Click()frmonly_client.ShowEndSubPrivteSubzbgl_Click()frmzhiban.ShowEndSub5.3住宿管理設計程序啟動后，選擇“客人入住〞菜單下的“散客入住〞和“團客入住〞項，將進入住宿登記模塊。在住宿登記模塊主要實現(xiàn)如下功能：〔1〕自動生成住宿登記憑證號碼?！?〕提供空房間供用戶選擇?！?〕實現(xiàn)客人住宿登記，收取客人預交宿費。〔4〕自動計算折前宿費、實際宿費、宿費提醒時間、退宿時間。5.3.1散客入住圖.5.3散客入住界面[登陸代碼實現(xiàn)]OptionExplicitDimrs_clientAsNewADODB.RecordsetPrivateSubCommand1_Click()IfNotIsNull(DataGrid1.Bookmark)ThenIfTrim(DataGrid1.Columns("房號").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房號不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房價").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房價不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"姓名不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("性別").CellText(DataGrid1.Bookmark))=""ThenMsgBox"性別不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("抵達日").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式hh-mm輸入抵達日",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("離店日").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式hh-mm輸入離店日",vbOKOnly+vbExclamation,""ExitSubEndIfrs_client.UpdateMsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand2_Click()DimanswerAsStringOnErrorGoTocmdmodifyIfCommand2.Caption="修改記錄"Thenanswer=MsgBox("確定要修改嗎？",vbYesNo,"")Ifanswer=vbYesThenCommand2.Caption="確定"Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowUpdate=TrueElseExitSubEndIfElseIfNotIsNull(DataGrid1.Bookmark)Thenrs_client.UpdateEndIfCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndIfcmdmodify:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand3_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要刪除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_client.Deleters_client.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand4_Click()IfCommand4.Caption="確定"Thenrs_client.CancelDataGrid1.ReBindDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseElseIfCommand2.Caption="確定"Thenrs_client.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate=FalseCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfFrame2.Enabled=TrueEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from散客資料"rs_client.CursorLocation=adUseClientrs_client.Opensql,conn,adOpenKeyset,adLockPessimistic'翻開數(shù)據庫'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增加DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_clientCommand4.Enabled=FalseSetDataGrid1.DataSource=Nothingrs_client.CloseEndSub5.3.2團客入住圖5.4團客入住界面[登陸代碼實現(xiàn)]OptionExplicitDimrs_dclientAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoToadderrorIfCommand1.Caption="新增記錄"Then'當此按鈕的狀態(tài)為為“增加記錄〞時Command1.Caption="確定"'按鈕名稱改為“確定〞Command2.Enabled=False'刪除與修改按鈕不可用Command3.Enabled=FalseCommand4.Enabled=True'取消按鈕可用DataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=True'設定datagrid可以增加記錄ElseIfNotIsNull(DataGrid1.Bookmark)ThenIfTrim(DataGrid1.Columns("團隊名稱").CellText(DataGrid1.Bookmark))=""ThenMsgBox"團隊名稱不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("負責人姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"負責人姓名不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("證件號碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"證件號碼不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房間號碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房間號碼！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_dclient.UpdateMsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand2_Click()DimanswerAsStringOnErrorGoTocmdmodifyIfCommand2.Caption="修改記錄"Thenanswer=MsgBox("確定要修改嗎？",vbYesNo,"")Ifanswer=vbYesThenCommand2.Caption="確定"Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowUpdate=TrueElseExitSubEndIfElseIfNotIsNull(DataGrid1.Bookmark)Thenrs_dclient.UpdateEndIfCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndIfcmdmodify:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand3_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要刪除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_dclient.Deleters_dclient.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand4_Click()IfCommand4.Caption="確定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseElseIfCommand2.Caption="確定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate=FalseCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfFrame2.Enabled=TrueEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from團隊資料"rs_dclient.CursorLocation=adUseClientrs_dclient.Opensql,conn,adOpenKeyset,adLockPessimistic'翻開數(shù)據庫'設定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增加DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_dclientCommand4.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_dclient.CloseEndSub5.4客人信息查詢在該模塊中主要實現(xiàn)輸入客戶的姓名檢索住宿信息的功能。圖.5.5客人信息查詢界面[登陸代碼實現(xiàn)]OptionExplicitDimrs_findAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoTocmderrorDimfind_date1AsStringDimfind_date2AsStringIfOption1.Value=TrueThensqlfind="select*from散客資料where房號between'"&_Combo1(0).Text&"'"&"and"&"'"&Combo1(1).Text&"'"EndIfIfOption2.Value=TrueThenfind_date1=Format(CDate(Comboy(0).Text&"-"&_Combom(0).Text&"-"&Combod(0).Text),"yyyy-mm-dd")find_date2=Format(CDate(Comboy(1).Text&"-"&_Combom(1).Text&"-"&Combod(1).Text),"yyyy-mm-dd")sqlfind="select*from散客資料where抵達日between#"&_find_date1&"#"&"and"&"#"&find_date2&"#"EndIfrs_data1.Opensqlfind,conn,adOpenKeyset,adLockPessimisticfrmdatamanage.displaygrid1UnloadMecmderror:IfErr.Number<>0ThenMsgBox"請輸入正確的查詢條件！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubCommand2_Click()UnloadMeMDIForm1.ShowEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsString'Iffindok=TrueThen'rs_data1.Close'EndIfsql="select*from散客資料orderby房號desc"rs_find.CursorLocation=adUseClientrs_find.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_find.EOF=FalseThen'添加編號Withrs_findDoWhileNot.EOFCombo1(0).AddItem.Fields(0)Combo1(1).AddItem.Fields(0).MoveNextLoopEndWithEndIfFori=2001To2005'添加年Comboy(0).AddItemiComboy(1).AddItemiNextiFori=1To12'添加月Combom(0).AddItemiCombom(1).AddItemiNextiFori=1To31'添加日Combod(0).AddItemiCombod(1).AddItemiNextiEndSubPrivateSubForm_Unload(CancelAsInteger)rs_find.CloseEndSub5.5系統(tǒng)管理系統(tǒng)管理包括“新增用戶〞，“修改密碼〞二局部。新增用戶圖5.6新增用戶界面[登陸代碼實現(xiàn)]PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(text1.Text)=""ThenMsgBox"用戶名不能為空",vbOKOnly+vbExclamation,""ExitSubtext1.SetFocusElse sql="select*from系統(tǒng)管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(text1.Text)ThenMsgBox"已有這個用戶",vbOKOnly+vbExclamation,""text1.SetFocustext1.Text=""text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(text2.Text)=""ThenMsgBox"密碼不能為空，請重新輸入！",vbOKOnly+vbExclamation,"警告"text2.Text=""text2.SetFocusExitSubEndIfIfTrim(text2.Text)<>Trim(Text3.Text)ThenMsgBox"兩次密碼不一致",vbOKOnly+vbExclamation,""text2.SetFocustext2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"請選擇正確的用戶權限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=text1.Textrs_add.Fields(1)=text2.Textrs_add.Fields(2)=Combo1.Textrs_add.Updaters_add.CloseMsgBox"添加用戶成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSuPrivateSubCommand2_Click()UnloadMeEndSuPrivateSubForm_Load()Combo1.AddItem"system"Combo1.AddItem"guest"EndSub修改密碼圖5.7修改密碼界面[登陸代碼實現(xiàn)]PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(text1.Text)<>Trim(text2.Text)ThenMsgBox"密碼不一致！",vbOKOnly+vbExclamation,""text1.SetFocustext1.Text=""text2.Text=""Elsesql="select*from系統(tǒng)管理where用戶名='"&userID&"'"rs_chang.Opensql,conn,adOpenKeyset,adLockPessimisticrs_chang.Fields(1)=text1.Textrs_chang.Updaters_chang.CloseMsgBox"密碼修改成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub5.6人事管理圖5.8人事管理界面[登陸代碼實現(xiàn)]OptionExplicitDimrs_zhibanAsNewADODB.RecordsetPrivateSubcmdadd_Click()OnErrorGoToadderrorIfcmdadd.Caption="確定增加記錄"Then'當此按鈕的狀態(tài)為為“增加記錄〞時cmdadd.Caption="確定"'按鈕名稱改為“確定〞cmddel.Enabled=Falsecmdcancel.Enabled=TrueDataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=True'設定datagrid可以增加記錄ElseIfNotIsNull(DataGrid1.Bookmark)ThenIfNotIsDate(Trim(DataGrid1.Columns("值班開始日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式y(tǒng)yyy-mm-dd輸入值班開始日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班開始時間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式hh-mm輸入值班開始時間",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式y(tǒng)yyy-mm-dd輸入值班截止日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止時間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請按照格式hh-mm輸入值班截止時間",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("值班人").CellText(DataGrid1.Bookmark))=""ThenMsgBox"值班人不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_zhiban.Update'MsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfcmdadd.Caption="確定增加記錄"cmddel.Enabled=TrueEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubcmdcancel_Click()Unloa