賓館管理信息系統(tǒng)
3.9萬(wàn)字 69頁(yè)
包括代碼


摘 要
賓館管理系統(tǒng)是一個(gè)服務(wù)單位不可缺少的部分，它的內(nèi)容
決策者和管理者都至關(guān)重要，所以賓館信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。系統(tǒng)分為四部分：系統(tǒng)管理、客房信息管理、訂房信息管理、結(jié)算信息管理。實(shí)現(xiàn)賓館運(yùn)營(yíng)中需要對(duì)賓館資源信息進(jìn)行管理，提高效率。
●系統(tǒng)管理實(shí)現(xiàn)：用戶管理和密碼管理
●客房管理實(shí)現(xiàn)：客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入修改、查詢。如：標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等信息。
●訂房信息管理實(shí)現(xiàn)：訂房信息的輸入訂房信息的修改和查詢。包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等信息。
●結(jié)算信息管理實(shí)現(xiàn)： 結(jié)算信息的輸入結(jié)算信息的修改和查詢。包括客房編號(hào)、客房種類、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備注信息等信息。

關(guān)鍵詞：數(shù)據(jù)庫(kù)、代碼、控件、屬性




目 錄
摘要 1
引言 2
1 系統(tǒng)設(shè)計(jì) 3
1.1 系統(tǒng)功能分析 3
1.2 系統(tǒng)功能模塊設(shè)計(jì) 4
2 數(shù)據(jù)庫(kù)設(shè)計(jì) 5
2.1 數(shù)據(jù)庫(kù)需求分析 5
2.2 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 6
2.3 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 9
3 數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn) 12
3.1 創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表 12
3.2 SQL Server2000設(shè)置 14
3.3 Visual Basic設(shè)置 14
3.4 創(chuàng)建ODBC 14
4 賓館管理信息系統(tǒng)的創(chuàng)建 15
4.1 賓館管理系統(tǒng)主窗體的創(chuàng)建 15
4.1.1 創(chuàng)建工程項(xiàng)目——Hotel_MIS 15
4.1.2 創(chuàng)建賓館管理信息系統(tǒng)的主窗體 15
4.1.3 創(chuàng)建主窗體的菜單 16
4.1.4 創(chuàng)建公用模塊 16
4.2 系統(tǒng)用戶管理模塊的創(chuàng)建 17
4.3 客房標(biāo)準(zhǔn)管理模塊的創(chuàng)建 18
4.3.1 添加客房的創(chuàng)建 18
4.3.2 修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建 19
4.3.3 刪除客房標(biāo)準(zhǔn) 19
4.4 客房信息管理模塊的創(chuàng)建 19
4.4.1 添加客房信息窗體的創(chuàng)建 20
4.4.2 修改客房信息 20
4.4.3 刪除客房信息 21
4.4.4 查詢客房信息 21
4.5 訂房信息管理模塊的創(chuàng)建 22
4.5.1 查詢剩余客房信息窗體的創(chuàng)建 22
4.5.2 添加訂房信息 23
4.5.3 修改訂房信息 23
4.5.4 查詢訂房信息 24
4.6 結(jié)算信息管理模塊的創(chuàng)建 24
4.6.1 添加結(jié)算信息窗體的創(chuàng)建 24
4.6.2 修改結(jié)算信息 25
4.6.3 查詢結(jié)算信息 25
4.7 系統(tǒng)的編譯 26
結(jié)論 27
致謝 28
參考文獻(xiàn) 29
附錄 30


參 考 文 獻(xiàn)
[1] 薩師煊，王珊。數(shù)據(jù)庫(kù)系統(tǒng)概論。北京：高等教育出版社
[2] 柳青，劉渝妍，何文華。Visual Basic 程序設(shè)計(jì)教程 。北京：高等教育出版社


附 錄
代碼1：
Public Function ExecuteSQL(ByValSQL _
As String,MsgString AsString)_
As ADODB.Recordset
‘執(zhí)行SQL語(yǔ)句，并返回記錄集對(duì)象
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
......