客房管理系统VB+SQL

数据库课程设计报告题目：客房管理系统时间：2008-6-27客房管理系统课程设计的目的和意义在当今经济和商务交往日益频繁的状况下，宾馆效劳行业正面临客流量骤增的压力。越来越多的宾馆饭店都认识到传统的管理方法已经不能适合当今社会的需要，必须借助先进的计算机信息技术对宾馆效劳进行管理。“客房管理系统〞可以说是整个宾馆计算机信息系统的中心子系统，因为宾馆最主要的功能就是为旅客提供客房。设计客房管理这样一个系统，可以涉及到大多数SQLServer数据库的重要数据库对象、重要功能和特性，比方：视图、触发器和存储过程等。由此，通过这个课程设计可以加深对这些SQLServer数据库知识的学习、理解，积累在实际工程应用中运用各种数据库对象的经验，使学生掌握使用应用软件开发工具开发数据库管理系统的根本方法。在实用性方面，客房管理系统是很普遍的一种应用，选择该系统作为课程设计也可以为学生以后可能遇到的实际开发提供借鉴。

本课程设计的主要目的是学习和练习SQLServer数据库的实际应用，所以选择SQLServer2000作为数据库效劳器。需求分析系统主要实现对客房的管理功能。主要有管理员登陆、客户登记、房间管理、客户查询、房间查询、收入统计、管理员信息管理。系统总体设计图如下：概念结构设计〔E-R图〕逻辑结构设计将E-R图转换成关系模式：管理员〔编号，账号，密码，权限〕房间〔编号，类型，价格，状态，入住客户编号〕客户〔编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，房间编号，退房时间，押金，住宿费，登记人〕关系标准化：均已到达第三范式数据实施与维护建立数据库翻开SQLServer2000企业管理器，建立数据库HotelRoom。添加数据表在HotelRoom数据库中，添加表管理员信息表AdminInfo、房间信息表RoomInfo、客户信息表GuestInfo。建立关系图创立视图CREATEVIEWdbo.ViewAdminInfoASSELECTAid,Aname,AlimitFROMdbo.AdminInfo管理员信息视图CREATEVIEWdbo.ViewAllCostASSELECTSUM(Ccost)ASAllCostFROMdbo.GuestInfo总收入视图CREATEVIEWdbo.ViewBiaozhunCostASSELECTSUM(a.Ccost)ASBiaozhunCostFROMdbo.GuestInfoaINNERJOINdbo.RoomInfobONa.Rnum=b.RnumWHERE(b.Rtype='标准')标准房收入视图CREATEVIEWdbo.ViewCostASSELECTdbo.ViewAllCost.AllCost,dbo.ViewPutongCost.pFROMdbo.ViewAllCostCROSSJOINdbo.ViewPutongCostCROSSJOINdbo.ViewBiaozhunCostCROSSJOINdbo.ViewHaohuaCost收入视图CREATEVIEWdbo.ViewEmptyRoomInfoASSELECTRnum,Rtype,Rprice,RstatesFROMdbo.RoomInfoWHERE(Rstates='空')空房信息视图CREATEVIEWdbo.ViewFullRoomInfoASSELECTdbo.RoomInfo.*FROMdbo.RoomInfoWHERE(Rstates='满')满房信息视图CREATEVIEWdbo.ViewGuestInfoASSELECTdbo.GuestInfo.*FROMdbo.GuestInfo客户信息视图CREATEVIEWdbo.ViewHaohuaCostASSELECTSUM(a.Ccost)ASHaohuaCostFROMdbo.GuestInfoaINNERJOINdbo.RoomInfobONa.Rnum=b.RnumWHERE(b.Rtype='豪华')豪华房收入视图CREATEVIEWdbo.ViewPutongCostASSELECTSUM(a.Ccost)ASPutongCostFROMdbo.GuestInfoaINNERJOINdbo.RoomInfobONa.Rnum=b.RnumWHERE(b.Rtype='普通')普通房收入视图CREATEVIEWdbo.ViewRoomInfoASSELECTdbo.RoomInfo.*FROMdbo.RoomInfo房间信息视图创立触发器在表GuestInfo中，创立一个触发器：CREATETRIGGERinsert_triONdbo.GuestInfoFORINSERTASupdateRoomInfosetRstates='满',Cid=(selectCidfrominserted)whereRnum=(selectRnumfrominserted)功能：当向表GuestInfo中插入一个客户信息时，触发表RoomInfo的某房间的状态变为“满〞备份数据库给所建立的数据库进行备份界面设计与代码〔用VB作为界面设计语言〕登陆界面PublicSubCommand1_Click()‘确定IfTrim(DataCombo1.Text)<>""AndTrim(Text1.Text)<>""ThenAdodc1.RecordSource="select*fromAdminInfowhereAname='"+Trim(DataCombo1.Text)+"'andAmima='"+Trim(Text1.Text)+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=1ThenfrmMain.ShowMe.HideElseMsgBox"错误的账号或密码！",vbInformation+vbOKOnly,"错误信息"Text1.Text=""DataCombo1.SetFocusEndIfElseIfDataCombo1.Text=""ThenMsgBox"账号不能为空！",vbInformation+vbOKOnly,"错误信息"DataCombo1.SetFocusElseMsgBox"密码不能为空！",vbInformation+vbOKOnly,"错误信息"Text1.SetFocusEndIfEndSubPrivateSubCommand2_Click()‘取消EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)‘在文本框按下输入的事件IfKeyAscii=13ThenCommand1_ClickEndIfEndSubPrivateSubdataCombo1_KeyPress(KeyAsciiAsInteger)‘在文本框按下输入的事件IfKeyAscii=13ThenCommand1_ClickEndIfEndSub客户登记界面PrivateSubCommand3_Click()‘客户登记PrivateSubCommand4_Click()‘退房结算frmGuestAdd.ShowfrmCheckOut.ShowEndSubEndSubPrivateSubCommand1_Click()‘当前时间txt6.Text=Trim(Now())EndSubPrivateSubCommand2_Click()‘确定Iftxt1.Text=""Ortxt2.Text=""Ortxt3.Text=""Ortxt4.Text=""Ortxt6.Text=""Ortxt8.Text=""OrDataCombo1.Text=""ThenMsgBox"请将蓝色局部填写完整！",vbInformation+vbOKOnly,"提示信息"Iftxt1.Text=""Thentxt1.SetFocusElseIftxt2.Text=""Thentxt2.SetFocusElseIftxt3.Text=""Thentxt3.SetFocusElseIftxt4.Text=""Thentxt4.SetFocusElseIftxt6.Text=""Thentxt6.SetFocusElseIftxt8.Text=""Thentxt8.SetFocusElseIfDataCombo1.Text=""ThenDataCombo1.SetFocusEndIfElseAdodc3.RecordSource="selectAidfromViewAdminInfowhereAname='"&frmLogin.DataCombo1.Text&"'"Adodc3.RefreshDimaidAsIntegeraid=Adodc3.Recordset.Fields(0)Adodc4.RecordSource="select*fromGuestInfo"Adodc4.RefreshAdodc4.Recordset.Fields("Cname")=txt1.TextAdodc4.Recordset.Fields("Csex")=txt2.TextAdodc4.Recordset.Fields("Cage")=txt3.TextAdodc4.Recordset.Fields("Cpnum")=txt4.TextIftxt6.Text<>""ThenAdodc4.Recordset.Fields("Cadd")=txt5.TextEndIfAdodc4.Recordset.Fields("Cintime")=txt6.TextIftxt7.Text<>""ThenAdodc4.Recordset.Fields("Cday")=txt7.TextEndIfAdodc4.Recordset.Fields("Cdeposit")=txt8.TextAdodc4.Recordset.Fields("Rnum")=DataCombo1.TextAdodc4.Recordset.Fields("Aid")=aidMsgBox"登记成功！",vbOKOnly+vbInformation,"提示信息"UnloadMeEndIfEndSubPrivateSubCommand3_Click()‘取消UnloadMeEndSubPrivateSubDataCombo1_Change()‘选择房间Adodc2.RecordSource="select*fromViewEmptyRoomInfowhereRnum='"+Trim(DataCombo1.Text)+"'"Adodc2.RefreshSetDataGrid1.DataSource=Adodc2DataGrid1.RefreshEndSubPrivateSubCommand1_Click()‘查看信息IfDataCombo1.Text<>""ThenIfCommand1.Caption="查看信息"ThenAdodc1.RecordSource="select*fromViewGuestInfowhereRnum='"&DataCombo1.Text&"'andCouttimeisnull"Adodc1.RefreshRichTextBox1.Text=vbCrLf+""+"编号："+Trim(Adodc1.Recordset.Fields(0).Value)+""+"姓名："+Trim(Adodc1.Recordset.Fields(1).Value)+""+"性别："+Trim(Adodc1.Recordset.Fields(2).Value)+""+"年龄："+Trim(Adodc1.Recordset.Fields(3).Value)+vbCrLf+vbCrLf+""+"身份证号："+Trim(Adodc1.Recordset.Fields(4).Value)+vbCrLf+vbCrLf+""+"入住时间："+Trim(Adodc1.Recordset.Fields(6).Value)+vbCrLf+vbCrLf+""+"押金："+Trim(Adodc1.Recordset.Fields(10).Value)+"元"frame1.Caption="显示信息-"+DataCombo1.TextDataCombo1.Enabled=FalseCommand1.Caption="取消"Command2.Enabled=TrueElseIfCommand1.Caption="取消"Thenframe1.Caption="显示信息"RichTextBox1.Text=""DataCombo1.Enabled=TrueDataCombo1.Text=""Command1.Caption="查看信息"Command2.Enabled=FalseEndIfElseMsgBox"房间编号不能为空！",vbOKOnly+vbInformation,"错误信息"DataCombo1.SetFocusEndIfEndSubPrivateSubCommand2_Click()‘费用结算Me.HidefrmPrice.ShowEndSubPrivateSubCommand3_Click()‘退出UnloadMeEndSubDimtimeAsDateDimeAsIntegerPrivateSubCommand1_Click()‘退房IfMsgBox("确定退房结帐吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc3.RecordSource="selectCouttime,Ccost,RnumfromGuestInfowhereRnum='"&frmCheckOut.DataCombo1.Text&"'andCouttimeisnull"'"updataGuestInfosetCouttime="&time&",Ccost="&e&""Adodc3.RefreshDimrnumAsStringrnum=Adodc3.Recordset.Fields(2)Adodc3.Recordset.Fields(0)=timeAdodc3.Recordset.Fields(1)=eAdodc4.RecordSource="select*fromRoomInfowhereRnum='"&rnum&"'"Adodc4.RefreshAdodc4.Recordset.Fields(3)="空"Adodc4.Recordset.Fields(4)=NullMsgBox"退房成功！",vbOKOnly+vbInformation,"提示信息"UnloadfrmCheckOutUnloadMeElseUnloadfrmCheckOutUnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadfrmCheckOutUnloadMeEndSubPrivateSubForm_Load()‘费用结算窗体加载事件Adodc2.RecordSource="selectRpricefromViewRoomInfowhereRnum="&frmCheckOut.DataCombo1.Text&""'查询房间的价格Adodc2.RefreshDimpriceAsInteger'房间价格price=CInt(Adodc2.Recordset.Fields(0))'获取房间价格Label2.Caption="房间："+frmCheckOut.DataCombo1.Text+""+"单价："+CStr(price)+"元/天"Adodc1.RecordSource="select*fromViewGuestInfowhereRnum='"&frmCheckOut.DataCombo1.Text&"'andCouttimeisnull"'查询客户信息Adodc1.Refreshframe1.Caption="编号："+Trim(Adodc1.Recordset.Fields(0).Value)+"姓名："+Trim(Adodc1.Recordset.Fields(1).Value)+"性别："+Trim(Adodc1.Recordset.Fields(2).Value)+"年龄："+Trim(Adodc1.Recordset.Fields(3).Value)DimaAsDoubleDimbAsIntegerDimcAsDoubleDimdAsIntegertime=Now()a=CDbl(time-Adodc1.Recordset.Fields(6))'精确时间b=CInt(time-Adodc1.Recordset.Fields(6))'对时间取整c=a-b'计算出小于一天的时间Ifc>0Thend=b+1'缺乏一天算一天Elsed=bEndIfe=d*price'计算住宿费RichTextBox1.Text=vbCrLf+""+"入住时间："+Trim(Adodc1.Recordset.Fields(6).Value)+vbCrLf+vbCrLf+""+"当前时间："+Trim(time)+vbCrLf+vbCrLf+""+"共住"+CStr(a)+"天"+""+"计"+CStr(d)+"天"+vbCrLf+vbCrLf+""+"住宿费："+CStr(e)+"元"+"押金："+Trim(Adodc1.Recordset.Fields(10).Value)+"元"+"应收："+Trim(e-CInt(Adodc1.Recordset.Fields(10)))+"元"EndSub房间管理界面PrivateSubCommand7_Click()‘增加房间Command7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalseCommand10.Enabled=TrueCommand11.Enabled=Trueframe1.Enabled=Trueframe1.Caption="增加房间"Text1.BackColor=&H80000005Text2.BackColor=&H80000005Text3.BackColor=&H80000005Text4.BackColor=&H80000005Text2.Visible=FalseCombo3.Visible=TrueText4.Enabled=FalseText4.Text="空"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText1.SetFocusEndSubPrivateSubCommand8_Click()‘修改房间Command7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalseCommand10.Enabled=TrueCommand11.Enabled=Trueframe1.Enabled=Trueframe1.Caption="修改房间"Text1.Visible=FalseDataCombo2.Visible=TrueText2.BackColor=&H80000005Text3.BackColor=&H80000005Text4.BackColor=&H80000005Text4.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseDataCombo2.SetFocusEndSubPrivateSubCommand9_Click()‘删除房间Command7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=FalseCommand10.Enabled=TrueCommand11.Enabled=Trueframe1.Enabled=Trueframe1.Caption="删除房间"Text1.Visible=FalseDataCombo2.Visible=TrueText2.BackColor=&H80000005Text3.BackColor=&H80000005Text4.BackColor=&H80000005Text2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseDataCombo2.SetFocusEndSubPrivateSubDataCombo2_Change()‘Adodc5.RecordSource="select*fromViewEmptyRoomInfowhereRnum='"+Trim(DataCombo2.Text)+"'"Adodc5.RefreshSetText2.DataSource=Adodc5SetText3.DataSource=Adodc5SetText4.DataSource=Adodc5Text2.RefreshText3.RefreshText4.RefreshIfframe1.Caption="修改房间"ThenSetCombo3.DataSource=Adodc5Combo3.RefreshCombo3.Enabled=TrueCombo3.Visible=TrueText2.Visible=FalseText3.Enabled=TrueEndIfEndSubPrivateSubCommand10_Click()‘确定Ifframe1.Caption="增加房间"ThenIfText1.Text<>""AndCombo3.Text<>""AndText3.Text<>""ThenIfMsgBox("确定增加房间“"&Text1.Text&"〞吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc5.RecordSource="select*fromViewRoomInfowhereRnum='"&Text1.Text&"'"Adodc5.RefreshIfAdodc5.Recordset.RecordCount=1ThenMsgBox"你输入的房间编号“"&Text1.Text&"〞重复！请重新输入。",vbInformation+vbOKOnly,"提示信息"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusElseAdodc5.CommandType=adCmdTextAdodc5.RecordSource="select*fromRoomInfo"Adodc5.Recordset.Fields("Rnum")=Text1.TextAdodc5.Recordset.Fields("Rtype")=Combo3.TextAdodc5.Recordset.Fields("Rprice")=Text3.TextAdodc5.Recordset.Fields("Rstates")=Text4.TextAdodc2.RefreshSetDataGrid2.DataSource=Adodc2DataCombo2.RefreshAdodc6.RefreshMsgBox"增加房间“"&Text1.Text&"〞成功！",vbInformation+vbOKOnly,"提示信息"Command11_ClickEndIfElseCommand11_ClickEndIfElseMsgBox"房间信息填写不完整，请继续填写！",vbOKOnly+vbInformation,"错误提示"EndIfElseIfframe1.Caption="修改房间"ThenIfDataCombo2.Text<>""ThenIfMsgBox("确定要修改房间信息吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc5.CommandType=adCmdTextAdodc5.RecordSource="updataRoomInfosetRtype='"&Text2.Text&"',Rprice='"&Text3.Text&"'whereRnum='"&DataCombo2.Text&"'"Adodc2.RefreshSetDataGrid2.DataSource=Adodc2DataCombo2.RefreshAdodc6.RefreshMsgBox"房间信息修改成功！",vbOKOnly+vbInformation,"提示信息"Command11_ClickElseCommand11_ClickEndIfElseMsgBox"请选择要修改的房间！",vbInformation+vbOKOnly,"提示信息"DataCombo2.SetFocusEndIfElseIfframe1.Caption="删除房间"ThenIfDataCombo2.Text<>""ThenIfMsgBox("确定删除房间“"&DataCombo2.Text&"〞吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc5.CommandType=adCmdTextAdodc5.RecordSource="deletefromRoomInfowhereRnum='"&DataCombo2.Text&"'"Adodc2.RefreshSetDataGrid2.DataSource=Adodc2DataGrid2.RefreshAdodc6.RefreshMsgBox"删除房间“"&DataCombo2.Text&"〞成功！",vbInformation+vbOKOnly,"提示信息"Command11_ClickElseCommand11_ClickEndIfElseMsgBox"请选择要删除的房间！",vbOKOnly+vbInformation,"提示信息"DataCombo2.SetFocusEndIfEndIfEndSubPrivateSubCommand11_Click()‘取消Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Combo3.Text=""DataCombo2.Text=""frame1.Enabled=FalseCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=TrueCommand10.Enabled=FalseCommand11.Enabled=Falseframe1.Caption=""DataCombo2.Visible=FalseText1.Visible=TrueCombo3.Visible=FalseText2.Visible=TrueText1.BackColor=&H8000000FText2.BackColor=&H8000000FText3.BackColor=&H8000000FText4.BackColor=&H8000000FText4.Enabled=TrueSetCombo3.DataSource=NothingSetText2.DataSource=NothingSetText3.DataSource=NothingSetText4.DataSource=NothingCombo3.RefreshText2.RefreshText3.RefreshText4.RefreshEndSub客户查询界面PrivateSubCommand12_Click()‘精确查询-确定Iftxt1.Text=""Thenck1.Value=0EndIfIftxt2.Text=""Thenck2.Value=0EndIfIftxt3.Text=""Thenck3.Value=0EndIfIftxt4.Text=""Thenck4.Value=0EndIfIftxt5.Text=""Thenck5.Value=0EndIfIftxt6.Text=""Thenck6.Value=0EndIfIftxt1.Text=""Andtxt2.Text=""Andtxt3.Text=""Andtxt4.Text=""Andtxt5.Text=""Andtxt6.Text=""ThenMsgBox"查询条件至少有一个不为空！",vbOKOnly+vbInformation,"错误信息"ElseDimsqlAsStringsql=EmptyIftxt1.Text<>EmptyThensql="(Cname='"&txt1.Text&"')"EndIfIftxt2.Text<>EmptyThenIfsql<>EmptyThensql=sql&"and(Csex='"&txt2.Text&"')"Elsesql="(Csex='"&txt2.Text&"')"EndIfEndIfIftxt3.Text<>EmptyThenIfsql<>EmptyThensql=sql&"and(Cage="&Trim(txt3.Text)&")"Elsesql="(Cage="&Trim(txt3.Text)&")"EndIfEndIfIftxt4.Text<>EmptyThenIfsql<>EmptyThensql=sql&"and(Cid="&Trim(txt4.Text)&")"Elsesql="(Cid="&Trim(txt4.Text)&")"EndIfEndIfIftxt5.Text<>EmptyThenIfsql<>EmptyThensql=sql&"and(Rnum="&Trim(txt5.Text)&")"Elsesql="(Rnum="&Trim(txt5.Text)&")"EndIfEndIfIftxt6.Text<>EmptyThenIfsql<>EmptyThensql=sql&"and(Cpnum='"&txt6.Text&"')"Elsesql="(Cpnum='"&txt6.Text&"')"EndIfEndIfIfsql<>EmptyThensql="select*fromViewGuestInfowhere"&sqlEndIfAdodc10.RecordSource=sqlAdodc10.RefreshSetDataGrid3.DataSource=Adodc10DataGrid3.RefreshFrame2.Caption="查询结果-精确查询"EndIfEndSubPrivateSubCommand13_Click()‘清空ck1.Value=0ck2.Value=0ck3.Value=0ck4.Value=0ck5.Value=0ck6.Value=0txt1.Text=""txt2.Text=""txt3.Text=""txt4.Text=""txt5.Text=""txt6.Text=""EndSubPrivateSubCommand15_Click()‘概况查询-确定IfCombo1.Text=""ThenMsgBox"条件不能为空！请选择查询条件。",vbOKOnly+vbInformation,"提示信息"Combo1.SetFocusElseSelectCaseCombo1.TextCase"已入住客户"Adodc11.RecordSource="select*fromViewGuestInfowhereCouttimeisnull"Adodc11.RefreshSetDataGrid3.DataSource=Adodc11DataGrid3.RefreshCase"已退房客户"Adodc11.RecordSource="select*fromViewGuestInfowhereCouttimeisnotnull"Adodc11.RefreshSetDataGrid3.DataSource=Adodc11DataGrid3.RefreshCase"普通房客户"Adodc11.RecordSource="select*fromViewGuestInfoa,ViewRoomInfobwhereb.Rtype='普通'anda.Rnum=b.Rnumorderbyb.RnumASC"Adodc11.RefreshSetDataGrid3.DataSource=Adodc11DataGrid3.RefreshCase"标准房客户"Adodc11.RecordSource="select*fromViewGuestInfoa,ViewRoomInfobwhereb.Rtype='标准'anda.Rnum=b.Rnumorderbyb.RnumASC"Adodc11.RefreshSetDataGrid3.DataSource=Adodc11DataGrid3.RefreshCase"豪华房客户"Adodc11.RecordSource="select*fromViewGuestInfoa,ViewRoomInfobwhereb.Rtype='豪华'anda.Rnum=b.Rnumorderbyb.RnumASC"Adodc11.RefreshSetDataGrid3.DataSource=Adodc11DataGrid3.RefreshEndSelectFrame2.Caption="查询结果-"+Combo1.TextEndIfEndSub房间查询界面PrivateSubCommand22_Click()‘按房间编号查询IfText9.Text=""ThenMsgBox"你没有输入房间编号",vbOKOnly+vbInformation,"错误信息"Text9.SetFocusElseFrame7.Caption="查询结果显示-按房间编号"Adodc4.RecordSource="select*fromViewRoomInfowhereRnum='"+Trim(Text9.Text)+"'"Adodc4.RefreshSetDataGrid5.DataSource=Adodc4DataGrid5.RefreshEndIfEndSubPrivateSubCommand23_Click()‘按房间类型查询IfCombo2.Text=""ThenMsgBox"你没有输入房间类型",vbOKOnly+vbInformation,"错误信息"Combo2.SetFocusElseFrame7.Caption="查询结果显示-按房间类型"Adodc4.RecordSource="select*fromViewRoomInfowhereRtype='"+Trim(Combo2.Text)+"'orderbyRnumASC"Adodc4.RefreshSetDataGrid5.DataSource=Adodc4DataGrid5.RefreshEndIfEndSubPrivateSubCommand24_Click()‘按房间价格查询IfText18.Text=""ThenMsgBox"你没有输入完整价格范围",vbOKOnly+vbInformation,"错误信息"Text18.SetFocusElseIfText19.Text=""ThenMsgBox"你没有输入完整价格范围",vbOKOnly+vbInformation,"错误信息"Text19.SetFocusElseDimaAsIntegerDimbAsIntegera=(Text18.Text)b=(Text19.Text)Frame7.Caption="查询结果显示-按房间价格"Adodc4.RecordSource="select*fromViewRoomInfowhereRprice>="&a&"andRprice<="&b&"orderbyRnumASC"Adodc4.RefreshSetDataGrid5.DataSource=Adodc4DataGrid5.RefreshEndIfEndSubPrivateSubCommand20_Click()‘显示空房Frame7.Caption="查询结果显示-显示空房"Adodc4.RecordSource="select*fromViewEmptyRoomInfoorderbyRnumASC"Adodc4.RefreshSetDataGrid5.DataSource=Adodc4DataGrid5.RefreshEndSubPrivateSubCommand21_Click()‘显示满房Frame7.Caption="查询结果显示-显示满房"Adodc4.RecordSource="select*fromViewFullRoomInfoorderbyRnumASC"Adodc4.RefreshSetDataGrid5.DataSource=Adodc4DataGrid5.RefreshEndSub收入统计界面PrivateSubCommand6_Click()Label22.Caption=""Label23.Caption=""Label24.Caption=""Label25.Caption=""Label26.Caption=""Label27.Caption=""Label28.Caption=""ProgressBar1.Value=0ProgressBar2.Value=0ProgressBar3.Value=0ProgressBar4.Value=0ProgressBar1.Max=100ProgressBar2.Max=100ProgressBar3.Max=100ProgressBar4.Max=100Adodc13.RecordSource="select*fromViewCost"Adodc13.RefreshDimaAsIntegerDimbAsIntegerDimcAsIntegerDimdAsIntegerIfIsNull(Adodc13.Recordset.Fields(0))Thena=0Elsea=Adodc13.Recordset.Fields(0)EndIfIfIsNull(Adodc13.Recordset.Fields(1))Thenb=0Elseb=Adodc13.Recordset.Fields(1)EndIfIfIsNull(Adodc13.Recordset.Fields(2))Thenc=0Elsec=Adodc13.Recordset.Fields(2)EndIfIfIsNull(Adodc13.Recordset.Fields(3))Thend=0Elsed=Adodc13.Recordset.Fields(3)EndIfProgressBar1.Max=aProgressBar2.Max=aProgressBar3.Max=aProgressBar4.Max=aProgressBar1.Value=aProgressBar2.Value=bProgressBar3.Value=cProgressBar4.Value=dLabel22.Caption="总收入："+Trim(a)+"元"Label23.Caption="普通房收入："+Trim(b)+"元"Label24.Caption="标准房收入："+Trim(c)+"元"Label25.Caption="豪华房收入："+Trim(d)+"元"Label26.Caption=Trim(Left$(b/a*100,5))+"%"Label27.Caption=Trim(Left$(c/a*100,5))+"%"Label28.Caption=Trim(Left$(d/a*100,5))+"%"EndSub管理员界面PrivateSubCommand16_Click()‘添加管理员-确定IfText11.Text=""ThenMsgBox"账号不能为空！",vbOKOnly+vbInformation,"错误信息"Text11.SetFocusElseIfText12.Text=""ThenMsgBox"密码不能为空！",vbOKOnly+vbInformation,"错误信息"Text12.SetFocusElseIfText13.Text=""ThenMsgBox"确认密码不能为空！",vbOKOnly+vbInformation,"错误信息"Text13.SetFocusElseIfCombo4.Text=""ThenMsgBox"权限不能为空！",vbOKOnly+vbInformation,"提示信息"Combo4.SetFocusElseIfText12.Text<>Text13.TextThenMsgBox"两次输入密码不一致！请重新输入。",vbOKOnly+vbInformation,"错误信息"Text12.Text=""Text13.Text=""Text12.SetFocusElseIfMsgBox("确定添加管理员“"&Text11.Text&"〞吗？",vbInformation+vbOKCancel,"提示信息")=vbOKThenAdodc12.RecordSource="select*fromAdminInfowhereAname='"&frmLogin.DataCombo1.Text&"'andAlimit='1'"Adodc12.RefreshIfAdodc12.Recordset.RecordCount=1ThenAdodc7.RecordSource="select*fromViewAdminInfowhereAname='"&Text11.Text&"'"Adodc7.RefreshIfAdodc7.Recordset.RecordCount=1ThenMsgBox"你输入管理员账号“"&Text11.Text&"〞已经存在！请重新输入。",vbInformation+vbOKOnly,"提示信息"Command17_ClickText11.SetFocusElseAdodc7.CommandType=adCmdTextAdodc7.RecordSource="select*fromAdminInfo"Adodc7.RefreshAdodc7.Recordset.Fields("Aname")=Text11.TextAdodc7.Recordset.Fields("Amima")=Text12.TextAdodc7.Recordset.Fields("Alimit")=Left$(Combo4.Text,1)Adodc3.RefreshSetDataGrid4.DataSource=Adodc3DataGrid4.RefreshMsgBox"添加管理员成功！",vbInformation+vbOKOnly,"提示信息"Command17_ClickEndIfElseMsgBox"当前管理员“"&frmLogin.DataCombo1.Text&"〞的权限缺乏，不能进行操作",vbOKOnly+vbInformation,"提示信息"Command17_ClickEndIfElseCommand17_ClickEndIfEndIfEndSubPrivateSubCommand17_Click()‘添加管理员-清空Text11.Text=""Text12.Text=""Text13.Text=""EndSubPrivateSubCommand18_Click()‘修改密码-确定IfDataCombo1.Text=""ThenMsgBox"请选择账号！",vbOKOnly+vbInformation,"错误信息"DataCombo1.SetFocusElseIfText15.Text=""ThenMsgBox"请输入旧密码！",vbOKOnly+vbInformation,"错误信息"Text15.SetFocusElseIfText16.Text=""ThenMsgBox"请输入新密码！",vbOKOnly+vbInformation,"错误信息"Text16.SetFocusElseIfText17.Text=""ThenMsgBox"请输入确认密码密码！",vbOKOnly+vbInformation,"错误信息"Text17.SetFocusElseIfText16.Text<>Text17.TextThenMsgBox"新密码与确认密码不一致！请重新输入。",vbOKOnly+vbInformation,"错误信息"Text16.Text=""Text17.Text=""Text16.SetFocusElseIfMsgBox("确定修改密码吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc8.RecordSource="select*fromAdminInfowhereAmima='"&Text15.Text&"'andAname='"&DataCombo1.Text&"'"Adodc8.RefreshIfAdodc8.Recordset.RecordCount=1ThenAdodc8.Recordset.Fields(2).Value=Trim(Text16.Text)MsgBox"密码修改成功，下次登陆请使用新密码！",vbOKOnly+vbInformation,"提示信息"Command19_ClickElseMsgBox"你输入的旧密码错误！请重新输入",vbInformation+vbOKOnly,"提示信息"Text15.Text=""Text16.Text=""Text17.Text=""Text15.SetFocusEndIfElseEndIfEndIfEndSubPrivateSubCommand19_Click()‘修改密码-清空DataCombo1.Text=""Text15.Text=""Text16.Text=""Text17.Text=""EndSubPrivateSubDataCombo2_Change()Adodc5.RecordSource="select*fromViewEmptyRoomInfowhereRnum='"+Trim(DataCombo2.Text)+"'"Adodc5.RefreshSetText2.DataSource=Adodc5SetText3.DataSource=Adodc5SetText4.DataSource=Adodc5Text2.RefreshText3.RefreshText4.RefreshIfFrame1.Caption="修改房间"ThenSetCombo3.DataSource=Adodc5Combo3.RefreshCombo3.Enabled=TrueCombo3.Visible=TrueText2.Visible=FalseText3.Enabled=TrueEndIfEndSubPrivateSubDataCombo2_Change()‘修改密码-选择账号Adodc5.RecordSource="select*fromViewEmptyRoomInfowhereRnum='"+Trim(DataCombo2.Text)+"'"Adodc5.RefreshSetText2.DataSource=Adodc5SetText3.DataSource=Adodc5SetText4.DataSource=Adodc5Text2.RefreshText3.RefreshText4.RefreshIfFrame1.Caption="修改房间"ThenSetCombo3.DataSource=Adodc5Combo3.RefreshCombo3.Enabled=TrueCombo3.Visible=TrueText2.Visible=FalseText3.Enabled=TrueEndIfEndSubPrivateSubCommand14_Click()‘删除管理员SelectCaseCommand14.CaptionCase"删除管理员"labXuhao.Visible=TruetxtXuhao.Visible=TruetxtXuhao.SetFocusCommand14.Caption="确定删除管理员"Case"确定删除管理员"Command14.Enabled=FalseIftxtXuhao.Text<>""ThenIfMsgBox("确定删除序号为“"&txtXuhao.Text&"〞的管理员吗？",vbOKCancel+vbInformation,"提示信息")=vbOKThenAdodc9.RecordSource="select*fromViewAdminInfowhereAid="&txtXuhao.Text&""Adodc9.RefreshIfAdodc9.Recordset.RecordCount=1ThenAdodc12.RecordSource="select*fromAdminInfowhereAname='"&frmLogin.DataCombo1.Text&"'andAlimit='1'"Adodc12.RefreshIfAdodc12.Recordset.RecordCount=1ThenAdodc9.RecordSource="select*fromAdminInfowhereAid="&txtXuhao.Text&""Adodc9.RefreshAdodc3.RefreshMsgBox"删除成功！",vbInformation+vbOKOnly,"提示信息"txtXuhao.Text=""Command14.Caption="删除管理员"