數(shù)據(jù)庫課程設計---賓館住宿管理系統(tǒng)

1、<p><b>　　賓館住宿管理系統(tǒng)</b></p><p>　　本系統(tǒng)針對賓館住宿的一般管理模式,采用基于計算機網(wǎng)絡技術的賓館管理解決方案,按照賓館的現(xiàn)代化管理要求設計,實現(xiàn)對賓館住宿的接待，客房，訂房,收支情況,電話等服務設施的全面全方位計算機管理。目標在于提高賓館營業(yè)體系的作業(yè)效率，提高服務的客戶滿意度,加強賓館的市場競爭力，樹立良好的企業(yè)形象.通過計算機管理,一方面提供給客

2、戶快捷準確可靠的服務,另一方面提高賓館自身的管理水平,及時準確獲取營業(yè)信息,輔助對市場需求變化的決策.</p><p><b>　　第一章 系統(tǒng)概述</b></p><p>　　1.1系統(tǒng)開發(fā)的背景和意義</p><p>　　隨著我國經(jīng)濟的迅速發(fā)展，人們的生活水平有了顯著的提高，假日經(jīng)濟和旅游經(jīng)濟已成為人們消費的熱點。各地也把旅游業(yè)當作本地經(jīng)濟

3、發(fā)展的重要經(jīng)濟支柱之一，從而促進了賓館酒店業(yè)的快速發(fā)展。同時，隨著賓館酒店越來越多，人們的要求越來越高，賓館酒店業(yè)的競爭也愈來愈激烈。</p><p>　　如何在激烈的競爭中生從發(fā)展，是每一個賓館酒店必須面臨的問題。對賓館的經(jīng)營狀況起決定作用的是賓館的服務管理水平。如何利用先進的管理手段、提高賓館的管理水平，以成為賓館酒店業(yè)發(fā)展的當務之急。面對信息時代的機遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理水平是企業(yè)管理無疑的一條

4、行之有效的途徑?，F(xiàn)在的賓館行業(yè)已經(jīng)發(fā)生拉巨大變化，已不僅是提供給人們一個吃住行的簡單場所，所以，將計算機管理引入賓館的管理體系中,無疑對賓館的服務水平更上一層樓提供了一種有利的支持。</p><p>　　雖然計算機管理并不是賓館管理走向成功的關鍵元素，但它可以最大限度地發(fā)揮準確、快捷、高效等作用，對賓館的服務管理提供強有力的支持。因此，采用全新的計算機網(wǎng)絡和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善服務的水準的

5、重要手段之一。在某種意義上，賓館客房管理方面的信息話已成為現(xiàn)代化賓館的重要標志。</p><p>　　1.2系統(tǒng)所要實現(xiàn)功能</p><p>　　該系統(tǒng)應充分利用信息技術提高賓館客房的管理水平、服務水平。酒店客房管理系統(tǒng)要實現(xiàn)客房住宿的登記、宿費提醒、追加押金、調房登記、退房結帳、查詢統(tǒng)計等功能。其中宿費提醒可以在住宿費超過押金時預警，提示前臺要客人補交押金，該功能可明顯提高對住宿人員宿費

6、的有效管理。將動態(tài)時的住宿登記、客房調整追加押金等有機的聯(lián)系在一起，對酒店進行全方位的管理。</p><p><b>　　1.3系統(tǒng)開發(fā)工具</b></p><p>　　開發(fā)數(shù)據(jù)庫管理信息系統(tǒng)需要選擇兩種工具，即前臺開發(fā)語言和后臺數(shù)據(jù)庫。本系統(tǒng)運用了Visual Basic作為開發(fā)工具，SQL Server2000作為后臺數(shù)據(jù)庫。</p><p&g

7、t;<b>　　1.4系統(tǒng)模塊分析</b></p><p><b>　?。?）系統(tǒng)管理模塊</b></p><p>　　該模塊實現(xiàn)操作員的管理,如添加刪除和修改操作,并設置操作員的操作權限對指定的用戶進行密碼修改.</p><p>　?。?）客房管理模塊狀</p><p>　　該模塊實現(xiàn)對客房的基本

