軟件工程課程設(shè)計(jì)酒店管理系統(tǒng)

1、軟件工程課程設(shè)計(jì)報(bào)告班級(jí)：軟件09-10姓名：學(xué)號(hào)：指導(dǎo)教師:目錄1 設(shè)計(jì)內(nèi)容 31.1 系統(tǒng)的主要功能 32 概要設(shè)計(jì) 32.1 數(shù)據(jù)庫(kù)設(shè)計(jì) 32.1.1 數(shù)據(jù)分析 32.1.2 酒店管理系統(tǒng)的 E-R 圖 42.2 功能需求與程序的關(guān)系 83 詳細(xì)設(shè)計(jì) 93.1 用戶登錄驗(yàn)證設(shè)計(jì)說(shuō)明 93.2 添加客戶信息設(shè)計(jì)說(shuō)明 103.2.1 功能 103.2.2 流程邏輯 103.3 顯示設(shè)計(jì)說(shuō)明 103.3.1 功能 103.3.2 流程邏輯 113.4 查詢信息設(shè)計(jì)說(shuō)明 113.4.1 功能 113.4.2 流程邏輯 113.5 結(jié)賬功能設(shè)計(jì)說(shuō)明 123.5.1 功能 123.5.2 流程邏輯

2、133.6 刪除信息設(shè)計(jì)說(shuō)明 133.6.1 功能 133.6.2 流程邏輯 144 程序源碼 145 程序運(yùn)行與調(diào)試 195.1 登陸界面 205.2 成功登陸界面 205.3 添加新客人 205.4 訂房操作 225.5 訂餐操作 245.6 查詢操作 255.7 結(jié)賬操作 265.8 刪除操作 275.9 顯示操作 286 總結(jié) 297 參考文獻(xiàn) 31成績(jī)?cè)u(píng)定 311 設(shè)計(jì)內(nèi)容酒店管理系統(tǒng)是酒店賓館管理中必不可少的軟件工具，隨著現(xiàn)代化都市發(fā) 展，酒店的功能也隨著逐步擴(kuò)充，來(lái)方便、滿足旅客們的需求，因此酒店管理越 來(lái)越需要電子計(jì)算機(jī)的幫助， 通過(guò)管理系統(tǒng)它可以方便工作人員的操作， 省去了

3、大量的人力開(kāi)銷(xiāo)。同時(shí)，計(jì)算機(jī)的管理也大大的提高了管理時(shí)的可靠性。如今， 隨著我國(guó)經(jīng)濟(jì)的高速發(fā)展， 現(xiàn)代化酒店如雨后春筍般涌出， 所以，酒店管理系統(tǒng) 有著巨大的市場(chǎng)和發(fā)展空間。1.1 系統(tǒng)的主要功能本酒店管理系統(tǒng)具有酒店的基本功能， 是為酒店的服務(wù)人員開(kāi)發(fā)的一款簡(jiǎn)單 的系統(tǒng)，其具體功能如下：可對(duì)酒店的所有客人進(jìn)行登記、錄入、查看、刪除。 可查看酒店的所有服務(wù)項(xiàng)目和收費(fèi)情況。 用戶可查看賬單和自己的消費(fèi)情況?？梢酝ㄟ^(guò)本系統(tǒng)實(shí)現(xiàn)訂餐、訂票等服務(wù)，并自動(dòng)記賬?？煞奖憬Y(jié)賬操作。2 概要設(shè)計(jì)2.1 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1.1 數(shù)據(jù)分析根據(jù)系統(tǒng)需求，需要如下數(shù)據(jù)： 根據(jù)各屬性性質(zhì)的不同、聯(lián)系實(shí)際，將相同性質(zhì)的屬性

4、歸為一類(lèi)，現(xiàn)分類(lèi)如 下：1. 客戶信息：證件號(hào)，姓名，性別，電話2. 酒店為客戶提供的信息：手牌號(hào)，賬單號(hào)。3. 酒店自己的信息：服務(wù)編號(hào)，服務(wù)項(xiàng)目，費(fèi)用。4. 服務(wù)信息：客戶的需求，總計(jì)費(fèi)用，實(shí)交費(fèi)用，找回?cái)?shù)額酒店管理系統(tǒng)的E-R圖本程序的數(shù)據(jù)庫(kù)使用了七張表，其 ER圖如下：客戶表用于存放客戶的個(gè)人信息，如圖 1所示用于存放每一個(gè)客戶的賬單情況，如圖2-2所示圖2- 3用于存放酒店餐飲項(xiàng)目，如圖2-4所示存儲(chǔ)本酒店的客房信息，如圖2-5所示圖2-5存放本酒店的娛樂(lè)信息，如圖2-6所示圖2- 7根據(jù)以上對(duì)酒店管理系統(tǒng)數(shù)據(jù)信息的分析，一個(gè)標(biāo)準(zhǔn)的酒店管理系統(tǒng)的E-R圖，如圖2-8所示系統(tǒng)模塊設(shè)計(jì)本

