數(shù)據(jù)庫(kù)課程設(shè)計(jì)、賓館客房信息管理系統(tǒng)_圖文

1、一、設(shè)計(jì)內(nèi)容與設(shè)計(jì)要求1設(shè)計(jì)內(nèi)容：數(shù)據(jù)庫(kù)系統(tǒng)原理的課程設(shè)計(jì)要求學(xué)生綜合利用本課程的有關(guān)知識(shí)，在教師的指導(dǎo)下，利用特定的數(shù)據(jù)庫(kù)設(shè)計(jì)環(huán)境，針對(duì)具體的問題，完成從系統(tǒng)的需求分析、數(shù)據(jù)庫(kù)的概念設(shè)計(jì)、數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)，到數(shù)據(jù)庫(kù)實(shí)現(xiàn)等設(shè)計(jì)過程，最終實(shí)現(xiàn)一個(gè)較為完整的反映應(yīng)用需求的數(shù)據(jù)庫(kù)系統(tǒng)。因此，在設(shè)計(jì)中，要求學(xué)生應(yīng)該全面考慮各個(gè)設(shè)計(jì)環(huán)節(jié)以及它們之間的相互聯(lián)系。下面是各個(gè)設(shè)計(jì)階段的具體內(nèi)容。 系統(tǒng)需求分析需求分析是數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)的一個(gè)重要的環(huán)節(jié)。本階段應(yīng)該對(duì)整個(gè)應(yīng)用情況作全面的、詳細(xì)的調(diào)查，確定特定數(shù)據(jù)庫(kù)應(yīng)用環(huán)境下的設(shè)計(jì)目標(biāo)，收集該應(yīng)用環(huán)境下針對(duì)系統(tǒng)設(shè)計(jì)所需要的基礎(chǔ)數(shù)據(jù)以及對(duì)這些數(shù)據(jù)的具體存儲(chǔ)要求，從而確

2、定用戶的需求。用戶對(duì)數(shù)據(jù)庫(kù)的需求包括： 處理需求。即用戶要完成什么處理功能等。學(xué)生在設(shè)計(jì)中應(yīng)根據(jù)具體的課題要求確定系統(tǒng)應(yīng)該實(shí)現(xiàn)的功能，一些基本的功能通常是必須具備的，如用戶的管理與維護(hù)，基本數(shù)據(jù)的維護(hù)，靈活的信息查詢等。 信息需求。即在數(shù)據(jù)庫(kù)中需要存儲(chǔ)哪些數(shù)據(jù)。學(xué)生應(yīng)該根據(jù)具體的課題，認(rèn)真分析有關(guān)的要求，確定本設(shè)計(jì)的信息需求。 安全性和完整性功能。實(shí)踐中這是一個(gè)需要與用戶不斷交流才能逐步確定的需求。本課程設(shè)計(jì)要求學(xué)生在自己的設(shè)計(jì)中能反映出基本的安全性和完整性功能。 本階段的設(shè)計(jì)結(jié)果（即系統(tǒng)需求分析）應(yīng)該在課程設(shè)計(jì)報(bào)告中進(jìn)行詳細(xì)描述，畫出系統(tǒng)的數(shù)據(jù)流圖，寫出較為詳細(xì)的數(shù)據(jù)字典，作為本課程設(shè)計(jì)的驗(yàn)

3、收依據(jù)之一。 數(shù)據(jù)庫(kù)的概念設(shè)計(jì)數(shù)據(jù)庫(kù)的概念設(shè)計(jì)是在需求分析的基礎(chǔ)上，利用與用戶雙方都能理解的形式，設(shè)計(jì)出數(shù)據(jù)庫(kù)的概念模型。本課程設(shè)計(jì)要求學(xué)生采用E-R方法進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì)。本設(shè)計(jì)階段可分為： 數(shù)據(jù)抽象。即根據(jù)需求分析的結(jié)果，抽取出與本課程設(shè)計(jì)相關(guān)的特性。設(shè)計(jì)局部概念模式。運(yùn)用E-R方法，設(shè)計(jì)出系統(tǒng)的各個(gè)局部ER模型。 設(shè)計(jì)全局概念模式。通過對(duì)局部E-R模型的操作，解決各個(gè)E-R模型關(guān)于對(duì)象定義不一致問題，以及對(duì)各個(gè)E-R模型進(jìn)行合并優(yōu)化等，最終形成數(shù)據(jù)庫(kù)的全局概念模式。本階段的設(shè)計(jì)結(jié)果（局部和全局E-R圖、具體數(shù)據(jù)庫(kù)設(shè)計(jì)工具中概念結(jié)構(gòu)設(shè)計(jì)圖）應(yīng)該在課程設(shè)計(jì)報(bào)告中進(jìn)行詳細(xì)描述，應(yīng)該能夠反映該

4、設(shè)計(jì)的正確性，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。 數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)的目的是將概念設(shè)計(jì)階段設(shè)計(jì)好的E-R圖轉(zhuǎn)換成與具體機(jī)器上的DBMS（如Oracle）所支持的數(shù)據(jù)模型（如關(guān)系模型）相符合的邏輯結(jié)構(gòu)。鑒于本課程設(shè)計(jì)的具體環(huán)境要求，學(xué)生在進(jìn)行數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)時(shí)應(yīng)該充分考慮特定的數(shù)據(jù)庫(kù)環(huán)境。要求學(xué)生在本階段的設(shè)計(jì)中分兩步進(jìn)行： 形成初始的關(guān)系模式。將概念設(shè)計(jì)階段產(chǎn)生的全局概念模式（E-R圖）轉(zhuǎn)換成初始的關(guān)系模式。 關(guān)系模式的規(guī)范化處理。為了減少或消除關(guān)系模式中存在的數(shù)據(jù)冗余和操作異常，根據(jù)設(shè)計(jì)所要求的規(guī)范級(jí)別，按照本課程所學(xué)知識(shí)，逐一分析各個(gè)關(guān)系模式是否滿足規(guī)定的范式。在課程設(shè)計(jì)報(bào)告中