8、信息的設置,如客房的地點,客房等級,客房物品等信息.同時提供對客房信息的查詢。</p><p>　?。?）訂房管理模塊狀</p><p>　　該模塊實現(xiàn)用戶訂房信息管理,提供對訂房客戶資料的登記,查詢和退訂操作。其中訂房信息包括客房的類型和訂房的時間等。</p><p>　?。?）收銀管理模塊狀</p><p>　　該模塊實現(xiàn)用戶的確訂房信息

9、管理,提供對訂房客戶資料的登記,查詢，并提供當日報表的打印。</p><p>　　第二章 系統(tǒng)需求分析</p><p><b>　　2.1編寫目的</b></p><p>　　本文檔對《酒店管理系統(tǒng)》的開發(fā)需求進行描述，目的是明確酒店管理系統(tǒng)對用戶的功能要求.該文檔對《酒店管理系統(tǒng)》做全面細致的用戶需求分析，明確所要開發(fā)的系統(tǒng)應有的功能、性能與

10、界面，使有關人士能夠清楚的了解用戶的需求，并在此基礎上進一步提出概要設計說明書和完成后續(xù)設計與開發(fā)工作。</p><p><b>　　2.2開發(fā)背景</b></p><p>　　隨著人民生活水平的提高，旅游出行的人越來越多，酒店的客流量不斷增加，傳統(tǒng)的酒店管理方法已經(jīng)不適應現(xiàn)代社會的需求。賓館在正常運營中需要對客房資源、顧客信息、退房信息等進行管理，利用客房管理系統(tǒng)及

11、時了解各個環(huán)節(jié)中信息的變更，有利于提高管理的效率。 </p><p>　　本項目作為《軟件工程課程設計》課程的訓練項目提出，目的是為了提高同學們軟件的開發(fā)和數(shù)據(jù)庫的創(chuàng)建鏈接,以及軟件文檔的相關標準和編寫原則,提高大家的實踐能力。</p><p><b>　　2.3實現(xiàn)目標</b></p><p>　　建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務

12、人員日常處理的需要，增強企業(yè)經(jīng)營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對公司經(jīng)營反饋信息的響應速度。從而大幅度提高工作效率，提高實施管理的準確性、科學性，使擔負管理的工作人員從繁雜的手工勞作中解脫出來。</p><p>　　面對酒店行業(yè)的高速發(fā)展和酒店行業(yè)信息化發(fā)展的過程中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實施后，應能達到以下目標：</p><p>　　(1

13、)實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準確、快捷和順暢。</p><p>　　(2)服務管理信息化，可隨時掌握客人住宿、客房狀態(tài)、客人掛帳等情況。</p><p>　　(3)系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全。</p><p>　　(4)客戶檔案、掛帳信息、預警系統(tǒng)的結合，可對往來可戶進行住宿監(jiān)控，防止壞帳發(fā)生。</p>

14、<p>　　(5)通過酒店客房管理系統(tǒng)的實施，可逐步提高賓館的管理水平，提升員工的素質。</p><p>　　(6)系統(tǒng)維護方便可靠、有較高的安全性，滿足實用性、先進性的要求。</p><p><b>　　2.4數(shù)據(jù)描述</b></p><p><b>　　2.4.1信息需求</b></p><

15、;p>　?。?）顧客信息：姓名、有效證件、證件號碼、聯(lián)系電話、工作單位、詳細地址。</p><p>　　（2）客房信息：房間號、房間類型 、房間價格、所在樓層、</p><p>　?。?）住宿信息：顧客姓名、房間編號、有效證件、房間標準、房間位置、折扣、入住時間、預交押金。</p><p>　?。?）退房信息：顧客姓名、房間編號、客房標準、退房時間、折扣、預交

16、押金、所付金額、找還金額。</p><p>　?。?）調房信息：顧客姓名、客房標準、原始房、目標房、住宿天數(shù)、入住時間、預交押金、聯(lián)系電話。</p><p>　　2.4.2 處理需求</p><p>　　賓館在運營中需要對賓館資源、顧客信息、結算信息進行管理，如果有顧客來往，經(jīng)過對客房狀態(tài)的查詢，查看是否有房間能及時為客戶辦理登記手續(xù)，如果有顧客來退房，能及時為顧客

17、登記并辦理退房手續(xù)，并且修改客房信息，因此，利用開發(fā)完成后的賓館管理系統(tǒng)能夠十分便利的對住房系統(tǒng)進行管理有利于提高效率。</p><p>　　酒店住房管理系統(tǒng)開發(fā)的任務是實現(xiàn)各種住房信息的系統(tǒng)規(guī)范化、自動化主要完成的功能有以下幾個方面。</p><p><b>　?。?）住宿管理</b></p><p>　　這個模塊包括四個部分，即住宿登記、追

