基于VB的宾馆信息管理系统

PAGEVisualBasic课程设计报告题目：基于VB的宾馆信息管理系统院（系）：经济管理学院专业：信息管理与信息系统班级：姓名：学号：目录课设概述31.1宾馆管理系统开发背景介绍31.2课程设计的目的和意义31.3本课设的具体研究工作4系统的设计与实现52.1系统开发及运行环境52.2系统需求分析62.3系统分析设计72.4课设的结果与讨论8课设总结和展望10第1章课设概述1.1宾馆管理系统开发背景介绍随着经济的发展和人民生活水平的提高,人们不再局限于自己的小生活圈里，开始外出。于是，出差，旅游，变成越来越普遍的话题。也因此，给旅游业，服务业带来了很大的契机。期中，最受益的当属宾馆服务。当然，这亦给宾馆的管理造成了困扰。目前很多宾馆酒店在这方面的工作还是靠人工进行管理,在这种管理方式中,前台负责人将入住宾馆的客人信息，房间信息逐一进行登记,最后再进行相关的统计分析。而客人在入住宾馆时只能盲目进入，无法真正了解和比较那一家宾馆更适合自己。传统的宾馆管理模式已经暴露出种种弊端，随着计算机应用的普及与深入，利用计算机能够对所有宾馆基本信息进行统一管理，并进行分析，大大减少前台负责人的工作量，提高工作效率同时更加方便了游客的选择，为宾馆管理带来了极大的方便。1.2课程设计的目的和意义建立宾馆信息管理系统，采用计算机对宾馆基本信息进行管理，帮助更多服务行业提高工作效率，避免输入错误信息及未信息输入不完全，实现宾馆信息管理工作流程的系统化、规范化和自动化。今天，计算机的价格已经十分低廉，性能却有了很大的进步。很多宾馆，酒店运用计算机来管理信息，资料。开发一个简单、实用的宾馆管理系统有许多重要性，有以下几点好处：可以存大量的宾馆基本信息，安全，高效。节省大量时间，精力，为房客提供充足的信息和快捷的查询手段，可以便于他们了解宾馆概况并提前预定。因此开发宾馆管理系统，以适应现行工作的要求，提高工作效率很有意义。1.3本课设的具体研究工作本课设采用VisualBasic6.0+Access2021实现单机数据库管理，首先用Access建立关系数据库，设计了用户表，宾馆概况表，房间信息表。其中用户表管理登陆信息以及用户权限，宾馆概况表用来存放宾馆基本信息，房间信息表在管理传统的房间基本信息外加入了房间标准，。然后用VisualBasic建立客户端，实现简单易懂的图形用户界面，并完成以下几个功能：用户管理：该功能包括添加、修改、删除用户的功能，并实现用户权限的管理。宾馆管理：该功能包括添加宾馆名称，宾馆所属地域，宾馆标准等，将所有添加的信息统一整理，归类，以及对添加的信息进行修改和查询和删除宾馆信息。第2章系统的设计与实现2.1系统开发及运行环境（1）运行平台：MicrosoftWindowsXP/WindowsVista/Windows7虽然目前国内的主流操作系统已经由WindowsXP向Windows7过渡，但是由于学校的硬件设施更新速度慢，而且仅仅为了教育教学使用配置普遍偏低，在短期内校园的多媒体教室操作系统仍然以WindowsXP为主，所以软件运行测试都是在WindowsXP中进行（2）系统开发平台：VisualBasic6.0（3）后台数据库系统软件：Access20212.2系统需求分析根据实际情况，我们使用原型法（RapidPrototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。由于本系统是入住宾馆旅客使用，管理人员是按照宾馆各方面的信息来进行组织，而房客则按照自己的要求输入相关信息，选择更加适宜的宾馆入住，提前预定，基于这些特点，确定管理系统的工作流程如下：首先用户登录系统，登录后系统将记录用户信息，并读取用户权限信息。然后用户可以进入用户管理模块，这是可选操作，在这里用户只有修改密码的权限，其他权限是超级用户所具有的。接着用户可以进行宾馆的管理，如果具有权限可以进行相应的操作，超级用户可以添加、删除、显示宾馆信息。宾馆存在之后可以向宾馆中添加其他相关信息，同时可以进行修改删除等操作针对系统的要求设计了如下数据字段与表：（1）用户信息表，包括的数据字段有：用户名，用户密码，用户权限。其中用户名是关键字。（2）宾馆信息表，包括的数据字段有：宾馆名称，宾馆，房间报价，宾馆地址等。2.3系统分析设计C/S结构就是“客户端/服务器端”的一种工作模式。一般来说，这种模式都会要求安装一个客户端程序，由这个程序和服务器进行协同工作，因为由客户端来专门处理一些工作，所以C/S结构的程序一般都功能强大、界面漂亮，又由于任务分散在服务器端和客户端分别进行，因此提高了硬件的利用效率，对于开发人员开说也更加容易。基于上速原因本系统采用两层的C/S结构。模块是Access中实现数据库复杂管理功能的有效工具，它由VisualBasic编制的过程和函数组成。为了清晰、全面的介绍宾馆各个方面管理系统的功能，以及各个功能模块间的关系，下图以结构图的形式给出了系统的功能，如图3.1所示。（1）用户管理模块：输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。管理员可以进行用户权限设置包括新用户添加，删除用户，修改用户的密码，显示所有用户信息。（2）宾馆管理模块：该模块主要对宾馆信息进行输入，查询，修改。包括对宾馆名称，宾馆所属地域，宾馆地址和联系人的基本信息。当用户想要查找想要的宾馆信息时，可输入相应的信息，系统自动显示符合要求的宾馆供用户选择，比较。此过程也包括查询，修改等功能图2-1系统功能结构图2.4课设的结果与讨论(1)系统的实现与运行结果登陆界面可实现用户的登陆，进入系统。图2-2登陆界面设置登录窗体为启动窗体，运行程序，出现如图2-2对话框，输入用户名、密码后进入系统，出现如图2-3主界面。图2-3主界面在图2-3的界面中输入相应信息，也可对界面内容进行添加，修改，查询，删除等功能。在图2-4中添加信息，点击确定按钮，在图2-5中可显示2-3中的相应信息。用户可根据提供的信息进行选择。图2-4输入信息界面图2-5添加修改界面在图2-5中用户可以得到宾馆的信息，也可以进行添加，修改，查询数据库中其他宾馆信息。总结和展望本宾馆信息管理系统是使用VisualBasic6.0+Access2021做为开发工具，基于C/S（客户端/服务器端）模式下的小型管理系统。其功能特点都是针对当前旅游或出差过程中游客入住宾馆时根据各人要求不同而提前选择宾馆，以及了解价格提前预定而设计，界面友好便于操作。与宾馆信息管理系统相比针对性更强，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加强。用户在选择宾馆之前可以先输入用户名和密码，进入登陆界面。然后根据界面中输入的信息，用户可以选择相应的宾馆，也可以多家宾馆进行比较，择优选择。通过宾馆提供的信息，提前预定。信息通讯技术在信息管理领域的快速发展,,传统管理系统正面临着革命性的变化。基于C/S结构的宾馆信息管理系统使用方便,维护简单,不仅大大节省了人力资源,提高了工作效率,更有利于房客在入住方面更多的了解，比较，尤其在旅游的高峰期提前预定房间也给游客提供了极大地便利，具有一定的推广前景使用价值。附源代码PublicPasswordKeyAsStringPublicNameKeyAsStringPublicTry_timesAsIntegerPrivateSubCmd_Cancel_Click()EndEndSubPrivateSubCmd_OK_Click()DimjAsSingle'数据有效性检查IftxtUser=""ThenMsgBox"请输入用户名"txtUser.SetFocusExitSubEndIfIftxtPwd=""ThenMsgBox"请输入密码"txtPwd.SetFocusExitSubEndIf将用户输入赋值到变量中NameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)'判断用户是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用户名不存在"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'判断密码是否正确MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密码错误"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"DBapi_DisconnectEndElseExitSubEndIfEndIf'登录成功，将当前用户的信息保存在CurUser中CurUser.GetInfo(MyUser.UserName)'关闭自己UnloadMeEndSubPublicModifyAsBooleanPublicOriIdAsLongPublicOriAreaName,OriHotelNameAsStringPublicOriTypeAsIntegerPrivateFunctionCheck()AsBooleanIfTrim(txtHotel)=""ThenMsgBox"请输入地域名称"txtHotel.SetFocusCheck=FalseExitFunctionEndIfIfTrim(txtHotel)=""ThenMsgBox"请输入宾馆名称"txtHotel.SetFocusCheck=FalseExitFunctionEndIfCheck=TrueEndFunctionPrivateSubCmd_OK_Click()‘检查用户输入的地域数据是否有效IfCheck=FalseThenExitSubEndIfWithMyHotel‘把用户输入的地域数据赋值到MyHotel对象的成员变量中.Hname=MakeStr(txtHotel).Hlevel=ComboLevel.Text.Contact=MakeStr(txtContact).Phone=MakeStr(txtPhone).Address=MakeStr(txtAddress).Postcode=MakeStr(txtCode).Price1=Val(txtPrice1).Price2=Val(txtPrice2).Price3=Val(txtPrice3).Price4=Val(txtPrice4).AreaId=MyArea.GetId(ComboName)'判断宾馆名称是否存在IfModify=FalseOrOriHotelName<>Trim(txtHotel)ThenIf.In_DB(MakeStr(txtHotel))=TrueThenMsgBox"宾馆名称已经存在，请重新输入"txtHotel.SetFocustxtHotel.SelStart=0txtHotel.SelLength=Len(txtHotel)ExitSubEndIfEndIf‘根据变量Modify的值，决定是插入新数据，还是修改已有的数据IfModify=FalseThen.InsertElse.Update(OriId)EndIfEndWithUnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubComboType_Click()CallLoadarea(ComboType.ListIndex+1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfEndSubPrivateSubForm_Load()‘根据当前宾馆的地域数据OriType和OriAreaName装入地域，设置地域信息ComboType.ListIndex=OriType-1CallLoadarea(OriType,ComboName)IfInCombo(OriAreaName,ComboName)=TrueThenComboName.Text=OriAreaNameEndIfEndSubPrivateSubtxtAddress_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubPrivateSubtxtPrice1_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)IfIn_Single(KeyAscii)=FalseThenKeyAscii=0EndIfEndSubPrivateSubtxtPrice2_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)IfIn_Single(KeyAscii)=FalseThenKeyAscii=0EndIfEndSubPrivateSubtxtPrice3_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)IfIn_Single(KeyAscii)=FalseThenKeyAscii=0EndIfEndSubPrivateSubtxtPrice4_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)IfIn_Single(KeyAscii)=FalseThenKeyAscii=0EndIfEndSubPrivateSubtxtCode_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubPrivateSubtxtContact_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubPrivateSubtxtPhone_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubPrivateSubtxtHotel_KeyPress(KeyAsciiAsInteger)EnterTAB(KeyAscii)EndSubPrivateSubRefresh_Hotel()‘为Adodc1控件设置数据源Adodc1.RecordSource="SELECTa.AreaName所在地域,h.HnameAs宾馆名称,"_+"h.HlevelAs宾馆标准,h.ContactAs联系人,h.PhoneAs联系,"_+"h.AddressAs通信地址,h.PostcodeAs邮政编码,h.Price1As经济间报价,"_+"h.Price2As双人间报价,h.Price3As三人间报价,h.Price4As四人间报价,"_+"h.Input_timeAs录入时间FROMHotelh,AreaaWHEREh.AreaId=a.AreaId"_+"Anda.AreaName='"+Trim(ComboName.Text)+"'"Adodc1.RefreshEndSubPrivateSubCmd_Add_Click()FrmHotelEdit.Modify=FalseFrmHotelEdit.OriAreaName=ComboName.TextFrmHotelEdit.OriType=ComboType.ListIndex+1FrmHotelEdit.OriId=0FrmHotelEdit.Show1Refresh_HotelEndSubPrivateSubCmd_Del_Click()DimTmpIdAsLong‘判断是否选择了要删除的记录IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择记录"ExitSubEndIf‘确定当前选择记录的位置p=Adodc1.Recordset.AbsolutePosition‘要删除的宾馆编号TmpId=MyHotel.GetId(Trim(Adodc1.Recordset.Fields(1)))'判断当前记录是否出现在线路中IfMylhotel.HotelInLine(TmpId)>0ThenMsgBox"此宾馆在线路中使用，不能删除"ExitSubEndIf'确认删除IfMsgBox("是否删除当前行?",vbYesNo,"确认")=vbYesThenMyHotel.Delete(TmpId)Refresh_HotelIfp-1>0ThenAdodc1.Recordset.Movep-1EndIfEndIfEndSubPrivateSubCmd_Modi_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择记录"ExitSubEndIf‘确定当前选择记录的位置p=Adodc1.Recordset.AbsolutePosition'宾馆编号FrmHotelEdit.OriId=MyHotel.GetId(Adodc1.Recordset.Fields(1))'地域信息FrmHotelEdit.OriAreaName=ComboName.TextFrmHotelEdit.OriType=ComboType.ListIndex+1'宾馆名称FrmHotelEdit.OriHotelName=Trim(Adodc1.Recordset.Fields(1))FrmHotelEdit.txtHotel=Trim(Adodc1.Recordset.Fields(1))'宾馆级别FrmHotelEdit.ComboLevel=Trim(Adodc1.Recordset.Fields(2))'联系人FrmHotelEdit.txtContact=Trim(Adodc1.Recordset.Fields(3))'联系FrmHotelEdit.txtPhone=Trim(Adodc1.Recordset.Fields(4))'通信地址FrmHotelEdit.txtAddress=Trim(Adodc1.Recordset.Fields(5))'邮政编码FrmHotelEdit.txtCode=Trim(Adodc1.Recordset.Fields(6))'经济间报价FrmHotelEdit.txtPrice1=Adodc1.Recordset.Fields(7)'双人间报价FrmHotelEdit.txtPrice2=Adodc1.Recordset.Fields(8)'三人间报价FrmHotelEdit.txtPrice3=Adodc1.Recordset.Fields(9)'四人间报价FrmHotelEdit.txtPrice4=Adodc1.Recordset.Fields(10)‘把变量Modify设置为True，表示当前状态为修改已有记录FrmHotelEdit.Modify=TrueFrmHotelEdit.Show1‘修改完成，刷新显示内容Refresh_HotelAdodc1.Recordset.MovepEndSubPrivateSubCmd_Close_Click()UnloadMeEndSubPrivateSubComboName_Click()Refresh_HotelEndSubPrivateSubComboType_Click()CallLoadarea(ComboType.ListIndex+1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfRefresh_HotelEndSubPrivateSubDataGrid1_Click()‘显示数据EndSubPrivateSubForm_Load()‘对输入地域数据进行初始化ComboType.ListIndex=0CallLoadarea(1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfRefresh_HotelEndSub

