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

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

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

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

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

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

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

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

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

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

10、，但保持了windows環(huán)境下界面友好，操作簡單的優(yōu)點，成為windows環(huán)境下開發(fā)中、小型c/s系統(tǒng)較流行的數(shù)據(jù)庫系統(tǒng)。三、系統(tǒng)功能分析系統(tǒng)的開發(fā)總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。系統(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)編號客房標(biāo)準(zhǔn)工號客房面積床位數(shù)量客房單價是否有空調(diào)是否有電視是否有電話是否有單獨(dú)衛(wèi)生間客房登記信息結(jié)算客房客戶顧客身份證號碼工號客房類型顧客性別顧客姓名客房編號客房位置備注信息工號客房電話工號金額結(jié)算信息編號結(jié)算時間客房狀態(tài)押金折扣入住時間訂房信息編號備注信息工號 員工員工代號登錄密碼六、系統(tǒng)各部分實體關(guān)系圖（一）前臺接待子系統(tǒng)圖辦理入住手續(xù)錄入客人資料為客人分配房間安排客人入住為客人提供各種咨詢服務(wù)(訂票、保管物品等)圖6-1 前臺接待子系統(tǒng)的活動圖（二）前臺收銀子系統(tǒng)圖收取客人押金核對客人消費(fèi)記錄收款辦理結(jié)帳打印帳單辦理離店圖6-2

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

13、）訂房信息（訂房信息編號、顧客身份證號碼、客房編號、入住時間、折扣、押金、備注信息、工號）（六）結(jié)算信息（結(jié)算信息編號、顧客身份證號碼、客房編號、入住時間、結(jié)算時間、金額、工號）具體實現(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九、使用界面及主要代碼介紹說明：代碼中 “ ”后的語句為方便

15、讀懂程序的注釋，不是執(zhí)行語句（一）登陸界面的設(shè)計圖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 請輸入用戶名！， 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 沒有這個用戶，請重新輸入用戶名！， 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 輸入密碼不正確，請重新輸入！， 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è)計圖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(真的要刪除這條文件記錄么？， 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è)計圖9-3 aduaser添加用戶界面該窗體是 用來添加新用戶aduaser添加用戶界面關(guān)鍵語句

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è)計圖94 bookin1窗體option explicit是否改動過記錄，ture為改過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) 顯示與客房號對應(yīng)的客房位置 txtitem(8).text = mrcc.fields(6) 顯示與客房號對應(yīng)的客房單價 end sub private sub cmdca_click()計算押金的問題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 = 身份證號碼 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 入住時間應(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ù)定編號 getrkno = format(now， yymmddhhmmss) randomize getrkno = getrkno & int(99 - 10 + 1) * rnd + 10)end function 圖95bookin2窗體 訂房信息查詢用圖96 chafang窗體 房間信息查詢界面（五）費(fèi)用結(jié)算界面設(shè)計圖97 checkout1窗體 用于費(fèi)用結(jié)算option explicit是否改動過記錄，ture為改過dim mblchange as b

34、ooleandim mrc as adodb.recordsetpublic txtsql as string待添加的隱藏文字內(nèi)容2private 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).

35、text = mrcc!typename txtitem(10).text = mrcc!price cmdsave.enabled = true else msgbox 沒有訂房信息！， 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

36、 integer dim 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 +

37、 vbexclamation， 警告 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(

38、4).text .fields(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é)算完畢

39、！， vbokonly + 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， 修

40、改結(jié)算信息 unload 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

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

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

43、us exit sub 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)編號的記錄！， vbokonly + vbexclamation， 警告 text1(0).text = text1(0).setfocus exit sub end if mrc.close end if判斷是否有相同內(nèi)容的記錄 txtsql = select