软件编程毕业论文.doc

计算机应用软件编程毕业论文题 目 宾馆管理系统 专 业 计算机应用（软件） 年 级 2010级 学生姓名 王依明 指导教师 年 月 日1包头轻工职业技术学院毕业论文摘 要 信息管理系统也就是我们常说的MIS（Management Information System）,在强调信息管理的现代社会中它变得越来越普及了。宾馆管理系统是一个典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面,利用计算机软硬件资源以及数据库的人-机系统，提供信息支持企业或组织的运行、管理和决策功能。对于数据库，要求建立起数据的一致性、完整性、安全性；而对于前端应用程序则要求应用程序功能完备、界面友好和容易掌握使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据库这一方面,利用其ADO控件能方便而简洁操纵数据库的智能化对象,在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直至得到满意的系统。关 键 字: 窗体； 域 ； 宾馆管理系统I目 录引 言1第一章 开发宾馆信息管理系统的意义11.1 系统目标设计11.2 设计思想11.3 在中小企业（酒店宾馆）中用计算机管理的意义11.4 宾馆管理系统的设计分析11.5 编程环境的选择1第二章 系统规划及数据库的实现22.1 系统总体规划图22.2 数据库需求分析22.3 数据库设计22.4 数据库概念结构设计22.5 使用ACCESS实现关系型数据库3第三章 系统具体实现43.1 登陆系统模块的创建43.2 系统管理模块的创建53.3 用户管理模块的创建73.4 客房管理模块的创建93.5 价格管理模块的创建113.6 开房结账管理模块的创建123.7 查询信息管理模块创建143.8 关于模块的创建16结 论18致 谢19参考文献2020引 言现代化的宾馆是集客房、餐饮、通讯、娱乐，商务文化及其他各种服务与设施为一体化的消费场所，酒店宾馆组织庞大，服务项目多，信息量大，要想提高劳动生产，降低成本，提高服务质量和管理水平，进而促进经济效益，必须借助计算机来进行现代化的信息管理。酒店宾馆行业随着社会的不断发展和进步，迎来了越来越多的商机的同时，也面临着日趋激烈的竞争。随着酒店业竞争的加剧，酒店利用传统的竞争手段所创造的利润空间越来越小，酒店需要使用更有效的竞争手段,拓展更广阔的经营空间，提供更细致、全面、个性化的服务，大幅度降低运营成本，面对瞬息万变的市场竞争提高管理和决策的效率。如何使自己的酒店宾馆在本行业中脱颖而出，独领风骚，原始的手工操作方式和传统的管理方法显得越来越不能满足当前宾馆行业的发展。酒店业为适应信息化时代对现代酒店的新要求，向客人提供更加方便、快捷、高效的服务，满足各类不同客人的个性化服务要求，因此，建立一套先进的、科学的、严谨的、适合自身特点的饭店管理机制，是使自己更具竞争力的必要手段。那么如何设计一个操作简单，灵活性好、系统安全性高，运行稳定的酒店管理系统呢? 下面是我们利用VB所学设计的一个简单的酒店管理系统,下面是开发过程与原理。第一章 开发宾馆信息管理系统的意义1.1 系统目标设计系统目标设计 宾馆管理系统的主要目标是实现对宾馆内部各种信息管理的电子化,提高各个部门及部门间的办公效率，为高质量高效率的宾馆服务做准备，以适应现代化的酒店宾馆的需要。1.2 设计思想系统着眼于宾馆的当前信息管理和未来的发展，是通过对宾馆相关管理人员的咨询和对他们需求报告中所列项目本着软件工程的思想所编写的。我们所设计的系统将更加贴近于现代酒店的管理模式和管理风格。1.3 在中小企业（酒店宾馆）中用计算机管理的意义在中小企业（酒店宾馆）中用计算机管理的意义 现在我国的中小企业（酒店宾馆）管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。改革开放的总设计师邓小平同志曾说过:“科学技术是第一生产力”。我希望能用我所学的知识编写一个应用的程序帮助宾馆管理人员进行更有效的管理。1.4 宾馆管理系统的设计分析宾馆管理系统的设计分析 根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。1.5 编程环境的选择编程环境的选择 微软公司的Visual Basic是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的组件，这些组件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。而且，Visual Basic强大的调试功能也为大型复杂软件的开发提供了有效的排错手段。第二章 系统规划及数据库的实现2.1系统总体规划图宾馆管理系统系统查询信息关于开房结账价格管理客房管理用户管理密码修改退出顾客信息查询账目查询图2-1 系统总体规划图2.2 数据库需求分析数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一分详尽的数据字典，为数据库的具体设计打下基础。针对一般宾馆管理信息系统的需求，通过对宾馆管理工作过程的内容和数据流程分析，设计如下数据项和数据结构： 客房标准信息，包括的数据项有：客房编号、客房级别、客房类型、客房单价。入住信息，包括的数据项有：登记编号、顾客姓名、身份证号、房间号、入住日期。退房信息，包括的数据项有：登记编号、退房时间、应付金额等。通过我上面对数据库的规划和对所需数据设置，在我所编辑的系统里我们给用户所实现的数据库就能简单的实现如下所列的操作。可以进行文本操作；添加一个数据库项目；删除一个数据库项目；修改一个数据库项目；对数据信息的查询。2.3 数据库设计设计数据库系统时首先应该充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：数据库需求分析,数据库概念结构设计,数据库逻辑结构设计。2.4 数据库概念结构设计根据上面我所设计的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及他们的关系。根据上面所设计规划出的实体有：客房标准信息实体、客房信息实体、入住信息实体、退房信息实体。2.5 使用ACCESS实现关系型数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。在我所设计的这个系统中，我使用的是MICROSOFT ACCESS作为我的数据库系统。ACCESS 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。ACCESS的优点在于它能使用数据表示图或自定义窗体收集信息。可以使数据库一目了然。ACCESS也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。ACCESS 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，ACCESS 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。在我的整个系统的实现上通过VB的代码与ACCESS结合，创建出我们所需要的数据库。在实现系统与数据库结合的过程 第三章 系统具体实现3.1 登陆系统模块的创建 登录界面图3-1 登陆界面 这一部分主要是通过对数据库宾馆管理系统中USER的查询 因此而登陆到系统软件当中设计界面 如图3-1登陆模块主要功能有：用户登录下面是实现这些功能的代码，写在“登录”按钮的单击事件函数中：按钮一的单击事件Private Sub Command1_Click() 登录窗口的实现 Dim rs As ADODB.RecordsetIf Text2.Text = Then MsgBox 请输入帐号 Text2.SetFocusElseIf Text3.Text = Then MsgBox 请输入密码 Text3.SetFocusElse Set rs = Executesql(select * from user_info where user_id= & Text2.Text & and user_pwd= & Text3.Text & ) 连接数据库，从数据库中调取用户信息 If rs.EOF = True Then MsgBox 账户或密码错误 提示密码错误，重新输入密码 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Else MsgBox 登录成功 username = Text2.Text 登录成功后，文本恢复空 Text2.Text = Text3.Text = Unload Me frmmain.Show End IfEnd IfEnd Sub3.2 系统管理模块的创建系统管理模块图3-2 系统管理界面图3-3 修改密码界面如图3-2所示 通过主界面进入系统管理模块，系统管理模块总共分为两个部分：密码修改和退出。密码修改，是通过软件的代码通过访问宾馆管理系统数据库 从而实现对系统用户登陆的密码修改 退出，通过代码退出整个程序系统模块的主要功能：更改用户密码 和退出整个程序设计页面如图3-3所示密码修改下面是实现这些功能的主要代码，写在“确认”按钮的单击事件函数中：按钮一的单击事件Private Sub Command1_Click() 实现修改密码If Text2.Text = Then MsgBox 请输入原密码 Text2.SetFocusElseIf Text3.Text = Then MsgBox 请输入新密码 Text3.SetFocusElseIf Text4.Text = Then MsgBox 请确认新密码 Text4.SetFocusElseIf Val(Text3.Text) Val(Text4.Text) Then MsgBox 重新输入确认密码 Text4.SetFocus Text4.SelStart = 0 Text4.SelLength = Len(Text4.Text)Else Set rs = Executesql(select * from user_info where user_id= & username & )从数据库中调取用户名 If Text2 rs.Fields(1) Then 修改密码 MsgBox 原密码不正确 Else rs.Fields(1) = Text3 rs.Update MsgBox 修改成功 Text2 = Text3 = Text4 = End IfEnd IfEnd Sub3.3 用户管理模块的创建 图3-4 用户管理模块如图3-4所示 该模块为用户管理模块，用于对系统用户 添加修改 和删除的一些应用主要代码如下：添加用户按钮一的单击事件If Command1.Caption = 添加 Then Combo1.Enabled = True Text1.Enabled = True Text2.Enabled = True Command1.Caption = 保存 Command2.Enabled = False Command4.Enabled = FalseelseSet rs = Executesql(select * from user_info where user_id= & Text1.Text & ) If Not rs.EOF Then MsgBox 添加成功 Else rs.AddNew rs.Fields(0) = Text1 rs.Fields(1) = 000000 rs.Fields(2) = Combo1 rs.Fields(3) = Text2 rs.Update Text1.Enabled = False Text2.Enabled = False Combo1.Enabled = False Command2.Enabled = True Command4.Enabled = True Command1.Caption = 添加 Text1 = Text2 = Combo1.ListIndex = -1 Call fz Command2.Enabled = True Command4.Enabled = TrueEnd if按钮二的单击事件删除用户Set rs = Executesql(select * from user_info where user_id= & Text1 & ) If MsgBox(是否真正删除, 4) = 6 Then rs.Delete rs.Update MsgBox 删除成功 Text1.Text = Combo1.ListIndex = -1 Text2.Text = Call fz按钮三的单击事件返回窗体Unload Me按钮四的单击事件修改权限Set rs = Executesql(select *from user_info where user_id= & Text1.Text & ) rs.Fields(2) = Combo1 rs.Update MsgBox 修改成功 Command4.Caption = 修改 Call fz Text1.Text = Combo1.ListIndex = -1 Text2.Text = 3.4 客房管理模块的创建图3-5 客房管理模块如图3-5所示 该模块为客房管理模块，主要功能为客房一些信息的添加修改、删除、取消的功能实现其功能具体代码如下：写在按钮一的单击事件里添加信息按钮和文本的代码与上面添加代码一样Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If rs.EOF = False Then MsgBox 该房间信息已存在 Else rs.AddNew 更新数据库代码rs.UpdateMsgBox 添加成功Call wgfzCall hy写在按钮二的单击事件里修改信息Set rs = Executesql(select * from room_info where room_no= & Text1 & )rs.Fields(1) = Combo1rs.Fields(2) = Val(Combo2)rs.Fields(3) = Combo3rs.Fields(4) = Combo4rs.Fields(5) = Combo5rs.Fields(6) = Combo6rs.Fields(7) = Combo7rs.UpdateMsgBox 修改成功Call hy写在按钮三的单击事件里删除信息Set rs = Executesql(select * from room_info where room_no= & Text1 & ) If MsgBox(是否, 4) = 6 Then rs.Delete rs.Update MsgBox 删除成功 Call wgfz Call hy End If写在按钮四的单击事件里取消Unload Me3.5 价格管理模块的创建图3-6 价格管理模块图3-6 为价格管理模块 实现其功能 管理房间的价格，添加、修改、删除。实现其代码如下：写在按钮一的单击事件添加信息与上面模块添加代码相同Set rs = Executesql(select * from price_info where room_type= & Combo1 & )If rs.EOF = False ThenMsgBox 该房间信息已存在 Else rs.AddNew rs.Fields(0) = Combo1 rs.Fields(1) = Val(Text1) rs.Fields(2) = Val(Text2) rs.Update MsgBox 添加成功 Call wgfz Call hy写在按钮二的单击事件里修改信息Set rs = Executesql(select * from price_info where room_type= & Combo1 & ) rs.Fields(1) = Val(Text1) rs.Fields(2) = Val(Text2) rs.Update MsgBox 修改成功 Call wgfz Call hy写在按钮三的单击事件里删除信息Set rs = Executesql(select * from price_info where room_type= & Combo1 & ) If MsgBox(是否, 4) = 6 Then rs.Delete rs.Update MsgBox 删除成功 Call wgfz Call hy写在按钮四的单击事件里返回Unload Me3.6 开房结账管理模块的创建图3-7 开房结账模块图3-7 为开放结账管理模块 实现其功能 开房、结账实现其代码如下：鼠标拖动事件Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)Command1(Index).Drag 1If Right(Command1(Index).Caption, 1) = 空 Then Command1(Index).DragIcon = LoadPicture(App.Path & xw2.ico)Else Command1(Index).DragIcon = LoadPicture(App.Path & xw1.ico)End IfEnd SubPrivate Sub Command1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)Command1(Index).Drag 2End Sub写在按钮二的单击事件里开房If Right(Source.Caption, 1) = 空 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmsetdown.Show 1End If写在按钮三的单击事件里结账If Right(Source.Caption, 1) = 满 Then roomno = Trim(Left(Source.Caption, Len(Source.Caption) - 1) frmbalance.Show 1End If3.7 查询信息管理模块创建图3-8 顾客信息查询模块 图3-9 账目查询模块查询模块分为两个部分（图3-8和图3-9），一是顾客信息查询、二是账目查询，顾客信息起主要功能是查询顾客的一些信息，可以按照姓名、身份证号、入住日期进行查询，而账目查询主要是管理者对账目的查询，可以通过日期进行查询实现其功能的主要代码如下：写在按钮一的单击事件里顾客信息查询If Option1.Value = True Then If Text1 = Then MsgBox 填写查找顾客的姓名 Else Set rs = Executesql(select * from guest_info where guest_name= & Text1 & ) Call wgfz End If Set rs = Executesql(select * from guest_info where guest_num= & Text2 & ) Call wgfz End IfElseIf Option3.Value = True Then Text1 = Text2 = If Combo1 = Or Combo2 = Or Combo3 = Or Combo4 = Or Combo5 = Or Combo6 = Then MsgBox 请选择要查找顾客的日期范围 Else Dim d1 As Date Dim d2 As Date d1 = CDate(Combo1 & - & Combo2 & - & Combo3) d2 = CDate(Combo4 & - & Combo5 & - & Combo6) Set rs = Executesql(select * from guest_info where out_date =# & d1 & # and out_date =# & d2 & #) Call wgfz写在按钮二的单击事件里账目查询Set rs = Executesql(select money from guest_info where room_type=单人间 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text1 = Val(Text1) + rs.Fields(0) rs.MoveNext Loop Set rs = Executesql(select money from guest_info where room_type=双人间 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text2 = Val(Text2) + rs.Fields(0) rs.MoveNext Loop Set rs = Executesql(select money from guest_info where room_type=三人间 and out_date = # & MonthView1.Value & #) Do While Not rs.EOF Text3 = Val(Text3) + rs.Fields(0) rs.MoveNext Loop Text4 = Val(Text1) + Val(Text2) + Val(Text3) Frame1.Visible = True MonthView1.Visible = False3.8 关于模块的创建图3-10 关于模块关于模块（图3-10）的创建其主要