18、加押金、調房登記、退宿結帳。該模塊要實現(xiàn)客人的住宿登記，收取客人的預交宿費，自動計算折前宿費、實際宿費等；能夠收取客人的續(xù)交押金，自動計算宿費提醒日期，并能夠實現(xiàn)客戶調房登記、退宿結帳、自動計算住宿費用及退還費等。</p><p><b>　?。?）客房管理</b></p><p>　　這個模塊包括三個部分，即客房設置、客房查詢、房態(tài)查看。賓館客房在不同的時間有不同的

19、狀態(tài)，如空靜房、空臟房、清理房、占用房、毛病房、修理房等。該部分要完成客房基本信息的查詢、能夠按房間號檢索所需的客房基本信息，以及顯示當前客房的入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率等。</p><p><b>　?。?）查詢管理</b></p><p>　　這個模塊包括三個部分，即住宿查詢、退宿查詢、宿費提醒。該部分要實現(xiàn)對客房的查詢，查詢客房的住宿情況、退宿情況以及

20、宿費提醒等。尤其是宿費提醒，當客人的上帳金額超過押金時系統(tǒng)自動提示要求客人補交押金，以防止賓館財產(chǎn)損失。</p><p><b>　?。?）日結設置</b></p><p>　　該模塊包括兩個部分：客房銷售報表、客房銷售統(tǒng)計。該模塊中要實現(xiàn)按任意時間匯總客人結帳后所需費用的總額的功能及按任意年匯總應收宿費、電話費等的功能。</p><p>&l

21、t;b>　?。?）結帳管理</b></p><p>　　這個模塊包括兩個模塊，掛帳查詢模塊、客戶結款模塊。主要實現(xiàn)選擇掛帳單位或個人，檢索符合條件的掛帳信息、還款信息及統(tǒng)計欠款余額等。</p><p><b>　?。?）設置管理</b></p><p>　　這個模塊包括三個部分，主要用來完成操作員及密碼設置，操作員密碼的修改以

22、及實現(xiàn)清空選定表的數(shù)據(jù)的功能。</p><p><b>　　2.5數(shù)據(jù)流圖</b></p><p>　　數(shù)據(jù)流圖描繪信息流和數(shù)據(jù)從輸入移動到輸出過程中在系統(tǒng)中流動和處理的情況。</p><p>　　2.5.1總體數(shù)據(jù)流圖</p><p>　　退宿信息 D1退房信息</p><p>　　住宿信息

23、 </p><p>　　客房號碼 住宿信息 D2住宿信息</p><p><b>　　客房信息 </b></p><p>　　客房信息 D3 客房信息</p><p>　　圖2.1 總數(shù)據(jù)流圖</p>

24、<p>　　2.5.2 分數(shù)據(jù)流圖</p><p><b>　?、僮∷迶?shù)據(jù)流圖</b></p><p><b>　　客房號碼</b></p><p><b>　　客房信息</b></p><p><b>　　查詢信息</b></p>

25、;<p>　　預定信息 客房信息</p><p>　　D3 客房信息 D4 退宿信息 </p><p>　　圖2.2 住宿數(shù)據(jù)流圖</p><p><b>　?、谕朔繑?shù)據(jù)流圖 </b></p><p><b>　　退宿信息</b></p>

26、<p><b>　　住宿信息</b></p><p><b>　　住 宿</b></p><p>　　信 息 住宿信息 退房信息</p><p>　　D1 住宿信息 D2 退宿信息 </p><p>　　圖2.3 退房數(shù)據(jù)流圖<

27、;/p><p><b>　　③客房數(shù)據(jù)流圖</b></p><p><b>　　住宿信息</b></p><p><b>　　客房信息</b></p><p><b>　　住 宿</b></p><p>　　信 息 客房號碼

28、 住宿對象</p><p>　　D5 客房信息 D6 房客信息 </p><p>　　圖2.4 客房數(shù)據(jù)流圖</p><p><b>　　2.6數(shù)據(jù)字典</b></p><p>　　數(shù)據(jù)字典是關于數(shù)據(jù)信息的集合，即對數(shù)據(jù)流圖中包含的所有元素的定義的集合。</p>&l

