數(shù)據(jù)庫課程設(shè)計(jì)(酒店管理系統(tǒng)).doc

1、. .數(shù)據(jù)庫系統(tǒng)課程設(shè)計(jì)報(bào)告題目 : 酒店管理系統(tǒng)課程代號 :0680036課程名稱 ：數(shù)據(jù)庫系統(tǒng)課程設(shè)計(jì).專業(yè) .專注.學(xué)號：姓名：班級：指導(dǎo)教師完成日期 ：2011 年 4 月目錄第一章引言第二章系統(tǒng)分析與設(shè)計(jì)2.1 需求分析2.2 結(jié)構(gòu)設(shè)計(jì)2.3 數(shù)據(jù)庫設(shè)計(jì)第三章系統(tǒng)開發(fā)及實(shí)現(xiàn)3.1 創(chuàng)建主窗體3.2 創(chuàng)建子窗體.專業(yè) .專注.3.3 建立公共模塊第四章總結(jié)參考文獻(xiàn)附錄（附部分源代碼 ）第一章引言酒店管理系統(tǒng)是現(xiàn)代服務(wù)行業(yè)不可缺少的一個(gè)組成環(huán)節(jié)。.專業(yè) .專注.酒店管理信息系統(tǒng)是一個(gè)由人、計(jì)算機(jī)和數(shù)據(jù)庫組成的進(jìn)行酒店經(jīng)營管理的系統(tǒng) ，通過對信息的收集 、傳遞、整理、加工、維護(hù)和使用 ，提

2、高管理水平和效率，從而實(shí)現(xiàn)酒店管理的自動(dòng)化、規(guī)范化和人性化 。本文簡要介紹了基于Microsoft和 VB 程序語言開發(fā)實(shí)現(xiàn)的酒店管理系統(tǒng)，著重闡述了該系統(tǒng)開發(fā)實(shí)現(xiàn)過程，從系統(tǒng)的需求分析、方案論證 、模塊設(shè)計(jì) 、數(shù)據(jù)設(shè)計(jì) 、詳細(xì)設(shè)計(jì)到系統(tǒng)測試等各個(gè)環(huán)節(jié)都進(jìn)行了較為詳盡的分析和描述。關(guān)鍵詞：酒店管理系統(tǒng) 、 Access、數(shù)據(jù)庫、VB.專業(yè) .專注.第二章系統(tǒng)分析與設(shè)計(jì)2.1 需求分析在進(jìn)行一個(gè)項(xiàng)目的設(shè)計(jì)之前，首先要進(jìn)行必要的需求分析。酒店需要管理各種人員和入住信息，希望實(shí)現(xiàn)酒店的信息化管理，通過建立一個(gè)酒店管理系統(tǒng)來管理酒店的日常業(yè)務(wù) 。 其完成功能如下：1、能夠?qū)崿F(xiàn)對客人的登記信息查詢，包括

3、逐個(gè)瀏覽，以及對客人資料的增加、刪除和.專業(yè) .專注.編輯操作 。2、能夠的酒店人員值班情況進(jìn)行管理。3、管理人員也可以直接增加和刪除用戶信息。系統(tǒng)功能模塊圖如圖1 所示。酒店管理系統(tǒng)人客客系事戶戶統(tǒng)管入信管理住息理查客值散團(tuán)新密戶班客隊(duì)增碼投管入入用修訴理住住戶改圖 1系統(tǒng)的功能模塊圖根據(jù)功能模塊圖設(shè)計(jì)劃出的實(shí)體有散客入住實(shí)體、團(tuán)隊(duì)入住實(shí)體 、投訴管理實(shí)體、值班管理實(shí)體 。散客入住實(shí)體E-R如圖 2 所示。團(tuán)隊(duì)入住實(shí)體E-R 如圖 3 所示投訴管理實(shí)體E-R 圖如圖 4 所示值班管理實(shí)體E-R 圖如圖 5 所示.專業(yè) .專注.房價(jià)姓名圖 2 散客入住實(shí)體E-R 圖房號散客入住實(shí)體性別離店日證

