【正文】 娛樂(lè)休閑型酒店管理信息系統(tǒng)開(kāi)題報(bào)告0582/23 周天才指導(dǎo)老師：徐莉一、 綜述計(jì)算機(jī)在旅游餐飲和娛樂(lè)休閑行業(yè)的應(yīng)用現(xiàn)已十分普遍，但相應(yīng)的管理信息軟件卻不象財(cái)會(huì)軟件那樣成熟、穩(wěn)定和規(guī)范，為大眾所知曉。在這很大程度上是由于使用主體日新月異的經(jīng)營(yíng)方式和多變的運(yùn)行模式所造成的。無(wú)論是業(yè)內(nèi)人士還是計(jì)算機(jī)系統(tǒng)開(kāi)發(fā)者都難免被這類(lèi)行業(yè)發(fā)展變化之快所困擾。在計(jì)算機(jī)業(yè)務(wù)管理信息系統(tǒng)的建設(shè)和選擇上目的不太明確，盲目照搬國(guó)外的大型軟件，花錢(qián)不少，但效果不好，臨時(shí)拼湊一些軟件模塊勉強(qiáng)使用，不足之處用手工作業(yè)來(lái)禰補(bǔ)?？傊紱](méi)有充分發(fā)揮出高新技術(shù)在降低運(yùn)營(yíng)成本，提高管理水平和綜合經(jīng)濟(jì)效益中的積極作用。實(shí)際上，該行業(yè)面向市場(chǎng)在競(jìng)爭(zhēng)中不斷變化的特點(diǎn)，已經(jīng)決定了其管理信息系統(tǒng)軟件是一個(gè)與管理對(duì)象密切相關(guān)的有機(jī)組成部分，需要經(jīng)過(guò)認(rèn)真的和長(zhǎng)期的調(diào)查分析，并以次為基礎(chǔ)去定制、去磨合，在設(shè)計(jì)和開(kāi)發(fā)的進(jìn)程中尋找規(guī)律，以逐步完善。因此，其系統(tǒng)開(kāi)發(fā)建設(shè)本身所遇到的問(wèn)題和解決問(wèn)題的辦法，也體現(xiàn)了一個(gè)比較復(fù)雜的管理信息系統(tǒng)的開(kāi)發(fā)特點(diǎn)。二 、研究方向隨著改革開(kāi)放的步伐，人民生活水平得到了極大的提高，人們對(duì)服務(wù)業(yè)的需求也越來(lái)越高。特別是對(duì)娛樂(lè)休閑型酒店的娛樂(lè)方式要求很高。為此，娛樂(lè)休閑型酒店也采取了很多方式進(jìn)行改革，加快步伐，與西方的娛樂(lè)休閑型酒店接軌。進(jìn)入二十一世紀(jì)，信息管理系統(tǒng)在各行各業(yè)取得了突飛猛進(jìn)的發(fā)展，如銀行﹑車(chē)輛運(yùn)輸﹑學(xué)校﹑酒店等等。開(kāi)發(fā)娛樂(lè)休閑型酒店的目的是打破以前的管理方式，實(shí)現(xiàn)全自動(dòng)化辦公管理方式。在系統(tǒng)開(kāi)發(fā)的全過(guò)程始終要采取用戶(hù)至上的觀點(diǎn)，一切從用戶(hù)利益考慮，在加強(qiáng)調(diào)查研究和系統(tǒng)分析的基礎(chǔ)上，通過(guò)分步驟的不斷反饋的討論式方法確定出新系統(tǒng)的最佳方按。各階段可在局部上使用結(jié)構(gòu)化、模塊化的方法嚴(yán)格按照有效階段進(jìn)行開(kāi)發(fā)，具體手段上盡量采用面向?qū)ο蟮拈_(kāi)發(fā)形式，使形成的應(yīng)用軟件模塊具有很強(qiáng)的獨(dú)立性、適應(yīng)性和擴(kuò)展性。一、 實(shí)現(xiàn)方法及預(yù)期目標(biāo)在針對(duì)實(shí)際系統(tǒng)進(jìn)行關(guān)系定義和邏輯設(shè)計(jì)過(guò)程中，我們發(fā)現(xiàn)采用移植的辦法雖然在模塊設(shè)計(jì)階段進(jìn)展較快，但后來(lái)就會(huì)被兩類(lèi)不同運(yùn)行模式中的復(fù)雜關(guān)系所糾纏，而影響了開(kāi)發(fā)進(jìn)度，甚至?xí)斐纱竺娣e返工。相反，按照娛樂(lè)休閑型酒店的實(shí)際業(yè)務(wù)流程重新進(jìn)行系統(tǒng)設(shè)計(jì)，到開(kāi)發(fā)后期，就會(huì)發(fā)現(xiàn)這種淡化了住宿功能，而以洗浴服務(wù)為主線的接待和消費(fèi)方式還有一些規(guī)律性。系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)過(guò)程采用了快速原形法，結(jié)構(gòu)化方法和討論法相結(jié)合的混合方式，鑒于這類(lèi)新酒店的應(yīng)用需求是不規(guī)范的和分批提出的，系統(tǒng)分析的深度和廣度只能在開(kāi)發(fā)過(guò)程中逐步增加和完善，所以在開(kāi)發(fā)初期一般無(wú)法完整的確定其總體設(shè)計(jì)方按。為此，我們從用戶(hù)對(duì)應(yīng)用系統(tǒng)的粗略描述開(kāi)始，現(xiàn)在計(jì)算機(jī)上搭建起一個(gè)簡(jiǎn)單的應(yīng)用模型，并以次模型為基準(zhǔn)，根據(jù)用戶(hù)的意見(jiàn)和要求對(duì)系統(tǒng)進(jìn)一步細(xì)化，通過(guò)不斷的建模，演示，交流和討論，使系統(tǒng)一步步地接近實(shí)際。在開(kāi)發(fā)后期，開(kāi)發(fā)人員同用戶(hù)已經(jīng)有了充分的溝通，因此在一些后臺(tái)模塊的開(kāi)發(fā)上也遵循了結(jié)構(gòu)化的生命周期法。在程序設(shè)計(jì)方式上主要是利用了一些高效率的面向?qū)ο蟮拈_(kāi)發(fā)工具，通過(guò)這些工具對(duì)快速原形法和討論法實(shí)施有效的支撐，進(jìn)一步提高了系統(tǒng)的易擴(kuò)展性和靈活性。本系統(tǒng)采用網(wǎng)絡(luò)數(shù)據(jù)庫(kù)程序的開(kāi)發(fā)方法。前端開(kāi)發(fā)工具采用Microsoft公司的專(zhuān)用數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)工具（VISIUAL BASIC ）版本。后端的數(shù)據(jù)庫(kù)采用微軟公司的SQL Server2000版本。本系統(tǒng)開(kāi)發(fā)的重點(diǎn)有：，弄清管理信息系統(tǒng)的功能模塊，了解功能模塊之間的關(guān)聯(lián)和次序是關(guān)鍵。，最終實(shí)現(xiàn)娛樂(lè)休閑型酒店管理系統(tǒng)的應(yīng)用目標(biāo)四、系統(tǒng)的開(kāi)發(fā)進(jìn)度具體安排由于時(shí)間有限，具體工作安排如下： 第13周完成課題調(diào)研、開(kāi)題報(bào)告及系統(tǒng)開(kāi)發(fā)；第14周完成總體方案設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)；第15周完成模塊設(shè)計(jì)、輸入輸出設(shè)計(jì)；第16周完成具體實(shí)現(xiàn)：第17周完成系統(tǒng)各模塊的測(cè)試、修改及驗(yàn)收系統(tǒng)，同時(shí)上交畢業(yè)論文。五、參考文獻(xiàn)《信息系統(tǒng)開(kāi)發(fā)教程 第三輯》 出版社：清華大學(xué)出版社 作者：張基溫 《信息系統(tǒng)開(kāi)發(fā)教程 第四輯》 出版社：清華大學(xué)出版社 作者：張基溫 〈SQL 〉〉 出版社：人民郵電出版社 作者：施威銘〈〈VB程序設(shè)計(jì)教程 第二版〉〉 出版社：電子工業(yè)出版社 作者：劉瑞新指導(dǎo)老師 監(jiān)督老師(簽署意見(jiàn)并簽字） （簽署意見(jiàn)并簽字） 領(lǐng)導(dǎo)小組審查意見(jiàn)： 審查人簽字： 年 月 日程序設(shè)計(jì)打開(kāi)VB程序，出現(xiàn)VB主界面，單擊窗體下的frmlogin控件，單擊運(yùn)行，出現(xiàn)一個(gè)登錄界面，請(qǐng)輸入用戶(hù)名稱(chēng)和用戶(hù)密碼，雙擊確定按鈕，代碼如下：Option ExplicitPublic LoginCount As Integer 39。定義此變量的目的是為了判斷登錄的次數(shù)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 用戶(hù)不存在，請(qǐng)重新輸入用戶(hù)ID, vbOKOnly = Else If RTrim(LTrim((1).Value)) Then MsgBox 輸入的該用戶(hù)的密碼錯(cuò)誤，請(qǐng)重新輸入！, 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。調(diào)整窗體的位置（靠左面的距離） = 3200 39。調(diào)整窗體的位置(靠頂部的距離) 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。*此段程序目的是當(dāng)按回車(chē)鍵的時(shí)候光標(biāo)自動(dòng)跳入到確定按扭上準(zhǔn)備開(kāi)始驗(yàn)證輸入的用戶(hù)名稱(chēng)和用戶(hù)密碼*39。******************************************************************************private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd Sub進(jìn)入主界面，主界面代碼如下：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 = 當(dāng)前用戶(hù)： amp。 CStr(UserId) (2).Text = 歡迎您使用娛樂(lè)休閑型酒店管理信息系統(tǒng) (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