5、應(yīng)該提供本設(shè)計(jì)階段的相關(guān)內(nèi)容，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。 創(chuàng)建數(shù)據(jù)庫(kù)在某一數(shù)據(jù)庫(kù)管理系統(tǒng)環(huán)境中創(chuàng)建數(shù)據(jù)庫(kù)，根據(jù)需要也可建立相關(guān)數(shù)據(jù)視圖和存儲(chǔ)過程。在課程設(shè)計(jì)報(bào)告中應(yīng)該提供相關(guān)的內(nèi)容，包括數(shù)據(jù)庫(kù)及各個(gè)數(shù)據(jù)庫(kù)對(duì)象的定義的SQL語(yǔ)句，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。2設(shè)計(jì)要求：鑒于數(shù)據(jù)庫(kù)選題原理課程設(shè)計(jì)的具體內(nèi)容，對(duì)課程設(shè)計(jì)提出如下要求： 選題原則課程設(shè)計(jì)題目以選用學(xué)生相對(duì)比較熟悉的業(yè)務(wù)模型為宜，要求通過本實(shí)踐性教學(xué)環(huán)節(jié)，能較好地鞏固數(shù)據(jù)庫(kù)的基本概念、基本原理、關(guān)系數(shù)據(jù)庫(kù)的設(shè)計(jì)理論、設(shè)計(jì)方法等主要相關(guān)知識(shí)點(diǎn)，針對(duì)實(shí)際問題設(shè)計(jì)概念模型，并應(yīng)用現(xiàn)有的工具完成小型數(shù)據(jù)庫(kù)的設(shè)計(jì)與實(shí)現(xiàn)。 選題要求在后面的課

6、題表中列出了幾個(gè)設(shè)計(jì)課題，每個(gè)課題都有相應(yīng)的要求或說(shuō)明。各課題的難易度有一定的差異，因此，參加課程設(shè)計(jì)的學(xué)生首先要了解設(shè)計(jì)的任務(wù)，仔細(xì)閱讀各個(gè)課題的設(shè)計(jì)要求，3人一組（按學(xué)號(hào)順序分組），為了避免多組選同一題，所做課題限組號(hào)對(duì)應(yīng)課題。一般來(lái)說(shuō)，選擇課題應(yīng)以在規(guī)定的時(shí)間內(nèi)能完成，并能得到應(yīng)有的鍛煉為原則。若學(xué)生對(duì)課題表以外的相關(guān)課題較感興趣，希望選作課程設(shè)計(jì)的課題時(shí)，應(yīng)征得指導(dǎo)教師的認(rèn)可，并寫出明確的設(shè)計(jì)要求和說(shuō)明。設(shè)計(jì)時(shí)要嚴(yán)格按照題意要求進(jìn)行設(shè)計(jì)，不能隨意更改。若確因條件所限，必須要改變課題要求時(shí)，應(yīng)在征得指導(dǎo)教師同意的前提下進(jìn)行。3參考選題     工資管理系統(tǒng)&

7、#160;   人事管理系統(tǒng)  倉(cāng)庫(kù)管理系統(tǒng)學(xué)生管理系統(tǒng)   圖書館管理信息系統(tǒng)   賓館客房管理信息系統(tǒng)學(xué)籍管理系統(tǒng)機(jī)票預(yù)定系統(tǒng)學(xué)生成績(jī)管理系統(tǒng)課程管理子系統(tǒng)通訊錄子系統(tǒng)教室管理子系統(tǒng)宿舍管理子系統(tǒng)個(gè)人事務(wù)管理子系統(tǒng)庫(kù)房管理系統(tǒng)小商店銷售管理系統(tǒng)其它管理子系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì).4.課程設(shè)計(jì)報(bào)告要求課程設(shè)計(jì)的設(shè)計(jì)報(bào)告是學(xué)生對(duì)本次課程設(shè)計(jì)的全面總結(jié)，應(yīng)該反映每個(gè)設(shè)計(jì)階段的設(shè)計(jì)思路和設(shè)計(jì)內(nèi)容。該設(shè)計(jì)報(bào)告，應(yīng)作為整個(gè)課程設(shè)計(jì)評(píng)分的書面依據(jù)和存檔材料。設(shè)計(jì)報(bào)告一般要以固定規(guī)格的紙張（如A4）書寫或打印（雙面）并裝訂，字跡及圖形要清楚，工整

8、，規(guī)范。內(nèi)容及要求如下： 設(shè)計(jì)任務(wù)、要求及所用軟件環(huán)境或工具介紹。 課程設(shè)計(jì)內(nèi)容中要求的設(shè)計(jì)結(jié)果。 總結(jié) 驗(yàn)收情況二、進(jìn)度安排第16周 完成數(shù)據(jù)庫(kù)設(shè)計(jì)第17周 完成系統(tǒng)功能模塊第18周 完成系統(tǒng)測(cè)試并能運(yùn)行、答辯（18周周日上機(jī)時(shí)間）、提交設(shè)計(jì)報(bào)告附：課程設(shè)計(jì)報(bào)告裝訂順序：封面、任務(wù)書、目錄、正文、評(píng)分、附件（A4大小的圖紙及程序清單）。 正文的格式:一級(jí)標(biāo)題用3號(hào)黑體,二級(jí)標(biāo)題用四號(hào)宋體加粗,正文用小四號(hào)宋體;行距為22。正文的內(nèi)容:一、課題的主要功能；二、課題的功能模塊的劃分（要求畫出模塊圖）；三、主要功能的實(shí)現(xiàn)（至少要有一個(gè)主要模塊的流程圖）；四、程序調(diào)試；五、總結(jié)；六、附件（所有程序的

