客房管理系统VB+SQLWord文件下载.docx

1、CREATE VIEW dbo.ViewAdminInfo AS SELECT Aid, Aname, Alimit FROM dbo.AdminInfo 管理员信息视图CREATE VIEW dbo.ViewAllCost AS SELECT SUM（Ccost） AS AllCost FROM dbo.GuestInfo 总收入视图CREATE VIEW dbo.ViewBiaozhunCost AS SELECT SUM（a.Ccost） AS BiaozhunCost FROM dbo.GuestInfo a INNER JOIN dbo.RoomInfo b ON a.Rnum =

2、b.Rnum WHERE （b.Rtype = 标准） 标准房收入视图CREATE VIEW dbo.ViewCost AS SELECT dbo.ViewAllCost.AllCost,dbo.ViewPutongCost.putongCost, dbo.ViewBiaozhunCost.BiaozhunCost, dbo.ViewHaohuaCost.HaohuaCost FROM dbo.ViewAllCost CROSS JOIN dbo.ViewPutongCost CROSS JOIN dbo.ViewBiaozhunCost CROSS JOIN dbo.ViewHaohuaCo

3、st 收入视图CREATE VIEW dbo.ViewEmptyRoomInfo AS SELECT Rnum, Rtype, Rprice, Rstates FROM dbo.RoomInfo WHERE （Rstates = 空） 空房信息视图CREATE VIEW dbo.ViewFullRoomInfo AS SELECT dbo.RoomInfo.* FROM dbo.RoomInfo WHERE （Rstates = 满） 满房信息视图CREATE VIEW dbo.ViewGuestInfo AS SELECT dbo.GuestInfo.* FROM dbo.GuestInfo

4、 客户信息视图CREATE VIEW dbo.ViewHaohuaCost AS SELECT SUM（a.Ccost） AS HaohuaCost FROM dbo.GuestInfo a INNER JOIN dbo.RoomInfo b ON a.Rnum = b.Rnum WHERE （b.Rtype = 豪华） 豪华房收入视图CREATE VIEW dbo.ViewPutongCost AS SELECT SUM（a.Ccost） AS PutongCost FROM dbo.GuestInfo a INNER JOIN dbo.RoomInfo b ON a.Rnum = b.Rn

5、um WHERE （b.Rtype = 普通） 普通房收入视图CREATE VIEW dbo.ViewRoomInfo AS SELECT dbo.RoomInfo.* FROM dbo.RoomInfo 房间信息视图5、 创建触发器在表GuestInfo中，创建一个触发器：CREATE TRIGGER insert_tri ON dbo.GuestInfoFOR INSERT ASupdate RoomInfo set Rstates=,Cid=（select Cid from inserted）where Rnum=（select Rnum from inserted）功能：当向表Gues

6、tInfo中插入一个客户信息时，触发表RoomInfo的某房间的状态变为“满”6、 备份数据库给所建立的数据库进行备份六、 界面设计与代码（用VB作为界面设计语言）1、 登陆界面Public Sub Command1_Click（） 确定If Trim（DataCombo1.Text） And Trim（Text1.Text） Then Adodc1.RecordSource = select * from AdminInfo where Aname= + Trim（DataCombo1.Text） + and Amima= + Trim（Text1.Text） + Adodc1.Refres

7、h If Adodc1.Recordset.RecordCount = 1 Then Adodc1.Recordset.Close frmMain.Show Me.Hide Else MsgBox 错误的账号或密码！, vbInformation + vbOKOnly, 错误信息 Text1.Text = DataCombo1.SetFocus End IfElseIf DataCombo1.Text = 账号不能为空！Else密码不能为空！ Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click（） 取消 EndPrivate Sub Te

8、xt1_KeyPress（KeyAscii As Integer） 在文本框按下输入的事件 If KeyAscii = 13 Then Command1_ClickPrivate Sub dataCombo1_KeyPress（KeyAscii As Integer） 在文本框按下输入的事件2、 客户登记界面Private Sub Command3_Click（） 客户登记 Private Sub Command4_Click（） 退房结算frmGuestAdd.Show frmCheckOut.ShowEnd Sub End SubPrivate Sub Command1_Click（） 当

9、前时间txt6.Text = Trim（Now（）Private Sub Command2_Click（） 确定If txt1.Text = Or txt2.Text = Or txt3.Text = Or txt4.Text = Or txt6.Text = Or txt8.Text = Or DataCombo1.Text = 请将蓝色部分填写完整！提示信息 If txt1.Text = txt1.SetFocus ElseIf txt2.Text = txt2.SetFocus ElseIf txt3.Text = txt3.SetFocus ElseIf txt4.Text = txt

10、4.SetFocus ElseIf txt6.Text = txt6.SetFocus ElseIf txt8.Text = txt8.SetFocus ElseIf DataCombo1.Text = Adodc3.RecordSource = select Aid from ViewAdminInfo where Aname= & frmLogin.DataCombo1.Text & Adodc3.Refresh Dim aid As Integer aid = Adodc3.Recordset.Fields（0） Adodc4.RecordSource = select * from G

11、uestInfo Adodc4.Refresh Adodc4.Recordset.AddNew Adodc4.Recordset.Fields（Cname） = txt1.TextCsex） = txt2.TextCage） = txt3.TextCpnum） = txt4.Text If txt6.Text Cadd） = txt5.TextCintime） = txt6.Text If txt7.Text Cday） = txt7.TextCdeposit） = txt8.TextRnum） = DataCombo1.TextAid） = aid Adodc4.Recordset.Upda

12、te frmMain.Adodc1.Refresh frmMain.DataGrid1.Refresh登记成功！, vbOKOnly + vbInformation, Unload MePrivate Sub Command3_Click（） 取消Unload MePrivate Sub DataCombo1_Change（） 选择房间Adodc2.RecordSource = select * from ViewEmptyRoomInfo where Rnum= Adodc2.RefreshSet DataGrid1.DataSource = Adodc2DataGrid1.RefreshP

13、rivate Sub Command1_Click（） 查看信息If DataCombo1.Text 0 Thend = b + 1 不足一天算一天d = be = d * price 计算住宿费RichTextBox1.Text = vbCrLf + 当前时间： + Trim（time） + vbCrLf + vbCrLf + 共住 + CStr（a） + 天计 + CStr（d） + + vbCrLf + vbCrLf + 住宿费： + CStr（e） + 元 应收： + Trim（e - CInt（Adodc1.Recordset.Fields（10） + 元3、 房间管理界面Priva

14、te Sub Command7_Click（）增加房间Command7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = FalseCommand10.Enabled = TrueCommand11.Enabled = Trueframe1.Enabled = True增加房间Text1.BackColor = &H80000005Text2.BackColor = &Text3.BackColor = &Text4.BackColor = &Text2.Visible = FalseCombo3.Visible = TrueText4.Enabled = FalseText4.Text = Text1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText1.SetFocusPrivate Sub Command8_Click（）修改房间修改房间Text1.Visible = FalseDataCombo2.Visible = TrueText3.BackCol