數(shù)據(jù)庫課程設(shè)計(jì)(Access版)

1、目 錄第1章 課程設(shè)計(jì)目的與要求11.1 課程設(shè)計(jì)目的11.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境11.3 課程設(shè)計(jì)的預(yù)備知識11.4 課程設(shè)計(jì)要求1第2章 課程設(shè)計(jì)內(nèi)容22.1 系統(tǒng)設(shè)計(jì)22.2 數(shù)據(jù)庫模型32.3 設(shè)計(jì)窗體和報(bào)表92.4 窗體和報(bào)表模塊主要代碼11第3章 課程設(shè)計(jì)總結(jié)14參考文獻(xiàn)15第1章 課程設(shè)計(jì)目的與要求本課程的課程設(shè)計(jì)實(shí)際是電子商務(wù)和計(jì)算機(jī)信息管理專業(yè)學(xué)生學(xué)習(xí)完數(shù)據(jù)庫原理及應(yīng)用（ACCESS 2003）課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解，掌握運(yùn)用數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件的基本方法。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行Windows XP

2、操作系統(tǒng)的微機(jī)系統(tǒng)。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件可以選用Microsoft Access，或其他數(shù)據(jù)庫管理系統(tǒng)。1.3 課程設(shè)計(jì)的預(yù)備知識熟悉數(shù)據(jù)庫的基本知識及一種以上數(shù)據(jù)庫系統(tǒng)開發(fā)軟件。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書提供的課題，應(yīng)根據(jù)下一節(jié)給出的基本需求獨(dú)立完成八個(gè)方面的設(shè)計(jì)，標(biāo)有“可選”的部分可根據(jù)設(shè)計(jì)時(shí)間的安排及工作量的大小適當(dāng)選擇。選用其他課題或不同的數(shù)據(jù)庫管理系統(tǒng)，可以組成設(shè)計(jì)小組，分模塊進(jìn)行,共同協(xié)作完成一個(gè)應(yīng)用系統(tǒng)的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說明書，對復(fù)雜的代碼段和程序段，應(yīng)畫出程序流程圖。在界面設(shè)計(jì)中，畫出每個(gè)窗口的布局，有多個(gè)窗口時(shí)，按模塊調(diào)用的方式畫出窗口調(diào)用圖，用手工畫

3、好報(bào)表和標(biāo)簽樣式，嚴(yán)禁相互抄襲。課程設(shè)計(jì)內(nèi)容2.1系統(tǒng)功能分析2.1.1 系統(tǒng)功能分析酒店管理系統(tǒng)需要對入住的人員和客房情況進(jìn)行詳細(xì)的管理，其中主要針對客房情況和人員入住情況進(jìn)行管理。因此本系統(tǒng)分為如下兩大個(gè)方面：1.基本情況資料，而基本情況資料有分為1.職員資料2.客房類型3.客房資料4.會員管理5.消費(fèi)結(jié)帳管理此外,系統(tǒng)管理員還可以通過報(bào)表對系統(tǒng)的明細(xì)一目了然。2.1.2 系統(tǒng)功能模塊設(shè)計(jì)酒店管理系統(tǒng)包括職員資料管理，客房類型管理，客房資料管理，會員資料管理，帳目管理分為入住管理，預(yù)定管理，消費(fèi)明細(xì)管理，消費(fèi)結(jié)帳管理，而在查詢界面，可以查到詳細(xì)的各種管理系統(tǒng)，詳細(xì)情況如圖2.1所示：酒店管

4、理系統(tǒng)基本資料消費(fèi)結(jié)帳職員資料入住記錄客房資料會員資料預(yù)定記錄入住記錄消費(fèi)列表結(jié)賬列表圖2.12.2數(shù)據(jù)庫模型2.2.1 數(shù)據(jù)庫需求分析職員信息：職員ID,姓名,職位,性別,籍貫,年齡,民族,健康狀況,婚姻狀況,省份證號,家庭住址,家庭電話,備注等.客房類型:類型ID,類型名稱,客房價(jià)格,拼房價(jià)格,可超額定數(shù).客房資料:客房ID, 員工ID,類型名稱, 是否入住, 是否預(yù)定，額定人數(shù), 房間單價(jià),客房狀態(tài)等.2.2.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 職員信息實(shí)體E-R圖： 職員信息職員ID民族姓名性別職位 圖2.2職員查詢E-R圖客房資料E-R圖：客房狀態(tài)額定人數(shù)房間單價(jià)客房類型類型ID員工ID類型名稱

5、是否入住是否預(yù)定 圖2.3客房類型E-R圖酒店管理系統(tǒng)總體E-R圖如圖2.4所示：職員用戶會員酒店管理入住擁有會員信息擁有客房資料屬于客房擁有n11111nn11n1圖2.4 酒店管理系統(tǒng)總E-R圖2.2.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)通過模塊圖分析可以知道,此系統(tǒng)由6個(gè)圖表組成,具體圖表如下：職員資料表中包括職員ID,姓名,職位,性別,籍貫,年齡,民族,健康狀況,婚姻狀況,省份證號,家庭住址,家庭電話,備注等等詳細(xì)情況如表2.2所示字段名稱數(shù)據(jù)類型 職員ID文本 姓名文本職位文本 性別文本 籍貫文本 年齡數(shù)字 民族文本 健康狀況文本 婚姻狀況文本 身份證號數(shù)字 家庭住址文本 家庭電話數(shù)字 備注文本

