软件工程课程设计酒店管理系统

1、软件工程课程设计报告班级： 软件09-10 姓名： 学号： 指导教师： 目录1设计内容11.1 系统的主要功能12概要设计12.1数据库设计12.1.1数据分析12.1.2酒店管理系统的E-R图22.2功能需求与程序的关系63详细设计73.1 用户登录验证设计说明73.2添加客户信息设计说明83.2.1 功能83.2.2流程逻辑83.3显示设计说明83.3.1 功能83.3.2流程逻辑83.4查询信息设计说明93.4.1 功能93.4.2流程逻辑93.5结账功能设计说明103.5.1 功能103.5.2流程逻辑113.6删除信息设计说明113.6.1 功能113.6.2流程逻辑124程序源码1

2、25程序运行与调试175.1登陆界面175.2成功登陆界面185.3添加新客人185.4订房操作205.5 订餐操作225.6查询操作235.7结账操作245.8删除操作255.9显示操作266总结277参考文献29成绩评定291设计内容酒店管理系统是酒店宾馆管理中必不可少的软件工具，随着现代化都市发展，酒店的功能也随着逐步扩充，来方便、满足旅客们的需求，因此酒店管理越来越需要电子计算机的帮助，通过管理系统它可以方便工作人员的操作，省去了大量的人力开销。同时，计算机的管理也大大的提高了管理时的可靠性。如今，随着我国经济的高速发展，现代化酒店如雨后春笋般涌出，所以，酒店管理系统有着巨大的市场和发

3、展空间。1.1 系统的主要功能 本酒店管理系统具有酒店的基本功能，是为酒店的服务人员开发的一款简单的系统，其具体功能如下： 可对酒店的所有客人进行登记、录入、查看、删除。 可查看酒店的所有服务项目和收费情况。 用户可查看账单和自己的消费情况。 可以通过本系统实现订餐、订票等服务，并自动记账。 可方便结账操作。2概要设计2.1数据库设计2.1.1数据分析根据系统需求，需要如下数据：根据各属性性质的不同、联系实际，将相同性质的属性归为一类，现分类如下：1. 客户信息：证件号，姓名，性别，电话。2. 酒店为客户提供的信息：手牌号，账单号。3. 酒店自己的信息：服务编号，服务项目，费用。4. 服务信息

4、：客户的需求，总计费用，实交费用，找回数额。2.1.2酒店管理系统的E-R图本程序的数据库使用了七张表，其ER图如下：客户表用于存放客户的个人信息，如图1所示客户证件号姓名性别电话手牌号账单号图 2-1 用于存放每一个客户的账单情况，如图2-2所示账单找回费用总费用实交费用手牌号账单号图 2-2用于存放每位客户的服务项目，如图2-3所示消费账单号消费项目消费数量消费价格图2- 3用于存放酒店餐饮项目，如图2-4所示餐饮编号菜名价格图 2-4存储本酒店的客房信息，如图2-5所示客房编号类型电话层数状况价格图 2-5 存放本酒店的娱乐信息，如图2-6所示娱乐编号项目价格图 2-6 登录账号密码图2

5、- 7根据以上对酒店管理系统数据信息的分析，一个标准的酒店管理系统的E-R图，如图2-8所示客户信息消费信息费用信息记账消费关系111N1N图2- 8系统模块设计本酒店管理系统应该包括如图所示的几大功能。客户信息管理图2-9客户信息功能模块客户信息显示客户信息删除客户登记查询查询账单查询消费图2-10 查询模块查询账单：查询客户的付费情况 查询消费：查询客户目前的消费项目 显示酒店的一些情况，如图：显示信息显示消费项目显示客户信息查询信息显示账单信息图2-11 显示模块结账功能图2-12 结账模块结账 2.2功能需求与程序的关系本条用一张如下的矩阵图说明各项功能需求的实现同各块程序的分配关系：

6、表1 功能需求与程序分配关系表添加信息删除信息查询信息更改信息列表显示客户信息管理查询显示结账服务3详细设计3.1 用户登录验证设计说明开 始显示登录界面创建数据库连接用户名和密码存在？读取数据库中用户信息 输入用户名和密码YN登陆成功关闭数据库连接结 束图3-1 用户登录验证模块流程图3.2添加客户信息设计说明3.2.1 功能添加客户信息开 始进入数据添加界面提示成功结 束选择添加客户数据图3-2 添加客户信息模块流程图3.2.2流程逻辑3.3显示设计说明 功能显示酒店的情况3.3.2流程逻辑开 始选择显示菜单显示选定的菜单进入显示界面结 束图3-3 显示模块流程图3.4查询信息设计说明3.

