【導(dǎo)讀】酒店管理系統(tǒng)正是在這種情況下越來越受到重視。酒店內(nèi)部服務(wù)項(xiàng)目。眾多,既需要完成前臺的服務(wù)工作,還需要完成后臺的管理工作。經(jīng)過多年發(fā)展,酒店管理已經(jīng)逐漸由人工管理進(jìn)入到重視規(guī)范、科。該系統(tǒng)實(shí)現(xiàn)了對酒店管理的電子化,自動(dòng)化,提高了各個(gè)模塊之。間的辦公效率,為酒店客房的服務(wù)質(zhì)量提供了保障。在本系統(tǒng)的基礎(chǔ)上對功能進(jìn)行擴(kuò)充。庫的建立和維護(hù)以及前臺應(yīng)用程序的開發(fā)兩個(gè)方面。客房的科學(xué)化、規(guī)范化、信息化的管理。況、以及結(jié)算信息、掛賬管理等。前臺作為與用戶直接交互的可視化

　　

【正文】 能平靜。 我感謝在我成長過程中教育和幫助過我的所有老師，正是你們的教導(dǎo)，使我完成大學(xué)學(xué) 業(yè)并學(xué)到很多東西。還要感謝我的導(dǎo)師聶維同 老師 ， 他 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我 受益匪淺 。 聶 老師幾次審閱我們的設(shè)計(jì)報(bào)告，提出了許多寶貴的意見。 他 無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工 作和學(xué)習(xí)都 是 一 次 巨大的幫助 。 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 34 附 錄 （ 1）客房登記核心代碼 Private Sub dj_Click() 39。查詢空閑房間信息 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) =39。空房 39。 39。查詢客房數(shù)據(jù)表 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_djb order by 憑證號碼 39。按憑證號碼排序數(shù)據(jù) If Not Then 39。移動(dòng)記錄集到最后一條記錄 If = Then = Fdate amp。 d amp。 Format(1, 000) 39。當(dāng) lsph 值為空為憑證號碼文本框賦值 If Then 39。當(dāng) lsph 值不空時(shí) = Month(Fdate) 39。把當(dāng)前月份賦給 y1 = Month(Left(, 10)) 39。把 lsph 中的月份賦給 y2 If = Then 39。如果 y1 文本框中內(nèi)容與 y2 相同 = Fdate amp。 d amp。 Format(Val(Right(, 3)) + 1, 000) 39。為憑證號碼文本框賦值 = Val(Right(, 3)) + 1 39。text1 中存儲lsph 文本框中后三位數(shù) End If 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 35 If Then 39。如果 y1 文本框中內(nèi)容與 y2 不同 = Fdate amp。 d amp。 Format(1, 000) 39。為憑證號碼文本框賦值 End If End If 39。清空數(shù)據(jù) For i = 0 To 6 ZSDJ(i).text = ZSDJ(i).Enabled = True Next i ZSDJ(8).text = : ZSDJ(10).text = : ZSDJ(11).text = : = 39。設(shè)置控件有效或無效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: ZSDJ(11).Enabled = True: = True: = True = True: ZSDJ(0).SetFocus 39。ZSDJ(0)獲得焦點(diǎn) = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) = 39?？辗?39。 If 0 Then For i = 1 To (房間號 ).Value 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 36 Next i End If End Sub （ 2）調(diào)房核心代碼 Private Sub ok_Click() 39。確定調(diào)房 Dim bh As String 39。定義一個(gè)字符串類型的變量 39。查詢空閑房間信息 = select * from tb_kf where 房間號 =39。 amp。 amp。 39。and 房態(tài) =39?？辗?39。 39。刷新記錄 If 0 Then 39。如果記錄數(shù)大于 0 39。查詢所有住宿登記信息 If Texbz = Then 39。如果備注信息為空則提示輸入 MsgBox 請輸入備注信息 , , 系統(tǒng)提示 39。消息提示 39。文本框 Texbz 獲得焦點(diǎn) Else = select * from tb_djb where 房間號=39。 + + 39。 and 標(biāo)志 =39。139。 39。查詢數(shù)據(jù)表 bh = (憑證號碼 ) 39。憑證號碼賦給 bh Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 Set adoRs = (update tb_djb set 房間號 =39。 + + 39。,備注 =39。 + + 39。,標(biāo)志 =39。139。,摘要 = 39。由源房 39。 amp。 39。 + + 39。 amp。 39。調(diào)到目標(biāo)房 39。 amp。39。 + + 39。 where 憑證號碼 =39。 + (憑證號碼 ) + 39。) 39。執(zhí)行查詢 = (憑證號碼 ) 39。為文本內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 37 框 賦值 39。關(guān)閉數(shù)據(jù)庫 = select * from tb_djys where 憑證號碼 =39。 + (憑證號碼 ) + 39。 39。查詢數(shù)據(jù)表 39。刷新數(shù)據(jù) If = False Then 39。如果不是尾記錄的下一條，移到最后一條記錄 If = False Then 39。如果不是首記錄前一條，移到第一條記錄 If 0 Then 39。如果記錄數(shù)大于0 Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 Set adoRs = (update tb_djys set 房間號=39。 + + 39。,備注 =39。 + + 39。,標(biāo)志 =39。139。,摘要 = 39。由源房 39。 amp。 39。 + + 39。 amp。 39。調(diào)到目標(biāo)房 39。 amp。 39。 + + 39。 where 憑證號碼 =39。 + + 39。 ) 39。查詢數(shù)據(jù)表 39。關(guān)閉數(shù)據(jù)庫 End If 39。編輯客房狀態(tài) = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False 39。打開數(shù)據(jù)庫 = select * from tb_kf where 房間號 = 39。 amp。 amp。 39。 39。查詢數(shù)據(jù)表 39。刷新記錄 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 38 (房態(tài) ) = 入住 39。為“房態(tài)”字段賦值 39。更新記錄 = select * from tb_kf where 房間號 = 39。 amp。 amp。 39。 39。查詢數(shù)據(jù)表 39。刷新記錄 (房態(tài) ) = 空房 39。為“房態(tài)”字段賦值 39。更新記錄 39。查詢空閑房間信息 = select * from tb_kf where 房態(tài) =39?？辗?39。 39。查詢房態(tài)為空房的記錄 39。刷新記錄 39。設(shè)置控件有效或無效 = False: = False: = False = False: = False: = False = False: = True 39。清空數(shù)據(jù) = : = : = = : = : = 39。Comdj 獲得焦點(diǎn) End If Else MsgBox 請選擇正確房間號 ,再保存 !!!, , 系統(tǒng)提示 39。提示信 息 End If 內(nèi)蒙古科技大學(xué)畢業(yè)設(shè)計(jì)說明書（畢業(yè)論文） 39 End Sub EA/VP31X119X218RESET9RD17WR16INT012INT113T014T115P10/T1P11/T2P123P134P145P156P167P178P0039P0138P0237P0336P0435P0534P0633P0732P2021P2122P2223P2324P2425P2526P2627P2728PSEN29ALE/P30TXD11RXD10AT80C52RXOUTTXOUTTXINGND V V+ VCCC1+C1C2+C2RXINC3+C4+ VCCC1 +C2 +162738495DB9C7+VCCR3200250C5C6X112M30pF30pF12345 6 7 8VCCR1R2VCCMRWDORESETWDIPFOR1R2R3KEY1KEY2KEY3VCCRS232RRR11718120367459810141115MAX1450R2R3R5VC1C2124R6R5R7R7uVssVddSLKV0SLAVeeRESRSCS3R/WCS2ECS1DB0DB7DB1DB6DB2DB5DB3DB4MSCG19264RVCC3.3V5VR3.3VVDDCSLKAINCSSHDNDOUTREFGNDMAX1874.7uF0.1uF4.7uF5V5VMAX813L