基于VB的賓館信息管理系統(tǒng)

PAGEVisualBasic課程設(shè)計報告題目：基于VB的賓館信息管理系統(tǒng)院（系）：經(jīng)濟管理學(xué)院專業(yè)：信息管理與信息系統(tǒng)班級：姓名：學(xué)號：目錄課設(shè)概述31.1賓館管理系統(tǒng)開發(fā)背景介紹31.2課程設(shè)計的目的和意義31.3本課設(shè)的具體研究工作4系統(tǒng)的設(shè)計與實現(xiàn)52.1系統(tǒng)開發(fā)及運行環(huán)境52.2系統(tǒng)需求分析62.3系統(tǒng)分析設(shè)計72.4課設(shè)的結(jié)果與討論8課設(shè)總結(jié)和展望10第1章課設(shè)概述1.1賓館管理系統(tǒng)開發(fā)背景介紹隨著經(jīng)濟的發(fā)展和人民生活水平的提高,人們不再局限于自己的小生活圈里，開始外出。于是，出差，旅游，變成越來越普遍的話題。也因此，給旅游業(yè)，服務(wù)業(yè)帶來了很大的契機。期中，最受益的當屬賓館服務(wù)。當然，這亦給賓館的管理造成了困擾。目前很多賓館酒店在這方面的工作還是靠人工進行管理,在這種管理方式中,前臺負責人將入住賓館的客人信息，房間信息逐一進行登記,最后再進行相關(guān)的統(tǒng)計分析。而客人在入住賓館時只能盲目進入，無法真正了解和比較那一家賓館更適合自己。傳統(tǒng)的賓館管理模式已經(jīng)暴露出種種弊端，隨著計算機應(yīng)用的普及與深入，利用計算機能夠?qū)λ匈e館基本信息進行統(tǒng)一管理，并進行分析，大大減少前臺負責人的工作量，提高工作效率同時更加方便了游客的選擇，為賓館管理帶來了極大的方便。1.2課程設(shè)計的目的和意義建立賓館信息管理系統(tǒng)，采用計算機對賓館基本信息進行管理，幫助更多服務(wù)行業(yè)提高工作效率，避免輸入錯誤信息及未信息輸入不完全，實現(xiàn)賓館信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化。今天，計算機的價格已經(jīng)十分低廉，性能卻有了很大的進步。很多賓館，酒店運用計算機來管理信息，資料。開發(fā)一個簡單、實用的賓館管理系統(tǒng)有許多重要性，有以下幾點好處：可以存大量的賓館基本信息，安全，高效。節(jié)省大量時間，精力，為房客提供充足的信息和快捷的查詢手段，可以便于他們了解賓館概況并提前預(yù)定。因此開發(fā)賓館管理系統(tǒng)，以適應(yīng)現(xiàn)行工作的要求，提高工作效率很有意義。1.3本課設(shè)的具體研究工作本課設(shè)采用VisualBasic6.0+Access2021實現(xiàn)單機數(shù)據(jù)庫管理，首先用Access建立關(guān)系數(shù)據(jù)庫，設(shè)計了用戶表，賓館概況表，房間信息表。其中用戶表管理登陸信息以及用戶權(quán)限，賓館概況表用來存放賓館基本信息，房間信息表在管理傳統(tǒng)的房間基本信息外加入了房間標準，。然后用VisualBasic建立客戶端，實現(xiàn)簡單易懂的圖形用戶界面，并完成以下幾個功能：用戶管理：該功能包括添加、修改、刪除用戶的功能，并實現(xiàn)用戶權(quán)限的管理。賓館管理：該功能包括添加賓館名稱，賓館所屬地域，賓館標準等，將所有添加的信息統(tǒng)一整理，歸類，以及對添加的信息進行修改和查詢和刪除賓館信息。第2章系統(tǒng)的設(shè)計與實現(xiàn)2.1系統(tǒng)開發(fā)及運行環(huán)境（1）運行平臺：MicrosoftWindowsXP/WindowsVista/Windows7雖然目前國內(nèi)的主流操作系統(tǒng)已經(jīng)由WindowsXP向Windows7過渡，但是由于學(xué)校的硬件設(shè)施更新速度慢，而且僅僅為了教育教學(xué)使用配置普遍偏低，在短期內(nèi)校園的多媒體教室操作系統(tǒng)仍然以WindowsXP為主，所以軟件運行測試都是在WindowsXP中進行（2）系統(tǒng)開發(fā)平臺：VisualBasic6.0（3）后臺數(shù)據(jù)庫系統(tǒng)軟件：Access20212.2系統(tǒng)需求分析根據(jù)實際情況，我們使用原型法（RapidPrototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時模塊也發(fā)展成為最終產(chǎn)品了。由于本系統(tǒng)是入住賓館旅客使用，管理人員是按照賓館各方面的信息來進行組織，而房客則按照自己的要求輸入相關(guān)信息，選擇更加適宜的賓館入住，提前預(yù)定，基于這些特點，確定管理系統(tǒng)的工作流程如下：首先用戶登錄系統(tǒng)，登錄后系統(tǒng)將記錄用戶信息，并讀取用戶權(quán)限信息。然后用戶可以進入用戶管理模塊，這是可選操作，在這里用戶只有修改密碼的權(quán)限，其他權(quán)限是超級用戶所具有的。接著用戶可以進行賓館的管理，如果具有權(quán)限可以進行相應(yīng)的操作，超級用戶可以添加、刪除、顯示賓館信息。賓館存在之后可以向賓館中添加其他相關(guān)信息，同時可以進行修改刪除等操作針對系統(tǒng)的要求設(shè)計了如下數(shù)據(jù)字段與表：（1）用戶信息表，包括的數(shù)據(jù)字段有：用戶名，用戶密碼，用戶權(quán)限。其中用戶名是關(guān)鍵字。（2）賓館信息表，包括的數(shù)據(jù)字段有：賓館名稱，賓館，房間報價，賓館地址等。2.3系統(tǒng)分析設(shè)計C/S結(jié)構(gòu)就是“客戶端/服務(wù)器端”的一種工作模式。一般來說，這種模式都會要求安裝一個客戶端程序，由這個程序和服務(wù)器進行協(xié)同工作，因為由客戶端來專門處理一些工作，所以C/S結(jié)構(gòu)的程序一般都功能強大、界面漂亮，又由于任務(wù)分散在服務(wù)器端和客戶端分別進行，因此提高了硬件的利用效率，對于開發(fā)人員開說也更加容易。基于上速原因本系統(tǒng)采用兩層的C/S結(jié)構(gòu)。模塊是Access中實現(xiàn)數(shù)據(jù)庫復(fù)雜管理功能的有效工具，它由VisualBasic編制的過程和函數(shù)組成。為了清晰、全面的介紹賓館各個方面管理系統(tǒng)的功能，以及各個功能模塊間的關(guān)系，下圖以結(jié)構(gòu)圖的形式給出了系統(tǒng)的功能，如圖3.1所示。（1）用戶管理模塊：輸入用戶名和密碼，如果用戶名和密碼正確，進入主控制平臺；否則提示用戶明確的錯誤信息。管理員可以進行用戶權(quán)限設(shè)置包括新用戶添加，刪除用戶，修改用戶的密碼，顯示所有用戶信息。（2）賓館管理模塊：該模塊主要對賓館信息進行輸入，查詢，修改。包括對賓館名稱，賓館所屬地域，賓館地址和聯(lián)系人的基本信息。當用戶想要查找想要的賓館信息時，可輸入相應(yīng)的信息，系統(tǒng)自動顯示符合要求的賓館供用戶選擇，比較。此過程也包括查詢，修改等功能圖2-1系統(tǒng)功能結(jié)構(gòu)圖2.4課設(shè)的結(jié)果與討論(1)系統(tǒng)的實現(xiàn)與運行結(jié)果登陸界面可實現(xiàn)用戶的登陸，進入系統(tǒng)。圖2-2登陸界面設(shè)置登錄窗體為啟動窗體，運行程序，出現(xiàn)如圖2-2對話框，輸入用戶名、密碼后進入系統(tǒng)，出現(xiàn)如圖2-3主界面。圖2-3主界面在圖2-3的界面中輸入相應(yīng)信息，也可對界面內(nèi)容進行添加，修改，查詢，刪除等功能。在圖2-4中添加信息，點擊確定按鈕，在圖2-5中可顯示2-3中的相應(yīng)信息。用戶可根據(jù)提供的信息進行選擇。圖2-4輸入信息界面圖2-5添加修改界面在圖2-5中用戶可以得到賓館的信息，也可以進行添加，修改，查詢數(shù)據(jù)庫中其他賓館信息。總結(jié)和展望本賓館信息管理系統(tǒng)是使用VisualBasic6.0+Access2021做為開發(fā)工具，基于C/S（客戶端/服務(wù)器端）模式下的小型管理系統(tǒng)。其功能特點都是針對當前旅游或出差過程中游客入住賓館時根據(jù)各人要求不同而提前選擇賓館，以及了解價格提前預(yù)定而設(shè)計，界面友好便于操作。與賓館信息管理系統(tǒng)相比針對性更強，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加強。用戶在選擇賓館之前可以先輸入用戶名和密碼，進入登陸界面。然后根據(jù)界面中輸入的信息，用戶可以選擇相應(yīng)的賓館，也可以多家賓館進行比較，擇優(yōu)選擇。通過賓館提供的信息，提前預(yù)定。信息通訊技術(shù)在信息管理領(lǐng)域的快速發(fā)展,,傳統(tǒng)管理系統(tǒng)正面臨著革命性的變化。基于C/S結(jié)構(gòu)的賓館信息管理系統(tǒng)使用方便,維護簡單,不僅大大節(jié)省了人力資源,提高了工作效率,更有利于房客在入住方面更多的了解，比較，尤其在旅游的高峰期提前預(yù)定房間也給游客提供了極大地便利，具有一定的推廣前景使用價值。附源代碼PublicPasswordKeyAsStringPublicNameKeyAsStringPublicTry_timesAsIntegerPrivateSubCmd_Cancel_Click()EndEndSubPrivateSubCmd_OK_Click()DimjAsSingle'數(shù)據(jù)有效性檢查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"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'判斷密碼是否正確MyUser.GetInfo(NameKey)IfMyUser.Pwd<>PasswordKeyThenMsgBox"密碼錯誤"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"DBapi_DisconnectEndElseExitSubEndIfEndIf'登錄成功，將當前用戶的信息保存在CurUser中CurUser.GetInfo(MyUser.UserName)'關(guān)閉自己UnloadMeEndSubPublicModifyAsBooleanPublicOriIdAsLongPublicOriAreaName,OriHotelNameAsStringPublicOriTypeAsIntegerPrivateFunctionCheck()AsBooleanIfTrim(txtHotel)=""ThenMsgBox"請輸入地域名稱"txtHotel.SetFocusCheck=FalseExitFunctionEndIfIfTrim(txtHotel)=""ThenMsgBox"請輸入賓館名稱"txtHotel.SetFocusCheck=FalseExitFunctionEndIfCheck=TrueEndFunctionPrivateSubCmd_OK_Click()‘檢查用戶輸入的地域數(shù)據(jù)是否有效IfCheck=FalseThenExitSubEndIfWithMyHotel‘把用戶輸入的地域數(shù)據(jù)賦值到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"賓館名稱已經(jīng)存在，請重新輸入"txtHotel.SetFocustxtHotel.SelStart=0txtHotel.SelLength=Len(txtHotel)ExitSubEndIfEndIf‘根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù)IfModify=FalseThen.InsertElse.Update(OriId)EndIfEndWithUnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubComboType_Click()CallLoadarea(ComboType.ListIndex+1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfEndSubPrivateSubForm_Load()‘根據(jù)當前賓館的地域數(shù)據(jù)OriType和OriAreaName裝入地域，設(shè)置地域信息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控件設(shè)置數(shù)據(jù)源Adodc1.RecordSource="SELECTa.AreaName所在地域,h.HnameAs賓館名稱,"_+"h.HlevelAs賓館標準,h.ContactAs聯(lián)系人,h.PhoneAs聯(lián)系,"_+"h.AddressAs通信地址,h.PostcodeAs郵政編碼,h.Price1As經(jīng)濟間報價,"_+"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)))'判斷當前記錄是否出現(xiàn)在線路中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))'聯(lián)系人FrmHotelEdit.txtContact=Trim(Adodc1.Recordset.Fields(3))'聯(lián)系FrmHotelEdit.txtPhone=Trim(Adodc1.Recordset.Fields(4))'通信地址FrmHotelEdit.txtAddress=Trim(Adodc1.Recordset.Fields(5))'郵政編碼FrmHotelEdit.txtCode=Trim(Adodc1.Recordset.Fields(6))'經(jīng)濟間報價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設(shè)置為True，表示當前狀態(tài)為修改已有記錄FrmHotelEdit.Modify=TrueFrmHotelEdit.Show1‘修改完成，刷新顯示內(nèi)容Refresh_HotelAdodc1.Recordset.MovepEndSubPrivateSubCmd_Close_Click()UnloadMeEndSubPrivateSubComboName_Click()Refresh_HotelEndSubPrivateSubComboType_Click()CallLoadarea(ComboType.ListIndex+1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfRefresh_HotelEndSubPrivateSubDataGrid1_Click()‘顯示數(shù)據(jù)EndSubPrivateSubForm_Load()‘對輸入地域數(shù)據(jù)進行初始化ComboType.ListIndex=0CallLoadarea(1,ComboName)IfComboName.ListCount>0ThenComboName.ListIndex=0EndIfRefresh_HotelEndSub

論大學(xué)生寫作能力寫作能力是對自己所積累的信息進行選擇、提取、加工、改造并將之形成為書面文字的能力。積累是寫作的基礎(chǔ)，積累越厚實，寫作就越有基礎(chǔ)，文章就能根深葉茂開奇葩。沒有積累，胸無點墨，怎么也不會寫出作文來的。寫作能力是每個大學(xué)生必須具備的能力。從目前高校整體情況上看，大學(xué)生的寫作能力較為欠缺。一、大學(xué)生應(yīng)用文寫作能力的定義那么，大學(xué)生的寫作能力究竟是指什么呢？葉圣陶先生曾經(jīng)說過，“大學(xué)畢業(yè)生不一定能寫小說詩歌，但是一定要寫工作和生活中實用的文章，而且非寫得既通順又扎實不可?！睂τ诖髮W(xué)生的寫作能力應(yīng)包含什么，可能有多種理解，但從葉圣陶先生的談話中，我認為：大學(xué)生寫作能力應(yīng)包括應(yīng)用寫作能力和文學(xué)寫作能力，而前者是必須的，后者是“不一定”要具備，能具備則更好。眾所周知，對于大學(xué)生來說，是要寫畢業(yè)論文的，我認為寫作論文的能力可以包含在應(yīng)用寫作能力之中。大學(xué)生寫作能力的體現(xiàn)，也往往是在撰寫畢業(yè)論文中集中體現(xiàn)出來的。本科畢業(yè)論文無論是對于學(xué)生個人還是對于院系和學(xué)校來說，都是十分重要的。如何提高本科畢業(yè)論文的質(zhì)量和水平，就成為教育行政部門和高校都很重視的一個重要課題。如何提高大學(xué)生的寫作能力的問題必須得到社會的廣泛關(guān)注，并且提出對策去實施解決。二、造成大學(xué)生應(yīng)用文寫作困境的原因：（一）大學(xué)寫作課開設(shè)結(jié)構(gòu)不合理。就目前中國多數(shù)高校的學(xué)科設(shè)置來看，除了中文專業(yè)會系統(tǒng)開設(shè)寫作的系列課程外，其他專業(yè)的學(xué)生都只開設(shè)了普及性的《大學(xué)語文》課。學(xué)生寫作能力的提高是一項艱巨復(fù)雜的任務(wù)，而我們的課程設(shè)置僅把這一任務(wù)交給了大學(xué)語文教師，可大學(xué)語文教師既要在有限課時時間內(nèi)普及相關(guān)經(jīng)典名著知識，又要適度提高學(xué)生的鑒賞能力，且要教會學(xué)生寫作規(guī)律并提高寫作能力，任務(wù)之重實難完成。（二）對實用寫作的普遍性不重視。“大學(xué)語文”教育已經(jīng)被嚴重地“邊緣化”。目前對中國語文的態(tài)度淡漠，而是呈現(xiàn)出全民學(xué)英語的大好勢頭。中小學(xué)如此，大學(xué)更是如此。對我們的母語中國語文，在大學(xué)反而被漠視，沒有相關(guān)的課程的設(shè)置，沒有系統(tǒng)的學(xué)習(xí)實踐訓(xùn)練。這其實是國人的一種偏見。應(yīng)用寫作有它自身的規(guī)律和方法。一個人學(xué)問很大，會寫小說、詩歌、戲劇等，但如果不曉得應(yīng)用文寫作的特點和方法，他就寫不好應(yīng)用文。（三）部分大學(xué)生學(xué)習(xí)態(tài)度不端正。很多非中文專業(yè)的大學(xué)生對寫作的學(xué)習(xí)和訓(xùn)練都只是集中在《大學(xué)語文》這一門課上，大部分學(xué)生只愿意被動地接受大學(xué)語文老師所講授的文學(xué)經(jīng)典故事，而對于需要學(xué)生動手動腦去寫的作文，卻是盡可能應(yīng)付差事，這樣勢必不能讓大學(xué)生的寫作水平有所提高。（四）教師的實踐性教學(xué)不強。學(xué)生寫作能力的提高是一項艱巨復(fù)雜的任務(wù)，但在教學(xué)中有不少教師過多注重理論知識，實踐性教學(xué)環(huán)節(jié)卻往往被忽視。