娱乐休闲型酒店管理信息系统开题报告_毕业论文

1、娱乐休闲型酒店管理信息系统开题报告0582/23 周天才指导老师：徐莉一、 综述计算机在旅游餐饮和娱乐休闲行业的应用现已十分普遍，但相应的管理信息软件却不象财会软件那样成熟、稳定和规，为大众所知晓。在这很大程度上是由于使用主体日新月异的经营方式和多变的运行模式所造成的。无论是业人士还是计算机系统开发者都难免被这类行业发展变化之快所困扰。在计算机业务管理信息系统的建设和选择上目的不太明确，盲目照搬国外的大型软件，花钱不少，但效果不好，临时拼凑一些软件模块勉强使用，不足之处用手工作业来祢补。总之都没有充分发挥出高新技术在降低运营成本，提高管理水平和综合经济效益中的积极作用。实际上，该行业面向市场在

2、竞争中不断变化的特点，已经决定了其管理信息系统软件是一个与管理对象密切相关的有机组成部分，需要经过认真的和长期的调查分析，并以次为基础去定制、去磨合，在设计和开发的进程中寻找规律，以逐步完善。因此，其系统开发建设本身所遇到的问题和解决问题的办法，也体现了一个比较复杂的管理信息系统的开发特点。二、研究方向随着改革开放的步伐，人民生活水平得到了极大的提高，人们对服务业的需求也越来越高。特别是对娱乐休闲型酒店的娱乐方式要求很高。为此，娱乐休闲型酒店也采取了很多方式进行改革，加快步伐，与西方的娱乐休闲型酒店接轨。进入二十一世纪，信息管理系统在各行各业取得了突飞猛进的发展，如银行车辆运输学校酒店等等。开

3、发娱乐休闲型酒店的目的是打破以前的管理方式，实现全自动化办公管理方式。在系统开发的全过程始终要采取用户至上的观点，一切从用户利益考虑，在加强调查研究和系统分析的基础上，通过分步骤的不断反馈的讨论式方法确定出新系统的最佳方按。各阶段可在局部上使用结构化、模块化的方法严格按照有效阶段进行开发，具体手段上尽量采用面向对象的开发形式，使形成的应用软件模块具有很强的独立性、适应性和扩展性。一、 实现方法与预期目标在针对实际系统进行关系定义和逻辑设计过程中，我们发现采用移植的办法虽然在模块设计阶段进展较快，但后来就会被两类不同运行模式中的复杂关系所纠缠，而影响了开发进度，甚至会造成大面积返工。相反，按照娱

4、乐休闲型酒店的实际业务流程重新进行系统设计，到开发后期，就会发现这种淡化了住宿功能，而以洗浴服务为主线的接待和消费方式还有一些规律性。系统的设计开发过程采用了快速原形法，结构化方法和讨论法相结合的混合方式，鉴于这类新酒店的应用需不规的和分批提出的，系统分析的深度和广度只能在开发过程中逐步增加和完善，所以在开发初期一般无法完整的确定其总体设计方按。为此，我们从用户对应用系统的粗略描述开始，现在计算机上搭建起一个简单的应用模型，并以次模型为基准，根据用户的意见和要求对系统进一步细化，通过不断的建模，演示，交流和讨论，使系统一步步地接近实际。在开发后期，开发人员同用户已经有了充分的沟通，因此在一些后

5、台模块的开发上也遵循了结构化的生命周期法。在程序设计方式上主要是利用了一些高效率的面向对象的开发工具，通过这些工具对快速原形法和讨论法实施有效的支撑，进一步提高了系统的易扩展性和灵活性。本系统采用网络数据库程序的开发方法。前端开发工具采用Microsoft公司的专用数据库应用程序开发工具（VISIUAL BASIC 6.0）版本。后端的数据库采用微软公司的SQL Server2000版本。本系统开发的重点有：1.数据库的开发2.程序的开发.其中程序的开发是本系统开发的难点，弄清管理信息系统的功能模块，了解功能模块之间的关联和次序是关键。3.通过各程序的模块直接控制数据库的信息，最终实现娱乐休闲

