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

1、<p>　　Visual Basic 課程設(shè)計報告</p><p>　　題目：基于VB的賓館信息管理系統(tǒng)</p><p>　　院（系）： 經(jīng)濟(jì)管理學(xué)院 </p><p>　　專業(yè)： 信息管理與信息系統(tǒng) </p><p>　　班級： </

2、p><p>　　姓名： </p><p>　　學(xué)號： </p><p><b>　　目錄</b></p><p><b>　　課設(shè)概述 </b></p><p>　　..........................

3、.......................3 </p><p>　　1.1賓館管理系統(tǒng)開發(fā)背景介紹</p><p>　　.....................................3</p><p>　　1.2 課程設(shè)計的目的和意義 </p><p>　　...................................

4、.....3</p><p>　　1.3 本課設(shè)的具體研究工作 </p><p>　　.......................................4</p><p><b>　　系統(tǒng)的設(shè)計與實(shí)現(xiàn)</b></p><p>　　........................................

5、.5 </p><p>　　2.1 系統(tǒng)開發(fā)及運(yùn)行環(huán)境</p><p>　　..........................................5 2.2 系統(tǒng)需求分析</p><p>　　......................................

6、...........6</p><p>　　2.3 系統(tǒng)分析設(shè)計</p><p>　　.................................................7</p><p>　　2.4 課設(shè)的結(jié)果與討論</p><p>　　............................................

7、..8</p><p><b>　　課設(shè)總結(jié)和展望</b></p><p>　　...........................................10</p><p><b>　　第1章 課設(shè)概述</b></p><p>　　1.1賓館管理系統(tǒng)開發(fā)背景介紹</p>

8、<p>　　隨著經(jīng)濟(jì)的發(fā)展和人民生活水平的提高,人們不再局限于自己的小生活圈里，開始外出。于是，出差，旅游，變成越來越普遍的話題。也因此，給旅游業(yè)，服務(wù)業(yè)帶來了很大的契機(jī)。期中，最受益的當(dāng)屬賓館服務(wù)。當(dāng)然，這亦給賓館的管理造成了困擾。</p><p>　　目前很多賓館酒店在這方面的工作還是靠人工進(jìn)行管理,在這種管理方式中,前臺負(fù)責(zé)人將入住賓館的客人信息，房間信息逐一進(jìn)行登記,最后再進(jìn)行相關(guān)的統(tǒng)計分析。而

9、客人在入住賓館時只能盲目進(jìn)入，無法真正了解和比較那一家賓館更適合自己。傳統(tǒng)的賓館管理模式已經(jīng)暴露出種種弊端，隨著計算機(jī)應(yīng)用的普及與深入，利用計算機(jī)能夠?qū)λ匈e館基本信息進(jìn)行統(tǒng)一管理，并進(jìn)行分析，大大減少前臺負(fù)責(zé)人的工作量，提高工作效率同時更加方便了游客的選擇，為賓館管理帶來了極大的方便。</p><p>　　1.2課程設(shè)計的目的和意義</p><p>　　建立賓館信息管理系統(tǒng)，采用計算機(jī)對

10、賓館基本信息進(jìn)行管理，幫助更多服務(wù)行業(yè)提高工作效率，避免輸入錯誤信息及未信息輸入不完全，實(shí)現(xiàn)賓館信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化。 </p><p>　　今天，計算機(jī)的價格已經(jīng)十分低廉，性能卻有了很大的進(jìn)步。很多賓館，酒店運(yùn)用計算機(jī)來管理信息，資料。開發(fā)一個簡單、實(shí)用的賓館管理系統(tǒng)有許多重要性，有以下幾點(diǎn)好處：可以存大量的賓館基本信息，安全，高效。節(jié)省大量時間，精力，為房客提供充足的信息和快捷的查詢手段

11、，可以便于他們了解賓館概況并提前預(yù)定。因此開發(fā)賓館管理系統(tǒng)，以適應(yīng)現(xiàn)行工作的要求，提高工作效率很有意義。</p><p>　　1.3本課設(shè)的具體研究工作</p><p>　　本課設(shè)采用Visual Basic6.0 + Access2003實(shí)現(xiàn)單機(jī)數(shù)據(jù)庫管理，首先用Access 建立關(guān)系數(shù)據(jù)庫，設(shè)計了用戶表，賓館概況表，房間信息表。其中用戶表管理登陸信息以及用戶權(quán)限，賓館概況表用來存放賓館

