华南师范大学增城计算机系
酒店管理系统
1系统分析:
在现在的酒店,宾馆等服务行列中,由于客流量剧增,传统的管理方法已经不适合现代社会的需要。酒店,宾馆在正常运营中需要对客房资源,顾客信息,结算信息进行管理,利用酒店管理系统及时了解各个环节中的信息的变更,有利于提高管理的效率。因此酒店管理系统式各大中小型宾馆,酒店所需使用的一个管理系统。
系统开发的总体任务是实现酒店各种信息的系统化,规范化和自动化管理,减少工作量,提高效率,增强可靠性。
通过调查访问酒店管理人员,我们得出制作的酒店管理系统中需要用户的管理也就是假如用户密码被盗可以改密码。在管理方面需要有客房的信息例如房间是否有人住、房间等级、房间级别等进行对客户的安排。在查询上系统需要客房信息查询、收费信息查询及效益查询,这样方便于操作者进行酒店管理。该系统另外需要有报表输出,显示房间情况表,简单明了显示了我们需要查看的状况。
进入该系统必须是操作者得身份进入,只有数据库中的uers表中的人员才可以进入,并且需要输入密码才可以进入,密码错误进不了系统,如果密码输入三次错误就直接关闭登录窗口。
酒店管理信息系统的各项功能进行集中、模块划分,构造出如下图所示的系统功能模块图。
酒店管理信息系统
基本 信息 报表 系
信息 查询 输出
管理 统
客户 客人 客人 客房 收费 效益 房间 用户 退出
信息 入住 退房 信息 信息 信息 情况 修改 系统
情况 情况 情况 查询 查询 查询 报表 密码
系统流程分析:在了解了系统各功能模块之后,我们还有对系统的流程有一个整体的认识。该系统流程就是用户在使用系统时的工作过程。系统的工作流程都是从用户登录模块开始,对用户身份进行权限验证,进而对西欧他哪个进行管理的。本系统的流程分析图如下图所示:
开始
重试
否
失败 是
用户登陆 失败达到3次 退出程序
成功
系统维护 基本信息管理
进入系统
基本信息查询 信息报表输出
2系统设计:
本系统中的酒店信息管理系统需要完成的功能主要有:
1:客房信息管理,包括房间编号、房间级别、房间类型、房间价格、是否住人等信息的输入、修改和删除等等。
2:客人信息管理,包括客人、身份证号、房间号、入住日期的输入、修改和删除等等。
3:退房信息管理,包括客人的退房日期,付款金额的输入、修改和删除等等。
4: 客房信息查询,包括查询房间编号、房间级别、房间类型、房间价格、是否有人住等信息
5:收费信息查询,包括查询收费时期、付款金额等。
6:效益信息查询,包括查询某一段时间内的营业情况和某间客房的营业情况。
7:房间情况报表:包括房间编号、房间级别、房间类型、房间价格、是否有人住等信息。
8:系统管理:包括更改用户名密码和退出系统等操作。
附录:由于是合组制作的,由我设计基本信息管理父模块(里面包括客房信息管理、客人信息管理、退房信息管理),及系统管理(里面包括修改用户密码、退出系统),以及设计主窗口等,具体如下实施操作。
3系统实施:
1:设计主窗体:
选择"工程"-"添加MDI窗体"菜单,弹出对方框单击"打开"按钮就为工程添加一个MDI窗体。
设置MDI窗体的Name属性为"frmMDI",Caption属性为"酒店收费管理信息系统";
StartUpPosition属性为"2-屏幕中心"。
然后在菜单编辑器中编辑菜单。
完成菜单设计后,必须在主窗体添加四个ADODC控件,以便后面对数据库的一系列操作。
具体添加方法是
在工具箱中单击右键出现一个弹出式菜单,点击"部件"选项,出现可添加的控件列表,在部件对话框中列出了一些控件类型,选择"Microsoft ADO Data Contr 6.0"控件和"Microsoft DataGrid Control"控件,加入工具箱中,可以作为制作窗体的工具了。
2:在主窗体中添加代码
主窗体设计好后,选择文件中保存"frmMDI.frm"菜单,保存该主窗口体。下面是完成各个ADODC控件和气对应表的连接,具体代码如下
Private Sub MDIForm_Load()
App.Title = "酒店收费管理信息系统"
OpenTable adoRoom, "Room" '打开房间类型表
OpenTable adoGuest, "Guest" '打开表
OpenTable adoCancel, "Cancel"
End Sub
Private Sub mnuCancel_Click()
frmCancelInfo.Show
End Sub
Private Sub mnuCascade_Click()
frmMDI.Arrange vbCascade
End Sub
Private Sub mnuGuest_Click()
frmGuestInfo.Show
End Sub
Private Sub mnuQuerySelect_Click()
frmQuerySelect.Show
End Sub
Private Sub mnuRoomInfo_Click()
frmRoomInfo.Show
End Sub
Private Sub mnuExit_Click()
Dim K
K = MsgBox("确定要退出该系统" + "?", vbOKCancel + vbQuestion, "退出")
If K = vbOK Then
Form1.Show
frmMDI.Hide
Else
frmMDI.Show
End If
End Sub
Private Sub mnuHor_Click()
frmMDI.Arrange vbTileHorizontal
End Sub
Private Sub mnuIcon_Click()
frmMDI.Arrange vbArrangeIcons
End Sub
Private Sub mnuReportRoom_Click()
'先查询出结果
OpenTable frmMDI.adoQuery, "select * from Room order by RoomNo,RoomRate"
With drpRoomRequired
Set .DataSource = frmMDI.adoQuery '实施报表数据源绑定
'设置属性
.Caption = "房间基本情况表"
'绑定显示字段
.Sections("Section1").Controls("txtRoomNo").DataField = "RoomNo"
.Sections("Section1").Controls("txtRoomGrade").DataField = "RoomGrade"
.Sections("Section1").Controls("txtRoomGrade").DataFormat.Type = 5
.Sections("Section1").Controls("txtRoomGrade").DataFormat.TrueValue = "标准间"
.Sections("Section1").Controls("txtRoomGrade").DataFormat.FalseValue = "豪华间"
.Sections("Section1").Controls("txtRoomGrade").DataFormat.NullValue = "未知"
.Sections("Section1").Controls("txtRoomType").DataField = "RoomType"
.Sections("Section1").Controls("txtRoomType").DataFormat.Type = 5
.Sections("Section1").Controls("txtRoomType").DataFormat.TrueValue = "单人间"
.Sections("Section1").Controls("txtRoomType").DataFormat.FalseValue = "双人间"
.Sections("Section1").Controls("txtRoomType").DataFormat.NullValue = "未知"
.Sections("Section1").Controls("txtRoomRate").DataField = "RoomRate"
.Sections("Section1").Controls("txtRoomStatus").DataField = "RoomStatus"
.Sections("Section1").Controls("txtRoomStatus").DataFormat.Type = 5
.Sections("Section1").Controls("txtRoomStatus").DataFormat.TrueValue = "在住"
.Sections("Section1").Controls("txtRoomStatus").DataFormat.FalseValue = "空房"
.Sections("Section1").Controls("txtRoomStatus").DataFormat.NullValue = "未知"
'显示报表预览
.Show
End With
End Sub
Private Sub mnuUser_Click()
UserAdmin.Show
End Sub
Private Sub mnuVer_Click()
frmMDI.Arrange vbTileVertical
End Sub
3设计客房信息窗体
客房信息窗体主
上一篇:
速途研究院:2014年Q2手机阅读App市场分析报告
下一篇:
问卷调查可以自动生成试卷等,并且只能一个用户登录