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

1、賓館住宿管理系統(tǒng)本系統(tǒng)針對賓館住宿的一般管理模式，采用基于計算機網(wǎng)絡(luò)技術(shù)的賓館管理解決方 案,按照賓館的現(xiàn)代化管理要求設(shè)計，實現(xiàn)對賓館住宿的接待，客房，訂房，收支情況,等 服務設(shè)施的全面全方位計算機管理。目標在于提高賓館營業(yè)體系的作業(yè)效率，提高服務 的客戶滿意度，加強賓館的市場競爭力，樹立良好的企業(yè)形象 通過計算機管理，一方面 提供應客戶快捷準確可靠的服務，另一方面提高賓館自身的管理水平，與時準確獲取營 業(yè)信息，輔助對市場需求變化的決策.第一章系統(tǒng)概述隨著我國經(jīng)濟的迅速開展，人們的生活水平有了顯著的提高，假日經(jīng)濟和旅游經(jīng)濟 已成為人們消費的熱點。各地也把旅游業(yè)當作本地經(jīng)濟開展的重要經(jīng)濟支柱之一

2、，從而 促進了賓館酒店業(yè)的快速開展。同時，隨著賓館酒店越來越多，人們的要求越來越高， 賓館酒店業(yè)的競爭也愈來愈激烈。如何在激烈的競爭中生從開展，是每一個賓館酒店必須面臨的問題。對賓館的經(jīng)營 狀況起決定作用的是賓館的服務管理水平。如何利用先進的管理手段、提高賓館的管理 水平，以成為賓館酒店業(yè)開展的當務之急。面對信息時代的機遇和挑戰(zhàn)，利用科技手段 提高企業(yè)管理水平是企業(yè)管理無疑的一條行之有效的途徑。現(xiàn)在的賓館行業(yè)已經(jīng)發(fā)生拉巨大變化，已不僅是提供應人們一個吃住行的簡單場所，所以，將計算機管理引入賓館 的管理體系中，無疑對賓館的服務水平更上一層樓提供了一種有利的支持。雖然計算機管理并不是賓館管理走向成

3、功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準確、快捷、高效等作用，對賓館的服務管理提供強有力的支持。因此，采用全新的計算 機網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善服務的水準的重要手段之一。 在某種意義上，賓館客房管理方面的信息話已成為現(xiàn)代化賓館的重要標志。該系統(tǒng)應充分利用信息技術(shù)提高賓館客房的管理水平、服務水平。酒店客房管理系 統(tǒng)要實現(xiàn)客房住宿的登記、宿費提醒、追加押金、調(diào)房登記、退房結(jié)帳、查詢統(tǒng)計等功 能。其中宿費提醒可以在住宿費超過押金時預警，提示前臺要客人補交押金，該功能可 明顯提高對住宿人員宿費的有效管理。將動態(tài)時的住宿登記、客房調(diào)整追加押金等有機 的聯(lián)系在一起，對酒店進展全方位

4、的管理。開發(fā)數(shù)據(jù)庫管理信息系統(tǒng)需要選擇兩種工具，即前臺開發(fā)語言和后臺數(shù)據(jù)庫。本系統(tǒng)運用了 Visual Basic 作為開發(fā)工具，SQL Server2000作為后臺數(shù)據(jù)庫。系統(tǒng)模塊分析1系統(tǒng)管理模塊該模塊實現(xiàn)操作員的管理，如添加刪除和修改操作，并設(shè)置操作員的操作權(quán)限對指 定的用戶進展密碼修改.2客房管理模塊狀該模塊實現(xiàn)對客房的根本信息的設(shè)置，如客房的地點，客房等級，客房物品等信息 同時提供對客房信息的查詢。3訂房管理模塊狀該模塊實現(xiàn)用戶訂房信息管理，提供對訂房客戶資料的登記，查詢和退訂操作。其 中訂房信息包括客房的類型和訂房的時間等。4收銀管理模塊狀該模塊實現(xiàn)用戶確實訂房信息管理，提供對訂房

