娱乐休闲型酒店管理信息系统--开题报告

0582计算机信息管理毕业设计--1-娱乐休闲型酒店管理信息系统开题报告0582/23周天才指导老师：徐莉一、综述计算机在旅游餐饮和娱乐休闲行业的应用现已十分普遍，但相应的管理信息软件却不象财会软件那样成熟、稳定和规范，为大众所知晓。在这很大程度上是由于使用主体日新月异的经营方式和多变的运行模式所造成的。无论是业内人士还是计算机系统开发者都难免被这类行业发展变化之快所困扰。在计算机业务管理信息系统的建设和选择上目的不太明确，盲目照搬国外的大型软件，花钱不少，但效果不好，临时拼凑一些软件模块勉强使用，不足之处用手工作业来祢补。总之都没有充分发挥出高新技术在降低运营成本，提高管理水平和综合经济效益中的积极作用。实际上，该行业面向市场在竞争中不断变化的特点，已经决定了其管理信息系统软件是一个与管理对象密切相关的有机组成部分，需要经过认真的和长期的调查分析，并以次为基础去定制、去磨合，在设计和开发的进程中寻找规律，以逐步完善。因此，其系统开发建设本身所遇到的问题和解决问题的办法，也体现了一个比较复杂的管理信息系统的开发特点。二、研究方向随着改革开放的步伐，人民生活水平得到了极大的提高，人们对服务业的需求也越来越高。特别是对娱乐休闲型酒店的娱乐方式要求很高。为此，娱乐休闲型酒店也采取了很多方式进行改革，加快步伐，与西方的娱乐休闲型酒店接轨。进入二十一世纪，信息管理系统在各行各业取得了突飞猛进的发展，如银行﹑车辆运输﹑学校﹑酒店等等。开发娱乐休闲型酒店的目的是打破以前的管理方式，实现全自动化办公管理方式。在系统开发的全过程始终要采取用户至上的观点，一切从用户利益考虑，在加强调查研究和系统分析的基础上，通过分步骤的不断反馈的讨论式方法确定出新系统的最佳方按。各阶段可在局部上使用结构化、模块化的方法严格按照有效阶段进行开发，具体手段上尽量采用面向对象的开发形式，使形成的应用软件模块具有很强的独立性、适应性和扩展性。一、实现方法及预期目标在针对实际系统进行关系定义和逻辑设计过程中，我们发现采用移植的办法虽然在模块设计阶段进展较快，但后来就会被两类不同运行模式中的复杂关系所纠缠，而影响了开发进度，甚至会造成大面积返工。相反，按照娱乐休闲型酒店的实际业务流程重新进行系统设计，到开发后期，就会发现这种淡化了住宿功能，而以洗浴服务为主线的接待和消费方式还有一些规律性。系统的设计开发过程采用了快速原形法，结构化方法和讨论法相结合的混合方式，鉴于这类新酒店的应用需求是不规范的和分批提出的，系统分析的深度和广度只能在开发过程0582计算机信息管理毕业设计--2-中逐步增加和完善，所以在开发初期一般无法完整的确定其总体设计方按。为此，我们从用户对应用系统的粗略描述开始，现在计算机上搭建起一个简单的应用模型，并以次模型为基准，根据用户的意见和要求对系统进一步细化，通过不断的建模，演示，交流和讨论，使系统一步步地接近实际。在开发后期，开发人员同用户已经有了充分的沟通，因此在一些后台模块的开发上也遵循了结构化的生命周期法。在程序设计方式上主要是利用了一些高效率的面向对象的开发工具，通过这些工具对快速原形法和讨论法实施有效的支撑，进一步提高了系统的易扩展性和灵活性。本系统采用网络数据库程序的开发方法。前端开发工具采用Microsoft公司的专用数据库应用程序开发工具（VISIUALBASIC6.0）版本。后端的数据库采用微软公司的SQLServer2000版本。本系统开发的重点有：1.数据库的开发2.程序的开发.其中程序的开发是本系统开发的难点，弄清管理信息系统的功能模块，了解功能模块之间的关联和次序是关键。3.通过各程序的模块直接控制数据库的信息，最终实现娱乐休闲型酒店管理系统的应用目标四、系统的开发进度具体安排由于时间有限，具体工作安排如下：第13周完成课题调研、开题报告及系统开发；第14周完成总体方案设计、数据库设计；第15周完成模块设计、输入输出设计；第16周完成具体实现：1.数据库开发2.在sqlserver中创建数据库的连接3.程序的开发第17周完成系统各模块的测试、修改及验收系统，同时上交毕业论文。五、参考文献《信息系统开发教程第三辑》出版社：清华大学出版社作者：张基温《信息系统开发教程第四辑》出版社：清华大学出版社作者：张基温〈SQLServer7.0设计实务〉〉出版社：人民邮电出版社作者：施威铭〈〈VB程序设计教程第二版〉〉出版社：电子工业出版社作者：刘瑞新指导老师监督老师(签署意见并签字）（签署意见并签字）领导小组审查意见：审查人签字：年月日0582计算机信息管理毕业设计--3-程序设计打开VB程序，出现VB主界面，单击窗体下的frmlogin控件，单击运行，出现一个登录界面，请输入用户名称和用户密码，双击确定按钮，代码如下：OptionExplicitPublicLoginCountAsInteger'定义此变量的目的是为了判断登录的次数PrivateSubCmdOk_Click()IfLoginCount3ThenWithDbCommandSet.ActiveConnection=DbConn.CommandType=adCmdText.CommandText=Selectusername,userpasswordfromhotelloginwhereusername='+txtUersName.Text+'SetDbTempSet=.ExecuteEndWithIfDbTempSet.EOFAndDbTempSet.BOFThenMsgBox用户不存在，请重新输入用户ID,vbOKOnlyfrmLogin.txtUersName.Text=frmLogin.txtUersName.SetFocusElseIfRTrim(LTrim(DbTempSet.Fields(1).Value))txtPassword.TextThenMsgBox输入的该用户的密码错误，请重新输入！,vbOKOnlyfrmLogin.txtPassword.Text=frmLogin.txtPassword.SetFocusLoginCount=LoginCount+1ElseUserId=txtUersName.TextLoginSucceeded=TrueUnloadMeEndIfEndIfElseIfNotAppRunThenLoginSucceeded=FalseUnloadMeElseUnloadfrmMainUnloadMeEndIfEndIfEndSubPrivateSubcmdPasswork_Click()0582计算机信息管理毕业设计--4-IfNotAppRunThenLoginSucceeded=FalseUnloadMeElseUnloadfrmMainUnloadMeEndEndIfEndSubPrivateSubForm_Activate()frmLogin.txtUersName.SetFocusfrmLogin.txtUersName.Text=frmLogin.txtPassword.Text=EndSubPrivateSubForm_Load()OnErrorGoToProErr:frmLogin.Left=3900'调整窗体的位置（靠左面的距离）frmLogin.Top=3200'调整窗体的位置(靠顶部的距离)Callget_textWithDbConnIf.StateadStateClosedThen.CloseEndIfEndWithIfDbConnIsNothingThenEndIfDbConn.OpenExitSubProErr:MsgBoxErr.Description,vbOKOnly,App.TitleEndSub'************************************************************************'*此段程序的目的是当按回车键的时候光标自动跳入txtpassword.text中*'************************************************************************PrivateSubtxtUersName_Keydown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenfrmLogin.txtPassword.SetFocusEndIfEndSub'******************************************************************************'*此段程序目的是当按回车键的时候光标自动跳入到确定按扭上准备开始验证输入的用户名称和用户密码*'******************************************************************************privateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)0582计算机信息管理毕业设计--5-IfKeyCode=13ThencmdOK.SetFocusEndIfEndSub进入主界面，主界面代码如下：PrivateSubAboutSystem_Click()FrmAboutSys.ShowvbModalEndSubPrivateSubAboutSystem_Click()FrmAboutSys.ShowvbModalEndSubPrivateSubbackrestore_Click()FrmBakRes.ShowvbModalEndSubPrivateSubclearbkg_Click()SetCTRLMachineLV.Picture=NothingEndSubPrivateSubExitSystem_Click()FrmExitSys.ShowvbModalExitSubEndSubPrivateSubForm_Load()frmMain.Top=0frmMain.Left=0EndSubPrivateSubroomcondition_Click()FrmDayFlux.ShowvbModalEndSubPrivateSubroomdengjiruzhu_Click()frmdengji.ShowvbModalEndSubPrivateSubroomtypeprice_Click()frmroomprice.ShowvbModalEndSubPrivateSubsetbkg_Click()OnErrorGoToErrHandlerWithBmpOpenDlg.CancelError=True.Flags=cdlOFNHideReadOnly.Filter=所有图片.FilterIndex=0EndWithBmpOpenDlg.ShowOpenCTRLMachineLV.Picture=LoadPicture(BmpOpenDlg.FileName)0582计算机信息管理毕业设计--6-ExitSubErrHandler:IfErr.Number32755ThenMsgBoxErr.Description,vbOKOnly,App.TitleEndIfEndSubPrivateSubsetpassword_Click()frmChangepass.ShowvbModalEndSubPrivateSubsyslogin_Click()frmLogin.ShowvbModalEndSubPrivateSubTimer1_Timer()DimStrWeekDayAsStringOnErrorGoToErrp:SelectCaseWeekday(Now())Case1StrWeekDay=星期日Case2StrWeekDay=星期一Case3StrWeekDay=星期二Case4StrWeekDay=星期