[軟件管理系統(tǒng)類精品]小型酒店管理信息系統(tǒng)開發(fā)方案

1、本科生畢業(yè)論文（設(shè)計(jì)）題 目 小型酒店管理信息系統(tǒng)開發(fā)方案專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù) 姓 名 學(xué) 號(hào) 指導(dǎo)教師2007年10月27日本科生畢業(yè)論文（設(shè)計(jì)）任務(wù)書姓名 學(xué)號(hào) 年級(jí)專業(yè) 0509計(jì)算機(jī)科學(xué)與技術(shù) 一、 題目名稱：小型酒店管理信息系統(tǒng)開發(fā)方案二、任務(wù)（包括規(guī)定閱讀的中外文獻(xiàn)資料，應(yīng)完成的開題報(bào)告、畢業(yè)論文的要求、字?jǐn)?shù)和時(shí)間等）：（一）文獻(xiàn)資料：1、 陳明 軟件工程 中央廣播電視大學(xué)出版社 2001年出版。2、 陳明 visual basic程序設(shè)計(jì) 中央廣播電視大學(xué)出版社 2000年出版。3、林卓然 vb程序設(shè)計(jì)簡(jiǎn)明教程 中山大學(xué)出版社 2002年出版 。4、鄭人杰、殷人昆、陶永雷 實(shí)

2、用軟件工作(第二版) 清華大學(xué)出版社 2002年出版。5、王漢新 visualbasic程序設(shè)計(jì)編著 2002年02月第1版。6、劉韜、駱娟、何旭洪 visual basic6.0數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航 人民郵電出版社 2002年出版。7、何旭洪、 余建英 visual basic8.0數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航 人民郵電出版社 2002年出版。8、 王利 數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用 中央廣播電視大學(xué)出版社 1997年出版。9、李曉喆、 張曉輝、 李祥勝 sql server 2000管理及應(yīng)用系統(tǒng)開發(fā) 人民郵電出版社 2003年出版。10、朱愛(ài)民 visual basic8.0編程實(shí)用技術(shù)與案例 清華大學(xué)

3、出版社 2002年出版（二）時(shí)間安排：2007年10月11日至2007年月10月26日完成開題報(bào)告，字?jǐn)?shù)不少于2000字；2007年10月27日至2007年月11月15日完成論文初稿，2007年11月16日至2007年月12月14日完成論文終稿，字?jǐn)?shù)不少于5000字。（三）提交形式：提交小型酒店管理信息系統(tǒng)開發(fā)方案開題報(bào)告、論文初稿、論文終稿各一份，要求以電子文檔形式上傳。三、起訖日期：2007年_9_月_19_日至2007年_12_月_14_日指導(dǎo)教師 2007年10月27日摘 要隨著我國(guó)加入世界貿(mào)易組織，酒店服務(wù)業(yè)與國(guó)際市場(chǎng)接軌已成為大勢(shì)所趨，酒店要迎接這場(chǎng)挑戰(zhàn)，就必須提高整體競(jìng)爭(zhēng)能力，提

4、高整體競(jìng)爭(zhēng)能力必須變革酒店的管理模式，提高管理水平，實(shí)施信息化建設(shè)無(wú)疑是實(shí)現(xiàn)這一目的的必由之路和明智之舉。在信息時(shí)代，更重要的是還必須要有一個(gè)完善的管理信息系統(tǒng)，便于方便客人和更好地管理酒店。一套優(yōu)秀的酒店管理信息系統(tǒng)應(yīng)該操作簡(jiǎn)單、靈活性好、系統(tǒng)安全性高、運(yùn)行穩(wěn)定。本系統(tǒng)就是針對(duì)那些中小型酒店，因經(jīng)濟(jì)能力和經(jīng)營(yíng)范圍限制無(wú)法適用目前市場(chǎng)上的高價(jià)大型酒店管理系統(tǒng)而設(shè)計(jì)的。關(guān)鍵詞： 酒店信息管理，數(shù)據(jù)庫(kù) ，sql， vb開發(fā)界面目 錄論文引言4一、項(xiàng)目開發(fā)背景4二、項(xiàng)目開發(fā)目標(biāo)4三、項(xiàng)目開發(fā)的意義4四、項(xiàng)目開發(fā)方法概述4論文正文4一、開發(fā)工具的選擇4二、數(shù)據(jù)庫(kù)平臺(tái)選擇5三、系統(tǒng)功能分析5四、流程圖

