酒店客房管理系统 酒店客房管理系统vb_图文

《酒店客房管理系统 酒店客房管理系统vb_图文》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、酒店客房管理系统酒店客房管理系统VB_图文导读：就爱阅读网友为您分享以下“酒店客房管理系统VB_图文”的资讯，希望对您有所帮助，感谢您对92to.com的支持!Adodc1.RecordSource="select*from预订记录where预订入住日期='"+Text1(3).Text+"'and房间号="+Text1(1).Text+""IfAdodc1.Recordset.RecordCount<>0ThenMsgBox"

2、该客房已经被预订，您不能再预订此客房。",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("预订日期")=Text1(2).TextAdodc1.Recordset.Fields("预订入住日期")=Text1(3).TextAdodc1.Reco

5、rdset.Fields("预订天数")=9Text1(4).TextMsgBox"添加成功!",vbOKOnly,"提示信息"Adodc1.Recordset.UpdateEndSub7.8结算模块的地创建和设计该窗体主要完成对客户退房信息的录入、结算帐款、注销房间等。其界面如下：输入客户号后，点击“输入”后会在上方表格中检索出该客户的入住记录。点击“结算”后，系统自动将当前日期赋予结算日期，并以此来计算费用。确定退房后会导出客户入住详细信息，如下：结算功能的实现

6、的主要代码如下：PrivateSub9cmd_jiesuan_Click()OnErrorGoToerrorhandler'允许错误发生Adodc1.RefreshAdodc1.Recordset.Fields("结算日期")=DateAdodc1.Recordset.Fields("备注")="已退房"Adodc1.Recordset.UpdateMsgBox"结算成功！",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:'允许错误发生的错误处理IfErr.Number=-2147217904ThenMsgBox"客户号输入错误，请输入长整型",vbOKOnly,"提示信息"9Resume