賓館管理信息系統—論文-資料下載頁

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

　　

【正文】 ：客房信息表 數據去向：客房模塊 數據組成：客房信息 =編號 +類型 +價格 +添加時間 +狀態等 描述：存儲了客房的基本信息 數據存儲名稱：客戶信息 數據來源：客戶信息表 數據去向：客戶模塊 數據組成：客戶信息 =編號 +客戶名稱 +身份證 +性別 +聯系方式 +添加時間等 描述：存儲了客戶的基本信息 20 —— 數據處理 —— 數據存儲 描述： 管理員登錄系統進行管理員登錄管理 輸入：管理員的用戶名、密碼 過程：判斷是否為合法的管理員 輸出：后臺系統主界面 名稱 : 查詢信息 描述： 根據條件查詢所需信息 輸入 : 輸入查詢的條件 過程：查詢系統的用戶所需的信息 輸出 : 查詢得到的信息頁面 名字：錄入信息 描述：會員 信息，資料信息 等的錄入 輸入 : 輸入要添加錄入的信息 過程 : 將需要添加錄入的信息加入數據庫中 輸出 : 系統新的信息表頁面 輸出 : 查詢得到的信息頁面 名字：修改、刪除信息 描述： 對會員信息，資料信息等修改或刪除后存入數據庫中 輸入 : 輸入要修改或刪除的信息 過程：對需要修改的信息做修改、刪除過時的信息 輸出 : 系統新的信息表頁面 輸出 : 查詢得到的信息頁面 名字 : 數據庫信息 別名：無 描述： 存儲了數據庫的基本信息 數據組成： 數據庫信息 =會員信息 +資料信息 +管理員信息 位置：數據庫 輸出 : 查詢得到的信息頁面 21 （ 1）管理員信息表 （ 2）客房信息表 （ 3）物品信息表 22 （ 4）入住信息表 程序設計 程序描述 本系統可登錄人員進行管理；而 其他人員作為普通用戶登錄本系統時，則受到一些相關功能的訪問限制，最終達到，方便、快捷、高效和安全。 在訪問數據庫方面，將采用 數據環境設計器方法來實現，創建命令返回各記錄集，可在各個功能模塊中被直接使用。例如， WageData 為創建的一個數據環境命令對象，該對象返回的記錄集名稱則為 rsWageData,該記錄 集作為數據環境的一個屬性在窗體的各個模塊中直接使用。這樣大大減少代碼連接串的編寫，從而提高系統開發效率。在存儲較大的文件方面，采取存于本系統根目錄下，從而大大提高系統對數據庫的訪問速度。 程序輸入設計 輸出設計是指計算機對輸入的原始數據進行加工處理，使之具有一定的格式，提供給管理者使用。因而，輸出是管理者直接面對的實物，往往有固定的格式和數據要求，具有直觀性，并直接反映用戶需求。輸出的要求往往決定對輸入要求，例如在設計設計一張報表時，報表中需要的數據就是輸入階段要提供的數據。輸出設計的目的是使 系統能輸出滿足用戶需要的有用信息，對于大多數用戶來說，輸出是系統開發的目的和評價系統開發成功與否的標準。因此，輸出設計的出發點是保證系統輸出的信息能夠方便的為用戶所使用，能夠為用戶的管理活動提供有效的信息服務。 23 程序輸出設計 輸入設計是整個系統設計的關鍵環節之一，對于系統的質量起著決定性的影響，輸入數據的正確性直接決定處理結果的正確性，如果輸入數據有誤，即使計算和處理十分正確，也無法獲得可靠的輸出信息。輸入設計的目標是保證向系統輸入正確的數據，在此前提下，應做到輸入方法簡單，迅速，經濟，方便， 為此，輸入設計應該遵循最小量，簡單行，早檢驗，少轉換的原則。 系統登陸管理界面設計 用戶登陸 在運行程序后，首先看到的是用戶登錄窗口。用戶要填寫他的用戶名和密碼，需要登陸的數據庫的服務器名，服務器用戶名和密碼。這個窗口用來校驗是否是合法用戶，以及密碼是否正確，選擇需要登陸的服務器以及數據庫的登錄名和密碼。 圖 14 登陸界面圖 實現本模塊功能的主要代碼如下： If = Or = Then MsgBox(請填寫完整 , , 系統提示 ) 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(登陸成功 , , 系統提示 ) () () End If End If 本頁面的數據流程如下圖所示： 圖 15 登陸數據流程圖 用戶名密碼正確 登陸系統 進入系統 錯誤超過三次 N Y N Y 系統管理 退出系統 開始 25 系統主界面操作 圖 16 系統主界面圖 由圖可以清晰看到，系統由系統設置管理、住房管理、消費管理、報表管理及數據管理五個模塊組成。界面設計富于現代氣息，操作簡便，功能齊全 。 客房信息管理模塊 圖 17 客房添 加圖 26 客房信息管理模塊是針對客房基本信息的管理而設計的。需要設置客房的基本信息，包括客房編號、客房類型、客房人數、客房價格等 。 實現本模塊的主要代碼如下所示： Private Sub kf_add_Load(ByVal sender As , ByVal e As ) Handles (普通型 ) (標準型 ) (毫華型 ) (單人間 ) (雙人間 ) (三人間 ) 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(添加成功 , , 系統提示 ) Else MsgBox(請填寫完整 , , 系統提示 ) End If End Sub 用戶管理模塊 圖 18 管理員權限圖 界面可分為上下兩部分。上半部分為添加用戶功能區，除了設置用戶名及密碼外，還要設置用戶權限；下部分為顯示數據庫中現有的用戶信息，以列表的形式顯示 。 實現本模塊的主要代碼如下所示： 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(添加成功 , , 系統提示 ) 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(刪除成功 , , 系統提示 ) Else MsgBox(請先選擇您要刪除的記錄 ) End If End Sub 消費物品信息管理模塊 圖 19 消費物品添加圖 界面顯示的功能是添加客戶消費物品的信息 。 實現本模塊的主要代碼如下所示： 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(添加成功 , , 系統提示 ) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 29 客戶預訂 /退房信息管理 模塊 圖 20 客戶預定圖 實現本模塊的主要代碼如下所示： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Or = Or = Then MsgBox(請填寫完整 , , 系統提示 ) 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(添加成功 , , 系統提示 ) En