《软件工程课程设计 酒店管理系统》由会员分享，可在线阅读，更多相关《软件工程课程设计 酒店管理系统（32页珍藏版）》请在金锄头文库上搜索。
1、软件工程课程设计报告软件工程课程设计报告 班级：班级： 软件软件 09-10 姓名：姓名： 学号：学号： 指导教师：指导教师： 目目录录 1 1 设计内容设计内容.1 1.1 系统的主要功能.1 2 2 概要设计概要设计.1 2.1 数据库设计.1 2.1.1 数据分析 .1 2.1.2 酒店管理系统的 E-R 图 .2 2.2 功能需求与程序的关系.6 3 3 详细设计详细设计.7 3.1 用户登录验证设计说明.7 3.2 添加客户信息设计说明.8 3.2.1 功能 .8 3.2.2 流程逻辑 .8 3.3 显示设计说明.8 3.3.1 功能 .8 3.3.2 流程逻辑 .8 3.4 查询信
2、息设计说明.9 3.4.1 功能.9 3.4.2 流程逻辑 .9 3.5 结账功能设计说明.10 3.5.1 功能 .10 3.5.2 流程逻辑 .11 3.6 删除信息设计说明.11 3.6.1 功能 .11 3.6.2 流程逻辑 .12 4 4 程序源码程序源码.12 5 5 程序运行与调试程序运行与调试.17 5.1 登陆界面.17 5.2 成功登陆界面.18 5.3 添加新客人.18 5.4 订房操作.20 5.5 订餐操作.22 5.6 查询操作.23 5.7 结账操作.24 5.8 删除操作.25 5.9 显示操作.26 6 6 总结总结.27 7 7 参考文献参考文献.29 成绩
3、评定成绩评定.29 1 1 设计内容设计内容 酒店管理系统是酒店宾馆管理中必不可少的软件工具，随着现代化都市发 展，酒店的功能也随着逐步扩充，来方便、满足旅客们的需求，因此酒店管理 越来越需要电子计算机的帮助，通过管理系统它可以方便工作人员的操作，省 去了大量的人力开销。同时，计算机的管理也大大的提高了管理时的可靠性。 如今，随着我国经济的高速发展，现代化酒店如雨后春笋般涌出，所以，酒店 管理系统有着巨大的市场和发展空间。 1.11.1 系统的主要功能系统的主要功能 本酒店管理系统具有酒店的基本功能，是为酒店的服务人员开发的一款简 单的系统，其具体功能如下： 可对酒店的所有客人进行登记、录入、
4、查看、删除。 可查看酒店的所有服务项目和收费情况。 用户可查看账单和自己的消费情况。 可以通过本系统实现订餐、订票等服务，并自动记账。 可方便结账操作。 2 2 概要设计概要设计 2.12.1 数据库设计数据库设计 2.1.12.1.1 数据分析数据分析 根据系统需求，需要如下数据： 根据各属性性质的不同、联系实际，将相同性质的属性归为一类，现分类 如下： 1.客户信息：证件号，姓名，性别，电话。 2.酒店为客户提供的信息：手牌号，账单号。 3.酒店自己的信息：服务编号，服务项目，费用。 4.服务信息：客户的需求，总计费用，实交费用，找回数额。 2.1.22.1.2 酒店管理系统的酒店管理系统
5、的 E-RE-R 图图 本程序的数据库使用了七张表，其 ER 图如下： 客户表用于存放客户的个人信息，如图 1 所示 用于存放每一个客户的账单情况，如图 2-2 所示 客户 证件号姓名性别电话手牌号账单号 图 2-1 账单 找回费用总费用实交费用手牌号账单号 图 2-2 用于存放每位客户的服务项目，如图 2-3 所示 用于存放酒店餐饮项目，如图 2-4 所示 存储本酒店的客房信息，如图 2-5 所示 消费 账单号消费项目消费数量消费价格 图 2- 3 餐饮 编号菜名价格 图 2-4 客房 编号类型电话层数状况价格 图 2-5 存放本酒店的娱乐信息，如图 2-6 所示 根据以上对酒店管理系统数据
6、信息的分析，一个标准的酒店管理系统的 E- R 图，如图 2-8 所示 娱乐 编号项目价格 图 2-6 登录 账号密码 图 2- 7 客户信息 消费信息费用信息 记账消费 关系 1 1 1 N 1N 图 2- 8 系统模块设计 本酒店管理系统应该包括如图所示的几大功能。 查询账单：查询客户的付费情况 查询消费：查询客户目前的消费项目 显示酒店的一些情况，如图： 客户信息管理 图 2-9 客户信息功能模块 客 户 信 息 显 示 客 户 信 息 删 除 客 户 登 记 查询 查 询 账 单 查 询 消 费 图 2-10 查询模块 图 2-11 显示模块 显示信息 显 示 消 费 项 目 显 示
7、客 户 信 息 查 询 信 息 显 示 账 单 信 息 结账功能 图 2-12 结账模块 结账 2.22.2 功能需求与程序的关系功能需求与程序的关系 本条用一张如下的矩阵图说明各项功能需求的实现同各块程序的分配关系： 表 1 功能需求与程序分配关系表 添加信 息 删除信 息 查询信 息 更改信 息 列表显 示 客户信息管 理 查询 显示 结账 服务 3 3 详细设计详细设计 3.13.1 用户登录验证设计说明用户登录验证设计说明 开 始 显示登录界面 创建数据库连接 用户名和密码存在？ 读取数据库中用户 信息 输入用户名和密码 Y N 登陆成功 关闭数据库连接 结 束 图 3-1 用户登录验
8、证模块流程图 3.2 添加客户信息设计说明 3.2.13.2.1 功能功能 添加客户信息 3.2.23.2.2 流程逻辑流程逻辑 开 始 进入数据添加界面 提示成功 结 束 选择添加客户数据 图 3-2 添加客户信息模块流程图 3.33.3 显示设计说明显示设计说明 3.3.13.3.1 功能功能 显示酒店的情况 3.3.23.3.2 流程逻辑流程逻辑 开 始 选择显示菜单 进入显示界面 结 束 显示选定的菜单 图 3-3 显示模块流程图 3.43.4 查询信息设计说明查询信息设计说明 3.4.13.4.1 功能功能 用户对系统内的各项信息进行查询。 3.4.23.4.2 流程逻辑流程逻辑 开
9、 始 显示查询界面 创建数据库连接 读取数据库中用户 信息 输入查询关键字 列表显示信息 关闭数据库连接 结 束 选择要查询信息的 类别 图 3-4 查询信息模块流程图 3.5 结账功能设计说明 3 3.5.1.5.1 功能功能 结账 3.5.23.5.2 流程逻辑流程逻辑 图 3-5 结账模块流程图 开 始 创建数据库连接 向数据库中添加信 息 输入添加信息 选择结账功能 关闭数据库连接 结 束 Y 3.6 删除信息设计说明 3.6.13.6.1 功能功能 删除要删除的数据 3.6.23.6.2 流程逻辑流程逻辑 4 4 程序源码程序源码 Private Sub about_Click()
10、frmAbout.Show End Sub 图 18 删除信息模块流程图 开 始 创建数据库连接 删除数据库中相应 信息 列表显示删除结果 关闭数据库连接 结 束 Private Sub add_user_Click() frmadduser.Show End Sub Private Sub double_check_Click() frmfind_double.Show End Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataS
11、ource = Nothing rs_client.Close End Sub Option Explicit Dim rs_dclient As New ADODB.Recordset Private Sub Command1_Click() On Error GoTo adderror If Command1.Caption = 新增记录 Then 当此按钮的状态为为 “增加记录”时 Command1.Caption = 确定 按钮名称改为“确 定” Command2.Enabled = False 删除与修改按钮不可用 Command3.Enabled = False Command4.
12、Enabled = True 取消按钮可用 DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True 设定 datagrid 可以增加 记录 Else If Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns(团队名称).CellText(DataGrid1.Bookmark) = Then MsgBox 团队名称不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(负责
13、人姓名).CellText(DataGrid1.Bookmark) = Then MsgBox 负责人姓名不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(证件号码).CellText(DataGrid1.Bookmark) = Then MsgBox 证件号码不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(房间号码).CellText(DataGrid1.Bookmark) = Then Ms
14、gBox 房间号码！, vbOKOnly + vbExclamation, Exit Sub End If rs_dclient.Update MsgBox 添加信息成功！, vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Else MsgBox 没有添加信息！, vbOKOnly + vbExclamation, End If Command1.Caption = 新增记录 Command2.Enabled = True Command3.Enabled = True
15、Command4.Enabled = False End sql = select * from 团队资料 rs_dclient.CursorLocation = adUseClient rs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库 设定 datagrid 控件属性 DataGrid1.AllowAddNew = False 不可 增加 DataGrid1.AllowDelete = False 不可删 除 DataGrid1.AllowUpdate = False rs_add.MoveNext End If
16、 Wend If Trim(Text2.Text) = Then MsgBox 密码不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text2.Text = Text2.SetFocus Exit Sub End If If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub End If End Sub Public Sub setgrid() Dim i As Integer On Error GoTo seterror With MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = rs_data1.RecordCount + 1 .Cols = 7 .SelectionMode = flexSelectionByRow For i = 0 To .Rows