5、客戶資料的登記，查詢，并提供當 日報表的打印。第二章系統(tǒng)需求分析本文檔對酒店管理系統(tǒng)的開發(fā)需求進展描述，目的是明確酒店管理系統(tǒng)對用戶 的功能要求該文檔對酒店管理系統(tǒng)做全面細致的用戶需求分析，明確所要開發(fā)的 系統(tǒng)應有的功能、性能與界面，使有關(guān)人士能夠清楚的了解用戶的需求，并在此根底上 進一步提出概要設(shè)計說明書和完成后續(xù)設(shè)計與開發(fā)工作。開發(fā)背景隨著人民生活水平的提高，旅游出行的人越來越多，酒店的客流量不斷增加，傳統(tǒng) 的酒店管理方法已經(jīng)不適應現(xiàn)代社會的需求。賓館在正常運營中需要對客房資源、顧客 信息、退房信息等進展管理，利用客房管理系統(tǒng)與時了解各個環(huán)節(jié)某某息的變更，有利 于提高管理的效率。本項目作為

6、軟件工程課程設(shè)計課程的訓練項目提出，目的是為了提高同學們軟 件的開發(fā)和數(shù)據(jù)庫的創(chuàng)建，以與軟件文檔的相關(guān)標準和編寫原如此 ，提高大家的實踐能 力。建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務人員日常處理的需要，增強企業(yè) 經(jīng)營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對 公司經(jīng)營反應信息的響應速度。從而大幅度提高工作效率，提高實施管理的準確性、科 學性，使擔負管理的工作人員從繁雜的手工勞作中解脫出來。面對酒店行業(yè)的高速開展和酒店行業(yè)信息化開展的過程中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實施后，應能達到以下目標：實現(xiàn)多點操作的信息共享，相互之間的信息傳遞準確、快捷和順暢。(

7、2) 服務管理信息化，可隨時掌握客人住宿、客房狀態(tài)、客人掛帳等情況。(3) 系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全。(4) 客戶檔案、掛帳信息、預警系統(tǒng)的結(jié)合，可對往來可戶進展住宿監(jiān)控，防止壞帳發(fā)生。(5) 通過酒店客房管理系統(tǒng)的實施，可逐步提高賓館的管理水平，提升員工的素質(zhì)。(6) 系統(tǒng)維護方便可靠、有較高的安全性，滿足實用性、先進性的要求。1顧客信息：某某、有效證件、證件、聯(lián)系、工作單位、詳細地址。2客房信息：房間號、房間類型 、房間價格、所在樓層、3住宿信息：顧客某某、房間編號、有效證件、房間標準、房間位置、折扣、 入住時間、預交押金。4退房信息：顧客某某、房間編號、

8、客房標準、退房時間、折扣、預交押金、 所付金額、找還金額。5調(diào)房信息：顧客某某、客房標準、原始房、目標房、住宿天數(shù)、入住時間、 預交押金、聯(lián)系。處理需求賓館在運營中需要對賓館資源、顧客信息、結(jié)算信息進展管理，如果有顧客來往， 經(jīng)過對客房狀態(tài)的查詢，查看是否有房間能與時為客戶辦理登記手續(xù)，如果有顧客來退 房，能與時為顧客登記并辦理退房手續(xù)，并且修改客房信息，因此，利用開發(fā)完成后的 賓館管理系統(tǒng)能夠十分便利的對住房系統(tǒng)進展管理有利于提高效率。酒店住房管理系統(tǒng)開發(fā)的任務是實現(xiàn)各種住房信息的系統(tǒng)規(guī)X化、自動化主要完成的功能有以下幾個方面。1住宿管理這個模塊包括四個局部，即住宿登記、追加押金、調(diào)房登記、

9、退宿結(jié)帳。該模塊要 實現(xiàn)客人的住宿登記，收取客人的預交宿費，自動計算折前宿費、實際宿費等；能夠收 取客人的續(xù)交押金，自動計算宿費提醒日期，并能夠?qū)崿F(xiàn)客戶調(diào)房登記、退宿結(jié)帳、自 動計算住宿費用與退還費等。2客房管理這個模塊包括三個局部，即客房設(shè)置、客房查詢、房態(tài)查看。賓館客房在不同的時 間有不同的狀態(tài)，如空靜房、空臟房、清理房、占用房、毛病房、修理房等。該局部要 完成客房根本信息的查詢、能夠按房間號檢索所需的客房根本信息，以與顯示當前客房 的入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率等。3查詢管理這個模塊包括三個局部，即住宿查詢、退宿查詢、宿費提醒。該局部要實現(xiàn)對客房 的查詢，查詢客房的住宿情況、退宿