6、表2.22.2.4 數(shù)據(jù)庫連接說明酒店管理系統(tǒng)是一個(gè)要求連貫性很強(qiáng)的系統(tǒng)，所以根據(jù)上面的對數(shù)據(jù)庫系統(tǒng)的概念模型的設(shè)計(jì)，我們能根據(jù)表里的主鍵，連接出各個(gè)表中的關(guān)系和分類，這樣才給我們做下面的系統(tǒng)，每個(gè)主鍵，還有每個(gè)外主鍵，都是數(shù)據(jù)庫的關(guān)鍵，必須做個(gè)關(guān)系明確，這樣系統(tǒng)才能明了清晰，數(shù)據(jù)庫關(guān)系圖如下：圖2.5表之間的關(guān)系2.3 設(shè)計(jì)窗體和報(bào)表通過以上模塊和E-R圖可知這個(gè)窗體是由基本資料、消費(fèi)結(jié)帳、記錄查詢、用戶管理、退出系統(tǒng)5部分組成，而基本資料又包括職員資料管理,客房資料管理,客房類型管理,會員資料管理,而消費(fèi)結(jié)帳又包括預(yù)定記錄管理,入住記錄管理,消費(fèi)明細(xì)管理,消費(fèi)結(jié)帳管理,所以登陸窗體如圖所示

7、:圖2.6登錄窗口系統(tǒng)主體窗體是系統(tǒng)中唯一一個(gè)聯(lián)系所有窗體的窗體，由基本資料，消費(fèi)結(jié)帳，記錄查詢，用戶管理，退出系統(tǒng)，所組成。系統(tǒng)有很高的穩(wěn)定性，能夠穩(wěn)定的完成酒店的所有日常管理，和酒店的新老職工進(jìn)行合理的安排，對職員的信息一目了然，主窗體是用現(xiàn)在對規(guī)范的設(shè)計(jì)視圖設(shè)計(jì)完成的，能夠滿足酒店的各種數(shù)據(jù)需要，如圖2.7所示圖2.7系統(tǒng)主體界面職員信息查詢窗體可通過職員ID對職員進(jìn)行詳細(xì)信息的查詢，通過創(chuàng)建一個(gè)按編號查找的查詢，再以其作為數(shù)據(jù)來源創(chuàng)建一個(gè)職員信息查詢窗體。如圖2.8所示圖2.8員工資料查詢會員作為收入的主要來源，需要分為不同等級，并記錄在案。如圖2.9所示： 圖2.9會員資料窗體客房管

8、理中包括對各個(gè)客房的描述，可以入住的客房和預(yù)訂的記錄，管理者。這些可以讓管理者清楚地幫助顧客訂客房，顧客也可一覽客房的各種資料。如圖3.0所示圖3.0客房管理窗體入住記錄可以查詢?nèi)胱〉念櫩鸵约袄么寺?lián)系可入住的客房，并記錄是否有會員并根據(jù)其消費(fèi)提升會員標(biāo)準(zhǔn)。如圖3.1所示 圖3.1入住記錄管理窗體消費(fèi)結(jié)賬窗體可以很清晰的顯示出，客人在酒店里的結(jié)賬情況和入住費(fèi)用情況，如圖3.2所示圖3.4消費(fèi)結(jié)賬窗體2.4 設(shè)計(jì)窗體和報(bào)表模塊主要代碼本登陸窗口是系統(tǒng)的窗口，代碼必須完善和使用，代碼如下：Option Compare DatabasePrivate Sub cancel_Click()On Err

