vb課程設(shè)計(jì)--基于VB的賓館信息管理系統(tǒng)

1、.Visual Basic 課程設(shè)計(jì)報(bào)告題目：基于VB的賓館信息管理系統(tǒng) 院（系）： 經(jīng)濟(jì)管理學(xué)院 專(zhuān)業(yè)： 信息管理與信息系統(tǒng) 班級(jí)： 姓名： 學(xué)號(hào)： 目錄第1章 課設(shè)概述 .3 1.1賓館管理系統(tǒng)開(kāi)發(fā)背景介紹 .31.2 課程設(shè)計(jì)的目的和意義 .31.3 本課設(shè)的具體研究工作 .4第2章 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) .5 2.1 系統(tǒng)開(kāi)發(fā)及運(yùn)行環(huán)境 .5 2.2 系統(tǒng)需求分析 .62.3 系統(tǒng)分析設(shè)計(jì) .72.4 課設(shè)的結(jié)果與討論 .8第3章 課設(shè)總結(jié)和展望 .10第1章 課設(shè)概述 1.1賓館管理系統(tǒng)開(kāi)發(fā)背景介紹 隨著經(jīng)濟(jì)的發(fā)展和人民生活水平的提高,人們不再局限于自己的小生活圈里，開(kāi)始外出。于是，出差

2、，旅游，變成越來(lái)越普遍的話題。也因此，給旅游業(yè)，服務(wù)業(yè)帶來(lái)了很大的契機(jī)。期中，最受益的當(dāng)屬賓館服務(wù)。當(dāng)然，這亦給賓館的管理造成了困擾。目前很多賓館酒店在這方面的工作還是靠人工進(jìn)行管理,在這種管理方式中,前臺(tái)負(fù)責(zé)人將入住賓館的客人信息，房間信息逐一進(jìn)行登記,最后再進(jìn)行相關(guān)的統(tǒng)計(jì)分析。而客人在入住賓館時(shí)只能盲目進(jìn)入，無(wú)法真正了解和比較那一家賓館更適合自己。傳統(tǒng)的賓館管理模式已經(jīng)暴露出種種弊端，隨著計(jì)算機(jī)應(yīng)用的普及與深入，利用計(jì)算機(jī)能夠?qū)λ匈e館基本信息進(jìn)行統(tǒng)一管理，并進(jìn)行分析，大大減少前臺(tái)負(fù)責(zé)人的工作量，提高工作效率同時(shí)更加方便了游客的選擇，為賓館管理帶來(lái)了極大的方便。1.2課程設(shè)計(jì)的目的和意義

3、建立賓館信息管理系統(tǒng)，采用計(jì)算機(jī)對(duì)賓館基本信息進(jìn)行管理，幫助更多服務(wù)行業(yè)提高工作效率，避免輸入錯(cuò)誤信息及未信息輸入不完全，實(shí)現(xiàn)賓館信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化。 今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了很大的進(jìn)步。很多賓館，酒店運(yùn)用計(jì)算機(jī)來(lái)管理信息，資料。開(kāi)發(fā)一個(gè)簡(jiǎn)單、實(shí)用的賓館管理系統(tǒng)有許多重要性，有以下幾點(diǎn)好處：可以存大量的賓館基本信息，安全，高效。節(jié)省大量時(shí)間，精力，為房客提供充足的信息和快捷的查詢(xún)手段，可以便于他們了解賓館概況并提前預(yù)定。因此開(kāi)發(fā)賓館管理系統(tǒng)，以適應(yīng)現(xiàn)行工作的要求，提高工作效率很有意義。1.3本課設(shè)的具體研究工作本課設(shè)采用Visual Basic6.0 +