29、t;p>　　2.7數(shù)據(jù)庫概念設計 </p><p>　　概念性信息模型是一種面向 問題的數(shù)據(jù)模型，是按照用戶的觀點來對數(shù)據(jù)和信息建模。它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實環(huán)境。最常用的表示概念性數(shù)據(jù)模型方法，是實體——聯(lián)系方法（Entity-Relationship Approach）。這種方法用E——R圖描述現(xiàn)實世界中的實體，而不涉及這些實體在系統(tǒng)中的實現(xiàn)方法。用這種方法表示的概念性數(shù)據(jù)模型

30、又稱為ER模型。ER模型包含“實體”、“聯(lián)系”、“屬性”等三個基本成份。</p><p>　　2.7.1局部E-R圖</p><p>　　1顧客屬性如圖2.5</p><p>　　圖2.5 顧客實體屬性圖</p><p>　　2客房屬性如圖2.6</p><p>　　圖2.6 客房實體屬性圖</p>&l

31、t;p>　　3服務員屬性如圖2.7</p><p>　　圖2.7 服務員實體屬性圖</p><p>　　4 經(jīng)理屬性如圖2.8</p><p>　　圖2.8 經(jīng)理實體屬性圖</p><p>　　2.7.2 總E-R 圖</p><p>　　1 1</p><p>

32、;<b>　　1</b></p><p><b>　　N </b></p><p><b>　　N</b></p><p><b>　　N</b></p><p><b>　　1</b></p><p>&l

33、t;b>　　1</b></p><p>　　圖2.9 總E-R實體圖</p><p>　　第三章 系統(tǒng)總體設計</p><p>　　3.1系統(tǒng)功能模塊設計</p><p>　　3.1.1功能模塊圖</p><p>　　圖3.1 功能模塊圖</p><p>　　3.2系統(tǒng)主要功能

34、描述</p><p>　?。?）住宿管理：住宿登記、追加押金、調房登記、推房結帳。</p><p>　　（2）客房管理：客房設置、客房查詢、房態(tài)查看。</p><p>　　（3）查詢統(tǒng)計：住宿查詢、退宿查詢、宿費提醒。</p><p>　?。?）系統(tǒng)設置：初始化、密碼設置、權限設置。</p><p>　　（5）日結設置

35、：客房銷售報表、客房銷售統(tǒng)計。</p><p>　?。?）掛帳管理：客戶結款、掛帳查詢。</p><p><b>　　3.3系統(tǒng)流程分析</b></p><p><b>　　查詢</b></p><p><b>　　選房</b></p><p>　　確定

36、手牌 退 牌</p><p><b>　　建立賬戶</b></p><p>　　圖3.2 系統(tǒng)流程圖</p><p>　　第四章 系統(tǒng)詳細設計</p><p><b>　　4.1程序流程設計</b>&l

37、t;/p><p>　　所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時的工作過程。不同的用戶有著不同的工作流程和使用權限。但是所有的用戶都是從用戶登錄模塊開始的。登錄主要是判斷是否是合法的用戶，在數(shù)據(jù)庫設計中用戶的登錄名是固定的，如果要添加用戶則在用戶主界面進行添加用戶信息。本系統(tǒng)的系統(tǒng)流程分析如下圖所示：</p><p><b>　　否</b></p><p&g

38、t;<b>　　重試 </b></p><p><b>　　否</b></p><p>　　失敗 是</p><p>　　成 功 用戶管理模塊 賓館管理模塊</

39、p><p>　　A dmin用戶 </p><p><b>　　領班用戶</b></p><p><b>　　普通用戶 </b></p><p><b>　　圖4.1程序流程圖</b></p><p>　　4.2系統(tǒng)結構的實現(xiàn)</p>&l

40、t;p>　　該系統(tǒng)采用了SQL Server2000數(shù)據(jù)庫，數(shù)據(jù)庫名稱為kfgl.數(shù)據(jù)庫包含以下幾個表：客房基本信息表kf、登記表djb、密碼表ma、權限設置表qxsz、退房登記表tfdj、掛帳明細表gzmx。</p><p><b>　　表4-1 密碼表</b></p><p>　　表4-2 客房基礎信息表</p><p>　　表4