10、情況以與宿費提醒等。尤其是宿費提醒，當客人的 上帳金額超過押金時系統(tǒng)自動提示要求客人補交押金，以防止賓館財產(chǎn)損失。4日結(jié)設(shè)置該模塊包括兩個局部：客房銷售報表、客房銷售統(tǒng)計。該模塊中要實現(xiàn)按任意時間 匯總客人結(jié)帳后所需費用的總額的功能與按任意年匯總應收宿費、費等的功能。5結(jié)帳管理這個模塊包括兩個模塊，掛帳查詢模塊、客戶結(jié)款模塊。主要實現(xiàn)選擇掛帳單位或 個人，檢索符合條件的掛帳信息、還款信息與統(tǒng)計欠款余額等。6設(shè)置管理這個模塊包括三個局部，主要用來完成操作員與密碼設(shè)置，操作員密碼的修改以與 實現(xiàn)清空選定表的數(shù)據(jù)的功能。數(shù)據(jù)流圖描繪信息流和數(shù)據(jù)從輸入移動到輸出過程中在系統(tǒng)中流動和處理的情況分數(shù)據(jù)流圖

11、住宿數(shù)據(jù)流圖圖2.2住宿數(shù)據(jù)流圖退房數(shù)據(jù)流圖圖2.3退房數(shù)據(jù)流圖圖2.4客房數(shù)據(jù)流圖數(shù)據(jù)字典是關(guān)于數(shù)據(jù)信息的集合，即對數(shù)據(jù)流圖中包含的所有元素的定義的集合名字：住宿信息別名：住宿登記信息描述：顧客住宿是需要填寫的登記表。定義：住宿信息=某某+有效證件+客房類型+客房號+住宿日期。 位置：登記表名稱：客房信息別名：賓館客房的信息描述：描述賓館各種客房的信息。定義：客房信息=客房標準+客房+客房價格+使用配置位置：客房登記退房登記名稱：退房信息別名：退飯登記信息描述：客人退房時需要填寫的信息定義：退房信息=客人某某+有效證件+房間標準+房間+住宿天數(shù)。 位置：系統(tǒng)退房登記信息名稱：權(quán)限信息別名：權(quán)

12、限登記信息描述：用來保存操作員的權(quán)限定義：權(quán)限信息=操作員+密碼+客房預定+住宿登記+退宿登記+客房查詢+密碼 位置：系統(tǒng)名稱：查詢管理別名：查詢登記信息描述：查詢客房登記的信息定義：查詢管理=操作員+密碼+住宿信息+客房預訂 位置：系統(tǒng)名稱：客房管理別名：客房管理信息描述：客房日常管理信息定義：客房管理=服務員+房間號+操作員+密碼位置：系統(tǒng)客房管理系統(tǒng)名稱：退房登記別名：退房管理登記描述：退房管理登記信息定義：退房登記=房客+房間號+服務員+密碼位置：賓館客房管理系統(tǒng).名稱：客房登記別名：客房登記管理描述：客房管理登記信息定義：客房登記=房間號+房客+操作員+密碼+服務員 位置：賓館客房管

13、理系統(tǒng)概念性信息模型是一種面向 問題的數(shù)據(jù)模型，是按照用戶的觀點來對數(shù)據(jù)和信息建模。它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實環(huán)境。最常用的表示概念性數(shù)據(jù)模型方法，是實體聯(lián)系方法Entity-Relationship Approach 。這種方法用ER圖描述現(xiàn)實世界中的實體，而不涉與這些實體在系統(tǒng)中的實現(xiàn)方法。用這種方法表示的概念性數(shù)據(jù)模型又稱為 ER模型。ER模型包含“實體、“聯(lián)系、“屬性等三個根本成份。圖2.8經(jīng)理實體屬性圖2.7.2 總 E-R 圖圖2.9總E-R實體圖第二章系統(tǒng)總體設(shè)計圖3.1功能模塊圖1住宿管理：住宿登記、追加押金、調(diào)房登記、推房結(jié)帳2客房管理：客房設(shè)置、客房查