论大学生写作能力写作能力是对自己所积累的信息进行选择、提取、加工、改造并将之形成为书面文字的能力。积累是写作的基础，积累越厚实，写作就越有基础，文章就能根深叶茂开奇葩。没有积累，胸无点墨，怎么也不会写出作文来的。写作能力是每个大学生必须具备的能力。从目前高校整体情况上看，大学生的写作能力较为欠缺。一、大学生应用文写作能力的定义那么，大学生的写作能力究竟是指什么呢？叶圣陶先生曾经说过，“大学毕业生不一定能写小说诗歌，但是一定要写工作和生活中实用的文章，而且非写得既通顺又扎实不可。”对于大学生的写作能力应包含什么，可能有多种理解，但从叶圣陶先生的谈话中，我认为：大学生写作能力应包括应用写作能力和文学写作能力，而前者是必须的，后者是“不一定”要具备，能具备则更好。众所周知，对于大学生来说，是要写毕业论文的，我认为写作论文的能力可以包含在应用写作能力之中。大学生写作能力的体现，也往往是在撰写毕业论文中集中体现出来的。本科毕业论文无论是对于学生个人还是对于院系和学校来说，都是十分重要的。如何提高本科毕业论文的质量和水平，就成为教育行政部门和高校都很重视的一个重要课题。如何提高大学生的写作能力的问题必须得到社会的广泛关注，并且提出对策去实施解决。二、造成大学生应用文写作困境的原因：（一）大学写作课开设结构不合理。就目前中国多数高校的学科设置来看，除了中文专业会系统开设写作的系列课程外，其他专业的学生都只开设了普及性的《大学语文》课。学生写作能力的提高是一项艰巨复杂的任务，而我们的课程设置仅把这一任务交给了大学语文教师，可大学语文教师既要在有限课时时间内普及相关经典名著知识，又要适度提高学生的鉴赏能力，且要教会学生写作规律并提高写作能力，任务之重实难完成。（二）对实用写作的普遍性不重视。“大学语文”教育已经被严重地“边缘化”。目前对中国语文的态度淡漠，而是呈现出全民学英语的大好势头。中小学如此，大学更是如此。对我们的母语中国语文，在大学反而被漠视，没有相关的课程的设置，没有系统的学习实践训练。这其实是国人的一种偏见。应用写作有它自身的规律和方法。一个人学问很大，会写小说、诗歌、戏剧等，但如果不晓得应用文写作的特点和方法，他就写不好应用文。（三）部分大学生学习态度不端正。很多非中文专业的大学生对写作的学习和训练都只是集中在《大学语文》这一门课上，大部分学生只愿意被动地接受大学语文老师所讲授的文学经典故事，而对于需要学生动手动脑去写的作文，却是尽可能应付差事，这样势必不能让大学生的写作水平有所提高。（四）教师的实践性教学不强。学生写作能力的提高是一项艰巨复杂的任务，但在教学中有不少教师过多注重理论知识，实践性教学环节却往往被忽视。