12、基本信息，房間信息表在管理傳統(tǒng)的房間基本信息外加入了房間標(biāo)準(zhǔn)，。</p><p>　　然后用 Visual Basic 建立客戶端，實(shí)現(xiàn)簡單易懂的圖形用戶界面，并完成以 下幾個功能：</p><p>　　用戶管理：該功能包括添加、修改、刪除用戶的功能，并實(shí)現(xiàn)用戶權(quán)限的管理。</p><p>　　賓館管理：該功能包括添加賓館名稱，賓館所屬地域，賓館標(biāo)準(zhǔn)等，將所有添

13、加的信息統(tǒng)一整理，歸類，以及對添加的信息進(jìn)行修改和查詢和刪除賓館信息。</p><p>　　第2章 系統(tǒng)的設(shè)計與實(shí)現(xiàn)</p><p>　　2.1系統(tǒng)開發(fā)及運(yùn)行環(huán)境</p><p>　?。?）運(yùn)行平臺：Microsoft Windows XP /Windows Vista/Windows 7 </p><p>　　雖然目前國內(nèi)的主流操作系統(tǒng)已

14、經(jīng)由 Windows XP 向Windows 7 過渡，但是由于學(xué)校的硬件設(shè)施更新速度慢，而且僅僅為了教育教學(xué)使用配置普遍偏低，在短期內(nèi)校園的多媒體教室操作系統(tǒng)仍然以Windows XP 為主，所以軟件運(yùn)行測試都是在Windows XP中進(jìn)行</p><p>　?。?）系統(tǒng)開發(fā)平臺：Visual Basic 6.0</p><p>　　（3）后臺數(shù)據(jù)庫系統(tǒng)軟件：Access 2003<

15、;/p><p><b>　　2.2系統(tǒng)需求分析</b></p><p>　　根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價快速地構(gòu)造一個可執(zhí)行的軟件系統(tǒng)模型。使用戶和開發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時模塊也發(fā)展成為最終產(chǎn)品了。</

16、p><p>　　由于本系統(tǒng)是入住賓館旅客使用，管理人員是按照賓館各方面的信息來進(jìn)行組織，而房客則按照自己的要求輸入相關(guān)信息，選擇更加適宜的賓館入住，提前預(yù)定，基于這些特點(diǎn)，確定管理系統(tǒng)的工作流程如下：</p><p>　　首先用戶登錄系統(tǒng)，登錄后系統(tǒng)將記錄用戶信息，并讀取用戶權(quán)限信息。然后用戶可以進(jìn)入用戶管理模塊，這是可選操作，在這里用戶只有修改密碼的權(quán)限，其他權(quán)限是超級用戶所具有的。接著用戶

17、可以進(jìn)行賓館的管理，如果具有權(quán)限可以進(jìn)行相應(yīng)的操作，超級用戶可以添加、刪除、顯示賓館信息。賓館存在之后可以向賓館中添加其他相關(guān)信息，同時可以進(jìn)行修改刪除等操作針對系統(tǒng)的要求設(shè)計了如下數(shù)據(jù)字段與表：</p><p>　?。?）用戶信息表，包括的數(shù)據(jù)字段有：用戶名，用戶密碼，用戶權(quán)限。其中用戶名是關(guān)鍵字。</p><p>　　（2）賓館信息表，包括的數(shù)據(jù)字段有：賓館名稱，賓館電話，房間報價，賓

18、館地址等。 </p><p><b>　　2.3系統(tǒng)分析設(shè)計</b></p><p>　　C/S結(jié)構(gòu)就是“客戶端/服務(wù)器端”的一種工作模式。一般來說，這種模式都會要求安裝一個客戶端程序，由這個程序和服務(wù)器進(jìn)行協(xié)同工作，因?yàn)橛煽蛻舳藖韺ｉT處理一些工作，所以C/S 結(jié)構(gòu)的程序一般都功能強(qiáng)大、界面漂亮，又由于任務(wù)分散在服務(wù)器端和客戶端分別進(jìn)行，因此提高了硬件的利用效率，對于