14、詢、房態(tài)查看。3查詢統(tǒng)計：住宿查詢、退宿查詢、宿費提醒。4系統(tǒng)設(shè)置：初始化、密碼設(shè)置、權(quán)限設(shè)置。5日結(jié)設(shè)置：客房銷售報表、客房銷售統(tǒng)計。6掛帳管理：客戶結(jié)款、掛帳查詢。圖3.2系統(tǒng)流程圖第四章系統(tǒng)詳細設(shè)計所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時的工作過程。不同的用戶有著不同的工作 流程和使用權(quán)限。但是所有的用戶都是從用戶登錄模塊開始的。登錄主要是判斷是否是 合法的用戶，在數(shù)據(jù)庫設(shè)計中用戶的登錄名是固定的，如果要添加用戶如此在用戶主界 面進展添加用戶信息。本系統(tǒng)的系統(tǒng)流程分析如如下圖所示：該系統(tǒng)采用了 SQLServer2000數(shù)據(jù)庫，數(shù)據(jù)庫名稱為kfgl.數(shù)據(jù)庫包含以下幾個表： 客房根本信息表kf

15、、登記表d、密碼表ma權(quán)限設(shè)置表qxsz、退房登記表tfdj、掛帳明細表gzmx表4-1 密碼表字段名稱數(shù)據(jù)類型字段大小操作員文本10密碼文本6表4-2客房根底信息表字段名稱數(shù)據(jù)類型字段大小房間號文本30房間類型文本50價格貨幣8房態(tài)文本4標志是/否1備注文本100配置文本100使用設(shè)置文本10營業(yè)日期時間/日期8表4-3 掛賬明細表字段名稱數(shù)據(jù)類型字段大小日期日期/時間100掛帳單位文本100摘要文本8住宿金額貨幣8欠款金額貨幣8還款金額貨幣8 :金額累計文本16某某文本100證件文本100票號文本20時間日期/時間8房間標準文本10房間價格文本10表4-4登記表字段名稱數(shù)據(jù)類型字段大小|某

16、某文本50證件名稱文本20證件文本20詳細地址文本50房間號文本20客房類型文本10聯(lián)系文本20客房價格貨幣8住宿日期日期/時間8住宿時間日期/時間8住宿天數(shù)數(shù)字雙精度型n宿費貨幣8折扣數(shù)字雙精度型應收宿費貨幣8預收金額貨幣8提醒日期日期/時間8提醒時間日期/時間8 退宿日期日期/時間8退宿時間日期/時間8備注文本50結(jié)款方式文本10摘要文本200表4-5退房登記應收宿費貨幣8雜費貨幣8費貨幣8存車費貨幣8賠償費貨幣8金額總計貨幣8預收宿費日期/時間8退還宿費日期/時間8退還日期日期/時間8備注文本8表4-6 權(quán)限設(shè)置表字段名稱數(shù)據(jù)類型字段大小編號是/否50操作員是/否50密碼是/否雙精度型住

17、宿登記是/否1退宿登記是/否1追加押金是/否1客房管理是/否1客房查詢是/否1住宿查詢是/否1退宿查詢是/否1宿費查詢是/否1客房銷售報表是/否1操作員設(shè)置是/否1密碼設(shè)置是/否1權(quán)限設(shè)置是/否1調(diào)房登記是/否1客戶結(jié)款是/否1第五章 系統(tǒng)界面設(shè)計與代碼實現(xiàn)程序啟動后，首先進入系統(tǒng)登陸界面驗證操作密碼。在系統(tǒng)登陸模塊中主要實現(xiàn)如F功能：1可選擇操作員，支持鼠標和鍵盤操作。2操作員和密碼驗證成功后，進入主界面。3操作員錯誤或密碼錯誤提醒并返回錯誤點4輸入三次錯誤密碼，自動退出系統(tǒng)圖5.1用戶登陸界面登陸代碼實現(xiàn)Opti on ExplicitDim t As In tegerPrivate Su