7、4.1 功能用户对系统内的各项信息进行查询。3.4.2流程逻辑开 始显示查询界面创建数据库连接读取数据库中用户信息 输入查询关键字列表显示信息关闭数据库连接结 束选择要查询信息的类别图3-4 查询信息模块流程图3.5结账功能设计说明3.5.1 功能结账图3-5 结账模块流程图开 始创建数据库连接向数据库中添加信息 输入添加信息选择结账功能关闭数据库连接结 束Y3.5.2流程逻辑 3.6删除信息设计说明3.6.1 功能删除要删除的数据图18 删除信息模块流程图开 始创建数据库连接删除数据库中相应信息列表显示删除结果关闭数据库连接结 束3.6.2流程逻辑4程序源码Private Sub about

8、_Click()frmAbout.ShowEnd SubPrivate Sub add_user_Click()frmadduser.ShowEnd SubPrivate Sub double_check_Click()frmfind_double.ShowEnd Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_client.CloseEnd SubOption ExplicitDim rs_dcli

9、ent As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderrorIf Command1.Caption = "新增记录" Then '当此按钮的状态为为“增加记录”时 Command1.Caption = "确定" '按钮名称改为“确定” Command2.Enabled = False '删除与修改按钮不可用 Command3.Enabled = False Command4.Enabled = True '取消按钮可用 DataGr

10、id1.AllowAddNew = True DataGrid1.AllowUpdate = True '设定datagrid可以增加记录ElseIf Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns("团队名称").CellText(DataGrid1.Bookmark) = "" Then MsgBox "团队名称不能为空！", vbOKOnly + vbExclamation, "" Exit Sub End If If Tri

11、m(DataGrid1.Columns("负责人姓名").CellText(DataGrid1.Bookmark) = "" Then MsgBox "负责人姓名不能为空！", vbOKOnly + vbExclamation, "" Exit Sub End If If Trim(DataGrid1.Columns("证件号码").CellText(DataGrid1.Bookmark) = "" Then MsgBox "证件号码不能为空！", vbO

12、KOnly + vbExclamation, "" Exit Sub End If If Trim(DataGrid1.Columns("房间号码").CellText(DataGrid1.Bookmark) = "" Then MsgBox "房间号码！", vbOKOnly + vbExclamation, "" Exit Sub End If rs_dclient.Update MsgBox "添加信息成功！", vbOKOnly + vbExclamation, &q

13、uot;" DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseElse MsgBox "没有添加信息！", vbOKOnly + vbExclamation, ""End If Command1.Caption = "新增记录" Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseEnd sql = "select * from 团队资料"rs_d

14、client.CursorLocation = adUseClientrs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic '打开数据库'设定datagrid控件属性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可删除DataGrid1.AllowUpdate = False rs_add.MoveNext End If Wend If Trim(Text2.Text) = "" Then M

15、sgBox "密码不能为空，请重新输入！", 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

16、 = "" Exit SubEnd IfEnd SubPublic Sub setgrid()Dim i As IntegerOn Error GoTo seterrorWith MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = rs_data1.RecordCount + 1 .Cols = 7 .SelectionMode = flexSelectionByRowFor i = 0 To .Rows - 1 .RowHeight(i) = 315NextFor i = 0 To .Col

17、s - 1 .ColWidth(i) = 1300Next iEnd WithExit Subseterror: MsgBox Err.DescriptionEnd SubPublic Sub setgridhead()On Error GoTo setheaderrorMSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = "房号"MSFlexGrid1.Col = 1MSFlexGrid1.Text = "房价"MSFlexGrid1.Col = 2MSFlexGrid1.Text = &qu

18、ot;姓名"MSFlexGrid1.Col = 3MSFlexGrid1.Text = "性别"MSFlexGrid1.Col = 4MSFlexGrid1.Text = " 证件号码"MSFlexGrid1.Col = 5MSFlexGrid1.Text = "抵达日"MSFlexGrid1.Col = 6MSFlexGrid1.Text = "离店日"Exit Subsetheaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Command1_Clic

19、k()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密码不一致！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = ""Else sql = "select * from 系统管理 where 用户名='" &

20、; userID & "'" rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close MsgBox "密码修改成功", vbOKOnly + vbExclamation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub5程序运行与调试5.1登陆界面图1 登陆界面5.2成功登陆界面图2 成功登陆界面5.3添加新客人图3 添加新客人界面图4 添加成功 下图是刚刚添加的客户信息图5 查询结果5.4订房操作图6 订房界面（2）将费用添加到帐单中图7 帐单界面5.5 订餐操作图8 订餐界面（1）订餐成功后将费