41、-3 掛賬明細表</p><p><b>　　表4-4 登記表</b></p><p><b>　　表4-5 退房登記</b></p><p>　　表4-6 權限設置表</p><p>　　第五章 系統(tǒng)界面設計及代碼實現(xiàn)</p><p>　　5.1系統(tǒng)登陸窗口界面<

42、/p><p>　　程序啟動后，首先進入系統(tǒng)登陸界面驗證操作密碼。在系統(tǒng)登陸模塊中主要實現(xiàn)如下功能：</p><p>　?。?）可選擇操作員，支持鼠標和鍵盤操作。</p><p>　?。?）操作員和密碼驗證成功后，進入主界面。</p><p>　　（3）操作員錯誤或密碼錯誤提醒并返回錯誤點。</p><p>　　（4）輸入三

43、次錯誤密碼，自動退出系統(tǒng)。</p><p>　　圖5.1 用戶登陸界面</p><p><b>　　[登陸代碼實現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim cnt As Integer '記錄確定次數(shù)</p>

44、<p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs_login As New ADODB.Recordset</p><p>　　If Trim(text1.Text) = "" Then '判斷輸入

45、的用戶名是否為空</p><p>　　MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p>　　text1.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select

46、 * from 系統(tǒng)管理 where 用戶名='" & text1.Text & "'"</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_login.EOF = True Then</p><

47、p>　　MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""</p><p>　　text1.SetFocus</p><p>　　Else '檢驗密碼是否正確</p><p>　　If Trim(rs_log

48、in.Fields(1)) = Trim(text2.Text) Then</p><p>　　userID = text1.Text</p><p>　　userpow = rs_login.Fields(2)</p><p>　　rs_login.Close</p><p><b>　　Unload Me</b>&l

49、t;/p><p>　　MDIForm1.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p>　　text2.SetFocus</p><

50、p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cnt = cnt + 1</p><p>　　If cnt = 3 Then</p><p&

51、gt;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Comma

52、nd2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim connectionstring As String</p>

53、<p>　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p><p>　　"data source=jiudian.mdb"</p><p>　　conn.Open connectionstring</p><p><b&g

54、t;　　cnt = 0</b></p><p><b>　　End Sub</b></p><p>　　5.2系統(tǒng)主程序窗口界面</p><p>　　程序啟動后，在系統(tǒng)登陸界面驗證完操作員及操作員密碼后，將進入主程序界面。主程序界面要實現(xiàn)：</p><p>　　（1）選擇菜單或工具欄，調用相應程序，進行相應操

55、作。</p><p>　?。?）根據(jù)操作員不同，確定操作員相應的權限。</p><p>　　圖5.2 主程序窗口</p><p><b>　　[登陸代碼實現(xiàn)]</b></p><p>　　Private Sub add_user_Click()</p><p>　　frmadduser.Show&

56、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub double_check_Click()</p><p>　　frmfind_double.Show</p><p><b>　　End Sub</b></p><p>　　Pri

57、vate Sub check_Click()</p><p>　　frmfind.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub double_client_Click()</p><p>　　frmdouble_client.Show</p>&l

58、t;p><b>　　End Sub</b></p><p>　　Private Sub exit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub kht

59、s_Click()</p><p>　　frmkhts.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p>　　frmdata = False</p><p>　　find = False</

60、p><p><b>　　End Sub</b></p><p>　　Private Sub modify_pw_Click()</p><p>　　frmchangepwd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub

61、only_check_Click()</p><p>　　frmfind.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub only_client_Click()</p><p>　　frmonly_client.Show</p><p>&

62、lt;b>　　End Sub</b></p><p>　　Privte Sub zbgl_Click()</p><p>　　frmzhiban.Show</p><p><b>　　End Sub</b></p><p><b>　　5.3住宿管理設計</b></p>

63、<p>　　程序啟動后，選擇“客人入住”菜單下的“散客入住”和“團客入住”項，將進入住宿登記模塊。在住宿登記模塊主要實現(xiàn)如下功能：</p><p>　?。?）自動生成住宿登記憑證號碼。</p><p>　?。?）提供空房間供用戶選擇。</p><p>　?。?）實現(xiàn)客人住宿登記，收取客人預交宿費。</p><p>　?。?）自動

