數(shù)據(jù)庫(kù)課程設(shè)計(jì)賓館客房管理(共26頁(yè))

1、課程設(shè)計(jì)說(shuō)明書(shū)題目(tm): 賓館(bngun)管理系統(tǒng) 課程設(shè)計(jì)任務(wù)書(shū) 學(xué) 號(hào)學(xué)生姓名專(zhuān)業(yè)（班級(jí)）設(shè)計(jì)題目人事管理系統(tǒng)設(shè)計(jì)技術(shù)參數(shù)后臺(tái)數(shù)據(jù)庫(kù)選用SQL Server 2000開(kāi)發(fā)語(yǔ)言：isual Basic應(yīng)用程序與數(shù)據(jù)庫(kù)的連接方式可以采用ADO 、ODBC等。設(shè)計(jì)要求開(kāi)發(fā)的系統(tǒng)要能夠?qū)崿F(xiàn)對(duì)數(shù)據(jù)庫(kù)的添加、刪除、修改、查詢(xún)四項(xiàng)基本功能。工作量 說(shuō)明書(shū)10000字VB數(shù)據(jù)庫(kù)工作計(jì)劃論文不少于8000完成VB模塊與代碼完成數(shù)據(jù)庫(kù)建表和代碼完成說(shuō)明書(shū)部分參考資料1作者：李平一VisualBasic6.0程序設(shè)計(jì)參考手冊(cè)出版社：工業(yè)出版社出版日期:2003.5.12作者：王磊VisualBasic開(kāi)發(fā)

2、指南出版社：郵電出版社出版日期:2002.7.13作者：蔡萬(wàn)坤編新編酒店客房管理出版社：廣東旅游出版社出版日期：2003-1-14作者：王磊VisualBasic數(shù)據(jù)庫(kù)開(kāi)發(fā)指南出版社：清華大學(xué)出版社出版日期:2001.8.1 年 月 日目錄(ml)1、系統(tǒng)(xtng)概述.51.1題目(tm)設(shè)計(jì)與目的.51.2開(kāi)發(fā)背景.51.3開(kāi)發(fā)環(huán)境.52.系統(tǒng)分析與設(shè)計(jì).62.1編寫(xiě)目的.62.2系統(tǒng)功能分析.62.3功能概述.62.4實(shí)現(xiàn)目標(biāo).62.5業(yè)務(wù)流程72.6系統(tǒng)功能模設(shè)計(jì).72.6.1系統(tǒng)功能模塊圖.82.7 數(shù)據(jù)字典.83.數(shù)據(jù)庫(kù)設(shè)計(jì).93.1數(shù)據(jù)庫(kù)設(shè)計(jì)步驟93.11數(shù)據(jù)庫(kù)需求分析圖.10

3、賓館管理信息系統(tǒng)數(shù)據(jù)流程圖.103.12數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì).11客房標(biāo)準(zhǔn)信息實(shí)體-圖.11客房信息(xnx)實(shí)體-圖.11訂房信息實(shí)體(sht)-圖結(jié)算信息實(shí)體-圖.12實(shí)體(sht)之間關(guān)系-圖.13 3.13數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)13 客房標(biāo)準(zhǔn)信息表.13 客房信息表.14訂房信息表.14數(shù)據(jù)庫(kù)的選擇和部分重要的SQL代碼與VB代碼.144. 前臺(tái)開(kāi)發(fā).245開(kāi)發(fā)心得.27系統(tǒng)概述一、題目設(shè)計(jì)意義及目的：隨著我國(guó)經(jīng)濟(jì)的迅速發(fā)展，人們的生活水平有了顯著提高，假日經(jīng)濟(jì)和旅游經(jīng)濟(jì)已成為人們消費(fèi)的熱點(diǎn)。各地也把旅游業(yè)當(dāng)作本地經(jīng)濟(jì)發(fā)展的重要支柱之一，從而促進(jìn)了賓館酒店業(yè)的快速發(fā)展。同時(shí)，隨著賓館酒店越來(lái)