19、開發(fā)人員開說也更加容易?；谏纤僭虮鞠到y(tǒng)采用兩層的C/S結(jié)構(gòu)。</p><p>　　模塊是Access中實(shí)現(xiàn)數(shù)據(jù)庫復(fù)雜管理功能的有效工具，它由VisualBasic編制的過程和函數(shù)組成。為了清晰、全面的介紹賓館各個方面管理系統(tǒng)的功能，以及各個功能模塊間的關(guān)系，下圖以結(jié)構(gòu)圖的形式給出了系統(tǒng)的功能，如圖 3.1 所示。</p><p>　?。?）用戶管理模塊：輸入用戶名和密碼，如果用戶名和

20、密碼正確，進(jìn)入主控制平臺；否則提示用戶明確的錯誤信息。管理員可以進(jìn)行用戶權(quán)限設(shè)置包括新用戶添加，刪除用戶，修改用戶的密碼，顯示所有用戶信息。</p><p>　?。?）賓館管理模塊：該模塊主要對賓館信息進(jìn)行輸入，查詢，修改。包括對賓館名稱，賓館所屬地域，賓館地址和聯(lián)系人的基本信息。</p><p>　　當(dāng)用戶想要查找想要的賓館信息時，可輸入相應(yīng)的信息，系統(tǒng)自動顯示符合要求的賓館供用戶選擇，

21、比較。此過程也包括查詢，修改等功能</p><p>　　圖2-1 系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　2.4課設(shè)的結(jié)果與討論</p><p>　　(1)系統(tǒng)的實(shí)現(xiàn)與運(yùn)行結(jié)果</p><p>　　登陸界面可實(shí)現(xiàn)用戶的登陸，進(jìn)入系統(tǒng)。</p><p>　　圖2-2 登陸界面</p><p>　

22、　設(shè)置登錄窗體為啟動窗體，運(yùn)行程序，出現(xiàn)如圖 2-2 對話框，輸入用戶名、密碼后進(jìn)入系統(tǒng)，出現(xiàn)如圖 2-3 主界面。</p><p>　　圖2-3 主界面</p><p>　　在圖2-3的界面中輸入相應(yīng)信息，也可對界面內(nèi)容進(jìn)行添加，修改，查詢，刪除等功能。在圖2-4中添加信息，點(diǎn)擊確定按鈕，在圖2-5中可顯示2-3中的相應(yīng)信息。用戶可根據(jù)提供的信息進(jìn)行選擇。 </p>&

23、lt;p>　　圖2-4 輸入信息界面</p><p>　　圖2-5 添加修改界面</p><p>　　在圖2-5中用戶可以得到賓館的信息，也可以進(jìn)行添加，修改，查詢數(shù)據(jù)庫中其他賓館信息。 </p><p><b>　　總結(jié)和展望</b></p><p>　　本賓館信息管理系統(tǒng)是使用Visual Basic6

24、.0 + Access2003做為開發(fā)工具，基于C/S（客戶端/服務(wù)器端）模式下的小型管理系統(tǒng)。其功能特點(diǎn)都是針對當(dāng)前旅游或出差過程中游客入住賓館時根據(jù)各人要求不同而提前選擇賓館，以及了解價格提前預(yù)定而設(shè)計，界面友好便于操作。與賓館信息管理系統(tǒng)相比針對性更強(qiáng)，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加強(qiáng)。用戶在選擇賓館之前可以先輸入用戶名和密碼，進(jìn)入登陸界面。然后根據(jù)界面中輸入的信息，用戶可以選擇相應(yīng)的賓館，也可以多家

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

26、t;b>　　附源代碼</b></p><p>　　Public PasswordKey As String</p><p>　　Public NameKey As String</p><p>　　Public Try_times As Integer</p><p>　　Private Sub Cmd_Cancel_Cli

27、ck()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_OK_Click()</p><p>　　Dim j As Single</p><p><b>　　

28、9;數(shù)據(jù)有效性檢查</b></p><p>　　If txtUser = "" Then</p><p>　　MsgBox "請輸入用戶名"</p><p>　　txtUser.SetFocus</p><p><b>　　Exit Sub</b></p>