4、件號碼抵達(dá)日團(tuán)隊(duì)名稱負(fù)責(zé)人姓名圖 3 團(tuán)隊(duì)入住實(shí)體E-R 圖備注團(tuán)隊(duì)入住實(shí)體房間號碼入住天數(shù)證件號碼抵達(dá)日.專業(yè) .專注.投訴日期投訴對象圖 4 投訴管理實(shí)體E-R 圖編號投訴管理實(shí)體投訴內(nèi)容處理意見受訴部門受訴日期圖 5值值班班截管止理時(shí)實(shí)間體E-R 圖值班人值班開始日期2.2 結(jié)構(gòu)設(shè)計(jì)記事值班管理實(shí)體使用 windows操作系統(tǒng) 、開發(fā)維護(hù)系統(tǒng)即visual basic 軟件系統(tǒng) 、一套數(shù)據(jù)庫系統(tǒng) Access 即可 。 他們之間的關(guān)系如圖6 所示 。值班開始日期值班截止日期數(shù)據(jù)庫開發(fā)人員數(shù)據(jù)庫應(yīng)用程序用戶用戶用戶.專業(yè) .專注.圖 6 結(jié)構(gòu)關(guān)系圖根據(jù)上面的需求分析，設(shè)計(jì)好數(shù)據(jù)庫系統(tǒng)，然后

5、開發(fā)應(yīng)用程序可以考慮窗體的系統(tǒng)，每一個(gè)窗體實(shí)現(xiàn)不同的功能，可以設(shè)計(jì)以下幾個(gè)模塊。客人入住模塊 ：用來實(shí)現(xiàn)登記入住的增加、刪除和修改等操作?？腿诵畔⒉樵兡K：用來實(shí)現(xiàn)對客人信息的瀏覽和查詢。值班管理模塊 ：用來實(shí)現(xiàn)對工作人員值班情況的增加、刪除和修改等操作。系統(tǒng)管理模塊 ：用來實(shí)現(xiàn)用戶的增加、刪除和修改等操作。2.3 數(shù)據(jù)庫設(shè)計(jì)這里數(shù)據(jù)庫采用access ，用 ADO 作為連接數(shù)據(jù)對象。2.3.1 建立 access 數(shù)據(jù)庫啟動(dòng) access，建立一個(gè)空的數(shù)據(jù)庫jiudian.mbd，如圖 7 所示 。圖 7jiudian.mdb使用程序設(shè)計(jì)器建立系統(tǒng)需要的表格如下：散客資料表 ，如圖 8 所示

6、 。.專業(yè) .專注.團(tuán)隊(duì)資料表 ，如圖 9 所示 。值班管理表 ，如圖 10 所示 。系統(tǒng)管理表 ，如圖 11 所示 。投訴管理表 ，如圖 12 所示 。圖 8 散客資料表圖 9 團(tuán)隊(duì)資料表.專業(yè) .專注.圖 10 值班管理表圖 11 系統(tǒng)管理表圖 12 投訴管理表2.3.2 連接數(shù)據(jù)庫在程序設(shè)計(jì)的公共模塊中，先定義 ADO 鏈接對象 。語句如下 ：Public conn As New ADODB.Connection標(biāo)記連接對象然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫：Dim connectionstring As Stringconnectionstring = provider=Mic

7、rosoft.Jet.oledb.4.0; & _data source=jiudian.mdbconn.Open connectionstring.專業(yè) .專注.圖 12 引用 ADO 連接數(shù)據(jù)庫.專業(yè) .專注.第三章系統(tǒng)開發(fā)與實(shí)現(xiàn)這是一個(gè)多文檔界面（ MDI ）應(yīng)用程序 ，如圖 13 所示 ，可以同時(shí)顯示多個(gè)文檔，每個(gè)文檔顯示在各個(gè)窗體中。 MDI應(yīng)用程序中常有包含子菜單“窗體 ”選項(xiàng)，用于在窗體或文檔間進(jìn)行切換 。 菜單應(yīng)用程序中，有 5 個(gè)菜單選項(xiàng) ，每個(gè)選項(xiàng)對應(yīng)著E-R 圖中的一個(gè)子項(xiàng)目。圖 13 多文檔界面.專業(yè) .專注.3.1 創(chuàng)建主窗體首先創(chuàng)建一個(gè)工程，命名為酒店管理系統(tǒng)。該窗

