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

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

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

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

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

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

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

7、館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能：有關客房標準的制定、標準信息的輸入，包括標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等?？头繕藴市畔⒌男薷?、查詢等?？头炕拘畔⒌妮斎耄头烤幪?、客房類型、客房位置、客房單價、備注等。客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。剩余客房信息的查詢等。訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折

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

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

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

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

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

13、數(shù)據(jù)類型 可否為空 客房編號 char NOTNULL （主鍵）顧客姓名 char NOTNULL 身份證號碼 char NOTNULL 入住日期 datetime NULL 折扣 numeric NULL 結(jié)算日期 datetime NULL 金額 numeric NULL 備注 text NULL 2、數(shù)據(jù)庫的選擇和部分重要的SQL代碼與VB代碼創(chuàng)建系統(tǒng)用戶表格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)建客房標準信息表格roomtypeCREATETABLEdbo.roomtype(客房編號char(10)COLLATEChinese_PRC_CI_ASNOTNULL,標準名稱char(10)COLLATEChinese_PRC_CI_ASNOTNULL,房間面積numeric(5,0)NULL,是否有空調(diào)char(2)COLLATEChinese_PRC_CI_ASNULL,是否有電話char(2)COLLATEChinese_PRC_CI_ASNULL,是否

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

16、TEChinese_PRC_CI_ASNULL,是否被預定char(2)COLLATEChinese_PRC_CI_ASNOTNULL,備注textCOLLATEChinese_PRC_CI_ASNULL)ONPRIMARYTEXTIMAGE_ONPRIMARY創(chuàng)建訂房信息表bookinCREATETABLEdbo.bookin(客房編號char(18)COLLATEChinese_PRC_CI_ASNOTNULL,顧客姓名char(10)COLLATEChinese_PRC_CI_ASNOTNULL,身份證號碼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語句。添加函數(shù)ExecuteSQL，代碼如下：PublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)_AsADODB.Recordset執(zhí)行SQL語句，并返回記錄集

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

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

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

21、態(tài)，1為添加，2為修改PublicgintRmodeAsIntegerPublicgintBmodeAsIntegerPublicflagSeditAsBoolean系統(tǒng)用戶管理模塊的創(chuàng)建用戶管理模塊主要實現(xià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()用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕觸發(fā)Click事件DimintCountAsIntegerDimsMegAsStringDimMsgTextAsStringForintCount=0To4判斷是否輸入內(nèi)容IfTrim(txtItem(intCount)&”)=”ThenSelectCaseintCountCase0sMeg=”客房編號(bin ho)”Case1sMeg=”標準名稱”Cas

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

25、Meg=”床位單價”EndSelectsMeg=sMeg&”請輸入數(shù)字!”MsgBoxsMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExitSubEndIfNextintCountIfgintTmode=1Then判斷是否有相同ID記錄txtSQL=”select*fromroomtypewheretypeid_=”&Trim(txtItem(0)&”Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox“已經(jīng)存在此標準編號的記錄!”,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)存在相同客房標準的記錄!”,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ù)庫mrc.CloseifgintTmode=1Then判斷是否屬于添加狀態(tài)MsgBox“添加紀錄成功!”,vbOKOnly+vbExclamtion,“添加記錄”ForintCount=0To4txtItem(intCount)=”清除已經(jīng)輸入的內(nèi)容NextintCountForintCount=0To3Combo1(intCount).ListIndex=0NextintCountmblChange=False判斷是否打開窗口ifflagTeditThenUnloadfrmRoomtypefrmRoomtype.txtS

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

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

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

32、有空調(diào)”.TextMatrix(0,6)=”是否有電話”.TextMatrix(0,7)=”是否有電視”.TextMatrix(0,8)=”是否有寬帶”.TextMatrix(0,9)=”房間單價”.FixedRows=1固定表頭Fori=0To9設置各列的對齊方式.ColAlignment(i)=0Nexti.FillStyle=flexFillRepeat表頭項居中.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.ColWidth(0)=300設置單元大小.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ù)需要設置SQL語句，顯示需要的記錄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)選擇記錄，然后單擊鼠標右鍵

35、，觸發(fā)MouseUp事件IfButton=2AndShift=0ThenPopupMenufMainFrom.menuRoomtypeEndIfEndSubPrivateSubmenuModifyroomtype_Click()DimintCountAsIntegerIfflagTeditThen判斷是否打開記錄窗體IffrmRoomtype.msgList.Rows1ThenfintTmode=2設置為修改狀態(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()窗體變化時，調(diào)整標簽和表格位置，使標簽處于窗體的最上方，而表格始終處于標簽下方IfMe.WindowStatevbMinimizedAndfMainFrom.WindowStatevbMinimizedThen邊界

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

38、omtype關閉記錄窗體frmRoomtype.txtSQL=”select*fromroomtype”重新選擇所有記錄frmRoomtype.ShowEndIfEndIfEndIfEndSub客房信息管理模塊的創(chuàng)建客房信息管理模塊主要實現(xiàn)如下功能：添加客房信息修改客房信息刪除客房信息查詢客房信息具體實現(xiàn)代碼如下：PrivateSubFrom_Load()載入窗體時，自動添加客房信息種類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“請先進行客房標準設置!”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExitSubEndIfmrc.CloseElseIfgintRmode=2Then判斷是否處于修改狀態(tài)Setmrcc=ExecuteSQL(txtSQL,MsgText)