【導(dǎo)讀】賓館是接待往來客商的服務(wù)場所，其主要業(yè)務(wù)為提供住宿服務(wù)。由于客戶身份不一，來處去向均各有異，人員混雜，住宿時間亦有很大的變數(shù)。而過去傳統(tǒng)的純手工的管理方式，一來工作效率很低，二來很難適應(yīng)日益。增加的賓館規(guī)模。所以賓館需要一個適合自身情況的管理系統(tǒng)來管理賓館資源。為程序開發(fā)工具和數(shù)據(jù)庫開發(fā)工具。信息查詢、報表管理、數(shù)據(jù)管、系統(tǒng)幫助。設(shè)計首先在短時間內(nèi)建立起系統(tǒng)應(yīng)用的原型,然。后對原型系統(tǒng)進(jìn)行需求分析,并不斷修正和改進(jìn)，直到行成可行性系統(tǒng)。于數(shù)據(jù)庫的設(shè)計和模塊之間的動態(tài)連接。因為時間和能力的原因，目前本系統(tǒng)的設(shè)計為單。到的技術(shù)進(jìn)行了介紹。關(guān)鍵詞：賓館管理信息系統(tǒng)；SQLServer2021；

　　

【正文】 來源：客房信息表 數(shù)據(jù)去向：客房模塊 數(shù)據(jù)組成：客房信息 =編號 +類型 +價格 +添加時間 +狀態(tài)等 描述：存儲了客房的基本信息 數(shù)據(jù)存儲名稱：客戶信息 數(shù)據(jù)來源：客戶信息表 數(shù)據(jù)去向：客戶模塊 數(shù)據(jù)組成：客戶信息 =編號 +客戶名稱 +身份證 +性別 +聯(lián)系方式 +添加時間等 描述：存儲了客戶的基本信息 20 —— 數(shù)據(jù)處理 —— 數(shù)據(jù)存儲 描述： 管理員登錄系統(tǒng)進(jìn)行管理員登錄管理 輸入：管理員的用戶名、密碼 過程：判斷是否為合法的管理員 輸出：后臺系統(tǒng)主界面 名稱 : 查詢信息 描述： 根據(jù)條件查詢所需信息 輸入 : 輸入查詢的條件 過程：查詢系統(tǒng)的用戶所需的信息 輸出 : 查詢得到的信息頁面 名字：錄入信息 描述：會員信息，資料信息 等的錄入 輸入 : 輸入要添加錄入的信息 過程 : 將需要添加錄入的信息加入數(shù)據(jù)庫中 輸出 : 系統(tǒng)新的信息表頁面 輸出 : 查詢得到的信息頁面 名字：修改、刪除信息 描述： 對會員信息，資料信息等修改或刪除后存入數(shù)據(jù)庫中 輸入 : 輸入要修改或刪除的信息 過程：對需要修改的信息做修改、刪除過時的信息 輸出 : 系統(tǒng)新的信息表頁面 輸出 : 查詢得到的信息頁面 名字 : 數(shù)據(jù)庫信息 別名：無 描述： 存儲了數(shù)據(jù)庫的基本信息 數(shù)據(jù)組成： 數(shù)據(jù)庫信息 =會員信息 +資料信息 +管理員信息 位置 ：數(shù)據(jù)庫 輸出 : 查詢得到的信息頁面 21 （ 1）管理員信息表 （ 2）客房信息表 （ 3）物品信息表 22 （ 4）入住信息表 程序設(shè)計 程序描述 本系統(tǒng)可登錄人員進(jìn)行管理；而 其他人員作為普通用戶登錄本系統(tǒng)時，則受到一些相關(guān)功能的訪問限制，最終達(dá)到，方便、快捷、高效和安全。 在訪問數(shù)據(jù)庫方面，將采用 數(shù)據(jù)環(huán)境設(shè)計器方法來實現(xiàn)，創(chuàng)建命令返回各記錄集，可在各個功能模塊中被直接使用。例如， WageData 為創(chuàng)建的一個數(shù)據(jù)環(huán)境命令對象，該對象返回的記錄集名稱則為 rsWageData,該記錄 集作為數(shù)據(jù)環(huán)境的一個屬性在窗體的各個模塊中直接使用。這樣大大減少代碼連接串的編寫，從而提高系統(tǒng)開發(fā)效率。在存儲較大的文件方面，采取存于本系統(tǒng)根目錄下，從而大大提高系統(tǒng)對數(shù)據(jù)庫的訪問速度。 程序輸入設(shè)計 輸出設(shè)計是指計算機(jī)對輸入的原始數(shù)據(jù)進(jìn)行加工處理，使之具有一定的格式，提供給管理者使用。因而，輸出是管理者直接面對的實物，往往有固定的格式和數(shù)據(jù)要求，具有直觀性，并直接反映用戶需求。輸出的要求往往決定對輸入要求，例如在設(shè)計設(shè)計一張報表時，報表中需要的數(shù)據(jù)就是輸入階段要提供的數(shù)據(jù)。輸出設(shè)計的目的是使 系統(tǒng)能輸出滿足用戶需要的有用信息，對于大多數(shù)用戶來說，輸出是系統(tǒng)開發(fā)的目的和評價系統(tǒng)開發(fā)成功與否的標(biāo)準(zhǔn)。因此，輸出設(shè)計的出發(fā)點是保證系統(tǒng)輸出的信息能夠方便的為用戶所使用，能夠為用戶的管理活動提供有效的信息服務(wù)。 23 程序輸出設(shè)計 輸入設(shè)計是整個系統(tǒng)設(shè)計的關(guān)鍵環(huán)節(jié)之一，對于系統(tǒng)的質(zhì)量起著決定性的影響，輸入數(shù)據(jù)的正確性直接決定處理結(jié)果的正確性，如果輸入數(shù)據(jù)有誤，即使計算和處理十分正確，也無法獲得可靠的輸出信息。輸入設(shè)計的目標(biāo)是保證向系統(tǒng)輸入正確的數(shù)據(jù)，在此前提下，應(yīng)做到輸入方法簡單，迅速，經(jīng)濟(jì)，方便， 為此，輸入設(shè)計應(yīng)該遵循最小量，簡單行，早檢驗，少轉(zhuǎn)換的原則。 系統(tǒng)登陸管理界面設(shè)計 用戶登陸 在運行程序后，首先看到的是用戶登錄窗口。用戶要填寫他的用戶名和密碼，需要登陸的數(shù)據(jù)庫的服務(wù)器名，服務(wù)器用戶名和密碼。這個窗口用來校驗是否是合法用戶，以及密碼是否正確，選擇需要登陸的服務(wù)器以及數(shù)據(jù)庫的登錄名和密碼。 圖 14 登陸界面圖 實現(xiàn)本模塊功能的主要代碼如下： If = Or = Then MsgBox(請?zhí)顚懲暾?, , 系統(tǒng)提示 ) Else Dim sql As String sql = select * from allusers where username=39。 + ().Trim() + 39。 and pwd=39。 + ().Trim + 39。 24 result = GetDataFromDB(sql) If (0). 0 Then nUserName = shenfen = (0).Rows(0)(cx). MsgBox(登陸成功 , , 系統(tǒng)提示 ) () () End If End If 本頁面的數(shù)據(jù)流程如下圖所示： 圖 15 登陸數(shù)據(jù)流程圖 用戶名密碼正確 登陸系統(tǒng) 進(jìn)入系統(tǒng) 錯誤超過三次 N Y N Y 系統(tǒng)管理 退出系統(tǒng) 開始 25 系統(tǒng)主界面操作 圖 16 系統(tǒng)主界面圖 由圖可以清晰看到，系統(tǒng)由系統(tǒng)設(shè)置管理、住房管理、消費管理、報表管理及數(shù)據(jù)管理五個模塊組成。界面設(shè)計富于現(xiàn)代氣息，操作簡便，功能齊全 。 客房信息管理模塊 圖 17 客房添 加圖 26 客房信息管理模塊是針對客房基本信息的管理而設(shè)計的。需要設(shè)置客房的基本信息，包括客房編號、客房類型、客房人數(shù)、客房價格等 。 實現(xiàn)本模塊的主要代碼如下所示： Private Sub kf_add_Load(ByVal sender As , ByVal e As ) Handles (普通型 ) (標(biāo)準(zhǔn)型 ) (毫華型 ) (單人間 ) (雙人間 ) (三人間 ) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If And Then Dim sql sql = insert into allfangjian(bh,lx,rs,price) values(39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。) UpdateData(sql) MsgBox(添加成功 , , 系統(tǒng)提示 ) Else MsgBox(請?zhí)顚懲暾?, , 系統(tǒng)提示 ) End If End Sub 用戶管理模塊 圖 18 管理員權(quán)限圖 界面可分為上下兩部分。上半部分為添加用戶功能區(qū)，除了設(shè)置用戶名及密碼外，還要設(shè)置用戶權(quán)限；下部分為顯示數(shù)據(jù)庫中現(xiàn)有的用戶信息，以列表的形式顯示 。 實現(xiàn)本模塊的主要代碼如下所示： 27 Private Sub yhzhgl_Load(ByVal sender As , ByVal e As ) Handles Dim sql sql = select * from allusers order by id desc getdata(sql) End Sub Function getdata(ByVal sql) 39。 DataSet hsgds = new DataSet()。 Dim hsgds As New DataSet hsgds = GetDataFromDB(sql) If (0). 0 Then = (0).DefaultView Else = Nothing End If End Function Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sql Dim ncx If () Then ncx = 超級管理員 Else ncx = 普通管理員 End If sql = insert into allusers(username,pwd,cx) values(39。 + + 39。,39。 + + 39。,39。 + ncx + 39。) UpdateData(sql) sql = select * from allusers order by id desc getdata(sql) MsgBox(添加成功 , , 系統(tǒng)提示 ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If (0).().Trim() Then Dim sql sql = delete from allusers where id= + (0).().Trim() + UpdateData(sql) sql = select * from allusers order by id desc 28 getdata(sql) MsgBox(刪除成功 , , 系統(tǒng)提示 ) Else MsgBox(請先選擇您要刪除的記錄 ) End If End Sub 消費物品信息管理模塊 圖 19 消費物品添加圖 界面顯示的功能是添加客戶消費物品的信息 。 實現(xiàn)本模塊的主要代碼如下所示： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sql sql = insert into allwupin(bh,mc,price) values(39。 + + 39。,39。 + + 39。, + + ) UpdateData(sql) MsgBox(添加成功 , , 系統(tǒng)提示 ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 29 客戶預(yù)訂 /退房信息管理 模塊 圖 20 客戶預(yù)定圖 實現(xiàn)本模塊的主要代碼如下所示： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Or = Or = Then MsgBox(請?zhí)顚懲暾?, , 系統(tǒng)提示 ) Else Dim sql Dim ngender ngender = sql = update allfangjian set isin=39。有人 39。 where bh=39。 + + 39。 UpdateData(sql) sql = insert into rzjl(xm,gender,sfz,addr,fjbh,fj,ts,ysje,ssje,isfk,addtime) values(39。 + + 39。,39。 + ngender + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。, + + , + + , + + ,39。否 39。,39。 + + 39。) UpdateData(sql) MsgBox(添加成功 , , 系統(tǒng)提示 ) End