2022年VB酒店管理系 .pdf

课程设计说明书NO.1 设计题目：酒店客房管理系统1 课程设计的目的本系统是模拟酒店客房管理系统。主要用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没有旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能.无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义.本系统是采用 Visu al Basic6.0高级语言进行程序编制，以Access数据库为程序数据库。2 系统总体设计系统开发的总体任务是实现酒店的管理，主要完成的功能有：(1)入住信息管理：即管理和维护住户的各项数据信息，包括入住者登记号、姓名、身份证号、房间号、登记日期、性别、籍贯。当住户离开酒店时，允许高级管理员和系统管理员添加住户信息、删除住户信息和维护住户信息。(2)酒店客房信息管理：即管理和维护酒店的各项数据信息，包括房间号、客房等级、客房价格、客房类型、客房状态、客房备注信息。其中房间号必须是酒店客房数据表中的一种。允许高级管理员和系统管理员添加客房信息、删除客房信息和维护客房信息。(3)酒店客房类别管理：即管理和维护酒店客房类别的各项数据信息，包括有普通客房和贵宾客房两项。允许高级管理员和系统管理员添加客房类别信息、删除客房类别信息和维护客房类别信息。(4)入住和退房管理：即管理和维护客房的入住、退房及客户的缴纳房款等信息。包括住户的登记号、姓名、身份证号、房间号、登记日期、籍贯等数据。主要功能有客房入住、客房退还和缴纳罚款3 项功能。沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 23 页 -课程设计说明书NO.2(5)管理员权限管理：按照数据表里的记录来确定管理员权限，并允许其执行相应的功能。这里我们定义了管理员的作用：1、可以添加管理员2、可以添加职员信息。3、可以授权用户。管理员可以进行所有权限。图 2 1 系统功能模块图沈阳大学酒店管理系统酒店入住管理酒店客户管理酒店管理员管块数据统计模块酒店退房管理客户房号客户姓名客户性别客户房费酒店管理模块查询客户信息添加客户信息删除客户信息维护客户信息客房信息管理客房类别管理添加客房信息查询客房信息删除客房信息维护客房信息添加类别信息查询类别信息删除类别信息维护类别信息添加管理员信息删除管理员信息管理整个酒店信息管理管理员管理权限管理名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 23 页 -课程设计说明书NO.3 3 数据库设计3.1 建立 Access 数据库及表在一个酒店管理系统中，数据库的地位是非常重要的，是一个系统正常运行的基础。本系统的数据库是采用Microsoft 公司的 Access 2003 设计的。在数据库的设计过程中，首先是收集、分析需求；再从需求抽象出一般的实体、关系和他们的属性；再将这些实体、关系和属性按照一定的规则转化为二元表结构。本系统中共有 4 数据表表 3-1 为 Usersinfo管理员资料数据表。管理员资料数据表记录了所有管理的基本资料，管理员可添加、删除和查询该表。该表包括管理员ID、姓名、密码和权限等资料。表 3-1 为 UsersInfo 管理员资料数据表字段名类型大小说明姓名Text 20 管理人员帐号密码Text 20 管理人员密码权限Text 1 管理人员权限表 3-2 旅客信息表为旅客的个人信息加入住客房信息数据结构表字段名类型大小说明登记号Text 8 旅客入住号姓名Text 8 旅客姓名身份证号码Text 18 旅客身份证号房间号Text 3 入住房间号登记日期Text 日期/时间旅客入住时间性别Text 3 旅客性别籍贯Text 8 旅客籍贯表 3-3 为 room 资料数据表。room 料数据表记录了 room 基本资料，可供查询。该表主要包括了房间号、客房等级、客房类型、客房价格、客房状态、客房备注信息等基本资料。沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 23 页 -课程设计说明书NO.4 表 3-2room 资料数据表字段名类型大小说明房间号Text 3 房间号客房等级Text 8 客房等级客房类型Text 8 客房类型客房价格Text 单精度型客房价格客房状态Text 3 客房状态客房备注信息备注8 客房备注信息表 3-4 为 quit 资料数据表。quit 资料数据表记录了所有退房的基本资料，管理员可添加、删除和查询该表。类型的基本资料,包括登记号、登记日期、退房日期、付款金额、退房备注信息。表 3-4 为 quit 资料数据表3.2 连接数据库由于本系统是采用ADO 对象访问数据库的技术，所以在VB 中需要添加 ADO 库。添加的方法是在 VB 中选择“工程”“引用”命令，在对话框中选择 Microdoft ActiveX Data Objects 2.0 Library，单击“确定”按钮。在程序设计的公共模块中，先定义ADO 连接对象。语句如下：Public conn As New ADODB.connection,标记连接对象?Dim connection As String ConnectionString=provider=microsoft.jet.oledb.4.0;&data source=carshale.mdb conn.Open ConnectionString 字段名类型大小说明登记号Text 8 旅客入住号登记日期日期/时间旅客登记时间退房时间日期/时间旅客退房时间付款金额Text 单精度型付费金额退房备注信息Text 8 退房备注信息沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 23 页 -课程设计说明书NO.5 4 详细设计过程4.1 创建主窗体建立主窗体：单击”工程”-”添加 MDI 窗体”菜单,在弹出的对话框中单击”打开”按钮则为当前项目添加了一个MDI 窗体。设置好 MDI 窗体属性后,设置此项目的属性。单击”工程”-”工程 1 属性”菜单,进入项目属性设置窗体。在此项目属性窗体中通用选项卡的启动对象中选择 MDIfrmMain 项,将这一多文档窗体作为程序的启动窗体。图 41 菜单结构4.2 主要窗体的实现(1)登录模块的设计：此模块的功能是检查管理员是否有进入系统的权限。用到的主要控件为二个 text、两个 label 和两个 Button 按钮。窗体界面如图4-2 所示。图 4-2 登录窗体的界面沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 23 页 -课程设计说明书NO.6 在此模块中管理员可以选择相应的管理员帐号进行登录，减去了忘记帐号或帐号名输入不方便的烦恼。(2)主页面模块的设计：此模块是系统服务器端的主要控制界面，通过菜单的选择，可以控制系统的所有功能,窗体界面如图 4-3,4-4 所示。主界面的设计步骤：1)设计主界面控件布局：在主界面的布局中使用了工具栏（ToolBar）、时钟控件（timer）和图象列表（ImageList）等非 Vb 标准控件。2）工具栏的设置：给工具栏添加按钮3）添加菜单：菜单的使用是为了更好的给用户提供功能指引。图 4-3 图象列表图 4-3 工具栏列表沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 23 页 -课程设计说明书NO.7 系统通过Timer 控件在状态栏中显示系统的当前时间，Timer 控件的时间间隔是1000，也就是 1 秒钟，这样状态栏中的时间每秒钟都会变化，达到显示系统时钟的目的，具体实现代码为：Private Sub Timer1_Timer()StatusBar1.Panels(2).Text=Date&Time End Sub（4）创建系统主界面当系统运行时，首先进入登录界面，当输入帐号，密码合法时，则启动系统主界面。图 4-4 系统主窗体的界面5)用户进入客房需要必要的登记来完成如图：沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 23 页 -课程设计说明书NO.8 图 4-5 用户登记界面图 4-6 已经登记的用户（6）退房信息：当旅客离开宾馆时，需要为其办理退房手续，在这过程中需要在旅客退房信息表中添加记录信息，以及修改客房信息表，改变客房状态。旅客退房信息窗体，工作界面设计情况如图：沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 23 页 -课程设计说明书NO.9 图 4-7 退房登记表（7）查询住户信息：此界面用于查询房间状态如是否有所需的类型或是否为空房或满房，可以全部浏览，也可以按照查询条件来查找，如图：图 4-8 客房状态界面沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 23 页 -课程设计说明书NO.10(8)查询客房：客查询窗体主要功能是实现客房信息查询显示，查询方式可以是按旅客姓名，登记号也可以按房间号查询。工作界面如图：图 4-9 查询住户登记表(8)客房情况打印表:图 4-10 客房情况打印表沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 23 页 -课程设计说明书NO.11 5 效果及存在的问题在完成了程序各个功能模块的创建之后，就可以运行整个系统了。运行程序，进入系统。（1）登录系统由用户登录、修改密码、退出系统等组成。图 5-1 管理员进入（2）进入主页面，登录主页面后，可进入主页面运行系统。图 5-2 主页面沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 23 页 -课程设计说明书NO.12 6 设计体会课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，遇到了各种各样的问题，在设计的过程中也发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。通过这次课程设计，我的专业能力和综合素质都得到了提升，同时也让我对今后的学习、工作充满了激情和期待。7 附录一、酒店管理信息系统程序代码:Private Sub CmdOK_Click()Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18)As String j=Len(txtUserName.Text)s1=txtUserName.Text Dim c As Integer c=1 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 23 页 -课程设计说明书NO.13 For i=1 To j a(i)=Mid(s1,i,1)逐一判断字符的合格化If a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=,Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub End If 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 23 页 -课程设计说明书NO.14 c=c+1 txtUserName.SetFocus Next i Dim strusername As String Dim strpassword As String Static intlogintimes As Integer If Trim(txtUserName.Text)=Then MsgBox 用户名不能为空！,vbOKOnly+vbCritical,错误 Exit Sub End If opentable adousers,usersinfo adousers.Refresh adousers.Recordset.Find 姓名=&txtUserName.Text&,adSearchForward,1 If Not adousers.Recordset.EOF Then strusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密码Else strusername=strpassword=End If If strusername=txtUserName.Text And strpassword=txtPassword.Text Then adousers.Recordset.Close Unload Me frmmdi.Show Else MsgBox 用户名或密码不对！,vbOKOnly+vbInformation,提示 intlogintimes=intlogintimes+1 If intlogintimes=3 Then adousers.Recordset.Close 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 23 页 -课程设计说明书NO.15 End End If txtPassword.SetFocus SendKeys HOME+END End If End Sub Private Sub cmdcancel_click()Unload Me End Sub Option Explicit Private Sub Command1_Click()With frmmdi.adoroom.Recordset If Not txtroomno.Locked Then If Trim(txtroomno.Text)=Then MsgBox 房间号不能为空！,vbOKOnly+vbInformation,提示 txtroomno.SetFocus Exit Sub End If End If!房间号=Trim(txtroomno.Text)!客房等级=Trim(txtroomgrade.Text)!客房类型=Trim(txtroomtype.Text)!客房价格=Trim(txtroomprice.Text)!客房状态=Trim(txtroomstatus.Text)!客房备注信息=txtroominfo.Text Update Unload Me End With沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 23 页 -课程设计说明书NO.16 End Sub Private Sub Command2_Click()Unload Me End Sub 退房登记实现代码：Private Sub CmdOK_Click()With frmmdi.adoquit.Recordset If Not txtbookno.Locked Then If Trim(txtbookno.Text)=Then MsgBox 登记号不能为空!,vbOKOnly+vbInformation,提示 txtbookno.SetFocus Exit Sub End If frmmdi.adoguest.Recordset.Find 登记号=&Trim(txtbookno.Text)&,adSearchForward,1 If frmmdi.adoguest.Recordset.EOF Then MsgBox 非法登记号!,vbOKOnly+vbInformation,提示 txtbookno.SetFocus SendKeys HOME+END txtpaymoney.Text=Exit Sub End If frmmdi.adoquit.Recordset.Find 登记号=&Trim(txtbookno.Text)&,adSearchForward,1 If Not frmmdi.adoquit.Recordset.EOF Then 有就提示,然后退出MsgBox 已经有相同登记号!,vbOKOnly+vbInformation,提示 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 23 页 -课程设计说明书NO.17 txtbookno.SetFocus SendKeys HOME+END txtpaymoney.Text=Exit Sub End If.AddNew!登记号=Trim(txtbookno.Text)End If!付款金额=Val(Trim(txtpaymoney.Text)!登记日期=Trim(txtbookdate.Text)!退房时间=dtpquitdate.Text Update If Trim(txtinfo.Text)=Then MsgBox 备注不能为空!,vbOKOnly+vbInformation,提示 txtinfo.SetFocus End If!退房备注信息=txtinfo.Text Update Unload Me frmmdi.adoroom.Recordset!客房状态=空 With frmmdi.adoguest.Recordset Delete End With End With End Sub 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 23 页 -课程设计说明书NO.18 Private Sub Command1_Click()If optroom Then opentable frmmdi.Adoroom1,select*from room where(room.房间号)like&Trim(txtvalue.Text)&%&)ElseIf optgrade Then opentable frmmdi.Adoroom1,select*from room where(room.客房等级)like&Trim(txtvalue.Text)&%&)ElseIf opttype Then opentable frmmdi.Adoroom1,select*from room where(room.客房类型)like&Trim(txtvalue.Text)&%&)End If dtgroomqueryinforefresh End Sub Private Sub CmdOK_Click()Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18)As String j=Len(txtUserName.Text)s1=txtUserName.Text Dim c As Integer c=1 For i=1 To j a(i)=Mid(s1,i,1)If a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 23 页 -课程设计说明书NO.19 ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=,Then MsgBox Error,vbOKOnly,Error Exit Sub ElseIf a(i)=Then MsgBox Error,vbOKOnly,Error Exit Sub End If c=c+1 txtUserName.SetFocus Next i Dim strusername As String 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 23 页 -课程设计说明书NO.20 Dim strpassword As String Static intlogintimes As Integer If Trim(txtUserName.Text)=Then MsgBox 用户名不能为空！,vbOKOnly+vbCritical,错误 Exit Sub End If opentable adousers,usersinfo adousers.Refresh adousers.Recordset.Find 姓名=&txtUserName.Text&,adSearchForward,1 If Not adousers.Recordset.EOF Then strusername=adousers.Recordset!姓名strpassword=adousers.Recordset!密码Else strusername=strpassword=End If If strusername=txtUserName.Text And strpassword=txtPassword.Text Then adousers.Recordset.Close Unload Me frmmdi.Show Else MsgBox 用户名或密码不对！,vbOKOnly+vbInformation,提示 intlogintimes=intlogintimes+1 If intlogintimes=3 Then adousers.Recordset.Close End 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 23 页 -课程设计说明书NO.21 End If txtPassword.SetFocus SendKeys HOME+END End If End Sub Private Sub cmdcancel_click()Unload Me End Sub 二、主控制窗体代码：Option Explicit Private Sub MDIForm_Load()App.Title=宾馆客房管理系统 opentable adoroom,room opentable Adoroom1,room opentable adoguest,guest opentable Adoguest1,guest opentable adoquit,quit StatusBar1.Panels(1).Text=欢迎登陆宾馆管理系统 StatusBar1.Panels(2).Text=Date&Time End Sub Private Sub mnuCascade_Click()frmmdi.Arrange vbCascade End Sub Private Sub mnudenglu_Click()frmLogin.Show End Sub Private Sub mnuExit_Click()沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 23 页 -课程设计说明书NO.22 Unload Me End Sub Private Sub mnuGuest_Click()frmGuestInfo.Show End Sub Private Sub mnuHor_Click()frmmdi.Arrange vbTileHorizontal End Sub Private Sub mnuin_Click()frmusers.Show End Sub Private Sub mnuqueryguest_Click()frmqueryinfo.Show End Sub Private Sub mnuqueryroom_Click()frmqueryroom.Show End Sub Private Sub mnuQuit_Click()frmquitinfo.Show Private Sub mnuver_Click()frmmdi.Arrange vbTileVertical End Sub Private Sub Timer1_Timer()StatusBar1.Panels(2).Text=Date&Time End Sub Private Sub toolbar1_buttonclick(ByVal button As MSComctlLib.button)Select Case button.Index 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 23 页 -课程设计说明书NO.23 参考文献1 刘天惠.Visual Basic程序设计教程 M.清华大学出版社,2006.2:165-224 2 刘新民,蔡琼,白康生编著.Visual Basic 6.0 程序设计 M.北京:清华大学出版社，2004.3:20-25 3 周升，李静编著.Visual Basic 6.0 程序设计艺术 M.南京:南京大学出版社，2008.4:65-90 4 李微，周见明，张冲编著.Visual Basic 6.0 数据库应用与开发.M.上海:上海交大出版社，2006.2:123-160 5 瞿影，魏知名，李密编著.Visual Basic 6.0 应用开发 100 例.M.天津:天津大学出版社，2008.1:35-60 6 蒋伏加,Visual Basic 程序设计教程 M.北京：北京邮电大学出版社，2004 7 曾强聪,Visual Basic6.0程序设计教程 M.北京：中国水利水电出版社,2003 沈阳大学名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 23 页 -