8、體屬性如表1 所示 。屬性值Caption酒店管理系統(tǒng)WindowStateMaxsize表 1主窗體的屬性圖 14菜單編輯器在主窗體的工具欄中，選菜單編輯器，創(chuàng)建如圖14 所示的菜單結(jié)構(gòu)。創(chuàng)建一些菜單項(xiàng)，如表 2 所示。表 2菜單項(xiàng)表菜單名稱Text 屬性功能描述MenuItem1系統(tǒng)管理頂級菜單 ，包含子菜單MenuItem2新增用戶調(diào)出用戶窗體.專業(yè) .專注.MenuItem3修改密碼調(diào)出密碼窗體MenuItem4退出系統(tǒng)推出MenuItem5客人入住頂級菜單 ，包含子菜單MenuItem6散客入住調(diào)出散客入住信息窗體MenuItem7團(tuán)隊(duì)入住調(diào)出團(tuán)隊(duì)入住信息窗體MenuItem8客人信

9、息查詢調(diào)出查詢窗體MenuItem9人事管理頂級菜單 ，包含子菜單MenuItem10客戶投訴管理調(diào)出客戶投訴信息窗體MenuItem11值班管理調(diào)出值班信息窗體MenuItem12關(guān)于調(diào)出對系統(tǒng)的要求主窗體如圖15 所示 。.專業(yè) .專注.圖 15 主窗體3.2 創(chuàng)建各個(gè)子窗體“工程 ”添“加窗體 ”命令 ，添加子窗體 。把窗體的屬性MIDChild改成 Ture，這個(gè)窗體則成為MID 子窗體 。這個(gè)項(xiàng)目中 ，要?jiǎng)?chuàng)建的子窗體如表3 所示 。下面分別是各個(gè)子窗體，以及他們所使用的控件，如表 3 所示 。表 3所有子窗體子窗體名Text散客入住frmonly_client團(tuán)隊(duì)入住Frmdoubl

10、e_client增加用戶frmadduser.專業(yè) .專注.修改密碼frmchangepwd客人資料frmdatamanage查詢輸出frmfind關(guān)于frmAbout用戶登錄frmlogin客人投訴管理frmkhts值班管理frmzhiban3.2.1 散客入住子窗體散客入住子窗體如圖16 所示 ，其控件如表4 所示 。圖 16散客入住子窗體.專業(yè) .專注.表 4散客入住子窗口控件控件類型控件 Name控件 TextFrame1散客入住FrameFrame2(空 )DateGridDateGrid1(空 )Commend1新增記錄Commend2修改記錄CommendCommend3刪除記錄

11、Commend4取消Commend5退出3.2.2 增加用戶子窗體增加用戶子窗體如圖17 所示 ，其控件如表5 所示 。圖 17 增加用戶子窗體表 5增加用戶控件表.專業(yè) .專注.控件類別控件 Name控件 TextLabel1輸入用戶名LabelLabel2輸入密碼Label3確認(rèn)密碼Label4選擇權(quán)限Text1（空）TextBoxText2（空）Text3（空）ComboBoxComb1（空）CommandButtonCommand1確認(rèn)Command2取消3.2.3 修改密碼子窗體修改密碼子窗體如圖18 所示 ，其控件如表6 所示 。圖 18 修改密碼子窗體表 6 修改密碼窗體.專業(yè)