6、型酒店管理系统的应用目标四、系统的开发进度具体安排由于时间有限，具体工作安排如下： 第13周完成课题调研、开题报告与系统开发；第14周完成总体方案设计、数据库设计；第15周完成模块设计、输入输出设计；第16周完成具体实现：1.数据库开发2.在sqlserver中创建数据库的连接3.程序的开发第17周完成系统各模块的测试、修改与验收系统，同时上交毕业论文。五、参考文献信息系统开发教程 第三辑 ：清华大学 基温 信息系统开发教程 第四辑 ：清华大学 基温 SQL Server7.0设计实务 ：人民邮电 施威铭VB程序设计教程 第二版 ：电子工业 瑞新指导老师 监督老师(签署意见并签字） （签署意见

7、并签字）领导小组审查意见： 审查人签字： 年 月 日程序设计打开VB程序，出现VB主界面，单击窗体下的frmlogin控件，单击运行，出现一个登录界面，请输入用户名称和用户密码，双击确定按钮，代码如下：Option ExplicitPublic LoginCount As Integer 定义此变量的目的是为了判断登录的次数Private Sub CmdOk_Click()If LoginCount 3 Then With DbCommand Set .ActiveConnection = DbConn mandType = adCmdText mandText = Select userna

8、me,userpassword from hotellogin where username= + txtUersName.Text + Set DbTempSet = .Execute End With If DbTempSet.EOF And DbTempSet.BOF Then MsgBox 用户不存在，请重新输入用户ID, vbOKOnly frmLogin.txtUersName.Text = frmLogin.txtUersName.SetFocus Else If RTrim(LTrim(DbTempSet.Fields(1).Value) txtPassword.Text Th

9、en MsgBox 输入的该用户的密码错误，请重新输入！, vbOKOnly frmLogin.txtPassword.Text = frmLogin.txtPassword.SetFocus LoginCount = LoginCount + 1 Else UserId = txtUersName.Text LoginSucceeded = True Unload Me End If End If Else If Not AppRun Then LoginSucceeded = False Unload Me Else Unload frmMain Unload Me End If End

10、IfEnd SubPrivate Sub cmdPasswork_Click() If Not AppRun Then LoginSucceeded = False Unload Me Else Unload frmMain Unload Me End End IfEnd SubPrivate Sub Form_Activate() frmLogin.txtUersName.SetFocus frmLogin.txtUersName.Text = frmLogin.txtPassword.Text = End SubPrivate Sub Form_Load() On Error GoTo P

11、roErr: frmLogin.Left = 3900 调整窗体的位置（靠左面的距离） frmLogin.Top = 3200 调整窗体的位置(靠顶部的距离) Call get_text With DbConn If .State adStateClosed Then .Close End If End With If DbConn Is Nothing Then End If DbConn.Open Exit SubProErr: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub*此段程序的目的是当按回车键的时候光标自动跳入txtpassw

12、ord.text中 *Private Sub txtUersName_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then frmLogin.txtPassword.SetFocus End IfEnd Sub*此段程序目的是当按回车键的时候光标自动跳入到确定按扭上准备开始验证输入的用户名称和用户密码*private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmdOK.SetFocus En

13、d IfEnd Sub进入主界面，主界面代码如下：Private Sub AboutSystem_Click() FrmAboutSys.Show vbModalEnd Sub Private Sub AboutSystem_Click() FrmAboutSys.Show vbModalEnd SubPrivate Sub backrestore_Click() FrmBakRes.Show vbModalEnd SubPrivate Sub clearbkg_Click() Set CTRLMachineLV.Picture = NothingEnd SubPrivate Sub Exit

14、System_Click() FrmExitSys.Show vbModal Exit SubEnd SubPrivate Sub Form_Load() frmMain.Top = 0 frmMain.Left = 0End SubPrivate Sub roomcondition_Click() FrmDayFlux.Show vbModalEnd SubPrivate Sub roomdengjiruzhu_Click() frmdengji.Show vbModalEnd SubPrivate Sub roomtypeprice_Click() frmroomprice.Show vb

15、ModalEnd SubPrivate Sub setbkg_Click() On Error GoTo ErrHandler With BmpOpenDlg .CancelError = True .Flags = cdlOFNHideReadOnly .Filter = 所有图片 .FilterIndex = 0 End With BmpOpenDlg.ShowOpen CTRLMachineLV.Picture = LoadPicture(BmpOpenDlg.FileName) Exit SubErrHandler: If Err.Number 32755 Then MsgBox Er

16、r.Description, vbOKOnly, App.Title End IfEnd SubPrivate Sub setpassword_Click() frmChangepass.Show vbModalEnd SubPrivate Sub syslogin_Click() frmLogin.Show vbModalEnd SubPrivate Sub Timer1_Timer()Dim StrWeekDay As StringOn Error GoTo Errp: Select Case Weekday(Now() Case 1 StrWeekDay = 星期日 Case 2 Str

17、WeekDay = 星期一 Case 3 StrWeekDay = 星期二 Case 4 StrWeekDay = 星期三 Case 5 StrWeekDay = 星期四 Case 6 StrWeekDay = 星期五 Case 7 StrWeekDay = 星期六 End Select StBar.Panels.Item(1).Text = 当前用户： & CStr(UserId) StBar.Panels.Item(2).Text = 欢迎您使用娱乐休闲型酒店管理信息系统 StBar.Panels.Item(3).Text = CStr(Year(Now() & 年 & CStr(Mont

18、h(Now() & 月 & CStr(Day(Now() & 日 & ( & StrWeekDay & ) & & TimeExit SubErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 处理ToolBar功能On Error GoTo Errp Select Case Button.Key Case Is = yhdl frmLogin.Show vbModal Case Is = yhgl

19、frmUserMan.Show vbModal Case Is = yhmm frmChangepass.Show vbModal Case Is = shezhiback Call setbkg_Click Case Is = morenback Call clearbkg_Click Case Is = backuprestor FrmBakRes.Show vbModal Case Is = kefangdj frmdengji.Show vbModal Case Is = kefangchaxun FrmDayFlux.Show vbModal Case Is = fangtypech

20、axun frmroomprice.Show vbModal Case Is = xiaofeimingxi frmcostitem.Show vbModal Case Is = aboutsystem FrmAboutSys.Show vbModal Case Is = quitsystem FrmExitSys.Show vbModal End Select Exit SubErrp: MsgBox Err.Description, vbOKOnly, 系统提示End SubPrivate Sub usermanage_Click() frmUserMan.Show vbModalEnd

21、SubPrivate Sub xiaofeiquery_Click() frmcostitem.Show vbModalEnd Sub单击系统管理的“密码管理”目的是对您的密码进行保护，移防您的原始密码被别人知道后，可以更改，重新用一个新的密码来加以保护。代码如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub CmdOk_Click()On Error GoTo Errp: With DbCommand mandType = adCmdText mandText = Select userPassword from hotel

22、login where username= + UserId + Set DbTempSet = .Execute End With If Text1.Text = LTrim(RTrim(DbTempSet.Fields(0).Value) Then If Text2.Text = Text3.Text Then With DbCommand mandText = Update hotellogin set userpassword= + Text2.Text + where username= + UserId + .Execute End With Unload Me Else MsgB

23、ox 你两次输入的新密码不一样，请重新输入, vbOKOnly, 系统提示 Text2.SetFocus Text2.Text = Text3.Text = End If Else MsgBox 你输入的原始密码与该用户的登录密码不符，请重新输入, vbOKOnly, 系统提示 Text1.Text = Text1.SetFocus End If MsgBox (密码修改成功) Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Form_Activate()On Error GoTo Errp:

24、 Text1.SetFocusExit SubErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)On Error GoTo Errp: If KeyCode = 13 Then Text2.SetFocus End If Exit SubErrp:End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) On Error Go

25、To Errp: If KeyCode = 13 Then Text3.SetFocus End IfErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo Errp: If KeyCode = 13 Then cmdOK.SetFocus End IfErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub备份数据是相当重要的，

26、在电脑发生故障时，原来的数据可能丢失，但是您不要担心，您已经备份了数据，可以使原来的数据恢复。数据备份恢复代码如下：Dim MdbComm As New ADODB mandDim MdbSet As New ADODB.RecordsetDim MdbPara As New ADODB.ParameterDim StrUserId As StringDim StrDate As StringDim FileName As StringDim RetValPrivate Sub Command1_Click()Dim RetVal As StringOn Error GoTo Errop: R

27、etVal = MsgBox(您确定要进行数据备份吗？, vbYesNo, App.Title) If RetVal = vbYes Then FileName = hotelDB.bak With DbCommand mandText = Backup DataBase hotelDB to disk =d: & FileName & .Execute End With MsgBox 备份数据成功!, vbOKOnly, App.Title End If Exit SubErrop: If Err.Number 32755 Then MsgBox Err.Description, vbOKO

28、nly, App.Title End IfEnd SubPrivate Sub Command2_Click()On Error GoTo Errop: FileName = hotelDB.bak With DbCommand mandText = restore DataBase hotelDB from disk =app.path + & FileName & .Execute End With MsgBox 恢复数据成功!, vbOKOnly, App.Title Exit SubErrop: MsgBox Err.Description, vbOKOnly, App.TitleEn

29、d SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: StrDate = CStr(Year(Now() If Month(Now() 10 Then StrDate = StrDate & 0 & CStr(Month(Now() Else StrDate = StrDate & CStr(Month(Now() End If If Day(Now) 10 Then StrDate = StrDate & 0 & CStr(Day(Now() Else StrD

30、ate = StrDate & CStr(Day(Now() End If Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Function CheckTableExist(TblName As String) As Boolean MdbComm.Parameters(0).Value = TblName MdbComm.Parameters(1).Value = -1 Set MdbSet = MdbComm.Execute If MdbSet!retu = 1 Then CheckTableEx

31、ist = True Else CheckTableExist = False End IfEnd Function打开主界面的“接待管理”，选择“接待登记入住”目的是对帐单、主客、证件类型、主客性别、证件、出生年月、联系、职业、地址、主客手牌号、宾客类型、男宾数量、女宾数量、可打几折、房间总数、鞋牌、入店时间、押金、批准人、预计离开时间、已经付款、代人付款、磁卡卡号、是否做到点提示、操作员代码、带水付款、特别说明进行查询。查询完毕后，单击返回按钮，回到主菜单。代码如下：Private Sub cmmdexit_Click() Unload MeEnd SubPrivate Sub Comms

32、ave_Click() Dim StrSql As String Dim StrCon As String Dim sMeg As String Dim yhbill As String Dim yhmaster As String Dim yhsex As String Dim yhcertificate As String Dim yhcertify_code As String Dim yhbirthday As String Dim yhphone As String Dim yhaddress As String Dim yhunit As String Dim yhmasterco

33、de As String Dim yhguesttype As String Dim yhrebate As String Dim yhguestsum As String Dim yhmale As String Dim yhfemale As String Dim yhshoes As String Dim yhstart As String Dim yhwillleave As String Dim yhhousesum As String Dim yhdeposit As String Dim yhconfirmpeople As String Dim yhalreadypaid As

34、 String Dim yhremark As String Dim yhinputer As String Dim yhwarning As String Dim yhcardid As String Dim yhforother As String Dim yhforwhose As String On Error GoTo Errp: yhbill = Trim(txtbill.Text) yhmaster = Trim(txtname.Text) yhsex = Trim(Comsex.Text) yhcertificate = Trim(Comzhenjian.Text) yhcer

35、tify_code = Trim(txtzhenjiancode.Text) yhbirthday = Trim(Txtbirthday.Text) yhphone = Trim(txtphone.Text) yhaddress = Trim(txtaddress.Text) yhunit = Trim(Comzhiye.Text) yhmastercode = Trim(txthandscode.Text) yhguesttype = Trim(Comleixing.Text) yhrebate = Trim(txtzhekou.Text) yhguestsum = Trim(txtsumc

36、ount.Text) yhmale = Trim(txtmanshuliang.Text) yhfemale = Trim(txtwomenshuliang.Text) yhshoes = Trim(txtshoecode.Text) yhstart = Trim(txtruzhutime.Text) yhwillleave = Trim(txtleavetime.Text) yhhousesum = Trim(txtroomcount.Text) yhdeposit = Trim(txtyajin.Text) yhconfirmpeople = Trim(txtpizhunren.Text)

37、 yhalreadypaid = Trim(txtyijingkuan.Text) yhremark = Trim(txtspecial.Text) yhinputer = Trim(txtcaozuoyuan.Text) yhwarning = Trim(Compoint.Text) yhcardid = Trim(txtcikacode.Text) yhforother = Trim(txtdairenfu.Text) yhforwhose = Trim(txtdaiwhofu.Text) If Trim(txtbill.Text) = Then sMeg = 帐单 sMeg = sMeg

38、 & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtbill.SetFocus Exit Sub End If If Len(txtbill.Text) 6 Then sMeg = 你的帐单大于六位了，请重新输入 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtbill.SetFocus txtbill.Text = Exit Sub End If If Trim(txtname.Text) = Then sMeg = 主客 sMeg = sMeg & 不能为空！ MsgBox sMeg, vbO

39、KOnly + vbExclamation, 警告 txtname.SetFocus Exit Sub End If With DbCommand mandType = adCmdText mandText=insert intobill (bill,master,sex,certificate,certify_code,birthday,phone,address,unit,mastercode,guesttype,rebate,guestsum,male,female,shoes,start,willleave,housesum,deposit,confirmpeople,alreadyp

40、aid,remark,inputer,warning,cardid,forother,forwhose) Set DbTempSet = .Execute sMeg = 你的输入信息已经保存成功 MsgBox sMeg, vbOKOnly + vbExclamation, 提示 End WithErrp: MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Form_Load() On Error GoTo Errp: frmdengji.Top = 1400 frmdengji.Left = 2000 Comzhenji

41、an.AddItem Comzhenjian.AddItem 工作证 Comzhenjian.AddItem 学生证 Comzhenjian.AddItem 警官证 Comzhenjian.AddItem 驾驶证 Comzhenjian.AddItem 居住证 Comzhiye.AddItem 公务员 Comzhiye.AddItem 学 生 Comzhiye.AddItem 工 人 Comzhiye.AddItem 教 师 Comzhiye.AddItem 农 民 Comzhiye.AddItem 军 人 Comzhiye.AddItem 警 察 Comleixing.AddItem 团体

42、Comleixing.AddItem 个人 Comsex.AddItem 男 Comsex.AddItem 女 Compoint.AddItem 是 Compoint.AddItem 否Errp: MsgBox Err.Description, vbOKOnly, App.TitleEnd Sub打开主界面的“客房管理”，选择“客房信息查询”目的就是对房间的编号、房间的类型、楼层、预定情况就行查询。选中房间编号，单击查询界面会出现相关的数据，依次类推。最后单击退出按钮回到主界面。客房信息查询代码如下：Private Sub Commandfresh_Click() Call Commandqu

43、ery_ClickEnd SubPrivate Sub Commandquery_Click()Dim StrSql As StringDim StrCon As StringDim i As IntegerDim bianhao As StringDim loucheng As StringDim roomleixing As StringDim ordercondition As StringOn Error GoTo Errp: Xsheet.Clear Xsheet.Refresh Call BuildTitle If roombianhao.Value = True Then bia

44、nhao = Trim(PosCbo.Text) StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleaned FROM roomstate where roomcode = + bianhao + End If If Checkfloor.Value = True Then loucheng = Mid(Trim(Combofloor.Text), 1, 1) StrSql = select roomcode,roomtype,flo

45、or,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane FROM roomstate where floor = + loucheng + End If If checkroomstatus.Value = True Then roomleixing = Trim(PrintCbo.Text) StrSql=select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane

46、 FROM roomstate where roomtype = + roomleixing + End If If checkorder.Value = True Then ordercondition = Trim(Comboorder.Text) StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane FROM roomstate where reserved = + ordercondition + End If With

47、DbCommand mandText = StrSql Set DbTempSet = .Execute End With With Xsheet .Rows = 1 Do While Not DbTempSet.EOF .Rows = .Rows + 1 For i = 1 To DbTempSet.Fields.Count .TextMatrix(.Rows - 1, i - 1) = DbTempSet.Fields(i - 1) Next i DbTempSet.MoveNext Loop End With Exit SubErrp:MsgBox Err.Description, vbOKOnly, App.TitleEnd SubPrivate Sub Commandexit_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: Call BuildTitle 建立表头 With DbCommand mandType = adCmdText mandText = Select roomcode from roomstate Set DbTempSet = .Execute End With I