18、b ma nd1_Click()Dim sql As Stri ng記錄確定次數(shù)If Trim(text1.Text) = "" Then判斷輸入的用戶名是否為空MsgBox " 沒有這個用戶", vbOKOnly + vbExclamation,""Elsesql = "select * from系統(tǒng)管理 where 用戶名="'& text1.Text & ""'rs_login.Open sql, conn, adOpenKeyset, adLockPess

19、imisticIf rs_logi n.EOF = True The nMsgBox "沒有這個用戶", vbOKOnly + vbExclamation,""Else'檢驗密碼是否正確If Trim(rs_login.Fields(l) = Trim(text2.Text) Thenuserpow = rs_logi n. Fields(2)Un load MeElseMsgBox " 密碼不正確", vbOKOnly + vbExclamation,""End IfEnd IfEnd Ift = t +

20、 1If t = 3 ThenUn load MeEnd IfExit SubEnd SubPrivate Sub man d2_Click()Un load MeEnd SubPrivate Sub Form_Load()Dim connection stri ng As Stringconnection stri ng = "provider=Microsoft.Jet.oledb.4.0;" & _"data source=jiudia n. mdb"conn. Ope n connection stri ngt = 0End Sub程序啟

21、動后，在系統(tǒng)登陸界面驗證完操作員與操作員密碼后，將進入主程序界面 主程序界面要實現(xiàn)：1選擇菜單或工具欄，調(diào)用相應程序，進展相應操作。2根據(jù)操作員不同，確定操作員相應的權(quán)限。圖5.2主程序窗口登陸代碼實現(xiàn)Private Sub add_user_Click()End SubPrivate Sub double_check_Click()End SubPrivate Sub check_Click()End SubPrivate Sub double_clie nt_Click()End SubPrivate Sub exit_Click()Un load MeEnd SubPrivate Sub

22、 khts_Click()End SubPrivate Sub MDIForm_Load() frmdata = Falsefind = FalseEnd SubPrivate Sub modify_pw_Click()End SubPrivate Sub onl y_check_Click()End SubPrivate Sub onl y_clie nt_Click()End SubPrivte Sub zbgl_Click()End Sub程序啟動后，選擇“客人入住菜單下的“散客入住和“團客入住項，將進入 住宿登記模塊。在住宿登記模塊主要實現(xiàn)如下功能：1自動生成住宿登記憑證。2提供空房間