9、原代碼，要求對(duì)程序?qū)懗霰匾淖⑨專?。正文總字?jǐn)?shù)要求在3000字以上（不含程序原代碼）。目錄一. 系統(tǒng)需求分析 61.1 設(shè)計(jì)前調(diào)查 61.2 用戶需求分析 61.3 核心數(shù)據(jù)流圖 71.4 核心數(shù)據(jù)字典 8二、概念設(shè)計(jì) 92.1 局部E-R圖 92.2 全局E-R圖 10三、邏輯設(shè)計(jì) 113.1 開發(fā)環(huán)境 113.2 關(guān)系模式形成以及規(guī)范 11四、創(chuàng)建數(shù)據(jù)庫(kù) 11五、程序以及調(diào)試和使用說(shuō)明 125.1程序登陸界面 125.2 主面板 135.3具體介紹 14六、總結(jié) 18七、部分代碼 197.1模塊 197.2添加員工 197.3 賓客入住 21參考文獻(xiàn) 26附錄：計(jì)算機(jī)與信息工程學(xué)院課程設(shè)計(jì)

10、評(píng)分表 27一. 系統(tǒng)需求分析1.1 設(shè)計(jì)前調(diào)查近年來(lái)，賓館業(yè)迅猛發(fā)展，市場(chǎng)的競(jìng)爭(zhēng)日趨激烈，全面提高賓館的軟件管理水準(zhǔn)，已成為賓館業(yè)發(fā)展的當(dāng)務(wù)之急。尤其是對(duì)于星級(jí)賓館，既需要完成前臺(tái)的一些服務(wù)工作，還需要完成后臺(tái)的管理工作。然而，傳統(tǒng)的人工管理模式已經(jīng)遠(yuǎn)遠(yuǎn)不能滿足有效、快捷地處理經(jīng)營(yíng)中產(chǎn)生的大量信息數(shù)據(jù)的需要，從而使得企業(yè)決策層無(wú)法及時(shí)、準(zhǔn)確地掌握一線資料，繼而影響對(duì)市場(chǎng)進(jìn)行正確地分析和預(yù)測(cè)。像沿海城市三星級(jí)以上賓館引進(jìn)外方管理，使小部分賓館管理水準(zhǔn)幾乎接近或達(dá)到國(guó)際水平。但對(duì)占80%以上的廣大中小型賓館來(lái)說(shuō)，是難以做到的。因此，欲在競(jìng)爭(zhēng)中甩開對(duì)手，取得優(yōu)勢(shì)，必須在經(jīng)營(yíng)、管理、產(chǎn)品、服務(wù)等方面

11、具備獨(dú)到之處。而對(duì)賓館的經(jīng)營(yíng)狀況起決定作用的是客房的管理。簡(jiǎn)單的服務(wù)標(biāo)準(zhǔn)已不是制勝的錦囊，只有管理做到最細(xì)微之處，才能讓顧客體會(huì)到賓館服務(wù)的高標(biāo)準(zhǔn)、高質(zhì)量，而準(zhǔn)確、快速、周全往往就是最基本的成功要素。傳統(tǒng)的管理方法已經(jīng)不能適應(yīng)現(xiàn)代社會(huì)的需要，因此采用電腦管理業(yè)務(wù)、財(cái)務(wù)等諸多環(huán)節(jié)已成為推動(dòng)賓館業(yè)迅速發(fā)展的先決條件，賓館客房管理信息系統(tǒng)是各大中小型賓館所需要使用的一個(gè)管理系統(tǒng)。1.2 用戶需求分析建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務(wù)人員日常處理的需要，增強(qiáng)企業(yè)經(jīng)營(yíng)全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對(duì)公司經(jīng)營(yíng)反饋信息的響應(yīng)速度。從而大幅度提高工作效率，提高

12、實(shí)施管理的準(zhǔn)確性、科學(xué)性，使擔(dān)負(fù)管理的工作人員從繁雜的手工勞作中解脫出來(lái)。因而程序需要實(shí)現(xiàn)的功能有如下主要六大功能：一、 客房管理：客房登記，入住情況查詢，客房狀態(tài)查看。二、 賓客入住管理：客房預(yù)定，登記入住，房間調(diào)整，退房結(jié)帳三、 物資管理：物品登記，物品查詢，報(bào)修和維修，定時(shí)提醒。四、 財(cái)務(wù)管理：追加押金，增刪財(cái)務(wù)，日?qǐng)?bào)表五、 員工管理：增改員工，查刪員工六、 系統(tǒng)管理：增刪管理員，修改密碼，以及預(yù)留的基于SQL的數(shù)據(jù)庫(kù)管理(該程序考慮到 作為課程設(shè)計(jì)和信息系統(tǒng)不是很大，使用了單機(jī)版的ACCESS，以求方便 寫程序七、 其他功能：界面管理（提供兩套外觀：經(jīng)典外觀和春天里）1.3 核心數(shù)據(jù)流

13、圖 維修信息調(diào)整房間維修/報(bào)修房間提醒客房信息 預(yù)定客房信息 客房狀態(tài)退房入住客人客人信息 入住登記 帳務(wù)信息財(cái)務(wù)現(xiàn)開入住信息 部分?jǐn)?shù)據(jù)流圖數(shù)據(jù)流名稱：客人信息來(lái)源：客人去向：入住登記包含的數(shù)據(jù)項(xiàng)：姓名、身份證號(hào)、性別、入住房間、房間類型、房間價(jià)格、入住狀態(tài)等（賓館客房管理系統(tǒng)的數(shù)據(jù)流客人信息） 數(shù)據(jù)流名稱：入住登記來(lái)源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項(xiàng)：訂單編號(hào)、姓名、性別、身份證號(hào)、客戶編號(hào)、客房類型、抵房時(shí)間、入住 人數(shù)、預(yù)定人、電話、住幾天等信息（賓館客房管理系統(tǒng)的數(shù)據(jù)流入住登記）數(shù)據(jù)流名稱：客房信息來(lái)源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項(xiàng)：客房編號(hào)、客房類型、客房?jī)r(jià)格、客房