5、5五、er圖 7六、系統(tǒng)各部分實(shí)體關(guān)系圖8（一）前臺(tái)接待子系統(tǒng)圖 8（二）前臺(tái)收銀子系統(tǒng)圖 8（三）房務(wù)管理子系統(tǒng)圖 9七、系統(tǒng)數(shù)據(jù)庫(kù)er圖 9八、數(shù)據(jù)關(guān)系轉(zhuǎn)換成關(guān)系模型10九、使用界面及主要代碼介紹11（一）登陸界面的設(shè)計(jì) 11（二）系統(tǒng)主界面設(shè)計(jì) 12（三）添加用戶界面設(shè)計(jì) 15（四）訂房信息界面設(shè)計(jì) 15（五）費(fèi)用結(jié)算界面設(shè)計(jì) 21（六）客房信息的添加 24十、系統(tǒng)的實(shí)施，運(yùn)行及維護(hù) 28（一）系統(tǒng)的實(shí)施，運(yùn)行 28（二）系統(tǒng)的維護(hù)28十一、系統(tǒng)的評(píng)價(jià) 28十二、結(jié)束語(yǔ) 28十三、參考文獻(xiàn) 29小型酒店管理信息系統(tǒng)開發(fā)方案姓名 顧善軍 學(xué)號(hào) l20571013020論文引言一、項(xiàng)目開發(fā)背

6、景經(jīng)濟(jì)的快速發(fā)展，人們的生活水平和消費(fèi)意識(shí)的提高，促進(jìn)了旅游業(yè)的發(fā)展。酒店行業(yè)將面臨著機(jī)遇和挑戰(zhàn)。面對(duì)快速發(fā)展的信息產(chǎn)業(yè)帶來(lái)的影響。將電腦技術(shù)和電腦服務(wù)引入酒店管理成為一種必然的趨勢(shì)。眾多酒店企業(yè)中，中小型酒店企業(yè)由于他們的先天條件的不足，使他們不能投入大量的資金進(jìn)行這項(xiàng)必須的改革。因此開發(fā)一套簡(jiǎn)單、實(shí)用的中小型酒店客房管理信息系統(tǒng)是十分有必要的。二、項(xiàng)目開發(fā)目標(biāo)建立酒店客房管理信息系統(tǒng)，采用計(jì)算機(jī)對(duì)客房信息進(jìn)行管理，可以進(jìn)一步提高酒店的經(jīng)濟(jì)效益和現(xiàn)代化水平，幫助酒店工作人員提高工作效率，實(shí)現(xiàn)客房信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化。三、項(xiàng)目開發(fā)的意義現(xiàn)在，我國(guó)的中小型酒店客房管理水平普遍

7、不高，有的還停留在紙介質(zhì)的基礎(chǔ)上，這種管理手段已不能適應(yīng)時(shí)代的發(fā)展，而且它浪費(fèi)了許多人力和物力。在當(dāng)今信息時(shí)代，這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被中小型酒店企業(yè)采用，將會(huì)改變以前靠手工管理客房信息的狀況，可以樹立良好的酒店形象，提高工作效率。四、項(xiàng)目開發(fā)方法概述酒店客房管理信息系統(tǒng)采用的是原型法的開發(fā)方法。本著開發(fā)人員對(duì)用戶需求的理解，通過(guò)簡(jiǎn)單的系統(tǒng)分析、系統(tǒng)設(shè)計(jì)，快速實(shí)現(xiàn)一個(gè)原型系統(tǒng)，然后通過(guò)反復(fù)修改來(lái)實(shí)現(xiàn)管理信息系統(tǒng)。論文正文一、開發(fā)工具的選擇 從開發(fā)速度，應(yīng)用程序的運(yùn)行速度方面考慮microsoft公司的visual basic無(wú)疑是諸多開發(fā)工具當(dāng)中

