1、信息系統與數據庫技術技術實踐1. 課程設計目的和要求 1.1 設計目的本課程設計是信息系統設計的實踐性環節之一，是在學習完信息系統與數據庫課程后進行的一次全面的綜合技術實踐。通過數據庫課程設計, 旨在檢驗和提高學習數據庫的能力, 有助于培養學習興趣。1.2 設計要求本次課程設計選擇賓館客房管理系統為設計題目, 要求設計出可適用于賓館客房的各項管理要求. 通過本系統，能夠實現完成客戶入住信息登記、會員注冊、電話訂單生成、客戶退房結賬和賓館內部客房管理等相關功能。要求結合課堂所學知識和生活中的信息管理和應用需求，完成本次賓館客房管理系統的設計和實現。2. 需求分析為提高賓館客房管理效率，合理配置各

2、種信息資源，可以對客房管理系統進行分模塊設計。設計應該綜合參考其簡捷、高效和便于操作的特性以及安全無漏洞的基本要求。賓館客房管理系統可以分為客戶開房登記（含退房結賬）、客房查詢管理、會員服務以及電話預定等模塊。 圖1-數據流圖通過數據流圖可以知道，賓館客房管理系統的結構功能可以分為開房/結賬部分、客房管理、會員管理、電話預定四個基本部分。客戶通過入住時開房登記，可以完成客人入住時客人基本信息的登記，與此同時生成入住信息。同時，入住信息同步到會員管理模塊，自動對用戶進行會員身份登記。在下一次客戶入住時，將自動調用會員信息；客戶入住信息傳遞到客房管理部分，可以進行入住查詢和賓館客房查詢；同時，客戶

3、可以通過電話渠道預定客房，通過電話預定處理部分，生成預定信息表。系統將通過核實預定的房間更改客房信息，確保該預定的客房不再被其他客戶入住。在客戶退房結賬的時候，將自動調用入住信息和會員信息，為客戶進行賬務計算和相應的會員特惠，該部分與開房入住部分合并為開房/結賬模塊。系統的功能模塊圖如下： 圖2-功能模塊圖系統的功能模塊圖全面概括了客房管理系統的需求要點。四個基本模塊下分別含有各自的詳細功能。賓館工作人員通過操作這些最詳細的功能來實現賓館的日常經營管理。3. 數據庫設計 3.1 概念設計這里確定用自底向上的方法進行概念結構設計，即首先定義個局部應用的概念結構，然后將他們集成起來，得到全局概念結