14、狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流客房信息）數(shù)據(jù)流名稱：房間狀態(tài)來(lái)源：退房去向：房間包含的數(shù)據(jù)項(xiàng)：客房號(hào)碼、房間狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流房間狀態(tài)）數(shù)據(jù)流名稱：帳務(wù)信息來(lái)源：退房去向：財(cái)務(wù)包含的數(shù)據(jù)項(xiàng)：帳單編號(hào)、姓名、消費(fèi)金額、入住時(shí)間、退房時(shí)間、押金（賓館客房管理系統(tǒng)的數(shù)據(jù)流帳務(wù)信息）1.4 核心數(shù)據(jù)字典賓客入住信息表：Cmanage 數(shù)據(jù)項(xiàng)名稱(庫(kù)中字段名數(shù)據(jù)類型及長(zhǎng)度說(shuō)明客人電話(ctelChar(20客人姓名(cnameChar(12Not null客人性別(csexChar(4客人身份證號(hào)(cidnumChar(20客人住址(caddressChar(50訂單編號(hào)(cnumberCh

15、ar(15Not null,primary key入住人數(shù)(cmemeberint客房編號(hào)(croomChar(20Not null客房類型(ctypeChar(10客房?jī)r(jià)格(cpricemoney客房狀態(tài)(cstatueChar(2Not null抵店時(shí)間(cindate短日期型 date退房時(shí)間(coutdate短日期型 dateNot null入住類別(cintypeChar(4 預(yù)定/現(xiàn)開押金(cyamoney調(diào)整房間(cchangeChar(20原由(creasonChar(80應(yīng)付款(cmshouldMoney實(shí)收(cmpaymoney客房登記表:Roomlogin 數(shù)據(jù)項(xiàng)名稱(庫(kù)

16、中字段名數(shù)據(jù)類型及長(zhǎng)度說(shuō)明房間編號(hào)(RidChar(12Not null房間名稱(RnameChar(20Not null ,primary key房間描述(RdescribeChar(100房間價(jià)格(RpricemoneyNot null房間狀態(tài)(RstatueChar(8Not null操作員(ruserChar(12Not null管理員表:pw數(shù)據(jù)項(xiàng)名稱(庫(kù)中字段名數(shù)據(jù)類型及長(zhǎng)度說(shuō)明用戶(userChar(12Not null ,primary key密碼(pwdChar(8Not null權(quán)限(powerChar(1Not null財(cái)務(wù)管理表:Smanage數(shù)據(jù)項(xiàng)名稱(庫(kù)中字段名數(shù)據(jù)

17、類型及長(zhǎng)度說(shuō)明財(cái)務(wù)ID(SidChar(15Not null ,primary key事由(SreasonChar(20Not null收入(Sinmoney支出(SoutmoneyNot null總收入(ssummoneyNot null操作時(shí)間(SdatedateNot null結(jié)帳人(smanChar(12Not null掛帳單位(scompChar(12操作員(suserChar(12Not null維修/報(bào)修表:fix數(shù)據(jù)項(xiàng)名稱(庫(kù)中字段名數(shù)據(jù)類型及長(zhǎng)度說(shuō)明登記ID(Fid自動(dòng)編號(hào)Not null ,primary key登記日期(FdatedateNot null 物品名稱(Fna

18、meChar(50Not null所屬房間(FroomChar(20Not null維修狀態(tài)(FstatueChar(8Not null維修日期(Ffdatedate登記操作員(FmanChar(12Not null維修員(FfmanChar(12所需費(fèi)用(Fpaymoney提醒表:Reminder數(shù)據(jù)項(xiàng)名稱(庫(kù)中字段名數(shù)據(jù)類型及長(zhǎng)度說(shuō)明提醒ID(RemID自動(dòng)編號(hào)Not null ,primary key提醒日期(RemdatedateNot null 提醒類別(remtypeChar(20Not null提醒狀態(tài)(remstatueChar(4Not null操作員(remuserChar

19、(12Not null價(jià)格編號(hào)名稱二、概念設(shè)計(jì) 狀態(tài)2.1 局部E-R圖 描述類型客房電話性別姓名住址入職時(shí)間證件客人住址 客房 E-R 職員電話密碼職務(wù) 客人 E-R 管理員 E-R 用戶名管理員姓名工資權(quán)限年齡性別 職員 E-R 事由收入支出類別名稱時(shí)間狀態(tài)費(fèi)用狀態(tài)所屬房間登記日期結(jié)帳預(yù)定維修時(shí)間總收入帳目管理維修表提醒表用戶名管理員管理密碼權(quán)限職員年齡性別入職時(shí)間電話職務(wù)住址工資姓名客房描述狀態(tài)價(jià)格類型編號(hào)名稱證件電話性別住址姓名客人2.2 全局E-R圖入住n 1 1 1 11 1 1n q pm1 1m 全局E-R圖三、邏輯設(shè)計(jì)3.1 開發(fā)環(huán)境開發(fā)語(yǔ)言:Visual Basic開發(fā)平臺(tái)

20、：windows xp,1G內(nèi)存，集成顯卡。開發(fā)工具：Visual Basic 6.0企業(yè)版,SQL Server 2000,Access 20033.2 關(guān)系模式形成以及規(guī)范PW(user,pwd,power;Empl(eid,ename,eage,esex,eaddress,etel,ejob,ejtime,ejage;Fix(Fid,fname,froom,fstatue,ffdate,fpay,fman,fuser;Gmanage(Gid,gname,gtype,gnum,gprice,guse,gsum,gdate,guser,gdw;Roomlogin(Rid,rname,rtyp

21、e,rdescribe,rprice,rstatue,ruser;Reminder(remid,remname,remdate,remtype,remstatue,remuser;Smanage(Sid,sreason,sin,sout,ssum,sdate,sman,scomp,suser;Cmanage(cnumber,cname,cictype,cicnum,csex,caddress,ctel,cmember,croom,ctype,cprice, cindate,cintype,coutdate,cya,cyaadd,cstatue,cchange,creason,cmtel,cmm

22、eeting,cmcar,cmdamage,cmother,cmshould,cmpay,cmback,cuser;1）各分量都是不可分割的數(shù)據(jù)項(xiàng)。滿足第一范式；2）每一個(gè)關(guān)系中的非碼屬性都完全函數(shù)依賴于碼，符合第二范式；3）每個(gè)關(guān)系中的主屬性不傳遞依賴關(guān)系中的每個(gè)關(guān)系鍵，符合第三范式；4）關(guān)系中所有非主屬性對(duì)每個(gè)碼都是完全依賴，且所有主碼對(duì)于每個(gè)不包含它的碼也是完全函數(shù)依賴，沒有任 何屬性完全函數(shù)依賴非碼的任何一組屬性四、創(chuàng)建數(shù)據(jù)庫(kù)1創(chuàng)建數(shù)據(jù)庫(kù),讓數(shù)據(jù)庫(kù)可以動(dòng)態(tài)增長(zhǎng)create database hotelon (name=hotel_data,filename='E:hotel.m

23、df',size=5mB,maxsize=20mb,filegrowth=10%log on(name=hotel_log,filename='E:hotel.ldf',size=2mb,maxsize=5mb,filegrowth=1mbgo2創(chuàng)建PW用戶表use hotelgocreate table pw(user char (12 not null primary key,Pwd char(8 not null,Power char(1 not null go3創(chuàng)建客房登記表RoomLogincreate table roomlogin(rid char (12

24、 not null, Rname char(20 not null primary key,Rtype char(10 not null Rdescribe char(100,Rprice money not null,Rstatue char(8 not null,Ruser char(12 not null,go4同上創(chuàng)建提醒表Reminder、物品表Gmanage、維修表fix、員工表Empl、帳務(wù)表Smanage、客戶如住表Cmanage五、程序以及調(diào)試和使用說(shuō)明5.1程序登陸界面 說(shuō)明：進(jìn)入登陸界面后，系統(tǒng)會(huì)自動(dòng)加載已有的用戶，讓用戶選擇自己的帳戶進(jìn)行登陸，密碼 輸入三次后關(guān)閉窗口；

25、用控件屬性設(shè)置來(lái)實(shí)現(xiàn)用戶定義的完整性：密碼最大長(zhǎng)度為8。用戶名錯(cuò)誤，或密碼錯(cuò)誤，系統(tǒng)都會(huì)對(duì)其進(jìn)行提醒，以達(dá)到正確輸入，本程序設(shè)置一超級(jí)用戶：admin，權(quán)限為1，其他用戶的權(quán)限均為0。超級(jí)用戶能對(duì)押金進(jìn)行追加，其他用戶必須在超級(jí)用戶協(xié)助下才能完成押金追加5.2 主面板說(shuō)明：主界面用VB中的MDIForm，多入口提供給用戶操作，包括菜單欄、工具欄（可選擇顯示和不顯示）、側(cè)邊欄(可隱藏、主面板Panel(提供操作員最常用的操作，節(jié)約時(shí)間，在狀態(tài)欄可以顯示系統(tǒng)時(shí)間和當(dāng)前用戶以及需要維修的房間數(shù)。實(shí)現(xiàn)了所有要求的功能說(shuō)明：提供兩種風(fēng)格供用戶選擇。在vb模塊里有一函數(shù)change(，一變量保存當(dāng)前風(fēng)格類

26、型，當(dāng)每次show一窗口時(shí)，就會(huì)調(diào)用該函數(shù)通過變量判斷是顯示那種風(fēng)格5.3具體介紹 說(shuō)明：在主面板上的快速入口上點(diǎn)擊房態(tài)查詢，顯示當(dāng)前房間入住圖形界面。直觀、方便。點(diǎn)擊房間能顯示在該房間入住過的客戶。嵌入的查詢語(yǔ)句為："selectcnumber,cname,cictype,cicnum,csex,caddress,ctel,cmember,croom,ctype,cprice,cindate,coutdate,cstatue from cmanage where croom='" & Command1(Index.Caption & "&

27、#39;"，Command1(Index.Caption為當(dāng)前按下的要查詢的房間按鈕的名稱 說(shuō)明：點(diǎn)"登記",系統(tǒng)自動(dòng)在 roomlogin表中rstatue='空閑'的房間名字添加到 房間號(hào)碼的下拉列表中，供客戶選擇房間，用戶可以選擇"現(xiàn)開/預(yù)定"當(dāng)用戶選擇下拉列表中的一個(gè)房間時(shí)，系統(tǒng)自動(dòng)將roomlogin中該房間的標(biāo)準(zhǔn)類型，價(jià)格自動(dòng)加載顯示，房間狀況一目了然。其他用戶自定義完整性約束都通過對(duì)控件的屬性設(shè)置來(lái)完成，當(dāng)用戶輸入數(shù)據(jù)破壞完整性時(shí)，系統(tǒng)會(huì)發(fā)出警告，以保持?jǐn)?shù)據(jù)庫(kù)的完整性 說(shuō)明:通過入口可以打開窗體。當(dāng)客戶需要調(diào)整房間

28、時(shí)，點(diǎn)登記后，系統(tǒng)自動(dòng)加載已入住客戶的房間和空閑的房間號(hào)碼，當(dāng)用戶選擇要調(diào)房的客戶時(shí)，系統(tǒng)自動(dòng)加載客戶的信息。選擇目標(biāo)房間時(shí)候，系統(tǒng)自動(dòng)加載房間信息。用戶確定調(diào)房后，系統(tǒng)修改數(shù)據(jù)庫(kù)：原房間狀態(tài)改為空閑，目標(biāo)房間改為入住。原住房產(chǎn)生的費(fèi)用將加在新入住房間上,而提醒表中原房間改為現(xiàn)房間。因而需要修改三個(gè)表：Cmanage,roomlogin,reminder.而查詢?nèi)胱⌒畔⒌那度雜ql語(yǔ)句為:"select cnumber,cname,cictype,cicnum,csex,caddress,ctel,cmember,croom,ctype,cprice,cindate,coutdate

29、,cstatue from cmanage",其他查詢語(yǔ)句雷同，此后不在贅述。在文本框里輸入要查詢的姓名，MSFlexGrid空間將會(huì)顯示查詢結(jié)果，嵌入的查詢語(yǔ)句為: "select cnumber,cname,cictype,cicnum,csex,caddress,ctel,cmember,croom,ctype,cprice,cindate,coutdate,cstatue from cmanage where cname like '" & Text1.Text & "*'" 說(shuō)明：追加押金窗體.系統(tǒng)自動(dòng)

30、加載已入住客戶號(hào)碼，當(dāng)用戶選擇客戶號(hào)碼時(shí)候，系統(tǒng)自動(dòng)加載客戶信息，用戶添加押金后，保存時(shí)系統(tǒng)對(duì)cmanage表進(jìn)行修改，保存數(shù)據(jù)；結(jié)帳窗體。系統(tǒng)自動(dòng)加載已入住還沒退房的房間號(hào)，用戶選擇要退房的房間號(hào)，系統(tǒng)加載客戶信息以需付款和明細(xì)供核對(duì)，確定結(jié)帳后，系統(tǒng)將對(duì) cmanage表，smanage，reminder，roomlogin進(jìn)行修改，以保持?jǐn)?shù)據(jù)庫(kù)的參照完整性。如果是掛帳，用戶可以選擇掛帳，在客戶結(jié)帳的時(shí)候，調(diào)出掛帳結(jié)帳窗體，系統(tǒng)自動(dòng)加載掛帳的單位，用戶選擇掛帳單位，系統(tǒng)自動(dòng)加載需還金額。掛帳結(jié)帳只對(duì)smanage表操作。而日?qǐng)?bào)表顯示smange里的信息，提供按日期查找的方法，打印當(dāng)天的帳務(wù)

31、明細(xì)。查詢的嵌入sql語(yǔ)句為："select sreason,sin,sout,ssum,sdate,sman,scomp,suser from smanage where sdate =#" & DTPicker1.Value & "#"。在該處開始一直調(diào)試不出，后來(lái)發(fā)現(xiàn)在sql語(yǔ)句中對(duì)日期要加"#"來(lái)格式說(shuō)明是日期型的。 說(shuō)明:打開該窗體，左邊有一組option選項(xiàng)。當(dāng)選報(bào)修時(shí)候，系統(tǒng)自動(dòng)加載空閑的房間號(hào)。如果為入住的房間報(bào)修，則需先調(diào)房退房后才能報(bào)修，總不能讓客戶住在需維修的房間中吧。確定報(bào)修后。系統(tǒng)將在remi

32、nder表中增加一條需提醒事項(xiàng)，即需維修事項(xiàng)，傳遞 房間號(hào) 和維修狀態(tài) 給 reminder表做為關(guān)鍵字。在主窗體中便會(huì)有提示需要維修的房間，可以通過房態(tài)查詢，查看需要維修的房間號(hào)。維修完后要進(jìn)行登記，選擇登記后，系統(tǒng)加載當(dāng)前狀態(tài)為 維修的房間，記錄維修費(fèi)用和維修員，確定后，系統(tǒng)將操作 roomlogin和reminder表，保持?jǐn)?shù)據(jù)庫(kù)系統(tǒng)的參照完整性 說(shuō)明:只有管理員，即超級(jí)用戶才能添加操作員和員工，但是普通擁護(hù)可以修改自己的密碼。添加操作員的代碼為： If Text1.Text <> "" And Text2.Text <> "&quo

33、t; And Text2.Text = Puser.Fields("pwd" ThenIf Text3.Text <> "" ThenPuser.EditPuser.Fields("pwd" = Text3.TextMsgBox ("密碼修改成功,退出操作員密碼修改!"Puser.Updatemain.Enabled = TrueUnload MeElseMsgBox ("請(qǐng)輸入新密碼!"End IfElseIf Text1.Text = "" ThenMsgBo

34、x ("請(qǐng)輸入操作員!"Text1.SetFocusElseIf Text1.Text <> Puser.Fields("user" ThenText1.SetFocusText1.Text = ""MsgBox ("無(wú)此操作員,請(qǐng)重新輸入!"End IfEnd IfIf Text2.Text = "" ThenMsgBox ("請(qǐng)輸入操作員原密碼!"Text2.SetFocusElseIf Text2.Text <> Puser.Fields(&qu

35、ot;pwd" ThenMsgBox ("原密碼錯(cuò)誤,請(qǐng)重新輸入原密碼!"Text2.SetFocusEnd IfEnd IfEnd If 這是才用 DAO 3.6對(duì)象來(lái)對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作，這是另一種方法對(duì)數(shù)據(jù)庫(kù)操作cr = "insert into pw values(' " & text1.text& " ',' " & text2.text & " ' ,'0'"mydb.Execute cr 這是直接用嵌入sql語(yǔ)句來(lái)插

36、入記錄。兩種效果都一樣六、總結(jié) 兩周的日日夜夜的奮戰(zhàn)，終于達(dá)到了預(yù)定的效果，完成了該信息系統(tǒng)的設(shè)計(jì)和程序編寫。前面學(xué)期曾學(xué)過VB語(yǔ)言，也開發(fā)過很多程序，所以vb語(yǔ)言成為首選。雖然其編寫的應(yīng)用程序在不同的機(jī)器上需要解釋器，需要隨帶很多ocx控件和其他，但是在編寫信息管理系統(tǒng)這方面還是很有優(yōu)勢(shì)的。（1）可視畫編程，豐富的控件，隨用隨拖，對(duì)控件對(duì)象編程，很方便。（2）可以方便的利用API函數(shù)實(shí)現(xiàn)窗體的各種效果。有豐富的api接口。（3）語(yǔ)言簡(jiǎn)單，實(shí)現(xiàn)功能很方便。在對(duì)數(shù)據(jù)庫(kù)操作方面，引用了DAO 3.6 對(duì)象，使用DAO編程連接和操作。所以很自然選擇了VB語(yǔ)言。在數(shù)據(jù)庫(kù)方面，考慮編程方便，采用從sql

37、中導(dǎo)出成access文件來(lái)進(jìn)行操作。選定課題后，開始收集相關(guān)資料和設(shè)計(jì)軟件架構(gòu)。到賓館調(diào)查和到網(wǎng)上收集信息，以及參考了其他信息管理系統(tǒng)，心里就有了輪廓。設(shè)計(jì)好軟件的幾大模塊，采用自頂向下的經(jīng)典設(shè)計(jì)方法，確定實(shí)現(xiàn)的功能，開始設(shè)計(jì)數(shù)據(jù)庫(kù)。運(yùn)用相關(guān)的數(shù)據(jù)庫(kù)知識(shí)，設(shè)計(jì)好數(shù)據(jù)表，確定字段。并通過模式分解，確定其是無(wú)損的連接。有了數(shù)據(jù)庫(kù)作為整個(gè)設(shè)計(jì)的底層，就好象蓋房子有了骨架，而軟件就象是磚瓦，只是將骨架填充完善，給客戶一個(gè)好的外觀。因而數(shù)據(jù)庫(kù)的設(shè)計(jì)尤為重要，但是在設(shè)計(jì)之初，往往會(huì)有很多情況不能考慮周全，再加之一個(gè)人編寫，所以進(jìn)度一度很慢，后來(lái)通過列出所有可能的情況，以及同同學(xué)老師等交流，總結(jié)并重新設(shè)計(jì)了

38、數(shù)據(jù)庫(kù)，終于是能有一個(gè)比較好的效果。通過將所有和客戶相關(guān)的財(cái)務(wù)信息都加到客戶信息里，避免了對(duì)多表的操作，避免了有可能會(huì)出現(xiàn)的參照完整性不一致的問題。繼而是軟件的設(shè)計(jì)，由于對(duì)vb還是算比較熟悉，因而有了數(shù)據(jù)庫(kù)的支撐，就得心應(yīng)手了?？紤]到用戶使用的方便性，軟件主界面提供了很多入口，以及直觀的圖形顯示，方便用戶操作，因而也給客戶帶來(lái)方便，免去了客戶的很多等待時(shí)間，提升賓館的形象。同時(shí)提供了兩套外觀，春天里這套外觀可以避免用戶的審美疲勞。整個(gè)程序完成了，又花了大量的時(shí)間對(duì)其進(jìn)行調(diào)試。通過白盒黑盒測(cè)試，程序能正常的顯示結(jié)果和準(zhǔn)確報(bào)錯(cuò)，達(dá)到了單機(jī)運(yùn)行的效果。接著在不同機(jī)環(huán)境器上測(cè)試，有些控件因?yàn)闆]有帶走，

39、所以報(bào)錯(cuò)，后來(lái)帶上控件后都能正常運(yùn)行，在xp和win7上都能正常運(yùn)行。由于公司規(guī)模和業(yè)務(wù)量大，因而信息系統(tǒng)不可能只在單機(jī)上運(yùn)行，所以才用C/S，或B/S結(jié)構(gòu)比較合適。因時(shí)間關(guān)系所以沒能完成，只預(yù)留了接口，供以后開發(fā)擴(kuò)展用。當(dāng)然這次課程設(shè)計(jì)因?yàn)槭菙?shù)據(jù)庫(kù)的課程設(shè)計(jì)，重點(diǎn)在數(shù)據(jù)庫(kù)的設(shè)計(jì)，所以對(duì)于軟件體系結(jié)構(gòu)風(fēng)格，沒有考慮，只求能達(dá)到目的！在本次課程設(shè)計(jì)中，要感謝各位老師的指導(dǎo)，也要感謝提供意見和建議的同學(xué)，才得以大致完成該設(shè)計(jì)。本欲來(lái)讓老師答辯的，但因個(gè)人原因，在答辯那天趕回家了，所以沒得完成最終的答辯。但這不要緊，編程最大的喜事莫過于完成所有程序的那一刻，雖然后續(xù)還有很多維護(hù)和修改任務(wù)，但是心里突

40、然輕松下來(lái)那一刻的心情是無(wú)與倫比的。再次感謝老師的指導(dǎo)！七、部分代碼7.1模塊Public NowUser As String '當(dāng)前用戶名Public nowpower As String '當(dāng)前用戶權(quán)限Public mydb As DAO.Database '定義數(shù)據(jù)庫(kù)Public bgi As Integer '判斷背景風(fēng)格Public Sub LoadAccess(Set mydb = DAO.OpenDatabase(App.Path & "hotel.mdb"End SubPublic Sub bground(If bgi

41、 = 1 ThenUnload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: panel.resizemeElseIf bgi = 0 Thenmain.Picture = Nothingpanel.Picture = NothingUnload findEm: Unload findlogin: Unloa

42、d fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: panel.resizemeEnd IfEnd IfEnd Sub7.2添加員工Private Declare Function ReleaseCapture Lib "user32" ( As Long '獲取“變動(dòng)”信息Private Declare Function SendMessage

43、Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any As LongPrivate Const WM_SYSCOMMAND = &H112Private Const SC_MOVE = &HF010&Private Const HTCAPTION = 2Dim Emp As RecordsetPrivate Sub DTPicker1_Change(Text7.Te

44、xt = Year(Date - Year(DTPicker1.ValueEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As SingleIf Button = 1 Then'如果按下鼠標(biāo)左鍵Dim ReturnVal As LongX = ReleaseCapture(ReturnVal = SendMessage(addEm.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0End IfEnd SubPrivate Sub

45、 Form_Load(LoadAccessSet Emp = mydb.OpenRecordset("select * from empl"Text1.Text = Year(Date & Month(Date & Day(Date & Hour(Time & Minute(TimeText7.Text = Year(Date - Year(DTPicker1.ValueEnd SubPrivate Sub Command1_Click( '=!'缺少判斷員工號(hào)是否存在的信息If Text1.Text = "&quo

46、t; Or Text2.Text = "" Or Text4.Text = "" Thenmsg$ = MsgBox("請(qǐng)確認(rèn) 員工號(hào)、員工姓名、職務(wù) 已經(jīng)輸入", 48, "Error"ElseEmp.AddNewEmp.Fields("emid" = Text1.TextEmp.Fields("ename" = Text2.TextEmp.Fields("esex" = Combo1.TextEmp.Fields("ejob" =

47、Text4.TextEmp.Fields("eage" = Val(Text5.TextEmp.Fields("etel" = Text6.TextEmp.Fields("ejtime" = DTPicker1.ValueEmp.Fields("ejage" = Text7.TextEmp.Update '更新記錄Emp.Closemsg$ = MsgBox("添加成功", 64, "Success!"Unload MeEnd IfEnd SubPrivate Sub

48、 Command2_Click(Text1.Text = "": Text2.Text = "": Combo1.Text = ""Text4.Text = "": Text5.Text = "": Text6.Text = ""End SubPrivate Sub Command3_Click(main.Enabled = TrueUnload MeEnd Sub7.3 賓客入住Dim i As Integer '定義一個(gè)整型變量Dim InLog As Recor

49、dsetDim Room As RecordsetDim Remind As RecordsetPrivate Sub Combo4_Click(Set Room = mydb.OpenRecordset("select * from roomlogin where rname='" & Combo4.Text & "'"ZSDJ(4.Text = Room.Fields("rtype": ZSDJ(5.Text = Room.Fields("rprice"End SubPrivat

50、e Sub Combo5_click(Label11.Caption = Combo5.TextEnd SubPrivate Sub DTP3_Change(ZSDJ(6.Text = DTP3.Value - DTP1.ValueEnd SubPrivate Sub Form_Load(If bgi = 0 Then Me.Picture = NothingDTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date '初始化日期及時(shí)間czy.Text = NowUser '賦值給czyLoadAccessEnd SubPri

51、vate Sub Form_Unload(Cancel As Integermain.Enabled = True '設(shè)置主窗體有效End SubPrivate Sub Combo2_Click(If Combo2.Text = "折扣" ThenZSDJ(8.Enabled = True '設(shè)置ZSDJ(8有效ZSDJ(8.SetFocus 'ZSDJ(8獲得焦點(diǎn)End IfIf Combo2.Text = "招待" ThenZSDJ(8.Enabled = True '設(shè)置ZSDJ(8有效ZSDJ(8.Text = 0

52、 '賦值給ZSDJ(8End IfEnd SubPrivate Sub ZSDJ_Change(Index As IntegerSelect Case IndexCase 6ZSDJ(7.Text = Format(Val(ZSDJ(6.Text * Val(ZSDJ(5.Text, "0.00" '計(jì)算折前宿費(fèi)ZSDJ(9.Text = ZSDJ(7.Text '賦值給ZSDJ(9ZSDJ(8.Text = 100DTP3.Value = DTP1.Value + Val(ZSDJ(6.Text '計(jì)算退宿日期Case 8ZSDJ(9.Te

53、xt = Format(Val(ZSDJ(7.Text * Val(ZSDJ(8.Text / 100, "0.00" '計(jì)算實(shí)際宿費(fèi)Case 10If ZSDJ(10.Text <> "" ThenZSDJ(10.Text = Val(ZSDJ(10.Text '用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字DTP2.Value = DTP1.Value + Int(Val(ZSDJ(10.Text / Val(ZSDJ(5.Text '計(jì)算提醒日期End IfEnd SelectEnd SubPrivate Sub ZSDJ_Ke

54、yDown(Index As Integer, KeyCode As Integer, Shift As IntegerSelect Case IndexCase 0If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回車鍵Combo1獲得焦點(diǎn)Case 1If KeyCode = vbKeyReturn Then ZSDJ(2.SetFocus '按回車鍵ZSDJ(2獲得焦點(diǎn)Case 2If KeyCode = vbKeyReturn Then ZSDJ(3.SetFocus '按回車鍵ZSDJ(3獲得焦點(diǎn)Case 3If K

55、eyCode = vbKeyReturn Then DBCombo1.SetFocus '按回車鍵ZSDJ(2獲得焦點(diǎn)Case 4If KeyCode = vbKeyReturn Then ZSDJ(5.SetFocus '按回車鍵ZSDJ(5獲得焦點(diǎn)Case 5If KeyCode = vbKeyReturn Then ZSDJ(6.SetFocus '按回車鍵ZSDJ(6獲得焦點(diǎn)Case 6If KeyCode = vbKeyReturn Then ZSDJ(10.SetFocusCase 8If KeyCode = vbKeyReturn Then ZSDJ(10

56、.SetFocus '按回車鍵ZSDJ(10獲得焦點(diǎn)Case 10If KeyCode = vbKeyReturn Then ZSDJ(11.SetFocus 'ZSDJ(11獲得焦點(diǎn)Case 11If KeyCode = vbKeyReturn Then Comok.SetFocus '按回車鍵Comok獲得焦點(diǎn)End SelectEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As IntegerIf KeyCode = vbKeyReturn Then ZSDJ(1.SetFocus '

57、;按回車鍵ZSDJ(1獲得焦點(diǎn)End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As IntegerIf KeyCode = vbKeyReturn Then ZSDJ(5.SetFocus 'ZSDJ(5獲得焦點(diǎn)End SubPrivate Sub comdj_Click('查詢空閑房間信息Set Room = mydb.OpenRecordset("select * from roomlogin where rstatue='空閑'"'On Error Go

58、To uRoom.MoveFirstCombo4.Text = Room.Fields("rname"ZSDJ(4.Text = Room.Fields("rtype"ZSDJ(5.Text = Room.Fields("rprice"Set Room = mydb.OpenRecordset("select * from roomlogin "While Not Room.EOFIf Room.Fields("rstatue" = "空閑" Then Combo4.AddI

59、tem Room.Fields("rname"Room.MoveNextWendbh.Text = Year(Date & Month(Date & Day(Date & Hour(Time & Minute(Time & Second(Time '設(shè)置編號(hào)ZSDJ(8.Text = "": ZSDJ(10.Text = ""'設(shè)置控件有效或無(wú)效Comok.Enabled = True: Comdj.Enabled = False: Comprint.Enabled = False: ZSDJ(8.Enabled = TrueZSDJ(10.Enabled = True: Combo1.Enabled = True: DTP3.Enabled = TrueCombo2.Enabled = True: ZSDJ(0.Enabled = True: ZSDJ(0.SetFocusLabel11.Caption = Combo5.TextExit Sub'u: h$ = MsgBox("沒有空閑房間,客房已滿", 48, "Error": Comok.Enabled = Fals