5、酒店管理系統(tǒng)應(yīng)該包括如圖所示的幾大功能圖2-9客戶信息功能模塊圖2-10查詢模塊查詢賬單：查詢客戶的付費(fèi)情況查詢消費(fèi)：查詢客戶目前的消費(fèi)項(xiàng)目顯示酒店的一些情況，如圖：圖2-11顯示模塊2.2功能需求與程序的關(guān)系本條用一張如下的矩陣圖說(shuō)明各項(xiàng)功能需求的實(shí)現(xiàn)同各塊程序的分配關(guān)系:表1功能需求與程序分配關(guān)系表添加信刪除信查詢信更改信列表顯客戶信息管V查詢VV顯示一 V 一結(jié)賬V服務(wù)VV3詳細(xì)設(shè)計(jì)3.1用戶登錄驗(yàn)證設(shè)計(jì)說(shuō)明3.2添加客戶信息設(shè)計(jì)說(shuō)明321功能添加客戶信息322流程邏輯圖3-2添加客戶信息模塊流程圖顯示酒店的情況332流程邏輯選擇顯示菜單顯示選定的菜單進(jìn)入顯示界面圖3-3顯示模塊流程圖3

6、.4查詢信息設(shè)計(jì)說(shuō)明功能用戶對(duì)系統(tǒng)內(nèi)的各項(xiàng)信息進(jìn)行查詢圖3-4查詢信息模塊流程圖3.5結(jié)賬功能設(shè)計(jì)說(shuō)明結(jié)賬流程邏輯圖3-5結(jié)賬模塊流程圖開(kāi) 始刪除要?jiǎng)h除的數(shù)據(jù)362流程邏輯創(chuàng)建數(shù)據(jù)庫(kù)連接刪除數(shù)據(jù)庫(kù)中相應(yīng)信息列表顯示刪除結(jié)果關(guān)閉數(shù)據(jù)庫(kù)連接圖18刪除信息模塊流程圖4程序源碼Private Sub about_Click() frmAbout.ShowEnd SubPrivate Sub add_user_Click() frmadduser.ShowEnd SubPrivate Sub double_check_Click()frmfi nd_double.ShowEnd Subloaderror

7、:MsgBox Err.Descripti onEnd SubPrivate Sub Form_Unl oad(Ca ncel As In teger)Set DataGrid1.DataSource = Noth ingrs client.CloseEnd SubOption ExplicitDim rs_dclient As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderror'當(dāng)此按鈕的狀態(tài)為為'按鈕名稱(chēng)改為“確 '刪除與修改按鈕不可用 '取消按鈕可用'設(shè)定dat