12、.專注.控件類別控件 Name控件 TextLabelLabel1新密碼Label2確認(rèn)密碼TextBoxText1（空）Text2（空）CommandButtonCommand1確定Command2取消3.2.4 團(tuán)隊(duì)入住子窗體團(tuán)隊(duì)入住子窗體如圖19 所示 ，其控件如表7 所示圖 19團(tuán)隊(duì)入住子窗體表 7團(tuán)隊(duì)入住子窗口控件控件類型控件 Name控件 Text.專業(yè) .專注.FrameFrame1團(tuán)隊(duì)入住Frame2（空）DataGridDataGrid1（空）CommandButtonCommand1新增記錄Command2修改記錄Command3刪除記錄Command4取消Command5

13、退出3.2.5 查詢子窗體查詢子窗體如圖20 所示 ，其控件如表8 所示圖 20 查詢子窗體表 8查詢子控件控件類別控件 Name控件 TextOptionButtonOption1按房號.專業(yè) .專注.Option2按抵達(dá)日Lable1從LableLable2到Lable3從Lable4年Lable5月Lable6日Lable7到LableLable8年Lable9月Lable10日Combo(0 )CoboBoxCombol（空）Combo(1 )CoboBoxCombol（空）Combo(0 )CoboBoxComboy（空）Combo(1 )CoboBoxComboy（空）Combo(

14、0 )CoboBoxCombom（空）Combo(1 )CoboBoxCombom（空）Combo(0 )CoboBoxCombod（空）Combo(1 )CoboBoxCombod（空）CommandButtonCommand1查詢Command2取消.專業(yè) .專注.3.2.6 用戶登錄子窗體用戶登錄子窗體如圖21 所示 ，其控件如表9 所示圖 21 用戶登錄子窗體表 9 用戶登錄子窗口控件控件類別控件 Name控件 TextLabelLabel1用戶名Label2密碼TextBoxText1（空）Text2（空）CommandButtonCommand1確定Command2取消3.2.7

15、值班管理子窗體值班管理子窗體如圖22 所示 ，其控件如表10 所示.專業(yè) .專注.圖 22 值班管理子窗體表 10 值班管理子窗口控件控件類別控件 Name控件 TextFrameFrame1值班管理DatagridDataGrid1（空）CmdAdd增加記錄CommandButtonCmdDcl刪除記錄CmdCanccl取消3.2.8 投訴管理子窗體投訴管理子窗體如圖23 所示 ，其控件如表11 所示.專業(yè) .專注.圖 23 投訴管理子窗體表 11投訴管理子窗體控件控件類別控件 Name控件屬性控件屬性值FrameFrame1Caption投訴信息Frame2Caption（空）控件類別控件

16、 Name控件屬性控件屬性值Label1Caption投訴編號Label2Caption投訴日期Label3Caption投訴對象LabelLabel4Caption投訴內(nèi)容Label5Caption受訴部門.專業(yè) .專注.Label6Caption受訴日期Label7Caption處理意見DataSourceAdodc1AllowAddNewTureDataGridDataGrid1AllowDeleteTureAllowUpdataTureAllowArrowsTureCommand1上一條（空）Command2下一條（空）Command3第一條（空）CommandButtonComman

17、d4末一條（空）Command5增加記錄（空）Command6刪除記錄（空）Command7取消（空）AdodcAdodc1CommunationStringJiudian.mdbRecordSource投訴管理Text（空）Text1DataField投訴編號DataSourceAdodc1Text（空）TextText2DataField投訴日期DataSourceAdodc1.專業(yè) .專注.Text3Text4Text5TextText6Text7Text（空）DataField投訴對象DataSourceAdodc1Text（空）DataField投訴內(nèi)容DataSourceAdodc

18、1Text（空）DataField受訴部門DataSourceAdodc1Text（空）DataField受訴日期DataSourceAdodc1Text（空）DataField處理意見DataSourceAdodc13.3 建立公共模塊建立公共模塊可以提高代碼效率，同時(shí)使得修改和維護(hù)代碼都很方便。創(chuàng)建公共模塊的步驟如下 ：（ 1）“工程 ”添“加模塊 ”.專業(yè) .專注.（ 2 ）選擇模塊圖標(biāo)后，打開 ， 著這個(gè)模塊已經(jīng)添加到項(xiàng)目中了。默認(rèn)情況下名為modulel 。（ 3）在模塊中定義整個(gè)項(xiàng)目的公共變量。Public conn As New ADODB.Connection 標(biāo)記連接對象Pu