4、越多，人們的要求越來(lái)越高，賓館酒店業(yè)的競(jìng)爭(zhēng)也愈來(lái)愈激烈。如何在激烈的競(jìng)爭(zhēng)中生存發(fā)展，是每一個(gè)賓館酒店必須面臨的問(wèn)題。對(duì)賓館的經(jīng)營(yíng)狀況起決定作用的是賓館的服務(wù)管理水平。如何利用先進(jìn)的管理手段，提高賓館的管理水平，已成為賓館酒店業(yè)發(fā)展的當(dāng)務(wù)之急。面對(duì)信息時(shí)代的機(jī)遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理無(wú)疑是一條行之有效的途徑。雖然計(jì)算機(jī)管理并不是賓館管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對(duì)賓館的服務(wù)管理提供強(qiáng)有力的支持。因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善服務(wù)水準(zhǔn)的重要手段之一。在某種意義上，賓館客房管理方面的信息化已成為現(xiàn)代化賓館的重

5、要標(biāo)志。所以我們需要更完善的數(shù)據(jù)庫(kù)賓館管理系統(tǒng)。二、開(kāi)發(fā)(kif)背景：陽(yáng)光海岸座落在美麗的三亞海濱，占地面積12000多平方米，建筑面積122000多平方米，職工800多人。該賓館(bngun)設(shè)有豪華套間、標(biāo)準(zhǔn)間、普間、雙人間，房間共388間。有閉路電視、寬帶100M、程控電話(huà)、國(guó)內(nèi)國(guó)際直撥電話(huà)、電梯、中央空調(diào)、現(xiàn)代消防設(shè)施、大小餐廳2個(gè)、停車(chē)場(chǎng)、大小會(huì)議室2個(gè)，同時(shí)能接待120人住宿、50人以?xún)?nèi)的中小型會(huì)議，提供代購(gòu)火車(chē)、汽車(chē)、飛機(jī)票等各種旅游觀光服務(wù)。隨著信息技術(shù)的發(fā)展(fzhn)和人們對(duì)賓館酒店的要求越來(lái)越高，該賓館已明顯覺(jué)得手工管理已不能適應(yīng)當(dāng)前賓館高速發(fā)展的需要，已意識(shí)到使用計(jì)算

6、機(jī)網(wǎng)絡(luò)和計(jì)算機(jī)管理的重要性，決定首先在客房部采用賓館客房管理系統(tǒng)。三、開(kāi)發(fā)環(huán)境：CPU：Intel Pentium4 2GHz內(nèi)存：512MB操作系統(tǒng)：Microsoft Windows Server 2000 + IIS5后臺(tái)數(shù)據(jù)庫(kù)在Microsoft SQL Server 2000 中文企業(yè)版 前臺(tái)最終用戶(hù)接口程序在 Insprise Delphi 7.0 Enterprise英文版 二、系統(tǒng)分析與設(shè)計(jì)一、編寫(xiě)目的：賓館在正常的運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。二、系統(tǒng)功能分析：系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)賓

7、館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。主要完成功能：有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱(chēng)、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話(huà)以及單獨(dú)衛(wèi)生間等?？头繕?biāo)準(zhǔn)信息的修改、查詢(xún)等。客房基本信息的輸入，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等?？头炕拘畔⒌牟樵?xún)、修改，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。剩余客房信息的查詢(xún)等。訂房信息的輸入，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等。訂房信息的修改和查詢(xún)，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折