64、計算折前宿費、實際宿費、宿費提醒時間、退宿時間。</p><p>　　5.3.1 散客入住</p><p>　　圖.5.3 散客入住界面</p><p><b>　　[登陸代碼實現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_client As

65、New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　If Trim(DataGrid1.Columns("房號").CellText(DataGrid1.Bookm

66、ark)) = "" Then</p><p>　　MsgBox "房號不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&g

67、t;<p>　　If Trim(DataGrid1.Columns("房價").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "房價不能為空！", vbOKOnly + vbExclamation, ""</p><p><

68、b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("姓名").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox &qu

69、ot;姓名不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("性別").C

70、ellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "性別不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　E

71、nd If</b></p><p>　　If Not IsDate(Trim(DataGrid1.Columns("抵達日").CellText(DataGrid1.Bookmark))) Then</p><p>　　MsgBox "請按照格式hh-mm輸入抵達日", vbOKOnly + vbExclamation, "&q

72、uot;</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsDate(Trim(DataGrid1.Columns("離店日").CellText(DataGrid1.Bookmark))) Then</p

73、><p>　　MsgBox "請按照格式hh-mm輸入離店日", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　rs_clien

74、t.Update</p><p>　　MsgBox "添加信息成功！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p&g

75、t;<b>　　Else</b></p><p>　　MsgBox "沒有添加信息！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　Command1.Caption = "新增記錄&quo

76、t;</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>　

77、　adderror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p

78、><p>　　Private Sub Command2_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo cmdmodify</p><p>　　If Command2.Caption = "修改記錄" Then</p><p>

79、;　　answer = MsgBox("確定要修改嗎？", vbYesNo, "")</p><p>　　If answer = vbYes Then</p><p>　　Command2.Caption = "確定"</p><p>　　Command1.Enabled = False</p>

80、<p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = True</p><p>　　DataGrid1.AllowUpdate = True</p><p><b>　　Else</b></p><p><b>　　Exit Sub

81、</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　rs_client.Update</p><

82、p><b>　　End If</b></p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enable

83、d = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　MsgBox "修改成功！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　c

84、mdmodify:</p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p

85、>　　Private Sub Command3_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo delerror</p><p>　　answer = MsgBox("確定要刪除嗎？", vbYesNo, "")</p><

86、p>　　If answer = vbYes Then</p><p>　　DataGrid1.AllowDelete = True</p><p>　　rs_client.Delete</p><p>　　rs_client.Update</p><p>　　DataGrid1.Refresh</p><p>　

87、　MsgBox "成功刪除！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowDelete = False</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p&

88、gt;<p><b>　　End If</b></p><p><b>　　delerror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　

89、　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Command4.Caption = "確定" Then</p><p>　　rs_client.Cancel

90、</p><p>　　DataGrid1.ReBind</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command1.Caption = "新增記錄"</p><p&g

91、t;　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　ElseIf Command2.Caption = "確定" Then</p><p>　　rs_client

92、.Cancel</p><p>　　DataGrid1.ReBind</p><p>　　DataGrid1.Refresh</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command2.Caption = "修改記錄"</p><p>　　C

93、ommand1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p>　　Frame2.Enabled = True</p>&

94、lt;p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Su

95、b Form_Load()</p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 散客資料"</p><p>　　rs_client.CursorLocation = adUseClient&

96、lt;/p><p>　　rs_client.Open sql, conn, adOpenKeyset, adLockPessimistic '打開數(shù)據(jù)庫</p><p>　　'設定datagrid控件屬性</p><p>　　DataGrid1.AllowAddNew = False

97、 '不可增加</p><p>　　DataGrid1.AllowDelete = False '不可刪除</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.DataSource = rs_client</

98、p><p>　　Command4.Enabled = False</p><p>　　Set DataGrid1.DataSource = Nothing</p><p>　　rs_client.Close</p><p><b>　　End Sub</b></p><p>　　5.3.2 團客入住&

99、lt;/p><p>　　圖5.4 團客入住界面</p><p><b>　　[登陸代碼實現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_dclient As New ADODB.Recordset</p><p>　　Private Sub Comm

100、and1_Click()</p><p>　　On Error GoTo adderror</p><p>　　If Command1.Caption = "新增記錄" Then '當此按鈕的狀態(tài)為為“增加記錄”時</p><p>　　Command1.Caption = "確定"

101、 '按鈕名稱改為“確定”</p><p>　　Command2.Enabled = False '刪除與修改按鈕不可用</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = True &#

102、39;取消按鈕可用</p><p>　　DataGrid1.AllowAddNew = True</p><p>　　DataGrid1.AllowUpdate = True '設定datagrid可以增加記錄</p><p><b>　　Else</b></p><p>　　If N

103、ot IsNull(DataGrid1.Bookmark) Then</p><p>　　If Trim(DataGrid1.Columns("團隊名稱").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "團隊名稱不能為空！", vbOKOnly + vbExcl

104、amation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("負責人姓名").CellText(DataGrid1.Bookmark)) = &

105、quot;" Then</p><p>　　MsgBox "負責人姓名不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p>&l

106、t;p>　　If Trim(DataGrid1.Columns("證件號碼").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "證件號碼不能為空！", vbOKOnly + vbExclamation, ""</p><p><b&

107、gt;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("房間號碼").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox &qu

108、ot;房間號碼！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　rs_dclient.Update</p><p>　　MsgBo

109、x "添加信息成功！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p><b>　　Else</b></p>

110、;<p>　　MsgBox "沒有添加信息！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　Command1.Caption = "新增記錄"</p><p>　　Command2.En

111、abled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>　　adderror:</b></p><

112、p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command

113、2_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo cmdmodify</p><p>　　If Command2.Caption = "修改記錄" Then</p><p>　　answer = MsgBox("確定要修改嗎？&quo

114、t;, vbYesNo, "")</p><p>　　If answer = vbYes Then</p><p>　　Command2.Caption = "確定"</p><p>　　Command1.Enabled = False</p><p>　　Command3.Enabled = Fals

115、e</p><p>　　Command4.Enabled = True</p><p>　　DataGrid1.AllowUpdate = True</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b

116、>　　End If</b></p><p><b>　　Else</b></p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　rs_dclient.Update</p><p><b>　　End If</b><

117、;/p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　Dat

118、aGrid1.AllowUpdate = False</p><p>　　MsgBox "修改成功！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　cmdmodify:</p><p>　　If

119、Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()&

120、lt;/p><p>　　Dim answer As String</p><p>　　On Error GoTo delerror</p><p>　　answer = MsgBox("確定要刪除嗎？", vbYesNo, "")</p><p>　　If answer = vbYes Then</p

121、><p>　　DataGrid1.AllowDelete = True</p><p>　　rs_dclient.Delete</p><p>　　rs_dclient.Update</p><p>　　DataGrid1.Refresh</p><p>　　MsgBox "成功刪除！", vbOKOn

122、ly + vbExclamation, ""</p><p>　　DataGrid1.AllowDelete = False</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If&l

123、t;/b></p><p><b>　　delerror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><

124、p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Command4.Caption = "確定" Then</p><p>　　rs_dclient.Cancel</p><p>　　DataGrid1

125、.ReBind</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command1.Caption = "新增記錄"</p><p>　　Command2.Enabled = True</

126、p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　ElseIf Command2.Caption = "確定" Then</p><p>　　rs_dclient.Cancel</p><p>　　D

127、ataGrid1.ReBind</p><p>　　DataGrid1.Refresh</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p>

128、;<p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p>　　Frame2.Enabled = True</p><p><b>　　End Sub</

129、b></p><p>　　Private Sub Command5_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p&

130、gt;　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 團隊資料"</p><p>　　rs_dclient.CursorLocation = adUseClient</p><p>　　rs_dclie

131、nt.Open sql, conn, adOpenKeyset, adLockPessimistic '打開數(shù)據(jù)庫</p><p>　　'設定datagrid控件屬性</p><p>　　DataGrid1.AllowAddNew = False '不可增加</p><p&g

132、t;　　DataGrid1.AllowDelete = False '不可刪除</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.DataSource = rs_dclient</p><p>　　Command4.E

133、nabled = False</p><p><b>　　Exit Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Privat

134、e Sub Form_Unload(Cancel As Integer)</p><p>　　Set DataGrid1.DataSource = Nothing</p><p>　　rs_dclient.Close</p><p><b>　　EndSub</b></p><p><b>　　5.4客人信息查

135、詢</b></p><p>　　在該模塊中主要實現(xiàn)輸入客戶的姓名檢索住宿信息的功能。</p><p>　　圖.5.5 客人信息查詢界面</p><p><b>　　[登陸代碼實現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_find