4、 Access2003實(shí)現(xiàn)單機(jī)數(shù)據(jù)庫(kù)管理，首先用Access 建立關(guān)系數(shù)據(jù)庫(kù)，設(shè)計(jì)了用戶(hù)表，賓館概況表，房間信息表。其中用戶(hù)表管理登陸信息以及用戶(hù)權(quán)限，賓館概況表用來(lái)存放賓館基本信息，房間信息表在管理傳統(tǒng)的房間基本信息外加入了房間標(biāo)準(zhǔn)，。然后用 Visual Basic 建立客戶(hù)端，實(shí)現(xiàn)簡(jiǎn)單易懂的圖形用戶(hù)界面，并完成以 下幾個(gè)功能：（1） 用戶(hù)管理：該功能包括添加、修改、刪除用戶(hù)的功能，并實(shí)現(xiàn)用戶(hù)權(quán)限的管理。（2） 賓館管理：該功能包括添加賓館名稱(chēng)，賓館所屬地域，賓館標(biāo)準(zhǔn)等，將所有添加的信息統(tǒng)一整理，歸類(lèi)，以及對(duì)添加的信息進(jìn)行修改和查詢(xún)和刪除賓館信息。 第2章 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)2.1系統(tǒng)開(kāi)發(fā)及

5、運(yùn)行環(huán)境 （1）運(yùn)行平臺(tái)：Microsoft Windows XP /Windows Vista/Windows 7 雖然目前國(guó)內(nèi)的主流操作系統(tǒng)已經(jīng)由 Windows XP 向Windows 7 過(guò)渡，但是由于學(xué)校的硬件設(shè)施更新速度慢，而且僅僅為了教育教學(xué)使用配置普遍偏低，在短期內(nèi)校園的多媒體教室操作系統(tǒng)仍然以Windows XP 為主，所以軟件運(yùn)行測(cè)試都是在Windows XP中進(jìn)行 （2）系統(tǒng)開(kāi)發(fā)平臺(tái)：Visual Basic 6.0 （3）后臺(tái)數(shù)據(jù)庫(kù)系統(tǒng)軟件：Access 20032.2系統(tǒng)需求分析 根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造

6、一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶(hù)和開(kāi)發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿(mǎn)足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。由于本系統(tǒng)是入住賓館旅客使用，管理人員是按照賓館各方面的信息來(lái)進(jìn)行組織，而房客則按照自己的要求輸入相關(guān)信息，選擇更加適宜的賓館入住，提前預(yù)定，基于這些特點(diǎn)，確定管理系統(tǒng)的工作流程如下：首先用戶(hù)登錄系統(tǒng)，登錄后系統(tǒng)將記錄用戶(hù)信息，并讀取用戶(hù)權(quán)限信息。然后用戶(hù)可以進(jìn)入用戶(hù)管理模塊，這是可選操作，在這里用戶(hù)只有修改密碼的權(quán)限，其他權(quán)限是超級(jí)用戶(hù)所具有的。接著用戶(hù)可以進(jìn)行賓館的管理，如果具有權(quán)限可以進(jìn)行相

7、應(yīng)的操作，超級(jí)用戶(hù)可以添加、刪除、顯示賓館信息。賓館存在之后可以向賓館中添加其他相關(guān)信息，同時(shí)可以進(jìn)行修改刪除等操作針對(duì)系統(tǒng)的要求設(shè)計(jì)了如下數(shù)據(jù)字段與表：（1）用戶(hù)信息表，包括的數(shù)據(jù)字段有：用戶(hù)名，用戶(hù)密碼，用戶(hù)權(quán)限。其中用戶(hù)名是關(guān)鍵字。（2）賓館信息表，包括的數(shù)據(jù)字段有：賓館名稱(chēng)，賓館電話，房間報(bào)價(jià)，賓館地址等。 2.3系統(tǒng)分析設(shè)計(jì) C/S結(jié)構(gòu)就是“客戶(hù)端/服務(wù)器端”的一種工作模式。一般來(lái)說(shuō)，這種模式都會(huì)要求安裝一個(gè)客戶(hù)端程序，由這個(gè)程序和服務(wù)器進(jìn)行協(xié)同工作，因?yàn)橛煽蛻?hù)端來(lái)專(zhuān)門(mén)處理一些工作，所以C/S 結(jié)構(gòu)的程序一般都功能強(qiáng)大、界面漂亮，又由于任務(wù)分散在服務(wù)器端和客戶(hù)端分別進(jìn)行，因此提高了硬