8、扣、備注信息等。結(jié)算信息的輸入，包括客房編號(hào)、客房種類(lèi)、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備注信息等。結(jié)算信息的修改和查詢(xún)，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等。三、功能(gngnng)概述：該系統(tǒng)應(yīng)充分利用信息技術(shù)提高賓館客房的管理水平、服務(wù)水平。賓館客房管理系統(tǒng)要實(shí)現(xiàn)客房預(yù)定、住宿登記、宿費(fèi)提醒、追加押金、調(diào)房登記、退房結(jié)賬、掛賬、查詢(xún)統(tǒng)計(jì)、預(yù)收銷(xiāo)售報(bào)表等等功能。其中宿費(fèi)提醒可以在住宿費(fèi)超過(guò)押金時(shí)預(yù)警，提示前臺(tái)要客人補(bǔ)交押金，該功能可明顯提高對(duì)住宿人員宿費(fèi)的有效管理。將動(dòng)態(tài)實(shí)時(shí)的住宿登記、

9、客房調(diào)整、銷(xiāo)售報(bào)表、追加押金等有機(jī)地聯(lián)系(linx)在一起，對(duì)賓館客房進(jìn)行全方位的管理。四、實(shí)現(xiàn)目標(biāo)：1可輕松(qn sn)管理多樓號(hào)及數(shù)百間客房.2可完全定制的房態(tài)圖.能及時(shí)方便地查詢(xún)實(shí)時(shí)房態(tài)，并處理打掃好的房間狀態(tài)3靈活的復(fù)雜業(yè)務(wù)處理能力.業(yè)務(wù)規(guī)則可以由用戶(hù)根據(jù)酒店實(shí)際情況自行設(shè)置,以 提高操作效率. 4內(nèi)置多種統(tǒng)計(jì).提供各種明細(xì)查詢(xún).5對(duì)賓客預(yù)定，入住，續(xù)住，離店結(jié)賬等業(yè)務(wù)進(jìn)行處理。6能對(duì)賓客的消費(fèi)等賬務(wù)進(jìn)行修理7對(duì)于處理好團(tuán)隊(duì)訂房事務(wù)8能對(duì)客房消費(fèi)對(duì)行相關(guān)處理,及時(shí)快速的查詢(xún)和統(tǒng)計(jì)客房物品的消耗情況五、業(yè)務(wù)流程六、系統(tǒng)(xtng)功能模塊設(shè)計(jì)：圖系統(tǒng)(xtng)功能模塊圖七、數(shù)據(jù)(sh

10、j)字典：本程序設(shè)計(jì)(chn x sh j)主要用于賓館的客房管理，各部分具體功能如下：歡迎界面.scx： 顯示界面，并用命令按鈕調(diào)用其他子表單；主表單.scx： 為調(diào)用其他表單建立快捷菜單，方便使用；預(yù)定登記.scx： 錄入預(yù)定人的基本資料，查尋空房；入住登記.scx： 登記已入住人的基本資料，查尋空房；后臺(tái)管理.scx： 瀏覽客房狀態(tài)，并能調(diào)出：客房資料維護(hù)、帳目(zhn m)瀏覽、月結(jié)算；客房帳目(zhn m).scx： 計(jì)算客房的帳目資料； 客房資料維護(hù).scx：對(duì)客房資料進(jìn)行查尋、修改(xigi)、添加、刪除；退出界面.scx: 退出系統(tǒng)。 三、數(shù)據(jù)庫(kù)設(shè)計(jì)1、數(shù)據(jù)庫(kù)設(shè)計(jì)步驟： 數(shù)據(jù)庫(kù)

11、需求分析 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)需求分析分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得本系統(tǒng)所處理的數(shù)據(jù)流程圖賓館(bngun)管理信息系統(tǒng)數(shù)據(jù)流程圖數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體(sht)有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。各個(gè)實(shí)體具體的描述-圖如下：客房信息實(shí)體客房種類(lèi)客房編號(hào)客房位置客房單價(jià)是否預(yù)定客房(k fn)信息實(shí)體-圖數(shù)據(jù)庫(kù)邏輯(lu j)結(jié)構(gòu)設(shè)計(jì)首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫(kù)概念(ginin)結(jié)構(gòu)轉(zhuǎn)化為SQL2000數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。其各個(gè)表格的設(shè)計(jì)結(jié)果如下 客房標(biāo)準(zhǔn)信息表列名 數(shù)