19、blic userID As String標(biāo)記當(dāng)前用戶IDPublic userpow As String標(biāo)記用戶權(quán)限Public find As Boolean標(biāo)記查詢Public sqlfind As String查詢語句Public rs_data1 As New ADODB.RecordsetPublic findok As BooleanPublic frmdata As Boolean.專業(yè) .專注.第四章總結(jié)通過本次設(shè)計(jì) ，設(shè)計(jì)的基本思想方法，能夠獨(dú)立編寫小型的數(shù)據(jù)庫程序，通過數(shù)據(jù)庫系統(tǒng)應(yīng)用課題的實(shí)踐，進(jìn)一步提高分析問題解決問題的能力及軟件開發(fā)過程的能力 。遺憾的是對數(shù)據(jù)庫設(shè)計(jì)工

20、作的認(rèn)識僅僅停留在表面，只是在參考著書做 ，借被人的思想 ，親自操作卻盡力很多困難，所以未能領(lǐng)會其精髓。但時(shí)通過這次數(shù)據(jù)庫設(shè)計(jì) ，加深了我對數(shù)據(jù)庫設(shè)計(jì)基本知識的理解，豐富了我做數(shù)據(jù)庫設(shè)計(jì)的實(shí)際技術(shù) ，雖然學(xué)的不精 ，但讓我對數(shù)據(jù)庫產(chǎn)生了濃厚的興趣，也使我對數(shù)據(jù)庫有了深層次的感性和理性認(rèn)識。認(rèn)識到要做好一項(xiàng)工作，既要注重理論知識的學(xué)習(xí) ，更重要的是要把實(shí)踐與理論兩者緊密相結(jié)合。參考文獻(xiàn)1 王 珊，薩師煊編譯 .數(shù)據(jù)庫系統(tǒng)概論 . 北京：高等教育出版社 ，19832 張躍延，王小科，許文武 . 數(shù)據(jù)庫開發(fā)案例精選 . 人民郵電出版社 ，2007 ，3 Connolly.T. 數(shù)據(jù)庫設(shè)計(jì) / 設(shè)計(jì)師

21、實(shí)現(xiàn)與管理 . 電子工業(yè)出版社 ，20064 錢雪忠 ，甸海馳 ，陳國俊編著 .數(shù)據(jù)庫原理及技術(shù)課程設(shè)計(jì) . 北京：清華大學(xué).專業(yè) .專注.出版社，20095 譚浩強(qiáng)編譯 . Visual basic 程序設(shè)計(jì) .北京：清華大學(xué)出版社 ，2006附錄：代碼設(shè)計(jì).1 主窗體代設(shè)計(jì)本項(xiàng)目中 ，子菜單事件都是click 事件 ，主窗體代碼 。下面是響應(yīng) “新增用戶 ”子菜單 click 事件，調(diào)出新增用窗體代碼。下面是響應(yīng) “新增用戶 ”子菜單 click 事件，調(diào)出新增用窗體代碼。下面是響應(yīng) “新增用戶 ”子菜單 click 事件，調(diào)出新增用窗體代碼。下面是響應(yīng) “新增用戶 ”子菜單 click

22、事件，調(diào)出新增用窗體代碼。Private Sub about_Click()frmAbout.ShowEnd SubPrivate Sub add_user_Click().專業(yè) .專注.frmadduser.ShowEnd SubPrivate Sub double_check_Click()frmfind_double.ShowEnd SubPrivate Sub check_Click()frmfind.ShowEnd SubPrivate Sub double_client_Click()frmdouble_client.ShowEnd SubPrivate Sub exit_Clic

