酒店客房管理系統(tǒng) 酒店客房管理系統(tǒng)vb_圖文

《酒店客房管理系統(tǒng) 酒店客房管理系統(tǒng)vb_圖文》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、酒店客房管理系統(tǒng)酒店客房管理系統(tǒng)VB_圖文導(dǎo)讀：就愛閱讀網(wǎng)友為您分享以下“酒店客房管理系統(tǒng)VB_圖文”的資訊，希望對您有所幫助，感謝您對92to.com的支持!Adodc1.RecordSource="select*from預(yù)訂記錄where預(yù)訂入住日期='"+Text1(3).Text+"'and房間號="+Text1(1).Text+""IfAdodc1.Recordset.RecordCount<>0ThenMsgBox"

2、該客房已經(jīng)被預(yù)訂，您不能再預(yù)訂此客房。",vbOKOnly,"提示信息"ExitSubEndIf9'---------------------------------------------------------------Adodc2.RecordSource="select*from客戶信息where客戶號="+Text1(0).Text+""Adodc2.RefreshIfAdodc2.Recordset.RecordCount=0Then

3、MsgBox"該客戶信息不存在，添加不成功。",vbOKOnly,"提示信息"ExitSubEndIfAdodc3.RecordSource="select*from客房信息where房間號="+Text1(1).Text+""Adodc3.RefreshIfAdodc3.Recordset.RecordCount=0ThenMsgBox"該客房信息不存在，添加不成功。",9vbOKOnly,"提示信息"E

4、xitSubEndIfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("客戶號")=Text1(0).TextAdodc1.Recordset.Fields("房間號")=Text1(1).TextAdodc1.Recordset.Fields("預(yù)訂日期")=Text1(2).TextAdodc1.Recordset.Fields("預(yù)訂入住日期")=Text1(3).TextAdodc1.Reco

5、rdset.Fields("預(yù)訂天數(shù)")=9Text1(4).TextMsgBox"添加成功!",vbOKOnly,"提示信息"Adodc1.Recordset.UpdateEndSub7.8結(jié)算模塊的地創(chuàng)建和設(shè)計該窗體主要完成對客戶退房信息的錄入、結(jié)算帳款、注銷房間等。其界面如下：輸入客戶號后，點擊“輸入”后會在上方表格中檢索出該客戶的入住記錄。點擊“結(jié)算”后，系統(tǒng)自動將當(dāng)前日期賦予結(jié)算日期，并以此來計算費用。確定退房后會導(dǎo)出客戶入住詳細(xì)信息，如下：結(jié)算功能的實現(xiàn)

6、的主要代碼如下：PrivateSub9cmd_jiesuan_Click()OnErrorGoToerrorhandler'允許錯誤發(fā)生Adodc1.RefreshAdodc1.Recordset.Fields("結(jié)算日期")=DateAdodc1.Recordset.Fields("備注")="已退房"Adodc1.Recordset.UpdateMsgBox"結(jié)算成功！",vbOKOnly,"提示信息"cmd_ji

7、esuan.Enabled=FalseAdodc2.RecordSource="select*from歷史記錄_cx3where(客戶號="+Text1.Text+")"Adodc2.RefreshDataGrid1.Visible=False9'------------Fori=0To3Command7(i).Visible=FalseNextiCommand8.Visible=TrueFrame1.Visible=FalseDataGrid2.Visible=True

8、9;--------------ExitSuberrorhandler:'允許錯誤發(fā)生的錯誤處理IfErr.Number=-2147217904ThenMsgBox"客戶號輸入錯誤，請輸入長整型",vbOKOnly,"提示信息"9Resume