9、or GoTo Err_login_cancel_Click DoCmd.CloseExit_login_cancel_Click: Exit SubErr_login_cancel_Click: MsgBox Err.Description Resume Exit_login_cancel_ClickEnd SubPrivate Sub login_Click()Dim userID As Integer If IsNull(user) = False Then If DLookup("密碼", "登陸", "賬戶= ""

10、" & user & """") = id Then DoCmd.Close MsgBox ("歡迎使用酒店管理系統(tǒng)！") DoCmd.OpenForm "面板" ' Form_主界面.user = userID Else user = "" id.SetFocus MsgBox "帳戶密碼錯(cuò)誤！", vbCritical End If End IfEnd Sub查詢職員資料代碼如下：Option Compare DatabasePrivat

11、e Sub Command6_Click()On Error GoTo Err_Command6_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End Su

12、bPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click DoCmd.CloseExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End Sub查詢會員資料如下：Option Compare DatabasePrivate Sub Command7_Click()On Error GoTo Err_Command7_Click DoCmd.CloseExit_Command7_Cli

13、ck: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_ClickEnd Sub查詢客房資料如下：Option Compare DatabasePrivate Sub Command3_Click()On Error GoTo Err_Command3_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25353) & ChrW(23458) & ChrW(25151) &

14、ChrW(26597) & ChrW(-29726) & ChrW(20837) & ChrW(20303) & ChrW(20449) & ChrW(24687) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command3_Click: Exit SubErr_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End SubPrivate Sub Command4_Click()On Error GoTo Err_C

15、ommand4_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25353) & ChrW(20837) & ChrW(20303) & ChrW(73) & ChrW(68) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command4_Click: Exit SubErr_Command4_Click: MsgBox Err.De

16、scription Resume Exit_Command4_Click End SubPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26492) & ChrW(23450) & ChrW(32426) & ChrW(24405) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command7_Click

17、: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click DoCmd.CloseExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_ClickEnd Sub查詢?nèi)胱∮涗浫缦拢篜rivate Sub Command23_Click

18、()On Error GoTo Err_Command23_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command23_Click: Exit SubErr_Command23_Click: MsgBox Err.Description Resume Exit_Command23_Click End SubPrivate Sub Com

19、mand24_Click()On Error GoTo Err_Command24_Click DoCmd.CloseExit_Command24_Click: Exit SubErr_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End Sub結(jié)賬記錄如下：Option Compare DatabasePrivate Sub Command4_Click()On Error GoTo Err_Command4_Click Dim stDocName As String Dim stLinkCriteri

20、a As String stDocName = ChrW(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command4_Click: Exit SubErr_Command4_Click: MsgBox Err.Description Resume Exit_Command4_Click End SubPrivate Sub Command6_Click()On Error GoTo Err_Command6_Cli

21、ck Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.Description Resume Exit

22、_Command6_Click End SubPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaEx

23、it_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End SubPrivate Sub Command8_Click()On Error GoTo Err_Command8_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCri

24、teriaExit_Command8_Click: Exit SubErr_Command8_Click: MsgBox Err.Description Resume Exit_Command8_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click DoCmd.CloseExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub第3章 課程設(shè)計(jì)總結(jié)數(shù)

25、據(jù)庫課程設(shè)計(jì)和實(shí)驗(yàn)都結(jié)束了，在這段時(shí)間我學(xué)到了很多知識。通過這次的課程設(shè)計(jì)，使我增加了對數(shù)據(jù)庫基本概念的理解，提高對知識的理解和應(yīng)用能力，并且對數(shù)據(jù)庫的應(yīng)用都有了更深的了解，使我的數(shù)據(jù)庫編寫水平又有了明顯的提高。在WINDOWS的環(huán)境中，用ACCESS和VISUAL BASIC代碼構(gòu)建一個(gè)庫存管理系統(tǒng)。讓我了解到了在實(shí)際的環(huán)境下編寫數(shù)據(jù)庫的應(yīng)用。我做的課設(shè)題目是酒店管理系統(tǒng)，在做課設(shè)的過程當(dāng)中，我充分運(yùn)用我們所學(xué)的知識，當(dāng)然其中肯定有不懂或者懵懂的問題，所有就去圖書館查看相關(guān)的資料，上課時(shí)也咨詢了老師同學(xué)，最后問題也都迎刃而解了。開始的登陸窗口,我們遇到了不會寫代碼的問題,這個(gè)登陸窗口是一個(gè)有

26、用戶名,有密碼的界面,當(dāng)你選擇一個(gè)用戶名,它有相應(yīng)的口令,口令正確才可以進(jìn)入.這是一個(gè)要有變量來實(shí)現(xiàn)的過程,當(dāng)然也要對應(yīng)的數(shù)據(jù)窗口.其實(shí),這個(gè)問題不會寫代碼沒有關(guān)系的,我們可以從數(shù)據(jù)窗口中的變量設(shè)置中找到SQL語句,這樣就解決了問題。我們的登陸窗口粗略的完成了.在建立職工資料數(shù)據(jù)源時(shí),我們發(fā)現(xiàn)了一個(gè)這樣的問題,就是性別一欄可以填寫除男,女以外的字,我們需要一個(gè)約束,可是在約束語句里,我們有語法錯(cuò)誤,弄了半天還是沒有弄懂,后來問別人知道了那是由于沒有弄清楚一些符號是應(yīng)該在英語還是中文條件下寫出,PB的符號都是在英語的條件下實(shí)現(xiàn)的.我們一般設(shè)主鍵的時(shí)候都是設(shè)一個(gè)，這個(gè)主鍵在數(shù)據(jù)源中是不能重復(fù)的。由于自己的分析設(shè)計(jì)和程序經(jīng)驗(yàn)不足,該系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)過程中,還有許多沒有完善的地方,比如數(shù)據(jù)冗余,文檔組織不合理,幫助文檔沒有編寫,用戶界面設(shè)計(jì)不夠美觀,異常出錯(cuò)處理比較差等多方面問題,這些都有待進(jìn)一步完