《客房管理系统VB+SQL》由会员分享，可在线阅读，更多相关《客房管理系统VB+SQL（41页珍藏版）》请在金锄头文库上搜索。
1、数据库课程设计报告题目：客房管理系统时间：2008-6-27客房管理系统课程设计的目的和意义在当今经济和商务交往日益频繁的状况下， 宾馆服务行业正面临客流量骤增 的压力。越来越多的宾馆饭店都认识到传统的管理方法已经不能适合当今社会的 需要，必须借助先进的计算机信息技术对宾馆服务进行管理。“客房管理系统”可以说是整个宾馆计算机信息系统的中心子系统，因为宾馆最主要的功能就是为 旅客提供客房。设计客房管理这样一个系统，可以涉及到大多数 SQL Server 数 据库的重要数据库对象、重要功能和特性，比如：视图、触发器和存储过程等。 由此，通过这个课程设计可以加深对这些 SQLServer 数据库知识
2、的学习、理解， 积累在实际工程应用中运用各种数据库对象的经验， 使学生掌握使用应用软件开 发工具开发数据库管理系统的基本方法。 在实用性方面， 客房管理系统是很普遍 的一种应用，选择该系统作为课程设计也可以为学生以后可能遇到的实际开发提 供借鉴。本课程设计的主要目的是学习和练习 SQL Server 数据库的实际应用， 所以选择 SQL Server 2000 作为数据库服务器。二、 需求分析系统主要实现对客房的管理功能。 主要有管理员登陆、 客户登记、 房间管理、 客户查询、房间查询、收入统计、管理员信息管理。系统总体设计图如下：三、概念结构设计（E-R图）咼号住诸旨理址名卅别注幼制曰謎四、
3、逻辑结构设计将E-R图转换成关系模式: 管理员（编号，账号，密码，权限）房 间（编号，类型，价格，状态，入住客户编号）客户（编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，房间编号，退房时间，押金，住宿费，登记人）关系规范化：均已达到第三范式五、数据实施与维护1、建立数据库 打开SQL Server 2000企业管理器，建立数据库HotelRoom。2、添加数据表在HotelRoom数据库中，添加表管理员信息表 Adminlnfo、房间信息表 Rooml nfo、客户信息表 Guest Info。希设计表Gwestlnfo 位置是MHote1Rooni中*“ IrL *L 士 *
4、M 中4e 込mn_L列名数据类型民度允许空计表Adrninlnfo TV 詈 jhHot毛IRoom 中iniI列若彖据类型长度 允许至var chargint4chirzAjlMi 色varcharIBCiLgifirtyirtAnn lmavar cKaxISCpiLUIHcharISAlimi t1C/dvar whar507n 设计表RoomlnfaSHotelRoomJT 中、Ci ntiiTitLHAllditetii电CdLaytlilyint1数据类型崔屋 允许空char5?varchar5Couttimssmilldait s tirRtypsshur4CdLeposi t
5、int4Rpri.sm allm oney4Ccostint4矗tdtEE匚 hiar2Aidint电Cidint4V3、建立关系图4、创建视图CREATE VIEW dbo.ViewAdmi nlnfo AS SELECT Aid, An ame, Alimit FROM dbo.Admi nlnfo管理员信息视图CREATE VIEW dbo.ViewAllCost AS SELECT SUM(Ccost) AS AllCost FROM dbo.Guest Info总收入视图CREATE VIEW dbo.ViewBiaozhu nCost AS SELECT SUM(a.Ccost)
6、AS Biaozhu nCost FROM dbo.Guest Info a INNER JOIN dbo. RoomI nfo b ON a.R num 二 b.Rn um WHERE (b.Rtype =标准)标准房收入视图CREATE VIEW dbo.ViewCost AS SELECT dbo.ViewAIICost.AIICost,dbo.ViewPuto ngCost.puto ngCost, dbo.ViewBiaozh un Cost.Biaozh un Cost, dbo.ViewHaohuaCost.HaohuaCost FROM dbo.ViewAllCost CROS
7、S JOIN dbo.ViewPuto ngCost CROSS JOIN dbo.ViewBiaozhu nCost CROSS JOIN dbo.ViewHaohuaCost 收入视图CREATEVIEWdbo.ViewEmptyRoomInfo AS SELECTRnum, Rtype, Rprice, Rstates FROM dbo.RoomInfo WHERE (Rstates = 空) 空房信息视图CREATE VIEW dbo.ViewFullRoomInfo AS SELECT dbo.RoomInfo.* FROM dbo.RoomInfo WHERE (Rstates =
8、 满 ) 满房信息视图CREATE VIEW dbo.ViewGuestInfo AS SELECT dbo.GuestInfo.* FROM dbo.GuestInfo 客户信息视图CREATEVIEWdbo.ViewHaohuaCost AS SELECTSUM(a.Ccost) AS HaohuaCost FROM dbo.GuestInfo a INNER JOIN dbo.RoomInfo b ON a.Rnum = b.Rnum WHERE (b.Rtype = 豪华)豪华房收入视图CREATEVIEWdbo.ViewPutongCost AS SELECTSUM(a.Ccost)
9、 AS PutongCost FROM dbo.GuestInfo a INNER JOIN dbo.RoomInfo b ON a.Rnum = b.Rnum WHERE (b.Rtype = 普通 )普通房收入视图CREATE VIEW dbo.ViewRoomInfo AS SELECT dbo.RoomInfo.* FROM dbo.RoomInfo 房间信息视图5、创建触发器在表 GuestInfo 中，创建一个触发器：CREATE TRIGGER insert_tri ON dbo.GuestInfoFOR INSERTAS update RoomInfoset Rstates二
10、满,Cid=(select Cid from in serted)where Rnum=(select Rnum from in serted)功能：当向表GuestInfo中插入一个客户信息时，触发表 RoomInfo的某房间的状态变为“满”6、备份数据库给所建立的数据库进行备份六、 界面设计与代码（用 VB作为界面设计语言）1、登陆界面客房管理系绕昔理员登陆1账号 I三1密码确定取消管理员登陆-客房管理条铳|xPublic Sub Comma nd1_Click()确定If Trim(DataCombo1.Text) A nd Trim(Text1.Text) The nAdodc1.Re
11、cordSource = select * from Adm inInfo where Aname= + Trim(DataCombo1.Text) + and Amima= + Trim(Text1.Text) + ”Adodc1.RefreshIf Adodc1.Recordset.RecordCou nt = 1 The nAdodc1.Recordset.ClosefrmMain .ShowMe.HideElseMsgBox 错误的账号或密码！, vbI nformation + vbOKO nly,错误信息Text1.Text =DataCombo1.SetFocusEnd IfEl
12、seIf DataCombo1.Text = The nMsgBox 账号不能为空！, vbInformation + vbOKOnly,错误信息DataCombo1.SetFocusElseMsgBox 密码不能为空！ , vblnformation + vbOKOnly,错误信息Textl.SetFocusEnd IfEnd SubPrivate Sub Comma nd2_Click()取消EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As In teger)在文本框按下输入的事件If KeyAscii = 13 ThenComma nd1_
13、ClickEnd IfEnd SubPrivate Sub dataCombo1_KeyPress(KeyAscii As In teger)在文本框按下输入的事件If KeyAscii = 13 ThenComma nd1_ClickEnd IfEnd Sub2、客户登记界面Private Sub Comma nd3_Click()客户登记Private Sub Comma nd4_Click()退房结算frmGuestAdd.ShowEnd SubfrmCheckOut.ShowEnd Sub抵窑户豊记-窑房管理系统IX客户登记基本佰息蓝色为必埴）姓名性址时间天数选挥房间细o类型价格现有空余层阎确走取消Private Sub Comma nd1_Click()当前时间txt6.Text = Trim(Now()End SubPrivate Sub Comma nd2_Click()确定If txt1.Text = Or txt2.Text = Or txt3.Text = Or txt4.Text = Or txt6.Text=Or txt8.Text = Or DataCombo1.Text = The nMsgBox 请将蓝色部分填写完整！,vbln formation + vbOKO nly, 提示信息If txt1.Text = The ntxt1