23、供用戶選擇。3實現(xiàn)客人住宿登記，收取客人預交宿費。4自動計算折前宿費、實際宿費、宿費提醒時間、退宿時間。散客入住圖.5.3散客入住界面登陸代碼實現(xiàn)Opti on ExplicitPrivate Sub ma nd1_Click()If Not lsNull(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns(" 房號").CellText(DataGrid1.Bookmark) = "" Then MsgBox "房號不能為空！", vbOKO nly + vbExclamatio n,

24、""Exit SubEnd IfIf Trim(DataGrid1.Columns("房價 ”).CellText(DataGrid1.Bookmark) = "" ThenMsgBox "房價不能為空！", vbOKO nly + vbExclamatio n,""Exit SubEnd IfIf Trim(DataGrid1.Columns(" 某某").CellText(DataGrid1.Bookmark) = "" Then MsgBox "某某

25、不能為空！", vbOKO nly + vbExclamatio n,""Exit SubEnd IfIf Trim(DataGrid1.Columns(" 性別").CellText(DataGrid1.Bookmark) = "" Then MsgBox "性別不能為空！", vbOKO nly + vbExclamatio n,""Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns("抵達日").CellTex

26、t(DataGrid1.Bookmark)The nMsgBox "請按照格式 hh-mm輸入抵達日", vbOKOnly + vbExclamation,""Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(”離店日").CellText(DataGrid1.Bookmark)The nMsgBox "請按照格式 hh-mm輸入離店日", vbOKOnly + vbExclamation,""Exit SubEnd IfMsgBox " 添加

27、信息成功！", vbOK On ly + vbExclamatio n,""DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox " 沒有添加信息！", vbOK On ly + vbExclamatio n,""End Ifmand1.Caption ="新增記錄"man d2.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = False End Ifadder

28、ror:If Err.Number <> 0 The nEnd IfEnd SubPrivate Sub man d2_Click()Dim an swer As StringOn Error GoTo cmdmodifyIf mand2.Caption = ”修改記錄 ” Thenan swer = MsgBox("確定要修改嗎？ ", vbYesNo,"")If an swer = vbYes Thenmand2.Caption = ” 確定”man d1.E nabled = Falseman d3.E nabled = Falsema

29、n d4.E nabled = TrueDataGrid1.AllowUpdate = TrueElseExit SubEnd IfElseIf Not lsNull(DataGrid1.Bookmark) The nEnd Ifmand2.Caption ="修改記錄”man d1.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseDataGrid1.AllowUpdate = FalseMsgBox " 修改成功！ ", vbOK On ly + vbExclamatio n,"&

30、quot; End Ifcmdmodify:If Err.Number <> 0 The nEnd IfEnd SubPrivate Sub man d3_Click()Dim an swer As StringOn Error GoTo delerroranswer = MsgBox("確定要刪除嗎？ ", vbYesNo,"")If an swer = vbYes ThenDataGridl.AllowDelete = TrueMsgBox " 成功刪除！ ", vbOKO nly + vbExclamatio n,&

31、quot;"DataGrid1.AllowDelete = FalseElseExit SubEnd Ifdelerror:If Err.Number <> 0 The nEnd IfEnd SubPrivate Sub man d4_Click()If mand4.Caption = ”確定 ” ThenDataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = Falsemand1.Caption ="新增記錄”man d2.E nabled = Trueman d3.E nabled = Trueman d4.

32、E nabled = FalseElseIf man d2.C aption =" 確定 ” ThenDataGrid1.AllowUpdate = Falsemand2.Caption = ”修改記錄”man d1.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseEnd IfFrame2.E nabled = TrueEnd SubPrivate Sub man d5_Click()Un load MeEnd SubPrivate Sub Form_Load()Dim sql As Stri ngOn Erro

33、r GoTo loaderrorsql = "select * from散客資料"打開數(shù)據(jù)庫不可增加不可刪除rs_clie nt.CursorLocatio n = adUseClie ntrs_client.Open sql, conn, adOpenKeyset, adLockPessimistic '設(shè)定datagrid 控件屬性DataGrid1.AllowAddNew = False'DataGrid1.AllowDelete = False'DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSo

34、urce = rs_clie ntman d4.E nabled = FalseSet DataGrid1.DataSource = Nothi ngEnd Sub團客入住圖5.4團客入住界面登陸代碼實現(xiàn)Opti on ExplicitPrivate Sub ma nd1_Click()On Error GoTo adderrorIf mand1.Caption ="新增記錄 ” Thenmand1.Caption ="確定”man d2.E nabled = False'man d3.E nabled = Falseman d4.E nabled = True&#

35、39;DataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = TrueElseIf Not lsNull(DataGrid1.Bookmark) Then當此按鈕的狀態(tài)為為“增加記錄'時 按鈕名稱改為“確定"刪除與修改按鈕不可用取消按鈕可用設(shè)定datagrid可以增加記錄If Trim(DataGrid1.Columns(”團隊名稱 ”).CellText(DataGrid1.Bookmark) = "" ThenMsgBox "團隊名稱不能為空！", vbOKO nly + vbExcl

36、amatio n,""Exit SubEnd IfIf Trim(DataGrid1.Columns("負責人某某").CellText(DataGrid1.Bookmark) = "" ThenMsgBox "負責人某某不能為空！", vbOKO nly + vbExclamatio n,""Exit SubEnd IfIf Trim(DataGrid1.Columns(”證件").CellText(DataGrid1.Bookmark) = "" ThenMsg

37、Box "證件不能為空！", vbOKO nly + vbExclamatio n,""Exit SubEnd IfIf Trim(DataGrid1.Columns(”房間").CellText(DataGrid1.Bookmark) = "" ThenMsgBox " 房間！ ", vbOKO nly + vbExclamatio n,""Exit SubEnd IfMsgBox " 添加信息成功！ ", vbOK On ly + vbExclamatio n,

38、""DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox " 沒有添加信息！ ", vbOK On ly + vbExclamatio n,"" End Ifmand1.Caption ="新增記錄"man d2.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseEnd Ifadderror:If Err.Number <> 0 The nEnd If

39、End SubPrivate Sub man d2_Click()Dim an swer As StringOn Error GoTo cmdmodifyIf mand2.Caption = ”修改記錄 ” Thenan swer = MsgBox("確定要修改嗎？ ", vbYesNo,"")If an swer = vbYes Thenmand2.Caption = ” 確定”man d1.E nabled = Falseman d3.E nabled = Falseman d4.E nabled = TrueDataGrid1.AllowUpdat

40、e = TrueElseExit SubEnd IfElseIf Not lsNull(DataGrid1.Bookmark) The nEnd Ifmand2.Caption ="修改記錄”man d1.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseDataGrid1.AllowUpdate = FalseMsgBox " 修改成功！ ", vbOK On ly + vbExclamatio n,"" End Ifcmdmodify:If Err.Number <

41、> 0 The nEnd IfEnd SubPrivate Sub man d3_Click()Dim an swer As StringOn Error GoTo delerror", vbYesNo,"")answer = MsgBox("確定要刪除嗎?If an swer = vbYes ThenDataGrid1.AllowDelete = TrueMsgBox " 成功刪除！ ", vbOK On ly + vbExclamatio n,""DataGridl.AllowDelete = False

42、ElseExit SubEnd Ifdelerror:If Err.Number <> 0 The nEnd IfEnd SubPrivate Sub man d4_Click()If mand4.Caption = ”確定 ” ThenDataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = Falsemand1.Caption ="新增記錄”man d2.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseElseIf man d2.C aption =

43、" 確定 ” ThenDataGrid1.AllowUpdate = Falsemand2.Caption =" 修改記錄”man d1.E nabled = Trueman d3.E nabled = Trueman d4.E nabled = FalseEnd IfFrame2.E nabled = TrueEnd SubPrivate Sub man d5_Click()Un load MeEnd SubPrivate Sub Form_Load()Dim sql As Stri ngOn Error GoTo loaderrorsql = "select

44、* from團隊資料"打開數(shù)據(jù)庫不可增加rs_dclie nt.CursorLocati on = adUseClie ntrs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic '設(shè)定datagrid 控件屬性DataGridl.AllowAddNew = False'不可刪除DataGridl.AllowDelete = FalseDataGridl.AllowUpdate = FalseSet DataGridl.DataSource = rs_dclie nt man d4.E nabled = F

45、alseExit Subloaderror:End SubPrivate Sub Form_Unl oad(Ca ncel As In teger)Set DataGrid1.DataSource = Nothi ngEndSub在該模塊中主要實現(xiàn)輸入客戶的某某檢索住宿信息的功能圖.5.5客人信息查詢界面登陸代碼實現(xiàn)Opti on ExplicitPrivate Sub ma nd1_Click()On Error GoTo cmderrorDim fin d_date1 As Stri ngDim fin d_date2 As Stri ngIf Optio n1.Value = True

46、The nsqlfind = "select * from散客資料 where 房號 between '" & _bo1(0).Text & "'" & " and " & "'" & bo1(1).Text & "'"End IfIf Optio n2.Value = True The nfind_date1 = Format(CDate(boy(0).Text & "-" &

47、_bom(0).Text & "-" & bod(0).Text), "yyyy-mm-dd")find_date2 = Format(CDate(boy(1).Text & "-" & _bom(1).Text & "-" & bod(1).Text), "yyyy-mm-dd")sqlfind = "select * from散客資料 where 抵達日 between #" & _fin d_date1 &

48、 "#" & ” and" & ” #" & fin d_date2 & "#"End Ifrs_data1.Ope n sqlfi nd, conn, adOpe nKeyset, adLockPessimisticUn load Mecmderror:If Err.Number <> 0 The nMsgBox " 請輸入正確的查詢條件！", vbOKO nly + vbExclamatio n,"End IfEnd SubPrivate Sub man d

49、2_Click()Un load MeEnd SubPrivate Sub Form_Load()Dim i As In tegerDim sql As Stri ng'If fin dok = True The n'End Ifsql = "select * from散客資料 order by 房號 desc"rs_fin d.CursorLocatio n = adUseClie ntrs_find.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_fi nd.EOF = False The n&#

50、39;添加編號With rs_findDo While Not .EOFbo1(0).Addltem .Fields(0)bo1(1).Addltem .Fields(0).MoveNextLoopEnd WithEnd IfFor i = 2001 To 2005'添加年boy(0).Addltem iboy(1).AddItem iNext i添加月添加日Fori = 1 To 12bom(0).Addltem i bom(1).Addltem i Next iFor i = 1 To 31bod(0).AddItem ibod(1).AddItem i Next iEnd Sub

51、Private Sub Form_Unl oad(Ca ncel As In teger)End Sub5.5系統(tǒng)管理系統(tǒng)管理包括“新增用戶，“修改密碼二局部新增用戶圖5.6新增用戶界面登陸代碼實現(xiàn)Private Sub ma nd1_Click() Dim sql As Stri ngIf Trim(text1.Text) = "" The nMsgBox " 用戶名不能為空", vbOKOnly + vbExclamation,""Exit SubElsesql = "select * from系統(tǒng)管理”rs_add.O

52、pen sql, conn, adOpenKeyset, adLockPessimisticWhile (rs_add.EOF = False)If Trim(rs_add.Fields(O) = Trim(textl.Text) ThenMsgBox "已有這個用戶", vbOKOnly + vbExclamation,""text1.Text ="" text2.Text =""Text3.Text ="" bo1.Text ="" Exit SubElseEnd IfW

53、endIf Trim(text2.Text) = "" The nMsgBox "密碼不能為空，請重新輸入！", vbOKO nly + vbExclamatio n,"text2.Text =""Exit SubEnd IfIf Trim(text2.Text) <> Trim(Text3.Text) The nMsgBox "兩次密碼不一致 ", vbOKOnly + vbExclamation,""text2.Text =""Text3.Text

54、=""Exit SubElseIf Trim(bo1.Text) <> "system" A nd Trim(bo1.Text) <> "guest" The nMsgBox "請選擇正確的用戶權(quán)限", vbOKO nly + vbExclamatio n,""bo1.Text =""Exit SubElseMsgBox "添加用戶成功", vbOKOnly + vbExclamation,""Un load M

55、eEnd IfEnd IfEnd SuPrivate Sub man d2_Click()Un load MeEnd SuPrivate Sub Form_Load() bo1.Addltem "system" bo1.Addltem "guest" End Sub修改密碼登陸代碼實現(xiàn)Private Sub ma nd1_Click()Dim sql As Stri ngIf Trim(text1.Text) <> Trim(text2.Text) ThenMsgBox " 密碼不一致！ ", vbOKO nly + vb

56、Exclamatio n,""text1.Text =""text2.Text =""Elsesql = "select * from系統(tǒng)管理 where 用戶名="'& userID & ""'rs_chang.Open sql, conn, adOpenKeyset, adLockPessimisticMsgBox " 密碼修改成功", vbOKOnly + vbExclamation,""Un load MeEnd I

57、fEnd SubPrivate Sub man d2_Click()Un load MeEnd Sub圖5.8人事管理界面登陸代碼實現(xiàn)Opti on ExplicitPrivate Sub cmdadd_Click()當此按鈕的狀態(tài)為為“增加記錄'時 按鈕名稱改為“確定"On Error GoTo adderrorIf cmdadd.Caption = ” 確定增加記錄 ” Then cmdadd.C apti on = ” 確定”'cmddel.E nabled = Falsecmdca ncel.E nabled = TrueDataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = TrueElse設(shè)定datagrid 可以增加記錄If Not IsNull(DataGridl.Bookmark) The nIf Not IsDate(Trim(DataGrid1.Columns(”值班開始日期").CellText(DataGrid1.Bookmark)The nMsgBox