12、據(jù)類(lèi)型 可否為空客房編號(hào) char NOTNULL （主鍵）標(biāo)準(zhǔn)名稱(chēng) char NOTNULL 房間面積 numeric NULL房間類(lèi)型 char NULL 是否有空調(diào) char NULL 是否有電話(huà) char NULL 是否有電視 char NULL是否有寬帶 char NULL 單價(jià) numeric NULL備注 text NULL 客房(k fn)信息表列名 數(shù)據(jù)類(lèi)型 可否(k fu)為空 客房(k fn)編號(hào) char NOTNULL （主鍵）客房種類(lèi) char NOTNULL客房位置 char NULL 是否被預(yù)定 char NOTNULL備注 text NULL 訂房信息表列名

13、數(shù)據(jù)類(lèi)型 可否為空 客房編號(hào) char NOTNULL （主鍵）顧客姓名 char NOTNULL 身份證號(hào)碼 char NOTNULL 入住日期 datetime NULL 折扣 numeric NULL 結(jié)算日期 datetime NULL 金額 numeric NULL 備注 text NULL 2、數(shù)據(jù)庫(kù)的選擇和部分重要的SQL代碼與VB代碼創(chuàng)建系統(tǒng)用戶(hù)表格user_InfoCREATETABLEdbo.user_Info1(user_IDchar(10)COLLATEChinese_PRC_CI_ASNOTNULL,user_PWDchar(10)COLLATEChinese_PRC

14、_CI_ASNULL,user_Deschar(10)COLLATEChinese_PRC_CI_ASNULL)ONPRIMARY創(chuàng)建客房標(biāo)準(zhǔn)信息表格roomtypeCREATETABLEdbo.roomtype(客房編號(hào)char(10)COLLATEChinese_PRC_CI_ASNOTNULL,標(biāo)準(zhǔn)名稱(chēng)char(10)COLLATEChinese_PRC_CI_ASNOTNULL,房間面積numeric(5,0)NULL,是否有空調(diào)char(2)COLLATEChinese_PRC_CI_ASNULL,是否有電話(huà)char(2)COLLATEChinese_PRC_CI_ASNULL,是否

15、有電視char(2)COLLATEChinese_PRC_CI_ASNULL,是否有寬帶char(2)COLLATEChinese_PRC_CI_ASNULL, 單價(jià)numeric(10,2)NULL備注(bizh)textCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARY創(chuàng)建客房信息(xnx)表格roomsCREATETABLEdbo.rooms(客房(k fn)編號(hào)char(10)COLLATEChinese_PRC_CI_ASNOTNULL,客房種類(lèi)char(10)COLLATEChinese_PRC_CI_ASNOTNULL,客房位置char(20)COLLA

16、TEChinese_PRC_CI_ASNULL,是否被預(yù)定char(2)COLLATEChinese_PRC_CI_ASNOTNULL,備注textCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARY創(chuàng)建訂房信息表bookinCREATETABLEdbo.bookin(客房編號(hào)char(18)COLLATEChinese_PRC_CI_ASNOTNULL,顧客姓名char(10)COLLATEChinese_PRC_CI_ASNOTNULL,身份證號(hào)碼char(18)COLLATEChinese_PRC_CI_ASNOTNULL,入

17、住日期datetimeNULL,折扣numeric(2,0)NULL,結(jié)算日期datetimeNULL,金額numeric(10,2)NULL備注textCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARY賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)創(chuàng)建公用模塊Module1.bas添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語(yǔ)句。添加函數(shù)ExecuteSQL，代碼如下：PublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)_AsADODB.Recordset執(zhí)行SQL語(yǔ)句，并返回記錄集

18、對(duì)象DimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsString異常處理OnErrorGoToExecuteSQL_Error用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組sTokens=Split(SQL)Setcnn=NEWADODB.Connection打開(kāi)連接cnn.OpenConnectStringIfInStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0)ThenCnn.ExecuteSQLMsgString=sTokens(0)&”querysuccessful”ElseSe