8、的佼佼者。它提供了一個(gè)完全可視化的開發(fā)環(huán)境，以直觀的界面、簡(jiǎn)潔的語(yǔ)言、強(qiáng)大的功能、開放的系統(tǒng)為特色，使應(yīng)用開發(fā)工作就是一種樂(lè)趣。visual basic有強(qiáng)大的開放性和跨平臺(tái)能力。在visual basic中創(chuàng)建的的窗口、菜單、數(shù)據(jù)窗口等都是對(duì)象。除了使用系統(tǒng)預(yù)先定義的對(duì)象外，開發(fā)人員可以自行構(gòu)造新的對(duì)象（稱做用戶對(duì)象），擴(kuò)展系統(tǒng)的預(yù)定義對(duì)象，將各種對(duì)象有機(jī)地組合起來(lái)就構(gòu)成了visual basic應(yīng)用程序。近10年以來(lái)它一直是最受程序員歡迎的開發(fā)工具之一。同時(shí)visual basic6.0也是最佳的客戶機(jī)/服務(wù)器的開發(fā)解決方案。此外還可以支持多種關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。擁有功能強(qiáng)大的調(diào)試和多種調(diào)

9、試方式。二、數(shù)據(jù)庫(kù)平臺(tái)選擇所謂數(shù)據(jù)庫(kù)，我們可以把它形象地說(shuō)成是存儲(chǔ)數(shù)據(jù)的“倉(cāng)庫(kù)”。數(shù)據(jù)庫(kù)是為了滿足某一部門中多個(gè)用戶的多種應(yīng)用需要，按照一定的數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)中組織、存儲(chǔ)和使用的互相聯(lián)系的數(shù)據(jù)集合。數(shù)據(jù)庫(kù)是酒店管理的核心組成部分，所有信息處理子系統(tǒng)都將基于某種數(shù)據(jù)庫(kù)平臺(tái)，以便將其處理的信息資源完整、安全地保存起來(lái)，并且對(duì)其進(jìn)行各種管理和利用。選擇一個(gè)好的數(shù)據(jù)庫(kù)平臺(tái)是非常重要的。按照ansi（美國(guó)國(guó)家標(biāo)準(zhǔn)協(xié)會(huì)）的規(guī)定，sql被作為關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的標(biāo)準(zhǔn)語(yǔ)言。數(shù)據(jù)庫(kù)平臺(tái)選用的是microsoft 公司的sql server 2000， sql server 2000擁有大型數(shù)據(jù)庫(kù)系統(tǒng)基本特征

10、，但保持了windows環(huán)境下界面友好，操作簡(jiǎn)單的優(yōu)點(diǎn)，成為windows環(huán)境下開發(fā)中、小型c/s系統(tǒng)較流行的數(shù)據(jù)庫(kù)系統(tǒng)。三、系統(tǒng)功能分析系統(tǒng)的開發(fā)總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的各種任務(wù)的基礎(chǔ)上完成。賓館管理信息系統(tǒng)需要完成功能主要有：（一）有關(guān)客房標(biāo)準(zhǔn)的制定：客房標(biāo)準(zhǔn)信息的輸入、修改、刪除（二）客房信息的輸入、修改、刪除、查詢（三）剩余客房信息的查詢（四）訂房信息的輸入、修改、查詢（五）結(jié)算信息的輸入（六）客戶信息的輸入、查詢四、流程圖客房標(biāo)準(zhǔn)設(shè)置基本信息錄入客房標(biāo)準(zhǔn)信息管理基本信息錄入客房信息登記客房信息管理顧客登記定房信息輸入訂房信息管理結(jié)

