【正文】 娛樂休閑型酒店管理信息系統開題報告0582/23 周天才指導老師：徐莉一、 綜述計算機在旅游餐飲和娛樂休閑行業(yè)的應用現已十分普遍，但相應的管理信息軟件卻不象財會軟件那樣成熟、穩(wěn)定和規(guī)范，為大眾所知曉。在這很大程度上是由于使用主體日新月異的經營方式和多變的運行模式所造成的。無論是業(yè)內人士還是計算機系統開發(fā)者都難免被這類行業(yè)發(fā)展變化之快所困擾。在計算機業(yè)務管理信息系統的建設和選擇上目的不太明確，盲目照搬國外的大型軟件，花錢不少，但效果不好，臨時拼湊一些軟件模塊勉強使用，不足之處用手工作業(yè)來禰補?？傊紱]有充分發(fā)揮出高新技術在降低運營成本，提高管理水平和綜合經濟效益中的積極作用。實際上，該行業(yè)面向市場在競爭中不斷變化的特點，已經決定了其管理信息系統軟件是一個與管理對象密切相關的有機組成部分，需要經過認真的和長期的調查分析，并以次為基礎去定制、去磨合，在設計和開發(fā)的進程中尋找規(guī)律，以逐步完善。因此，其系統開發(fā)建設本身所遇到的問題和解決問題的辦法，也體現了一個比較復雜的管理信息系統的開發(fā)特點。二 、研究方向隨著改革開放的步伐，人民生活水平得到了極大的提高，人們對服務業(yè)的需求也越來越高。特別是對娛樂休閑型酒店的娛樂方式要求很高。為此，娛樂休閑型酒店也采取了很多方式進行改革，加快步伐，與西方的娛樂休閑型酒店接軌。進入二十一世紀，信息管理系統在各行各業(yè)取得了突飛猛進的發(fā)展，如銀行﹑車輛運輸﹑學校﹑酒店等等。開發(fā)娛樂休閑型酒店的目的是打破以前的管理方式，實現全自動化辦公管理方式。在系統開發(fā)的全過程始終要采取用戶至上的觀點，一切從用戶利益考慮，在加強調查研究和系統分析的基礎上，通過分步驟的不斷反饋的討論式方法確定出新系統的最佳方按。各階段可在局部上使用結構化、模塊化的方法嚴格按照有效階段進行開發(fā)，具體手段上盡量采用面向對象的開發(fā)形式，使形成的應用軟件模塊具有很強的獨立性、適應性和擴展性。一、 實現方法及預期目標在針對實際系統進行關系定義和邏輯設計過程中，我們發(fā)現采用移植的辦法雖然在模塊設計階段進展較快，但后來就會被兩類不同運行模式中的復雜關系所糾纏，而影響了開發(fā)進度，甚至會造成大面積返工。相反，按照娛樂休閑型酒店的實際業(yè)務流程重新進行系統設計，到開發(fā)后期，就會發(fā)現這種淡化了住宿功能，而以洗浴服務為主線的接待和消費方式還有一些規(guī)律性。系統的設計開發(fā)過程采用了快速原形法，結構化方法和討論法相結合的混合方式，鑒于這類新酒店的應用需求是不規(guī)范的和分批提出的，系統分析的深度和廣度只能在開發(fā)過程中逐步增加和完善，所以在開發(fā)初期一般無法完整的確定其總體設計方按。為此，我們從用戶對應用系統的粗略描述開始，現在計算機上搭建起一個簡單的應用模型，并以次模型為基準，根據用戶的意見和要求對系統進一步細化，通過不斷的建模，演示，交流和討論，使系統一步步地接近實際。在開發(fā)后期，開發(fā)人員同用戶已經有了充分的溝通，因此在一些后臺模塊的開發(fā)上也遵循了結構化的生命周期法。在程序設計方式上主要是利用了一些高效率的面向對象的開發(fā)工具，通過這些工具對快速原形法和討論法實施有效的支撐，進一步提高了系統的易擴展性和靈活性。本系統采用網絡數據庫程序的開發(fā)方法。前端開發(fā)工具采用Microsoft公司的專用數據庫應用程序開發(fā)工具（VISIUAL BASIC ）版本。后端的數據庫采用微軟公司的SQL Server2000版本。本系統開發(fā)的重點有：，弄清管理信息系統的功能模塊，了解功能模塊之間的關聯和次序是關鍵。，最終實現娛樂休閑型酒店管理系統的應用目標四、系統的開發(fā)進度具體安排由于時間有限，具體工作安排如下： 第13周完成課題調研、開題報告及系統開發(fā)；第14周完成總體方案設計、數據庫設計；第15周完成模塊設計、輸入輸出設計；第16周完成具體實現：第17周完成系統各模塊的測試、修改及驗收系統，同時上交畢業(yè)論文。五、參考文獻《信息系統開發(fā)教程 第三輯》 出版社：清華大學出版社 作者：張基溫 《信息系統開發(fā)教程 第四輯》 出版社：清華大學出版社 作者：張基溫 〈SQL 〉〉 出版社：人民郵電出版社 作者：施威銘〈〈VB程序設計教程 第二版〉〉 出版社：電子工業(yè)出版社 作者：劉瑞新指導老師 監(jiān)督老師(簽署意見并簽字） （簽署意見并簽字） 領導小組審查意見： 審查人簽字： 年 月 日程序設計打開VB程序，出現VB主界面，單擊窗體下的frmlogin控件，單擊運行，出現一個登錄界面，請輸入用戶名稱和用戶密碼，雙擊確定按鈕，代碼如下：Option ExplicitPublic LoginCount As Integer 39。定義此變量的目的是為了判斷登錄的次數Private Sub CmdOk_Click()If LoginCount 3 Then With DbCommand Set .ActiveConnection = DbConn .CommandType = adCmdText .CommandText = Select username,userpassword from hotellogin where username=39。 + + 39。 Set DbTempSet = .Execute End With If And Then MsgBox 用戶不存在，請重新輸入用戶ID, vbOKOnly = Else If RTrim(LTrim((1).Value)) Then MsgBox 輸入的該用戶的密碼錯誤，請重新輸入！, vbOKOnly = LoginCount = LoginCount + 1 Else UserId = 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 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() = = End SubPrivate Sub Form_Load() On Error GoTo ProErr: = 3900 39。調整窗體的位置（靠左面的距離） = 3200 39。調整窗體的位置(靠頂部的距離) Call get_text With DbConn If .State adStateClosed Then .Close End If End With If DbConn Is Nothing Then End If Exit SubProErr: MsgBox , vbOKOnly, End Sub39。************************************************************************39。* *39。************************************************************************Private Sub txtUersName_Keydown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd Sub39。******************************************************************************39。*此段程序目的是當按回車鍵的時候光標自動跳入到確定按扭上準備開始驗證輸入的用戶名稱和用戶密碼*39。******************************************************************************private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd Sub進入主界面，主界面代碼如下：Private Sub AboutSystem_Click() vbModalEnd Sub Private Sub AboutSystem_Click() vbModalEnd SubPrivate Sub backrestore_Click() vbModalEnd SubPrivate Sub clearbkg_Click() Set = NothingEnd SubPrivate Sub ExitSystem_Click() vbModal Exit SubEnd SubPrivate Sub Form_Load() = 0 = 0End SubPrivate Sub roomcondition_Click() vbModalEnd SubPrivate Sub roomdengjiruzhu_Click() vbModalEnd SubPrivate Sub roomtypeprice_Click() vbModalEnd SubPrivate Sub setbkg_Click() On Error GoTo ErrHandler With BmpOpenDlg .CancelError = True .Flags = cdlOFNHideReadOnly .Filter = 所有圖片 .FilterIndex = 0 End With = LoadPicture() Exit SubErrHandler: If 32755 Then MsgBox , vbOKOnly, End IfEnd SubPrivate Sub setpassword_Click() vbModalEnd SubPrivate Sub syslogin_Click() vbModalEnd SubPrivate Sub Timer1_Timer()Dim StrWeekDay As StringOn Error GoTo Errp: Select Case Weekday(Now()) Case 1 StrWeekDay = 星期日 Case 2 StrWeekDay = 星期一 Case 3 StrWeekDay = 星期二 Case 4 StrWeekDay = 星期三 Case 5 StrWeekDay = 星期四 Case 6 StrWeekDay = 星期五 Case 7 StrWeekDay = 星期六 End Select (1).Text = 當前用戶： amp。 CStr(UserId) (2).Text = 歡迎您使用娛樂休閑型酒店管理信息系統 (3).Text = CStr(Year(Now())) amp。 年 amp。 CStr(Month(Now())) amp。 月 amp。 CStr(Day(Now())) amp。 日 amp。 ( amp。 StrWeekDay amp。 ) amp。 amp。 TimeExit SubErrp: MsgBox , vbOKOnly, End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) 39。處理ToolBar功能On Error GoTo Errp Select Case Case Is = yhdl vbModal Case Is = yhgl vbModal Case Is = yhmm vbModal Case Is = she