8、件的利用效率，對(duì)于開(kāi)發(fā)人員開(kāi)說(shuō)也更加容易?；谏纤僭虮鞠到y(tǒng)采用兩層的C/S結(jié)構(gòu)。 模塊是Access中實(shí)現(xiàn)數(shù)據(jù)庫(kù)復(fù)雜管理功能的有效工具，它由VisualBasic編制的過(guò)程和函數(shù)組成。為了清晰、全面的介紹賓館各個(gè)方面管理系統(tǒng)的功能，以及各個(gè)功能模塊間的關(guān)系，下圖以結(jié)構(gòu)圖的形式給出了系統(tǒng)的功能，如圖 3.1 所示。 （1）用戶(hù)管理模塊：輸入用戶(hù)名和密碼，如果用戶(hù)名和密碼正確，進(jìn)入主控制平臺(tái)；否則提示用戶(hù)明確的錯(cuò)誤信息。管理員可以進(jìn)行用戶(hù)權(quán)限設(shè)置包括新用戶(hù)添加，刪除用戶(hù)，修改用戶(hù)的密碼，顯示所有用戶(hù)信息。 （2）賓館管理模塊：該模塊主要對(duì)賓館信息進(jìn)行輸入，查詢(xún)，修改。包括對(duì)賓館名稱(chēng)，賓館所屬地域

9、，賓館地址和聯(lián)系人的基本信息。 當(dāng)用戶(hù)想要查找想要的賓館信息時(shí)，可輸入相應(yīng)的信息，系統(tǒng)自動(dòng)顯示符合要求的賓館供用戶(hù)選擇，比較。此過(guò)程也包括查詢(xún)，修改等功能 圖2-1 系統(tǒng)功能結(jié)構(gòu)圖2.4課設(shè)的結(jié)果與討論 (1)系統(tǒng)的實(shí)現(xiàn)與運(yùn)行結(jié)果 登陸界面可實(shí)現(xiàn)用戶(hù)的登陸，進(jìn)入系統(tǒng)。 圖2-2 登陸界面設(shè)置登錄窗體為啟動(dòng)窗體，運(yùn)行程序，出現(xiàn)如圖 2-2 對(duì)話框，輸入用戶(hù)名、密碼后進(jìn)入系統(tǒng)，出現(xiàn)如圖 2-3 主界面。 圖2-3 主界面 在圖2-3的界面中輸入相應(yīng)信息，也可對(duì)界面內(nèi)容進(jìn)行添加，修改，查詢(xún)，刪除等功能。在圖2-4中添加信息，點(diǎn)擊確定按鈕，在圖2-5中可顯示2-3中的相應(yīng)信息。用戶(hù)可根據(jù)提供的信息進(jìn)行

10、選擇。 圖2-4 輸入信息界面 圖2-5 添加修改界面在圖2-5中用戶(hù)可以得到賓館的信息，也可以進(jìn)行添加，修改，查詢(xún)數(shù)據(jù)庫(kù)中其他賓館信息。 總結(jié)和展望 本賓館信息管理系統(tǒng)是使用Visual Basic6.0 + Access2003做為開(kāi)發(fā)工具，基于C/S（客戶(hù)端/服務(wù)器端）模式下的小型管理系統(tǒng)。其功能特點(diǎn)都是針對(duì)當(dāng)前旅游或出差過(guò)程中游客入住賓館時(shí)根據(jù)各人要求不同而提前選擇賓館，以及了解價(jià)格提前預(yù)定而設(shè)計(jì)，界面友好便于操作。與賓館信息管理系統(tǒng)相比針對(duì)性更強(qiáng)，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加強(qiáng)。用戶(hù)在選擇賓館之前可以先輸入用戶(hù)名和密碼，進(jìn)入登陸界面。然后根據(jù)界面中輸入