29、<p><b>　　End If</b></p><p>　　If txtPwd = "" Then</p><p>　　MsgBox "請輸入密碼"</p><p>　　txtPwd.SetFocus</p><p><b>　　Exit Sub</b

30、></p><p><b>　　End If </b></p><p>　　將用戶輸入賦值到變量中</p><p>　　NameKey = MakeStr(txtUser)</p><p>　　PasswordKey = MakeStr(txtPwd)</p><p><b>　　

31、'判斷用戶是否存在</b></p><p>　　If MyUser.In_DB(NameKey) = False Then</p><p>　　MsgBox "用戶名不存在"</p><p>　　Try_times = Try_times + 1</p><p>　　If Try_times >=

32、 3 Then</p><p>　　MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"</p><p>　　DBapi_Disconnect</p><p><b>　　End</b></p><p><b>　　Else</b></p><p&

33、gt;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　'判斷密碼是否正確</b></p><p>　　MyUser.GetInfo

34、 (NameKey)</p><p>　　If MyUser.Pwd <> PasswordKey Then</p><p>　　MsgBox "密碼錯誤"</p><p>　　Try_times = Try_times + 1</p><p>　　If Try_times >= 3 Then</p

35、><p>　　MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"</p><p>　　DBapi_Disconnect</p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　

36、　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　'登錄成功，將當(dāng)前用戶的信息保存在CurUser中</p><p>　　CurUser.GetInfo (MyUser.UserNa

37、me)</p><p><b>　　'關(guān)閉自己</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Public Modify As Boolean</p><p&g

38、t;　　Public OriId As Long</p><p>　　Public OriAreaName, OriHotelName As String</p><p>　　Public OriType As Integer</p><p>　　Private Function Check() As Boolean</p><p>　　If

39、 Trim(txtHotel) = "" Then</p><p>　　MsgBox "請輸入地域名稱"</p><p>　　txtHotel.SetFocus</p><p>　　Check = False</p><p>　　Exit Function</p><p><

40、;b>　　End If</b></p><p>　　If Trim(txtHotel) = "" Then</p><p>　　MsgBox "請輸入賓館名稱"</p><p>　　txtHotel.SetFocus</p><p>　　Check = False</p>

41、<p>　　Exit Function</p><p><b>　　End If</b></p><p>　　Check = True</p><p>　　End Function</p><p>　　Private Sub Cmd_OK_Click()</p><p>　　‘檢查用戶

42、輸入的地域數(shù)據(jù)是否有效</p><p>　　If Check = False Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　With MyHotel</p><p>　　‘把用戶輸入的地域

43、數(shù)據(jù)賦值到MyHotel對象的成員變量中</p><p>　　.Hname = MakeStr(txtHotel)</p><p>　　.Hlevel = ComboLevel.Text</p><p>　　.Contact = MakeStr(txtContact)</p><p>　　.Phone = MakeStr(txtPhone)&

44、lt;/p><p>　　.Address = MakeStr(txtAddress)</p><p>　　.Postcode = MakeStr(txtCode)</p><p>　　.Price1 = Val(txtPrice1)</p><p>　　.Price2 = Val(txtPrice2)</p><p>　　

45、.Price3 = Val(txtPrice3)</p><p>　　.Price4 = Val(txtPrice4)</p><p>　　.AreaId = MyArea.GetId(ComboName)</p><p>　　'判斷賓館名稱是否存在</p><p>　　If Modify = False Or OriHotelNam

46、e <> Trim(txtHotel) Then</p><p>　　If .In_DB(MakeStr(txtHotel)) = True Then</p><p>　　MsgBox "賓館名稱已經(jīng)存在，請重新輸入"</p><p>　　txtHotel.SetFocus</p><p>　　txtHotel

47、.SelStart = 0</p><p>　　txtHotel.SelLength = Len(txtHotel)</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b><

48、/p><p>　　‘根據(jù)變量Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù)</p><p>　　If Modify = False Then</p><p><b>　　.Insert</b></p><p><b>　　Else</b></p><p>　　.Updat

49、e (OriId)</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>&

50、lt;p>　　Private Sub Cmd_Cancel_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub ComboType_Click()</p><p>　　Call

