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

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

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

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

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

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

6、 。.專業(yè) .專注.團隊資料表 ，如圖 9 所示 。值班管理表 ，如圖 10 所示 。系統(tǒng)管理表 ，如圖 11 所示 。投訴管理表 ，如圖 12 所示 。圖 8 散客資料表圖 9 團隊資料表.專業(yè) .專注.圖 10 值班管理表圖 11 系統(tǒng)管理表圖 12 投訴管理表2.3.2 連接數(shù)據(jù)庫在程序設計的公共模塊中，先定義 ADO 鏈接對象 。語句如下 ：Public conn As New ADODB.Connection標記連接對象然后在子程序中，用如下的語句即可打開數(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ā)與實現(xiàn)這是一個多文檔界面（ MDI ）應用程序 ，如圖 13 所示 ，可以同時顯示多個文檔，每個文檔顯示在各個窗體中。 MDI應用程序中常有包含子菜單“窗體 ”選項，用于在窗體或文檔間進行切換 。 菜單應用程序中，有 5 個菜單選項 ，每個選項對應著E-R 圖中的一個子項目。圖 13 多文檔界面.專業(yè) .專注.3.1 創(chuàng)建主窗體首先創(chuàng)建一個工程，命名為酒店管理系統(tǒng)。該窗

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

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

10、e_client增加用戶frmadduser.專業(yè) .專注.修改密碼frmchangepwd客人資料frmdatamanage查詢輸出frmfind關于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確認密碼Label4選擇權限Text1（空）TextBoxText2（空）Text3（空）ComboBoxComb1（空）CommandButtonCommand1確認Command2取消3.2.3 修改密碼子窗體修改密碼子窗體如圖18 所示 ，其控件如表6 所示 。圖 18 修改密碼子窗體表 6 修改密碼窗體.專業(yè)

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

13、退出3.2.5 查詢子窗體查詢子窗體如圖20 所示 ，其控件如表8 所示圖 20 查詢子窗體表 8查詢子控件控件類別控件 Name控件 TextOptionButtonOption1按房號.專業(yè) .專注.Option2按抵達日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投訴內容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投訴內容DataSourceAdodc

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

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

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

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

22、事件，調出新增用窗體代碼。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 子窗體的代碼在各個子窗體建立好后，就可以根據(jù)各個子窗體的功能給他們添加相應代碼了。（1 ）散客入住子窗體代碼本窗口用來錄入散客入住信息，用 ADO 來連接數(shù)據(jù)庫 ，是本窗體的重點。采用 MDI 的子程序 ，所以運行后 ，它出現(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當此按鈕的狀態(tài)為為“增加記錄 ”時Command1.Caption = 確定 按鈕名稱改為“確定 ”Command2.Enabled = False刪除與修改按鈕不可用Command3.Enabled = FalseCommand4.Enabled = True取消按鈕可用DataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = True設定 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(房價 ).CellText(DataGrid1.Bookmark) = ThenMsgBox 房價不能為空 ！ , 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(抵達日 ).CellText(DataGrid1.Bookmark) The

28、nMsgBox 請按照格式hh-mm輸入抵達日 , 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(確定要刪除嗎？, 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