11、算信息輸入結(jié)算信息管理客房信息返回五、er圖標(biāo)準(zhǔn)名稱標(biāo)準(zhǔn)編號(hào)客房標(biāo)準(zhǔn)工號(hào)客房面積床位數(shù)量客房單價(jià)是否有空調(diào)是否有電視是否有電話是否有單獨(dú)衛(wèi)生間客房登記信息結(jié)算客房客戶顧客身份證號(hào)碼工號(hào)客房類型顧客性別顧客姓名客房編號(hào)客房位置備注信息工號(hào)客房電話工號(hào)金額結(jié)算信息編號(hào)結(jié)算時(shí)間客房狀態(tài)押金折扣入住時(shí)間訂房信息編號(hào)備注信息工號(hào) 員工員工代號(hào)登錄密碼六、系統(tǒng)各部分實(shí)體關(guān)系圖（一）前臺(tái)接待子系統(tǒng)圖辦理入住手續(xù)錄入客人資料為客人分配房間安排客人入住為客人提供各種咨詢服務(wù)(訂票、保管物品等)圖6-1 前臺(tái)接待子系統(tǒng)的活動(dòng)圖（二）前臺(tái)收銀子系統(tǒng)圖收取客人押金核對(duì)客人消費(fèi)記錄收款辦理結(jié)帳打印帳單辦理離店圖6-2

12、前臺(tái)收銀子系統(tǒng)的活動(dòng)圖（三）房務(wù)管理子系統(tǒng)圖了解客人房間的布置和設(shè)備的檢查引領(lǐng)客人入住為客人提供日常接待服務(wù)(包括:洗衣、酒水、送餐等)為客人做好離店準(zhǔn)備(包括：查房、錄入客人在房間的消費(fèi)等)圖6-3房務(wù)管理子系統(tǒng)的活動(dòng)圖七、系統(tǒng)數(shù)據(jù)庫(kù)er圖圖71系統(tǒng)數(shù)據(jù)庫(kù)er圖八、數(shù)據(jù)關(guān)系轉(zhuǎn)換成關(guān)系模型（一）客房標(biāo)準(zhǔn)信息（標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、客房面積、床位數(shù)量、客房單價(jià)、是否有空調(diào)、是否有電話、是否有電視、是否有單獨(dú)衛(wèi)生間、工號(hào)）（二）客房信息（客房編號(hào)、客房類型、客房位置、客房電話、備注信息、客房狀態(tài)、工號(hào)）（三）顧客信息（顧客身份證號(hào)碼、顧客姓名、顧客性別、工號(hào)）（四）員工信息（員工代號(hào)、登錄密碼）（五

13、）訂房信息（訂房信息編號(hào)、顧客身份證號(hào)碼、客房編號(hào)、入住時(shí)間、折扣、押金、備注信息、工號(hào)）（六）結(jié)算信息（結(jié)算信息編號(hào)、顧客身份證號(hào)碼、客房編號(hào)、入住時(shí)間、結(jié)算時(shí)間、金額、工號(hào)）具體實(shí)現(xiàn)為：（一）roomtype： typeid、typename、 area、bednum、 price、 haircondition、 htelephone、 htelevision、 htoilet 、workid主鍵：typeid（二）rooms：roomno、 typename、 roomposition、 phoneno、 roommemo、 state、 workid主鍵：roomno（三）custom

14、er：customid、customname、customgender、workid主鍵：customid（四）denglu： user_id、user_pwd主鍵：user_id（五）bookin：bookno、 customid、 roomno、 indate、 bookdays、 discount、 deposit、 inmemo、 workid主鍵：bookno（六）bookhist： bookhistno、 customid、roomno、indate、checkdate、amount、workid主鍵：bookhistno九、使用界面及主要代碼介紹說(shuō)明：代碼中 “ ”后的語(yǔ)句為方便

15、讀懂程序的注釋，不是執(zhí)行語(yǔ)句（一）登陸界面的設(shè)計(jì)圖91 login 登陸界面首先是登錄界面（在vb開發(fā)工具中的截圖），員工輸入分配的用戶名和密碼，就可以登錄系統(tǒng)。主要代碼如下： private sub cmdok_click() dim txtsql as string dim mrc as adodb.recordset set mrc = nothing dim msgtext as string username = if trim(text1.text = ) then msgbox 請(qǐng)輸入用戶名！， vbokonly + vbexclamation， 警告 text2.text =