8、agrid可以增加記If Command1.Caption = "新增記錄 " Then “增加記錄”時(shí)Command1.Caption = "確定 " 定”Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueDataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = True 錄ElseIf Not IsNull(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns(&quo

9、t;團(tuán)隊(duì)名稱(chēng) ”).CellText(DataGridl.Bookmark)="" ThenMsgBox "團(tuán)隊(duì)名稱(chēng)不能為空！ ", vbOKOnly + vbExclamation, ""Exit SubEnd IfIf Trim(DataGrid1.Columns(” 負(fù)責(zé)人姓名").CellText(DataGrid1.Bookmark) = "" ThenMsgBox "負(fù)責(zé)人姓名不能為空！ ", vbOKOnly + vbExclamation, ""Ex

10、it SubEnd IfIf Trim(DataGrid1.Columns("證件號(hào)碼").CellText(DataGrid1.Bookmark)="" ThenMsgBox " 證件號(hào)碼不能為空！ ", vbOKOnly + vbExclamation, "" Exit SubEnd IfIf Trim(DataGrid1.Columns(" 房間號(hào)碼 ").CellText(DataGrid1.Bookmark) = "" ThenMsgBox " 房間號(hào)碼！

11、 ", vbOKOnly + vbExclamation, "" Exit SubEnd Ifrs_dclient.UpdateMsgBox " 添加信息成功！ ", vbOKOnly + vbExclamation, "" DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox " 沒(méi)有添加信息！ ", vbOKOnly + vbExclamation, ""End IfCommand1.Caption

12、 = "新增記錄 "Command2.Enabled = TrueCommand3.Enabled = True Command4.Enabled = FalseEndsql = "select * from 團(tuán)隊(duì)資料 " rs_dclient.CursorLocation = adUseClient rs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic ' 打開(kāi)數(shù)據(jù)庫(kù) '設(shè)定 datagrid 控件屬性DataGrid1.AllowAddNew = False'不可

13、增加DataGrid1.AllowDelete = False' 不可刪除DataGrid1.AllowUpdate = Falsers_add.MoveNextEnd IfWendIf Trim(Text2.Text) = "" ThenMsgBox " 密 碼 不 能 為 空 ， 請(qǐng) 重 新 輸 入 ！ ", vbOKOnly vbExclamation, "警告 "Text2.Text = ""Text2.SetFocusExit SubEnd IfIf Trim(Text2.Text) <&g

14、t; Trim(Text3.Text) ThenMsgBox " 兩次密碼不一致 ", vbOKOnly + vbExclamation, ""Text2.SetFocusText2.Text = ""Text3.Text = ""Exit SubEnd IfEnd SubPublic Sub setgrid()Dim i As IntegerOn Error GoTo seterrorWith MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0.R

15、ows = rs_data1.RecordCount + 1 .Cols = 7.SelectionMode = flexSelectionByRowFor i = 0 To .Rows - 1.RowHeight(i) = 315NextFor i = 0 To .Cols - 1 .ColWidth(i) = 1300Next iEnd WithExit Subseterror:MsgBox Err.DescriptionEnd SubPublic Sub setgridhead() On Error GoTo setheaderror MSFlexGrid1.Row = 0 MSFlex

16、Grid1.Col = 0 MSFlexGrid1.Text = " 房號(hào)" MSFlexGrid1.Col = 1 MSFlexGrid1.Text = " 房?jī)r(jià)" MSFlexGrid1.Col = 2 MSFlexGrid1.Text = " 姓名" MSFlexGrid1.Col = 3 MSFlexGrid1.Text = " 性別" MSFlexGrid1.Col = 4 MSFlexGrid1.Text = " 證件號(hào)碼 " MSFlexGrid1.Col = 5 MSFlexGr

17、id1.Text = "抵達(dá)日 " MSFlexGrid1.Col = 6 MSFlexGrid1.Text = "離店日 " Exit Sub setheaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Command1_Click()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) <> Trim(Text2.Text) ThenMsgBox " 密碼不一致！ ", vbOKOn

18、ly + vbExclamation, "" Text1.SetFocusText1.Text = ""Text2.Text = ""Elsesql = "select * from 系統(tǒng)管理 where 用戶名 ='" & userID & "'" rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Textrs_chang.Updaters_ch

19、ang.CloseMsgBox " 密碼修改成功 ", vbOKOnly + vbExclamation, ""Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub5 程序運(yùn)行與調(diào)試5.1登陸界面圖1登陸界面5.2成功登陸界面圖2成功登陸界面5.3添加新客人渥拌號(hào)碼:姚名：性別：電話： 手牌號(hào):添Jm客人換作提禾退出圖3添加新客人界面圖4添加成功固客戶信息 idnamasexteleptiontdandcolebllcode0103111110102于化男03121 2its03'李四男01613103圖5查詢結(jié)果5.4訂房操作諸單孚'叮訂屣訂癖成”.退出圖6訂房界面(2)將費(fèi)用添加到帳單中圖7帳單界面5.5訂餐操作圖8訂餐界面(1)訂餐成功后將費(fèi)用加到帳單中固客戶信息呂回田lianricodebillcodesumtnoneypaidrepaid11pF0001210200d131031300a圖9帳單界面5.6查詢操作(1)查詢帳單，輸入帳單號(hào)圖io查詢界面(2)下圖為帳單查詢結(jié)果billcodexfnamexfcouritilprice10320C1io