軟件工程課程設計報告軟件工程課程設計報告 班級：班級： 軟件軟件 09-10 姓名：姓名： 學號：學號： 指導教師：指導教師： I 目目 錄錄 1 1 設計內(nèi)容設計內(nèi)容.1 1.1 系統(tǒng)的主要功能.1 2 2 概要設計概要設計.1 2.1 數(shù)據(jù)庫設計.1 2.1.1 數(shù)據(jù)分析 .1 2.1.2 酒店管理系統(tǒng)的 E-R 圖 .2 2.2 功能需求與程序的關(guān)系.6 3 3 詳細設計詳細設計.7 3.1 用戶登錄驗證設計說明.7 3.2 添加客戶信息設計說明.8 3.2.1 功能 .8 3.2.2 流程邏輯 .8 3.3 顯示設計說明.8 3.3.1 功能 .8 3.3.2 流程邏輯 .8 3.4 查詢信息設計說明.9 3.4.1 功能.9 3.4.2 流程邏輯 .9 3.5 結(jié)賬功能設計說明.10 3.5.1 功能 .10 3.5.2 流程邏輯 .11 3.6 刪除信息設計說明.11 3.6.1 功能 .11 3.6.2 流程邏輯 .12 4 4 程序源碼程序源碼.12 5 5 程序運行與調(diào)試程序運行與調(diào)試.17 5.1 登陸界面.17 5.2 成功登陸界面.18 5.3 添加新客人.18 5.4 訂房操作.20 5.5 訂餐操作.22 5.6 查詢操作.23 5.7 結(jié)賬操作.24 5.8 刪除操作.25 5.9 顯示操作.26 6 6 總結(jié)總結(jié).27 II 7 7 參考文獻參考文獻.29 成績評定成績評定.29 1 1 設計內(nèi)容設計內(nèi)容 酒店管理系統(tǒng)是酒店賓館管理中必不可少的軟件工具，隨著現(xiàn)代化都市發(fā) 展，酒店的功能也隨著逐步擴充，來方便、滿足旅客們的需求，因此酒店管理 越來越需要電子計算機的幫助，通過管理系統(tǒng)它可以方便工作人員的操作，省 去了大量的人力開銷。同時，計算機的管理也大大的提高了管理時的可靠性。 如今，隨著我國經(jīng)濟的高速發(fā)展，現(xiàn)代化酒店如雨后春筍般涌出，所以，酒店 管理系統(tǒng)有著巨大的市場和發(fā)展空間。 1.11.1 系統(tǒng)的主要功能系統(tǒng)的主要功能 本酒店管理系統(tǒng)具有酒店的基本功能，是為酒店的服務人員開發(fā)的一款簡 單的系統(tǒng)，其具體功能如下： 可對酒店的所有客人進行登記、錄入、查看、刪除。 可查看酒店的所有服務項目和收費情況。 用戶可查看賬單和自己的消費情況。 可以通過本系統(tǒng)實現(xiàn)訂餐、訂票等服務，并自動記賬。 可方便結(jié)賬操作。 2 2 概要設計概要設計 2.12.1 數(shù)據(jù)庫設計數(shù)據(jù)庫設計 2.1.12.1.1 數(shù)據(jù)分析數(shù)據(jù)分析 根據(jù)系統(tǒng)需求，需要如下數(shù)據(jù)： 根據(jù)各屬性性質(zhì)的不同、聯(lián)系實際，將相同性質(zhì)的屬性歸為一類，現(xiàn)分類 如下： 1 1.客戶信息：證件號，姓名，性別，電話。 2.酒店為客戶提供的信息：手牌號，賬單號。 3.酒店自己的信息：服務編號，服務項目，費用。 4.服務信息：客戶的需求，總計費用，實交費用，找回數(shù)額。 2.1.22.1.2 酒店管理系統(tǒng)的酒店管理系統(tǒng)的 E-RE-R 圖圖 本程序的數(shù)據(jù)庫使用了七張表，其 ER 圖如下： 客戶表用于存放客戶的個人信息，如圖 1 所示 用于存放每一個客戶的賬單情況，如圖 2-2 所示 客戶 證件號姓名性別電話手牌號賬單號 圖 2-1 賬單 找回費用總費用實交費用手牌號賬單號 圖 2-2 2 用于存放每位客戶的服務項目，如圖 2-3 所示 用于存放酒店餐飲項目，如圖 2-4 所示 存儲本酒店的客房信息，如圖 2-5 所示 消費 賬單號消費項目消費數(shù)量消費價格 圖 2- 3 餐飲 編號菜名價格 圖 2-4 客房 編號類型電話層數(shù)狀況價格 圖 2-5 3 存放本酒店的娛樂信息，如圖 2-6 所示 根據(jù)以上對酒店管理系統(tǒng)數(shù)據(jù)信息的分析，一個標準的酒店管理系統(tǒng)的 E- R 圖，如圖 2-8 所示 娛樂 編號項目價格 圖 2-6 登錄 賬號密碼 圖 2- 7 客戶信息 消費信息費用信息 記賬消費 關(guān)系 1 1 1 N 1N 圖 2- 8 4 系統(tǒng)模塊設計 本酒店管理系統(tǒng)應該包括如圖所示的幾大功能。 查詢賬單：查詢客戶的付費情況 查詢消費：查詢客戶目前的消費項目 顯示酒店的一些情況，如圖： 客戶信息管理 圖 2-9 客戶信息功能模塊 客 戶 信 息 顯 示 客 戶 信 息 刪 除 客 戶 登 記 查詢 查 詢 賬 單 查 詢 消 費 圖 2-10 查詢模塊 圖 2-11 顯示模塊 顯示信息 顯 示 消 費 項 目 顯 示 客 戶 信 息 查 詢 信 息 顯 示 賬 單 信 息 結(jié)賬功能 圖 2-12 結(jié)賬模塊 結(jié)賬 5 2.22.2 功能需求與程序的關(guān)系功能需求與程序的關(guān)系 本條用一張如下的矩陣圖說明各項功能需求的實現(xiàn)同各塊程序的分配關(guān)系： 表 1 功能需求與程序分配關(guān)系表 添加信 息 刪除信 息 查詢信 息 更改信 息 列表顯 示 客戶信息管 理 查詢 顯示 結(jié)賬 服務 3 3 詳細設計詳細設計 3.13.1 用戶登錄驗證設計說明用戶登錄驗證設計說明 開 始 顯示登錄界面 創(chuàng)建數(shù)據(jù)庫連接 用戶名和密碼存在？ 讀取數(shù)據(jù)庫中用戶 信息 輸入用戶名和密碼 Y N 登陸成功 關(guān)閉數(shù)據(jù)庫連接 結(jié) 束 圖 3-1 用戶登錄驗證模塊流程圖 6 3.2 添加客戶信息設計說明 3.2.13.2.1 功能功能 添加客戶信息 3.2.23.2.2 流程邏輯流程邏輯 開 始 進入數(shù)據(jù)添加界面 提示成功 結(jié) 束 選擇添加客戶數(shù)據(jù) 圖 3-2 添加客戶信息模塊流程圖 7 3.33.3 顯示設計說明顯示設計說明 3.3.13.3.1 功能功能 顯示酒店的情況 3.3.23.3.2 流程邏輯流程邏輯 開 始 選擇顯示菜單 進入顯示界面 結(jié) 束 顯示選定的菜單 圖 3-3 顯示模塊流程圖 8 3.43.4 查詢信息設計說明查詢信息設計說明 3.4.13.4.1 功能功能 用戶對系統(tǒng)內(nèi)的各項信息進行查詢。 3.4.23.4.2 流程邏輯流程邏輯 開 始 顯示查詢界面 創(chuàng)建數(shù)據(jù)庫連接 讀取數(shù)據(jù)庫中用戶 信息 輸入查詢關(guān)鍵字 列表顯示信息 關(guān)閉數(shù)據(jù)庫連接 結(jié) 束 選擇要查詢信息的 類別 圖 3-4 查詢信息模塊流程圖 9 3.5 結(jié)賬功能設計說明 3 3.5.1.5.1 功能功能 結(jié)賬 3.5.23.5.2 流程邏輯流程邏輯 圖 3-5 結(jié)賬模塊流程圖 開 始 創(chuàng)建數(shù)據(jù)庫連接 向數(shù)據(jù)庫中添加信 息 輸入添加信息 選擇結(jié)賬功能 關(guān)閉數(shù)據(jù)庫連接 結(jié) 束 Y 10 3.6 刪除信息設計說明 3.6.13.6.1 功能功能 刪除要刪除的數(shù)據(jù) 3.6.23.6.2 流程邏輯流程邏輯 4 4 程序源碼程序源碼 Private Sub about_Click() frmAbout.Show End Sub 圖 18 刪除信息模塊流程圖 開 始 創(chuàng)建數(shù)據(jù)庫連接 刪除數(shù)據(jù)庫中相應 信息 列表顯示刪除結(jié)果 關(guān)閉數(shù)據(jù)庫連接 結(jié) 束 11 Private Sub add_user_Click() frmadduser.Show End Sub Private Sub double_check_Click() frmfind_double.Show End Sub loaderror: MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource = Nothing rs_client.Close End Sub Option Explicit Dim rs_dclient As New ADODB.Recordset Private Sub Command1_Click() On Error GoTo adderror If Command1.Caption = 新增記錄 Then 當此按鈕的狀態(tài)為為 “增加記錄”時 Command1.Caption = 確定 按鈕名稱改為“確 定” Command2.Enabled = False 刪除與修改按鈕不可用 Command3.Enabled = False Command4.Enabled = True 取消按鈕可用 DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True 設定 datagrid 可以增加 記錄 Else If Not IsNull(DataGrid1.Bookmark) Then 12 If Trim(DataGrid1.Columns(團隊名稱).CellText(DataGrid1.Bookmark) = Then MsgBox 團隊名稱不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(負責人姓名).CellText(DataGrid1.Bookmark) = Then MsgBox 負責人姓名不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(證件號碼).CellText(DataGrid1.Bookmark) = Then MsgBox 證件號碼不能為空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(房間號碼).CellText(DataGrid1.Bookmark) = Then MsgBox 房間號碼！, vbOKOnly + vbExclamation, Exit Sub End If rs_dclient.Update MsgBox 添加信息成功！, vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Else MsgBox 沒有添加信息！, vbOKOnly + vbExclamation, End If Command1.Caption = 新增記錄 Command2.Enabled = True 13 Command3.Enabled = True Command4.Enabled = False End sql = select * from 團隊資料 rs_dclient.CursorLocation = adUseClient rs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic 打開數(shù)據(jù)庫 設定 datagrid 控件屬性 DataGrid1.AllowAddNew = False 不可 增加 DataGrid1.AllowDelete = False 不可刪 除 DataGrid1.AllowUpdate = False rs_add.MoveNext End If Wend If Trim(Text2.Text) = Then MsgBox 密碼不能為空，請重新輸入！, vbOKOnly + vbExclamation, 警告 Text2.Text = Text2.SetFocus Exit Sub End If If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub 14 End If End Sub Public Sub setgrid() Dim i As Integer On Error GoTo seterror With MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = rs_data1.RecordCount + 1 .Cols = 7 .SelectionMode = flexSelectionByRow For i = 0 To .Rows - 1 .RowHeight(i) = 315 Next For i = 0 To .Cols - 1 .ColWidth(i) = 1300 Next i End With Exit Sub seterror: MsgBox Err.Description End Sub Public Sub setgridhead() On Error GoTo setheaderror MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = 房號 MSFlexGrid1.Col = 1 15 MSFlexGrid1.Text = 房價 MSFlexGrid1.Col = 2 MSFlexGrid1.Text = 姓名 MSFlexGrid1.Col = 3 MSFlexGrid1.Text = 性別 MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 證件號碼 MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 抵達日 MSFlexGrid1.Col = 6 MSFlexGrid1.Text = 離店日 Exit Sub setheaderror: MsgBox Err.Description End Sub Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String If Trim(Text1.Text) Trim(Text2.Text) Then MsgBox 密碼不一致！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Else sql = select * from 系統(tǒng)管理 where 用戶名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close 16 MsgBox 密碼修改成功, vbOKOnly + vbExclamation, Unload Me End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub 5 5 程序運行與調(diào)試程序運行與調(diào)試 5.1 登陸界面 圖 1 登陸界面 5.2 成功登陸界面 17 圖 2 成功登陸界面 5.3 添加新客人 18 圖 3 添加新客人界面 圖 4 添加成功 19 下圖是剛剛添加的客戶信息 圖 5 查詢結(jié)果 5.4 訂房操作 20 圖 6 訂房界面 （2）將費用添加到帳單中 圖 7 帳單界面 21 5.5 訂餐操作 圖 8 訂餐界面 （1）訂餐成功后將費用加到帳單中 圖 9 帳單界面 22 5.6 查詢操作 （1）查詢帳單,輸入帳單號 圖 10 查詢界面 （2）下圖為帳單查詢結(jié)果 23