51、Loadarea(ComboType.ListIndex + 1, ComboName)</p><p>　　If ComboName.ListCount > 0 Then</p><p>　　ComboName.ListIndex = 0</p><p><b>　　End If</b></p><p><

52、b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　‘根據(jù)當(dāng)前賓館的地域數(shù)據(jù)OriType和OriAreaName裝入地域，設(shè)置地域信息</p><p>　　ComboType.ListIndex = OriType - 1</p><p>　　Call L

53、oadarea(OriType, ComboName)</p><p>　　If InCombo(OriAreaName, ComboName) = True Then</p><p>　　ComboName.Text = OriAreaName</p><p><b>　　End If</b></p><p><

54、b>　　End Sub</b></p><p>　　Private Sub txtAddress_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p><b>　　End Sub</b></p><p>　　Private

55、 Sub txtPrice1_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p>　　If In_Single(KeyAscii) = False Then</p><p>　　KeyAscii = 0</p><p><b>　　End If<

56、;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub txtPrice2_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p>　　If In_Single(KeyAscii) =

57、False Then</p><p>　　KeyAscii = 0</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub txtPrice3_KeyPress(KeyAscii As Integer)<

58、/p><p>　　EnterTAB (KeyAscii)</p><p>　　If In_Single(KeyAscii) = False Then</p><p>　　KeyAscii = 0</p><p><b>　　End If</b></p><p><b>　　End Sub&l

59、t;/b></p><p>　　Private Sub txtPrice4_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p>　　If In_Single(KeyAscii) = False Then</p><p>　　KeyAscii = 0<

60、;/p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub txtCode_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p>

61、<p><b>　　End Sub</b></p><p>　　Private Sub txtContact_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p><b>　　End Sub</b></p><p

62、>　　Private Sub txtPhone_KeyPress(KeyAscii As Integer)</p><p>　　EnterTAB (KeyAscii)</p><p><b>　　End Sub</b></p><p>　　Private Sub txtHotel_KeyPress(KeyAscii As Integer)

63、</p><p>　　EnterTAB (KeyAscii)</p><p><b>　　End Sub</b></p><p>　　Private Sub Refresh_Hotel()</p><p>　　‘為Adodc1控件設(shè)置數(shù)據(jù)源</p><p>　　Adodc1.RecordSourc

64、e = "SELECT a.AreaName 所在地域, h.Hname As 賓館名稱," _</p><p>　　+ " h.Hlevel As 賓館標(biāo)準(zhǔn), h.Contact As 聯(lián)系人, h.Phone As 聯(lián)系電話," _</p><p>　　+ " h.Address As 通信地址, h.Postcode As 郵政編碼,

65、 h.Price1 As 經(jīng)濟(jì)間報價," _</p><p>　　+ " h.Price2 As 雙人間報價, h.Price3 As 三人間報價, h.Price4 As 四人間報價," _</p><p>　　+ " h.Input_time As 錄入時間 FROM Hotel h, Area a WHERE h.AreaId=a.AreaId

66、" _</p><p>　　+ " And a.AreaName='" + Trim(ComboName.Text) + "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Pr

67、ivate Sub Cmd_Add_Click()</p><p>　　FrmHotelEdit.Modify = False</p><p>　　FrmHotelEdit.OriAreaName = ComboName.Text</p><p>　　FrmHotelEdit.OriType = ComboType.ListIndex + 1</p>

68、<p>　　FrmHotelEdit.OriId = 0</p><p>　　FrmHotelEdit.Show 1</p><p>　　Refresh_Hotel</p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_Del_Click()</p>

69、<p>　　Dim TmpId As Long</p><p>　　‘判斷是否選擇了要刪除的記錄</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "請選擇記錄"</p><p><b>　　Exit Sub</b&g

70、t;</p><p><b>　　End If</b></p><p>　　‘確定當(dāng)前選擇記錄的位置</p><p>　　p = Adodc1.Recordset.AbsolutePosition</p><p><b>　　‘要刪除的賓館編號</b></p><p>　　T

71、mpId = MyHotel.GetId(Trim(Adodc1.Recordset.Fields(1)))</p><p>　　'判斷當(dāng)前記錄是否出現(xiàn)在線路中</p><p>　　If Mylhotel.HotelInLine(TmpId) > 0 Then</p><p>　　MsgBox "此賓館在線路中使用，不能刪除"<