23、k()Unload MeEnd SubPrivate Sub khts_Click()frmkhts.ShowEnd Sub.專業(yè) .專注.Private Sub MDIForm_Load()frmdata = Falsefind = FalseEnd SubPrivate Sub modify_pw_Click()frmchangepwd.ShowEnd SubPrivate Sub only_check_Click()frmfind.ShowEnd SubPrivate Sub only_client_Click()frmonly_client.ShowEnd SubPrivate Sub

24、 zbgl_Click()frmzhiban.ShowEnd Sub.專業(yè) .專注.2 子窗體的代碼在各個(gè)子窗體建立好后，就可以根據(jù)各個(gè)子窗體的功能給他們添加相應(yīng)代碼了。（1 ）散客入住子窗體代碼本窗口用來錄入散客入住信息，用 ADO 來連接數(shù)據(jù)庫 ，是本窗體的重點(diǎn)。采用 MDI 的子程序 ，所以運(yùn)行后 ，它出現(xiàn)在主程序界面下，下面的代碼是定義變量的。Option ExplicitDim rs_client As New ADODB.Recordset新增用戶按鈕代碼Option ExplicitDim rs_client As New ADODB.RecordsetPrivate Sub C

25、ommand1_Click()On Error GoT o adderrorIf Command1.Caption = 新增記錄 Then當(dāng)此按鈕的狀態(tài)為為“增加記錄 ”時(shí)Command1.Caption = 確定 按鈕名稱改為“確定 ”Command2.Enabled = False刪除與修改按鈕不可用Command3.Enabled = FalseCommand4.Enabled = True取消按鈕可用DataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = True設(shè)定 datagrid可以增加記錄Else.專業(yè) .專注.If Not Is

26、Null(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns(房號 ).CellText(DataGrid1.Bookmark) = ThenMsgBox 房號不能為空 ！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns(房價(jià) ).CellText(DataGrid1.Bookmark) = ThenMsgBox 房價(jià)不能為空 ！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Colum

27、ns(姓名 ).CellText(DataGrid1.Bookmark) = ThenMsgBox 姓名不能為空 ！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns(性別 ).CellText(DataGrid1.Bookmark) = ThenMsgBox 性別不能為空 ！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(抵達(dá)日 ).CellText(DataGrid1.Bookmark) The

28、nMsgBox 請按照格式hh-mm輸入抵達(dá)日 , vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(離店日 ).CellText(DataGrid1.Bookmark) Then.專業(yè) .專注.MsgBox 請按照格式hh-mm輸入離店日 , vbOKOnly + vbExclamation, Exit SubEnd Ifrs_client.UpdateMsgBox 添加信息成功 ！ , vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = F

29、alseDataGrid1.AllowUpdate = FalseElseMsgBox 沒有添加信息 ！ , vbOKOnly + vbExclamation, End IfCommand1.Caption = 新增記錄 Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseEnd Ifadderror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd Sub.專業(yè) .專注.Private Sub Command2_Click()Dim answer As

30、 StringOn Error GoT o cmdmodifyIf Command2.Caption = 修改記錄 Thenanswer = MsgBox(確定要修改嗎？ , vbYesNo, )If answer = vbYes ThenCommand2.Caption = 確定 Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueDataGrid1.AllowUpdate = TrueElseExit SubEnd IfElseIf Not IsNull(DataGrid1.Bookmark) The

31、nrs_client.UpdateEnd IfCommand2.Caption = 修改記錄 Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = False.專業(yè) .專注.DataGrid1.AllowUpdate = FalseMsgBox 修改成功 ！, vbOKOnly + vbExclamation, End Ifcmdmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click()Dim an

32、swer As StringOn Error GoT o delerroranswer = MsgBox(確定要?jiǎng)h除嗎？, vbYesNo, )If answer = vbYes ThenDataGrid1.AllowDelete = Truers_client.Deleters_client.UpdateDataGrid1.RefreshMsgBox 成功刪除 ！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElseExit Sub.專業(yè) .專注.End Ifdelerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = 確定 Thenrs_client.CancelDataGrid1.ReBindDataGrid1.Allo