19、trst=NEWADODO.Recordsetrst.OpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimisticrst.MoveLastgetRecordCount返回記錄集對(duì)象SetExecuteSQL=rstMsgString=”查詢(xún)到”&rst.RecordCount&”條記錄”EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString=”查詢(xún)錯(cuò)誤:”&Err.DescriptionResumeExecuteSQL_ExitEndFun

20、ctionPublicSubEnterToTab(KeyascAsInteger)判斷是否為回車(chē)鍵IfKeyasc=13ThenKeyasc用來(lái)保存當(dāng)前按鍵轉(zhuǎn)換成Tab鍵SendKeys”TAB”EndIfEndsub添加全局變量，用來(lái)記錄各個(gè)窗口的讀寫(xiě)狀態(tài)，代碼如下：PublicflagTeditAsBoolean標(biāo)示是否進(jìn)入修改的窗體PublicflagReditAsBooleanPublicflagBeditAsBooleanPublicflagCeditAsBooleanPublicgintCmodeAsIntegerPublicgintTmodeAsInteger記錄是添加還是修改狀

21、態(tài)，1為添加，2為修改PublicgintRmodeAsIntegerPublicgintBmodeAsIntegerPublicflagSeditAsBoolean系統(tǒng)用戶(hù)管理模塊的創(chuàng)建用戶(hù)管理模塊主要實(shí)現(xiàn)：用戶(hù)登陸。添加用戶(hù)。修改用戶(hù)具體客房標(biāo)準(zhǔn)添加代碼：PrivateSubForm_Load()載入窗體后，判斷所處狀態(tài)DimintCountAsIntegerDimMsgTextAsStringDimiAsIntegerIfgintTmode=1Then判斷是否屬于添加狀態(tài)Me.Caption=Me.Caption&”添加”Fori=0To3Combo1(i).AddItem”否”Comb

22、o1(i).AddItem”是”Combo1(i).ListIndex=0NextiElseIfgintTmode=2Then判斷是否處于修改狀態(tài)Setmrc=ExecuteSql(txtSQL,MsgText)Ifmrc.EOF=falseThenWithmrcForintCount=0To3txtItem(intCount)=.Fields(intCount)NextintCounttxtItem(4)=.Fileds(8)Fori=0To3Combo1(i).Additem”否”Combo1(i).Additem”是”Combo1(i).ListIndex=0NextiEndWithtx

23、tItem(0).Enabled=FalseEndIfMe.Caption=Me.caption&”修改”EndIfmblChang=FalseEndSubPrivateSubcmd_Click()用戶(hù)輸入內(nèi)容完畢后，單擊cmdSave按鈕觸發(fā)Click事件DimintCountAsIntegerDimsMegAsStringDimMsgTextAsStringForintCount=0To4判斷是否輸入內(nèi)容IfTrim(txtItem(intCount)&”)=”ThenSelectCaseintCountCase0sMeg=”客房編號(hào)(bin ho)”Case1sMeg=”標(biāo)準(zhǔn)名稱(chēng)”Cas