11、的信息，用戶(hù)可以選擇相應(yīng)的賓館，也可以多家賓館進(jìn)行比較，擇優(yōu)選擇。通過(guò)賓館提供的信息，提前預(yù)定。信息通訊技術(shù)在信息管理領(lǐng)域的快速發(fā)展,傳統(tǒng)管理系統(tǒng)正面臨著革命性的變化?；贑/S 結(jié)構(gòu)的賓館信息管理系統(tǒng)使用方便,維護(hù)簡(jiǎn)單,不僅大大節(jié)省了人力資源,提高了工作效率,更有利于房客在入住方面更多的了解，比較，尤其在旅游的高峰期提前預(yù)定房間也給游客提供了極大地便利，具有一定的推廣前景使用價(jià)值。 附源代碼Public PasswordKey As StringPublic NameKey As StringPublic Try_times As IntegerPrivate Sub Cmd_Cancel_

12、Click() EndEnd SubPrivate Sub Cmd_OK_Click() Dim j As Single '數(shù)據(jù)有效性檢查 If txtUser = "" Then MsgBox "請(qǐng)輸入用戶(hù)名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "請(qǐng)輸入密碼" txtPwd.SetFocus Exit Sub End If 將用戶(hù)輸入賦值到變量中 NameKey = MakeStr(txtUser) PasswordKe

13、y = MakeStr(txtPwd) '判斷用戶(hù)是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox "用戶(hù)名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If '判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.Pwd <&

14、gt; PasswordKey Then MsgBox "密碼錯(cuò)誤" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If '登錄成功，將當(dāng)前用戶(hù)的信息保存在CurUser中 CurUser.GetInfo (MyUser.UserName) '關(guān)閉自己 Unload MeEnd SubPublic Modify As Bool

15、eanPublic OriId As LongPublic OriAreaName, OriHotelName As StringPublic OriType As IntegerPrivate Function Check() As Boolean If Trim(txtHotel) = "" Then MsgBox "請(qǐng)輸入地域名稱(chēng)" txtHotel.SetFocus Check = False Exit Function End If If Trim(txtHotel) = "" Then MsgBox "請(qǐng)輸入賓館

16、名稱(chēng)" txtHotel.SetFocus Check = False Exit Function End If Check = TrueEnd FunctionPrivate Sub Cmd_OK_Click() 檢查用戶(hù)輸入的地域數(shù)據(jù)是否有效 If Check = False Then Exit Sub End If With MyHotel 把用戶(hù)輸入的地域數(shù)據(jù)賦值到MyHotel對(duì)象的成員變量中 .Hname = MakeStr(txtHotel) .Hlevel = ComboLevel.Text .Contact = MakeStr(txtContact) .Phone

17、= MakeStr(txtPhone) .Address = MakeStr(txtAddress) .Postcode = MakeStr(txtCode) .Price1 = Val(txtPrice1) .Price2 = Val(txtPrice2) .Price3 = Val(txtPrice3) .Price4 = Val(txtPrice4) .AreaId = MyArea.GetId(ComboName) '判斷賓館名稱(chēng)是否存在 If Modify = False Or OriHotelName <> Trim(txtHotel) Then If .In_

18、DB(MakeStr(txtHotel) = True Then MsgBox "賓館名稱(chēng)已經(jīng)存在，請(qǐng)重新輸入" txtHotel.SetFocus txtHotel.SelStart = 0 txtHotel.SelLength = Len(txtHotel) Exit Sub End If End If根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) End If End With Unload MeEnd SubPrivate Sub Cmd_Canc

19、el_Click() Unload MeEnd SubPrivate Sub ComboType_Click() Call Loadarea(ComboType.ListIndex + 1, ComboName) If ComboName.ListCount > 0 Then ComboName.ListIndex = 0 End IfEnd SubPrivate Sub Form_Load() 根據(jù)當(dāng)前賓館的地域數(shù)據(jù)OriType和OriAreaName裝入地域，設(shè)置地域信息 ComboType.ListIndex = OriType - 1 Call Loadarea(OriType

20、, ComboName) If InCombo(OriAreaName, ComboName) = True Then ComboName.Text = OriAreaName End IfEnd SubPrivate Sub txtAddress_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii)End SubPrivate Sub txtPrice1_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii =

21、0 End IfEnd SubPrivate Sub txtPrice2_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End IfEnd SubPrivate Sub txtPrice3_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End IfEnd SubPrivate Sub txtPr

22、ice4_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End IfEnd SubPrivate Sub txtCode_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii)End SubPrivate Sub txtContact_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii)End SubPrivate Sub txtPhone_KeyPres

23、s(KeyAscii As Integer) EnterTAB (KeyAscii)End SubPrivate Sub txtHotel_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii)End SubPrivate Sub Refresh_Hotel() 為Adodc1控件設(shè)置數(shù)據(jù)源 Adodc1.RecordSource = "SELECT a.AreaName 所在地域, h.Hname As 賓館名稱(chēng)," _ + " h.Hlevel As 賓館標(biāo)準(zhǔn), h.Contact As 聯(lián)系人, h.Phone A

24、s 聯(lián)系電話," _ + " h.Address As 通信地址, h.Postcode As 郵政編碼, h.Price1 As 經(jīng)濟(jì)間報(bào)價(jià)," _ + " h.Price2 As 雙人間報(bào)價(jià), h.Price3 As 三人間報(bào)價(jià), h.Price4 As 四人間報(bào)價(jià)," _ + " h.Input_time As 錄入時(shí)間 FROM Hotel h, Area a WHERE h.AreaId=a.AreaId" _ + " And a.AreaName='" + Trim(ComboName

25、.Text) + "'" Adodc1.RefreshEnd SubPrivate Sub Cmd_Add_Click() FrmHotelEdit.Modify = False FrmHotelEdit.OriAreaName = ComboName.Text FrmHotelEdit.OriType = ComboType.ListIndex + 1 FrmHotelEdit.OriId = 0 FrmHotelEdit.Show 1 Refresh_HotelEnd SubPrivate Sub Cmd_Del_Click() Dim TmpId As Lon

26、g 判斷是否選擇了要?jiǎng)h除的記錄 If Adodc1.Recordset.EOF = True Then MsgBox "請(qǐng)選擇記錄" Exit Sub End If 確定當(dāng)前選擇記錄的位置 p = Adodc1.Recordset.AbsolutePosition 要?jiǎng)h除的賓館編號(hào) TmpId = MyHotel.GetId(Trim(Adodc1.Recordset.Fields(1) '判斷當(dāng)前記錄是否出現(xiàn)在線路中 If Mylhotel.HotelInLine(TmpId) > 0 Then MsgBox "此賓館在線路中使用，不能刪除&quo

27、t; Exit Sub End If '確認(rèn)刪除 If MsgBox("是否刪除當(dāng)前行?", vbYesNo, "確認(rèn)") = vbYes Then MyHotel.Delete (TmpId) Refresh_Hotel If p - 1 > 0 Then Adodc1.Recordset.Move p - 1 End If End IfEnd SubPrivate Sub Cmd_Modi_Click() If Adodc1.Recordset.EOF = True Then MsgBox "請(qǐng)選擇記錄" Exit

28、Sub End If 確定當(dāng)前選擇記錄的位置 p = Adodc1.Recordset.AbsolutePosition '賓館編號(hào) FrmHotelEdit.OriId = MyHotel.GetId(Adodc1.Recordset.Fields(1) '地域信息 FrmHotelEdit.OriAreaName = ComboName.Text FrmHotelEdit.OriType = ComboType.ListIndex + 1 '賓館名稱(chēng) FrmHotelEdit.OriHotelName = Trim(Adodc1.Recordset.Fields(1) FrmHotelEdit.txtHotel = Trim(Adodc1.Recordset.Fields(1) '賓館級(jí)別 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 =