4、構。通過對系統的數據分析，可以具體確定設計出客人、房間、預訂房間和會員四個實體，以及客人、賓館房間、預訂房間和會員之間的關系。對于每個實體，根據生活中的經驗和實際需求可以設置出其對應的屬性。如客戶的屬性有姓名、客戶證件號、聯系電話、客戶類型等，賓館房間有房間號、價格、房間樓層、 房間類型等，預訂房間的屬性有訂單/預定號、房間號、客戶證件號、姓名、預付款、入住時間、退房時間等。會員的屬性有姓名，會員號，優惠額度等。實體之間的聯系也可以確定下來，客人入住房間是一個聯系，注冊會員也是一個聯系。以下是聚集型數據抽象方式： 圖3-概念結構設計實體聯系模型（E-R 圖）如下： 圖4-(E-R圖3.2 邏輯

5、設計通過對系統的概念設計，可以具體整理出所需要的各個實體的屬性及其對應屬性。為了更直接的確定出系統的基本關系模式，就需要進行邏輯設計。為方便個數據表之間的連接，更好地管理系統，這里決定插入一張新表，用于結算賬目。通過邏輯設計，將概念模式圖轉換為如下四個基本關系模式，且另外再添加一個新插入的關系模型：客戶（證件號，姓名，電話，客戶類型） 客房（房間號，房間類型，價格，房間樓層）預訂客房（預訂號，客戶姓名，入住時間，預付款，證件號，房間號）會員（會員號，姓名，優惠度）賬目（打印號，消費，月結，總計，預定號，天數）3.3 物理設計在做好概念設計和邏輯設計的工作后，就可以對系統進行實際的上機操作了。但

6、在進行系統的實際設計之前，為了能夠更好的理清所需要創建的實體的屬性及每個屬性對應的取值范圍，還需要對系統進行物理設計。通過物理設計，需要創建一個賓館Hotel1數據庫，在Hotel1數據庫下面，可以創建出與實體對應的t_guest(客戶信息表 、t_room(客房信息表 、t_book(預訂客房表 ，t_vip（會員信息表）和t_check（賬目表）。每一個表中包含的信息要與實體的對應屬性相一致，再根據表中每一個字段的信息特性確定出字段的類型定義，以及各個表的主鍵、索引的創建工作。當然，每一個表之間的關系在E-R 圖中已經確定，外鍵關系也可以在物理設計環節確定下來。1.t_guest(客戶信息

7、表 2.t_book（預定客房表） 其中，預付款默認值為0，表示沒有預付房款。3.t_room(客房信息表 4.t_vip（會員信息表） 5.t_check（賬目表） 4. 系統開發通過對數據庫設計的理論分析，進行了概念設計、邏輯設計、物理設計的相關工作，在此基礎上就可以對系統上機進行開發設計了。首先，在SQL2005中創建一個Hotel1數據庫，并為Hotel1數據庫新建出t_guest(客戶信息表 、t_room(客房信息表 、t_book(預訂客房表 ，t_vip（會員信息表）和t_check（賬目表）。然后，按照物理設計部分的分析結果為每個表添加內容。具體上機實踐結果如下： 圖5-1客

8、戶信息表結構客戶信息表實例數據圖5-2客戶信息表實例數據預訂信息表結構圖5-3預定信息表結構 圖5-4預定信息表實例數據 圖5-5房間信息表結構 圖5-6房間信息表實例數據 圖5-7會員信息表結構 圖5-8會員信息表實例數據 圖5-9賬目表結構 圖5-10賬目表實例數據程序設計界面如下： 圖6-1開房界面 圖6-2會員信息管理界面 圖6-3退房結賬界面 圖6-4客房查詢界面 圖6-5入住查詢界面 圖6-6電話訂房管理界面5. 課程設計總結在本次課程設計中，我首先對項目做了整體的計劃，前期準備比較充分，這為后期的設計、實施奠定了基礎。當然，在實施過程中也遇到了很多問題，以至于拖延了計劃時間。比如

9、，用sql 設計數據庫時，經常遇到各種數據庫軟件提示的未知名錯誤，經過多次重新創建表才面前解決。在用visual studio 200設計程序時，在檢查數據庫和連接數據庫代碼以及各項操作代碼都沒有問題的情況下（可以顯示數據庫中已有的記錄），無法顯示基礎設計出的表單頁面，運行中也沒有提示錯誤；基本構架不能對數據庫進行除查看外的一切操作；在不同電腦運行結果不同等問題。另外，在尋找第三方軟件時也花費了諸多功夫，因為要尋找到匹配設計方案的軟件，并且在功能上能夠最大限度的實現。雖然過程中出現了諸多問題，但是在老師和同學大量的幫助下，最終完成了項目。經過這段時間的精心設計，系統的基本功能已經實現，并能實踐

10、于一些業務管理過程中，但是賓館客房管理系統我也并不是完全了解業務的流程。雖然，住過酒店但是內部的操作不是特別清楚具體步驟，因此在設計上也許存在一定的缺陷。個人認為，在勞動密集型的服務性企業中，賓館業是較早應用了計算機管理系統的行業。隨著酒店業務的擴展，服務的增加，賓館客房管理系統也逐漸發展、完善。如果沒有一套可靠的賓館客房管理系統, 但憑手工操作, 不僅效率低下, 而且會極大地形象到賓館酒店的服務質量。要在酒店服務中選擇好適合自己酒店實際情況的業務管理系統不僅要考慮該系統在賓館的實用性，還要考慮賓館對該系統所能夠承擔費用的能力，以及這個系統對操作員來說的操作難易程度。感謝老師和同學的幫助，在這

11、次課程設計中，讓我再次感覺到課上認真聽講的重要性！6. 附錄1. 參考文獻1visual basic 課程設計案例精編 清華大學出版社 白曉勇，余健等2信息系統與數據庫技術 機械工業出版社 上海市教委等2. 程序清單創建數據庫的sql 語句代碼如下：圖7-1創建數據庫 hotel1在創建各數據表時，參考了如下的創建順序：t_guest > t_room > t_book > t_check > t_vip ,這樣創建符合邏輯思考，且容易創設外鍵關系。創建各數據表的具體sql 代碼如下：創建t_guest表圖7-2創建t_guest 表 圖7-3創建t_room表 圖7-

12、4創建t_book表 圖7-5創建t_check表 圖7-6創建t_vip表在數據庫和各數據庫的表創設之后，為t_room表錄入賓館客房各項數據。這些工作完成后，開始在visual studio 2008軟件中用VB.NET 開發賓館客房管理系統的應用程序，即可操作界面。以下為該具體代碼：Public Class Form1Dim sql As New SqlConnection("data source =zheng-hpsqlexpress;initial catalog =hotel1;integrated security=true"Dim yuju As Stri

13、ngDim spq As SqlDataAdapterDim sjj As New DataSet(Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs Handles MyBase .LoadDim yuju9 As String = "select * from t_room "Dim spq9 As SqlDataAdapterspq9 = New SqlDataAdapter(yuju9, sqlDim sjj9 As New DataSet(spq9.Fi

14、ll(sjj9, "inn1"ComboBox1.DataSource = sjj9.Tables("inn1" ComboBox1.DisplayMember = sjj9.Tables("inn1" .Columns(0.ToString ComboBox2.DataSource = sjj9.Tables("inn1" ComboBox2.DisplayMember = sjj9.Tables("inn1" .Columns(2.ToString ComboBox3.DataSource

15、= sjj9.Tables("inn1" ComboBox3.DisplayMember = sjj9.Tables("inn1" .Columns(1.ToString ComboBox4.DataSource = sjj9.Tables("inn1" ComboBox4.DisplayMember = sjj9.Tables("inn1" .Columns(0.ToString End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByV

16、al e As System.EventArgs Handles Button1.ClickDim yuju1 As String = "insert into t_guest values('" & TextBox1.Text & "','" & ListBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "'

17、"Dim yuju2 As String = "insert into t_book values('" & TextBox2.Text & "','" & TextBox6.Text & "','" & ComboBox4.Text & "','" & TextBox4.Text & "'" & _ ",' ','&

18、quot; & TextBox15.Text & "'"Dim yujuz As String = "update t_room set status='false' where roomid='" & ComboBox4.Text & "'"Dim cmmd As New SqlCommand(yuju1, sql Dim cmmd2 As New SqlCommand(yuju2, sql Dim i As Integer Dim d As Integer s

19、ql.Open( Tryi = cmmd.ExecuteNonQuery( d = cmmd2.ExecuteNonQuery( Catch wx As Exception MsgBox(wx.MessageEnd Try sql.Close(MsgBox(" 客戶入住成功！" End SubPrivate Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button9.ClickDim yuju3 As String = "insert in

20、to t_vip values('" & TextBox21.Text & "','" & TextBox22.Text & "','" & TextBox23.Text & "','" & TextBox25.Text & "'" Dim cmmd3 As New SqlCommand(yuju3, sqlDim ee As Integer sql.Open( Tryee =

21、cmmd3.ExecuteNonQuery( Catch wx2 As Exception MsgBox(wx2.MessageEnd Try sql.Close(MsgBox(" 歡迎您，尊貴的會員！" End SubPrivate Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button10.Click yuju = "select * from t_vip"spq = New SqlDataAdapter(yuju, sq

22、l spq.Fill(sjj, "001" DataGrid4.DataSource = sjj.Tables("001" End SubPrivate Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button11.ClickDim yuju4 As String = "insert into t_guest values('" & TextBox5.Text & "'

23、;,'','" & TextBox8.Text & "','" & TextBox7.Text & "'"Dim yuju6 As String = "insert into t_book values('" & TextBox8.Text & "','','" & TextBox9.Text & "','','&

24、#39;,'" & TextBox10.Text & "'"Dim cmmd4 As New SqlCommand(yuju4, sql Dim cmmd6 As New SqlCommand(yuju6, sql Dim ee2 As Integer Dim ee6 As Integer sql.Open( Tryee2 = cmmd4.ExecuteNonQuery( ee6 = cmmd4.ExecuteNonQuery( Catch wx3 As Exception MsgBox(wx3.MessageEnd Try sql

25、.Close(MsgBox(" 預訂成功！" End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs Handles Button3.ClickDim yuju7 As String = "select guestname,intime from t_book and t_guest where t_book.guestid=t_guest.guestid and orderno='" & TextBox14.Te

26、xt & "' " Dim spq7 As SqlDataAdapterspq7 = New SqlDataAdapter(yuju7, sql Dim sjj7 As New DataSet( spq7.Fill(sjj7, "inn" DataGrid1.DataSource = sjj7.Tables("inn" End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles B

27、utton4.ClickDim yuju8 As String = "select * from t_book and t_guest where t_book.guestid=t_guest.guestid " Dim spq8 As SqlDataAdapterspq8 = New SqlDataAdapter(yuju8, sql Dim sjj8 As New DataSet( spq8.Fill(sjj8, "inn3" DataGrid1.DataSource = sjj8.Tables("inn3" End SubPri

28、vate Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button6.ClickDim yujua As String = "select * from t_room where position='" & ComboBox2.Text & "' "Dim spqa As SqlDataAdapterspqa = New SqlDataAdapter(yujua, sql Dim sjja As N

29、ew DataSet( spqa.Fill(sjja, "inna" DataGrid2.DataSource = sjja.Tables("inna" End SubPrivate Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button7.ClickDim yuju9 As String = "select * from t_room " Dim spq9 As SqlDataAdapterspq9 = N

30、ew SqlDataAdapter(yuju9, sql Dim sjj9 As New DataSet( spq9.Fill(sjj9, "inn1" DataGrid2.DataSource = sjj9.Tables("inn1" End SubPrivate Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button12.ClickDim yuju10 As String = "select orderno,bo

31、okmoney,discount from t_book , t_vip where t_book.guestid=t_vip.guestid and roomid='" & TextBox16.Text & "' " Dim spq10 As SqlDataAdapterspq10 = New SqlDataAdapter(yuju10, sql Dim sjj10 As New DataSet( spq10.Fill(sjj10, "inn2" DataGrid2.DataSource = sjj10.Tab

32、les("inn2" Dim mybind As BindingManagerBase mybind = BindingContext(sjj10, "inn2" End SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button8.ClickDim yuju11 As String = "select orderno,bookmoney,discount,intime,bookmoney from

33、t_room and t_vip where t_room.guestid=t_vip.guestid and roomid='" & TextBox16.Text & "' " Dim spq11 As SqlDataAdapterspq11 = New SqlDataAdapter(yuju11, sql Dim sjj11 As New DataSet( spq11.Fill(sjj11, "inn5" TextBox20.Text = sjj11.Tables("inn5" .Colu

34、mns(4.ToStringDim yujus As String = "update t_room set status='true' where roomid='" & TextBox16.Text & "'"Dim cmmds As New SqlCommand(yujus, sqlDim yuju15 As String = "insert into t_check values('" & TextBox17.Text & "','

35、;','','" & TextBox20.Text & "','','" & TextBox17.Text & "'"Dim cmmd15 As New SqlCommand(yuju15, sqlDim yuju16 As String = "delete from t_book where roomid='" & TextBox16.Text & "'"Dim cmmd16 As New SqlCommand(yuju16,sql Dim ii As Integer Dim ff As Intege