24、e2sMeg=”房間面積”Case3sMeg=” 房間(fngjin)類(lèi)型“Case4sMeg=”床位單價(jià)”EndSelectsMeg=sMeg&”不能為空!”MsgBoxsMeg,vbOkOnly+vbExclamation,”警告(jnggo)”txtItem(intCount).SetFocusExitSubEndifNextintCount判斷輸入內(nèi)容是否為數(shù)字ForintCount=2To4IfNotIsNumeric(Trim(txtItem(intCount)ThenSelectCaseintCountCase2sMeg=”房間面積”Case3sMeg=” 房間類(lèi)型”Case4s

25、Meg=”床位單價(jià)”EndSelectsMeg=sMeg&”請(qǐng)輸入數(shù)字!”MsgBoxsMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExitSubEndIfNextintCountIfgintTmode=1Then判斷是否有相同ID記錄txtSQL=”select*fromroomtypewheretypeid_=”&Trim(txtItem(0)&”Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox“已經(jīng)存在此標(biāo)準(zhǔn)編號(hào)的記錄!”,vbOKOnly+vbExcl

26、amation,”警告”txtItem(0).SetFocusExitSubEndIfMrc.CloseEndIftxtSQL=”select*fromroomtypewheretypeid”&Trim(txtItem(0)&”andtypename=”&Trim(txtItem(1)&”Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox”已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄!”,vbOKOnly+vbExclamation,“警告”txtItem(1).SetfocusExitSubEndIftxtSQL=”deletefromroom

27、typewheretypeid=”&Trim(txtItem(0)&”刪除已有記錄Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL=”select*fromroottype”添加新記錄Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewForintCount=0To3mrc.Fields(intCount)=Trim(txtItem(intCount)NextintCountForintCount=0To3mrc.Fields(intCount+4)=Trim(Combo1(intCount)NextintCountmrc.Fie

28、lds(8)=Trim(txtItem(4)mrc.Update更新數(shù)據(jù)庫(kù)mrc.CloseifgintTmode=1Then判斷是否屬于添加狀態(tài)MsgBox“添加紀(jì)錄成功!”,vbOKOnly+vbExclamtion,“添加記錄”ForintCount=0To4txtItem(intCount)=”清除已經(jīng)輸入的內(nèi)容NextintCountForintCount=0To3Combo1(intCount).ListIndex=0NextintCountmblChange=False判斷是否打開(kāi)窗口ifflagTeditThenUnloadfrmRoomtypefrmRoomtype.txtS

29、QL=“select*fromroomtype”frmRoomtype.ShowEndIfElseIfgintTmode=2Then判斷是否處于修改狀態(tài)UnloadMeIfflagTeditThenUnloadfrmRoomtypeEndIffrmRoomtype.txtSQL=”select*fromroomtype”frmRoomtype.ShowEndIfEndSubPrivateSubtxtItem_GotFocus(IndexAsInteger)文本框獲得焦點(diǎn)時(shí)觸發(fā)該事件，即自動(dòng)選中輸入的內(nèi)容，便于修改txtItem(Index).SelStart=0txtItem(Index).S

30、elLength=Len(txtItem(Index)EndSubPrivateSubcmdExit_Click()單擊按鈕cmdExit取消添加信息IfmblChangeAndcmdSave.EnabledThenIfMsgBox(“保存當(dāng)前記錄的變化嗎？”,vbOKCancel+vbExclamation,”警告”)=vbOKThen保存CallcmdSave_ClickEndIfEndIfUnloadMeEndSubPrivateSubtxtItem_KeyDown(IndexAsInteger,KeyCodeAsInteger,Shift_AsInteger)輸入完內(nèi)容，單擊回車(chē)鍵將自

31、動(dòng)進(jìn)入下一個(gè)文本框，觸發(fā)文本框的Keydown事件EnterToTabKeyCodeEndSub修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建PrivateSubFrom_Load()ShowTitleShowDataflagTedit=TrueEndSubPrivateSubShowTitle()調(diào)用showTitle函數(shù)，顯示表頭DimiAsIntegerWithmsgList.Cols=10.TextMatrix(0,1)=”客房編號(hào)”.TextMatrix(0,2)=”標(biāo)準(zhǔn)名稱(chēng)”.TextMatrix(0,3)=”房間面積”.TextMatrix(0,4)=”床位數(shù)量”.TextMatrix(0,5)=”是否

32、有空調(diào)”.TextMatrix(0,6)=”是否有電話(huà)”.TextMatrix(0,7)=”是否有電視”.TextMatrix(0,8)=”是否有寬帶”.TextMatrix(0,9)=”房間單價(jià)”.FixedRows=1固定表頭Fori=0To9設(shè)置各列的對(duì)齊方式.ColAlignment(i)=0Nexti.FillStyle=flexFillRepeat表頭項(xiàng)居中.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.ColWidth(0)=300設(shè)置單元大小.ColWidth(1)=1000.ColWidth(2)=2000.ColWi

33、dth(3)=2000.ColWidth(4)=1000.ColWidth(5)=1000.ColWidth(6)=1000.ColWidth(7)=1000.ColWidth(8)=1000.ColWidth(9)=1000.Row=1EndWithEndSubPrivateSubShowData()調(diào)用showData函數(shù)，顯示記錄列表DimiAsIntegerSetmrc=ExecuteSQL(txtSQL,MsgText)根據(jù)需要設(shè)置SQL語(yǔ)句，顯示需要的記錄WithmsgList.Rows=1DoWhileNotmrc.EOF.Rows=Rows+1Fori=1Tomrc.Field

34、s.CountSelectCasemrc.Fields(i-1).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”)CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&”EndSelectNextiMrc.MoveNextLoopEndWithmrc.CloseEndSubPrivateSubmsgList_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)選擇記錄，然后單擊鼠標(biāo)右鍵

35、，觸發(fā)MouseUp事件IfButton=2AndShift=0ThenPopupMenufMainFrom.menuRoomtypeEndIfEndSubPrivateSubmenuModifyroomtype_Click()DimintCountAsIntegerIfflagTeditThen判斷是否打開(kāi)記錄窗體IffrmRoomtype.msgList.Rows1ThenfintTmode=2設(shè)置為修改狀態(tài)intCount=frmRoomtype.msgList.Row記下選擇記錄frmRoomtype1.txtSQL=”select*fromroomtypewheretypeid”&T

36、rim(frmRoomtype.msgList.TextMatrix(intCount,1)&”frmRoomtype1.ShowElseCallmenuAddroomtype_ClickEndIfElsefrmRoomtype.txtSQL=”select*fromroomtype”frmRoomtype.ShowEndIfEndSubPrivateSubFrom_Resize()窗體變化時(shí)，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方IfMe.WindowStatevbMinimizedAndfMainFrom.WindowStatevbMinimizedThen邊界

37、處理IfMe.Scaleheight10*lblTitle.HeightThenExitSubEndIfIfMe.ScaleWidth1ThenIfMsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOKThenintCount=frmRoomtype.msgList.RowtxtSQL=”deletefromroomtypewheretypeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&”Setmrc=ExecuteSQL(txtSQL,MsgText)UnloadfrmRo

38、omtype關(guān)閉記錄窗體frmRoomtype.txtSQL=”select*fromroomtype”重新選擇所有記錄frmRoomtype.ShowEndIfEndIfEndIfEndSub客房信息管理模塊的創(chuàng)建客房信息管理模塊主要實(shí)現(xiàn)如下功能：添加客房信息修改客房信息刪除客房信息查詢(xún)客房信息具體實(shí)現(xiàn)代碼如下：PrivateSubFrom_Load()載入窗體時(shí)，自動(dòng)添加客房信息種類(lèi)DimsSqlAsStringDimintCountAsIntegerDimMsgTextAsStringDimmrccAsADODB.RecordsetIfgintRmode=1Then判斷是否處于添加狀態(tài)M

39、e.Caption=me.Caption&“添加”txtSQL=”selectDISTINCTtypenamefromroomtype”Setmrc=ExecuteSQL(txtSQL,MsgText)IfNotmrc.EOFThenDoWhileNotmrc.EOFcboItem(0).AddItemTrim(mrc.Fields(0)mrc.MoveNextLoopcboItem(0).ListIndex=0顯示記錄內(nèi)容ElseMsgBox“請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExitSubEndIfmrc.CloseElseIfgintRmode=2Then判斷是否處于修改狀態(tài)Setmrcc=ExecuteSQL(txtSQL,MsgText)