16、text1.setfocus else txtsql = select * from denglu where user_id= & text1.text & set mrc = executesql(txtsql， msgtext) if mrc.eof = true then msgbox 沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名！， vbokonly + vbexclamation， 警告 text1.text = text2.text = text1.setfocus else if trim(mrc.fields(1) = trim(text2.text) then ok = true mrc

17、.close me.hide username = trim(text1.text) frmmain.show else msgbox 輸入密碼不正確，請(qǐng)重新輸入！， vbokonly + vbexclamation， 警告 text2.setfocus text2.text = end if end if end if micount = micount + 1 if micount = 3 then me。hide end ifexit sub（二）系統(tǒng)主界面設(shè)計(jì)圖92（main界面）上圖是系統(tǒng)的主體界面（在vb中的截圖）。主窗體界面分成系統(tǒng)信息、客房信息管理、訂房信息管理、結(jié)算信息管理四

18、大塊。其中系統(tǒng)信息包括：修改密碼、添加用戶、退出系統(tǒng)客房信息管理：客房標(biāo)準(zhǔn)（信息添加、修改、刪除） 客房信息（添加、修改、刪除、查詢）訂房信息管理：剩余客房信息查詢、添加、修改、刪除訂房信息結(jié)算信息管理：結(jié)算信息添加主要代表性代碼如下：option explicitpublic intc as integerprivate sub menu113_click() dim txtsql as string dim intcount as integer dim mrc as adodb.recordset dim msgtext as string frmroomtype.show if fla

19、gtedit then if frmroomtype.msglist.rows 1 then if msgbox(真的要?jiǎng)h除這條文件記錄么？， vbokcancel + vbexclamation， 警告) = vbok then intcount = frmroomtype.msglist.row txtsql = delete from roomtype where typeid= & trim(frmroomtype.msglist.textmatrix(intcount， 1) & set mrc = executesql(txtsql， msgtext) unload frmroom

20、type frmroomtype.txtsql = select * from roomtype frmroomtype.show end if end if end ifend subprivate sub menu23_click() dim intc as integer frmbookin.txtsql = select * from rooms frmbookin.show if flagbedit then if frmbookin.msglist.rows 1 then gintbmode = 2 intc = frmbookin.msglist.row frmbookin1.t

21、xtsql = select * from bookinfor_view where bookinfor_view.bookno = & trim(frmbookin.msglist。textmatrix(c， 1) & frmbookin1.show else call menu22_click end if else frmbookin.txtsql = select * from bookin frmbookin.show end ifend sub （三）添加用戶界面設(shè)計(jì)圖9-3 aduaser添加用戶界面該窗體是 用來(lái)添加新用戶aduaser添加用戶界面關(guān)鍵語(yǔ)句

22、如下：dim txtsql as string dim mrc as adodb.recordset dim msgtext as stringmrc.addnew mrc.fields(0) = trim(text1(0).text) mrc.fields(1) = trim(text1(1).text) mrc.update mrc.close unload me msgbox 添加用戶成功！， vbokonly + vbexclamation， 添加用戶（四）訂房信息界面設(shè)計(jì)圖94 bookin1窗體option explicit是否改動(dòng)過(guò)記錄，ture為改過(guò)dim mblchange

23、as booleandim mrc as adodb.recordsetpublic txtsql as stringdim ssql as stringdim smrc as adodb.recordsetprivate sub cboitem_click(index as integer) dim a as double dim b as double dim mrcc as adodb.recordset dim intcount as integer dim msgtext as string if gintbmode = 1 then if index = 0 then txtsql

24、 = select * from roominfor_view where roomno = & trim(cboitem(0).text) & set mrcc = executesql(txtsql， msgtext) txtitem(7).text = mrcc.fields(2) 顯示與客房號(hào)對(duì)應(yīng)的客房位置 txtitem(8).text = mrcc.fields(6) 顯示與客房號(hào)對(duì)應(yīng)的客房單價(jià) end sub private sub cmdca_click()計(jì)算押金的問(wèn)題dim a as integerdim b as integer a = int(trim(txtitem(

25、3) b = int(trim(txtitem(8) txtitem(5).text = a * bend subprivate sub cmdsave_click() dim intcount as integer dim smeg as string dim mrcc as adodb.recordset dim msgtext as string for intcount = 0 to 5 if trim(txtitem(intcount) & ) = then select case intcount case 0 smeg = 顧客姓名 case 1 smeg = 身份證號(hào)碼 cas

26、e 2 smeg = 入住日期 case 3 smeg = 預(yù)定天數(shù) case 4 smeg = 折扣 case 5 smeg = 押金 end select smeg = smeg & 不能為空！ msgbox smeg， vbokonly + vbexclamation， 警告 txtitem(intcount).setfocus exit sub end if next intcount if isdate(txtitem(2) then txtitem(2) = format(txtitem(2)， yyyy-mm-dd) else msgbox 入住時(shí)間應(yīng)輸入日期（yyyy-mm-d

27、d）！， vbokonly + vbexclamation， 警告 txtitem(2).text = txtitem(2).setfocus exit sub end if 預(yù)定信息修改之前把原預(yù)定記錄先刪除 if gintbmode = 2 then txtsql = delete from bookin where customid= & trim(txtitem(1).text) & set mrcc = executesql(txtsql， msgtext) txtsql = delete from customer where customid= & trim(txtitem(1)

28、.text) & set mrcc = executesql(txtsql， msgtext) end if 在bookin表中添加新的預(yù)定記錄 txtsql = select * from bookin set mrcc = executesql(txtsql， msgtext) mrcc.addnew mrcc.fields(0) = txtno mrcc.fields(1) = txtitem(1) mrcc.fields(2) = cboitem(0).text for intcount = 2 to 6 mrcc.fields(intcount + 1) = txtitem(intc

29、ount) next intcount mrcc.fields(8) = username mrcc.update mrcc.close 在cutomer表中添加客戶信息記錄 txtsql = select * from customer set mrcc = executesql(txtsql， msgtext) mrcc.addnew mrcc.fields(0) = txtitem(1) mrcc.fields(1) = txtitem(0) mrcc.fields(2) = combo1.text mrcc.fields(3) = username mrcc.update mrcc.c

30、lose 在rooms表中將有人預(yù)定的房間的狀態(tài)改成“滿” txtsql = select * from rooms where roomno = & trim(cboitem(0) & set mrcc = executesql(txtsql， msgtext) if not mrcc.eof then mrcc!state = 滿 end if mrcc.update mrcc.close 添加與修改成功顯示不同的信息框 if gintbmode = 1 then msgbox 添加訂房信息成功!， vbokonly + vbexclamation， 添加訂房消息 unload me if

31、 flagbedit then unload frmbookin end if frmbookin.txtsql = select * from bookinfor_view frmbookin.show else msgbox 修改訂房信息成功!， vbokonly + vbexclamation， 修改訂房消息 unload me if flagbedit then unload frmbookin end if frmbookin.txtsql=select bookno，customname，customid，roomno，indate，discount，inmemo from boo

32、kin where ammount = 0 frmbookin。show end if end subprivate sub form_unload(cancel as integer) gintbmode = 0end subprivate sub txtitem_change(index as integer) 有變化設(shè)置gblchange mblchange = true end subprivate sub txtitem_gotfocus(index as integer) txtitem(index).selstart = 0 txtitem(index).sellength =

33、len(txtitem(index) end subprivate function getrkno() as string 獲得預(yù)定編號(hào) getrkno = format(now， yymmddhhmmss) randomize getrkno = getrkno & int(99 - 10 + 1) * rnd + 10)end function 圖95bookin2窗體 訂房信息查詢用圖96 chafang窗體 房間信息查詢界面（五）費(fèi)用結(jié)算界面設(shè)計(jì)圖97 checkout1窗體 用于費(fèi)用結(jié)算option explicit是否改動(dòng)過(guò)記錄，ture為改過(guò)dim mblchange as b

34、ooleandim mrc as adodb.recordsetpublic txtsql as stringprivate sub cboitem_click(index as integer) 各變量定義略 if gintcmode = 1 then if index = 0 then txtsql = select * from roominfor_view where roomno= & trim(cboitem(0) & set mrcc = executesql(txtsql， msgtext) if not mrcc。eof then txtitem(9).text = mrcc

35、!typename txtitem(10).text = mrcc!price cmdsave.enabled = true else msgbox 沒(méi)有訂房信息！， vbokonly + vbexclamation， 警告 exit sub end if end subprivate sub cboitem_keydown(index as integer， keycode as integer， shift as integer) entertotab keycode end subprivate sub cmdsave_click() dim intcount as integer di

36、m smeg as string dim mrcc as adodb.recordset dim msgtext as string if trim(txtitem(4) & ) = then msgbox smeg， vbokonly + vbexclamation， 警告 txtitem(4).setfocus exit sub end if if isdate(txtitem(4) then txtitem(4) = format(txtitem(4)， yyyy-mm-dd) else msgbox 結(jié)算日期應(yīng)輸入（yyyy-mm-dd）！， vbokonly + vbexclamat

37、ion， 警告 txtitem(4).setfocus exit sub end if 先刪除舊記錄 再加入新記錄 txtsql = select * from bookhist set mrcc = executesql(txtsql， msgtext) mrcc.addnew with mrcc .fields(0) = trim(txtno.text) .fields(1) = txtitem(1).text .fields(2) = cboitem(0).text .fields(3) = txtitem(2).text .fields(4) = txtitem(4).text .fi

38、elds(5) = txtitem(7).text .fields(6) = username end with smeg = mrcc!roomno mrcc.update mrcc.close txtsql = select * from rooms where roomno= & smeg & set mrcc = executesql(txtsql， msgtext) mrcc!state = 空 mrcc.update mrcc.close if gintcmode = 1 then unload me mblchange = false msgbox 結(jié)算完畢！， vbokonly

39、 + vbexclamation， 添加結(jié)算信息 txtsql = delete from bookin where roomno= & smeg & set mrcc = executesql(txtsql， msgtext) if flagcedit then unload frmcheckout end if frmcheckout.txtsql = select * from bookin frmcheckout.show elseif gintcmode = 2 then msgbox 結(jié)算信息修改完畢！， vbokonly + vbexclamation， 修改結(jié)算信息 unloa

40、d me if flagcedit then unload frmcheckout end if frmcheckout.txtsql = select * from bookin frmcheckout.show end if end subprivate sub txtitem_change(index as integer) 有變化設(shè)置gblchange mblchange = true end subprivate function getrkno() as string getrkno = format(now， yymmddhhmmss) randomize getrkno = g

41、etrkno & int(99 - 10 + 1) * rnd + 10)end function圖98 room窗體 最后結(jié)算界面（六）客房信息的添加 圖右99 room1窗體 用于添加客房信息圖910 roomtype1窗體 用于客房標(biāo)準(zhǔn)信息的添加option explicit是否改動(dòng)過(guò)記錄，ture為改過(guò)dim mblchange as booleandim mrc as adodb.recordsetpublic txtsql as stringdim msgtext as stringprivate sub cmdsave_click() dim intcount as intege

42、r dim smeg as string for intcount = 0 to 4 if trim(text1(intcount) & ) = then select case intcount case 0 smeg = 標(biāo)準(zhǔn)編號(hào) case 1 smeg = 標(biāo)準(zhǔn)名稱 case 2 smeg = 房間面積 case 3 smeg = 床位數(shù)量 case 4 smeg = 房間單價(jià) end select smeg = smeg & 不能為空！ msgbox smeg， vbokonly + vbexclamation， 警告 text1(intcount).setfocus exit sub

43、 end if next intcount 添加判斷是否有相同的id記錄 if ginttmode = 1 then txtsql = select * from roomtype where typeid= & trim(text1(0) & set mrc = executesql(txtsql， msgtext) if mrc.eof = false then msgbox 已經(jīng)存在此標(biāo)準(zhǔn)編號(hào)的記錄！， vbokonly + vbexclamation， 警告 text1(0).text = text1(0).setfocus exit sub end if mrc.close end if判斷是否有相同內(nèi)容的記錄 txtsql = select * from roomt