72、;/p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　'確認(rèn)刪除</b></p><p>　　If MsgBox("是否刪除當(dāng)前行?", vbYesNo, "確認(rèn)&q

73、uot;) = vbYes Then</p><p>　　MyHotel.Delete (TmpId)</p><p>　　Refresh_Hotel</p><p>　　If p - 1 > 0 Then</p><p>　　Adodc1.Recordset.Move p - 1</p><p><b&g

74、t;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_Modi_Click()</p><p>　　If Adodc1.Recordset.EOF = Tru

75、e Then</p><p>　　MsgBox "請選擇記錄"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　‘確定當(dāng)前選擇記錄的位置</p><p>　　p = Adodc1.

76、Recordset.AbsolutePosition</p><p><b>　　'賓館編號</b></p><p>　　FrmHotelEdit.OriId = MyHotel.GetId(Adodc1.Recordset.Fields(1))</p><p><b>　　'地域信息</b></p&

77、gt;<p>　　FrmHotelEdit.OriAreaName = ComboName.Text</p><p>　　FrmHotelEdit.OriType = ComboType.ListIndex + 1</p><p><b>　　'賓館名稱</b></p><p>　　FrmHotelEdit.OriHote

78、lName = Trim(Adodc1.Recordset.Fields(1))</p><p>　　FrmHotelEdit.txtHotel = Trim(Adodc1.Recordset.Fields(1))</p><p><b>　　'賓館級別</b></p><p>　　FrmHotelEdit.ComboLevel = T

79、rim(Adodc1.Recordset.Fields(2))</p><p><b>　　'聯(lián)系人</b></p><p>　　FrmHotelEdit.txtContact = Trim(Adodc1.Recordset.Fields(3))</p><p><b>　　'聯(lián)系電話</b></p&

80、gt;<p>　　FrmHotelEdit.txtPhone = Trim(Adodc1.Recordset.Fields(4))</p><p><b>　　'通信地址</b></p><p>　　FrmHotelEdit.txtAddress = Trim(Adodc1.Recordset.Fields(5))</p><

81、p><b>　　'郵政編碼</b></p><p>　　FrmHotelEdit.txtCode = Trim(Adodc1.Recordset.Fields(6))</p><p><b>　　'經(jīng)濟(jì)間報價</b></p><p>　　FrmHotelEdit.txtPrice1 = Adodc1.

82、Recordset.Fields(7)</p><p><b>　　'雙人間報價</b></p><p>　　FrmHotelEdit.txtPrice2 = Adodc1.Recordset.Fields(8)</p><p><b>　　'三人間報價</b></p><p>　　

83、FrmHotelEdit.txtPrice3 = Adodc1.Recordset.Fields(9)</p><p><b>　　'四人間報價</b></p><p>　　FrmHotelEdit.txtPrice4 = Adodc1.Recordset.Fields(10)</p><p>　　‘把變量Modify設(shè)置為True，表

84、示當(dāng)前狀態(tài)為修改已有記錄</p><p>　　FrmHotelEdit.Modify = True</p><p>　　FrmHotelEdit.Show 1</p><p>　　‘修改完成，刷新顯示內(nèi)容</p><p>　　Refresh_Hotel</p><p>　　Adodc1.Recordset.Move p

85、</p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_Close_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p&g

86、t;　　Private Sub ComboName_Click()</p><p>　　Refresh_Hotel</p><p><b>　　End Sub</b></p><p>　　Private Sub ComboType_Click()</p><p>　　Call Loadarea(ComboType.Lis

87、tIndex + 1, ComboName)</p><p>　　If ComboName.ListCount > 0 Then</p><p>　　ComboName.ListIndex = 0</p><p><b>　　End If</b></p><p>　　Refresh_Hotel</p>

88、<p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p><b>　　‘顯示數(shù)據(jù)</b></p><p><b>　　End Sub</b></p><p>　　Private Sub

89、 Form_Load()</p><p>　　‘對輸入地域數(shù)據(jù)進(jìn)行初始化</p><p>　　ComboType.ListIndex = 0</p><p>　　Call Loadarea(1, ComboName)</p><p>　　If ComboName.ListCount > 0 Then</p><p&g