數(shù)據(jù)庫課程設(shè)計賓館客房信息管理系統(tǒng)方案

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

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

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

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

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

6、完成小型數(shù)據(jù)庫的設(shè)計與實現(xiàn)。2. 選題要求 在后面的課題表中列出了幾個設(shè)計課題，每個課題都有相應(yīng)的要求或說明。各課題的難易度有一定的差異，因此，參加課程設(shè)計的學生首先要了解設(shè)計的任務(wù)，仔細閱讀各個課題的設(shè)計要求，3人一組（ 按學號順序分組 ），為了避免多組選同一題，所做課題限組號對應(yīng)課題。一般來說，選擇課 題應(yīng)以在規(guī)定的時間能完成，并能得到應(yīng)有的鍛煉為原則。若學生對課題表以外的相關(guān)課題較感興趣，希望選作課程設(shè)計的課題時，應(yīng)征得指導教師的認 可，并寫出明確的設(shè)計要求和說明。設(shè)計時要嚴格按照題意要求進行設(shè)計，不能隨意更改。若確因條件所限，必須要改變課題要求 時，應(yīng)在征得指導教師同意的前提下進行。3

7、參考選題工資管理系統(tǒng)人事管理系統(tǒng)倉庫管理系統(tǒng)學生管理系統(tǒng)圖書館管理信息系統(tǒng) 賓館客房管理信息系統(tǒng)學籍管理系統(tǒng)機票預定系統(tǒng) 學生成績管理系統(tǒng) 課程管理子系統(tǒng) 通訊錄子系統(tǒng) 教室管理子系統(tǒng) 宿舍管理子系統(tǒng) 個人事務(wù)管理子系統(tǒng) 庫房管理系統(tǒng)小商店銷售管理系統(tǒng)其它管理子系統(tǒng)數(shù)據(jù)庫設(shè)計4.課程設(shè)計報告要求課程設(shè)計的設(shè)計報告是學生對本次課程設(shè)計的全面總結(jié)，應(yīng)該反映每個設(shè)計階段的設(shè)計思路和設(shè)計容。該設(shè)計報告，應(yīng)作為整個課程設(shè)計評分的書面依據(jù)和存檔材料。設(shè)計報告一般要以固定規(guī)格的紙（如A4）書寫或打?。p面）并裝訂，字跡及圖形要清楚，工整，規(guī)。容及要求如下：設(shè)計任務(wù)、要求及所用軟件環(huán)境或工具介紹。 課程設(shè)計容

8、中要求的設(shè)計結(jié)果?？偨Y(jié)驗收情況二、進度安排第16周完成數(shù)據(jù)庫設(shè)計第17周完成系統(tǒng)功能模塊第18周完成系統(tǒng)測試并能運行、答辯（18周周日上機時間）、提交設(shè)計報告附：課程設(shè)計報告裝訂順序：封面、任務(wù)書、目錄、正文、評分、附件（A4大小的圖紙及程序清單）。正文的格式:一級標題用3號黑體,二級標題用四號宋體加粗，正文用 小四號宋體；行距為22。正文的容:一、課題的主要功能；二、課題的功能模塊的劃分（要求畫出模塊圖）；三、主要功能的實現(xiàn)（至少要有一個主要模塊的流程圖） ；四、程序調(diào)試；五、總結(jié)；六、附件（所有程序的原代碼，要求對程序?qū)懗霰匾淖⑨專?。正文總字?shù)要求在 3000 字以上（不含程序原代碼）目

9、錄一. 系統(tǒng)需求分析 71.1 設(shè)計前調(diào)查 71.2 用戶需求分析 71.3 核心數(shù)據(jù)流圖 81.4 核心數(shù)據(jù)字典 9二、概念設(shè)計 102.1 局部 E-R 圖 102.2 全局 E-R 圖 11三、邏輯設(shè)計 123.1 開發(fā)環(huán)境 123.2 關(guān)系模式形成以及規(guī) . 123.2.1 有以下關(guān)系模式： 123.2.2 分解分析： 12四、創(chuàng)建數(shù)據(jù)庫 12五、程序以及調(diào)試和使用說明 . 135.1 程序登陸界面 135.2 主面板 145.3 具體介紹 155.3.1 房態(tài)查看 155.3.2 入住登記和預定房間 . 155.3.3 調(diào)房，住宿、退宿查詢 . 165.3.4 掛帳，結(jié)帳，日報表，追

10、加押金 . 175.3.5 報修和維修 175.3.6 添加用戶，添加員工，修改密碼 18六、總結(jié) 19七、部分代碼 207.1 模塊 207.2 添加員工 217.3 賓客入住 22參考文獻 28附錄：計算機與信息工程學院課程設(shè)計評分表29一. 系統(tǒng)需求分析1.1 設(shè)計前調(diào)查近年來，賓館業(yè)迅猛發(fā)展，市場的競爭日趨激烈，全面提高賓館的軟件管理水準，已成為賓館 業(yè)發(fā)展的當務(wù)之急。尤其是對于星級賓館，既需要完成前臺的一些服務(wù)工作，還需要完成后臺的管 理工作。然而，傳統(tǒng)的人工管理模式已經(jīng)遠遠不能滿足有效、快捷地處理經(jīng)營中產(chǎn)生的大量信息數(shù) 據(jù)的需要，從而使得企業(yè)決策層無法及時、準確地掌握一線資料，繼而

11、影響對市場進行正確地分析 和預測。像沿海城市三星級以上賓館引進外方管理，使小部分賓館管理水準幾乎接近或達到國際水 平。但對占 80%以上的廣大中小型賓館來說，是難以做到的。因此，欲在競爭中甩開對手，取得優(yōu) 勢，必須在經(jīng)營、管理、產(chǎn)品、服務(wù)等方面具備獨到之處。而對賓館的經(jīng)營狀況起決定作用的是客 房的管理。簡單的服務(wù)標準已不是制勝的錦囊，只有管理做到最細微之處，才能讓顧客體會到賓館 服務(wù)的高標準、高質(zhì)量，而準確、快速、周全往往就是最基本的成功要素。傳統(tǒng)的管理方法已經(jīng)不能適應(yīng)現(xiàn)代社會的需要，因此采用電腦管理業(yè)務(wù)、財務(wù)等諸多環(huán)節(jié)已成 為推動賓館業(yè)迅速發(fā)展的先決條件，賓館客房管理信息系統(tǒng)是各大中小型賓館

12、所需要使用的一個管 理系統(tǒng)。1.2 用戶需求分析建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務(wù)人員日常處理的需要，增強企業(yè)經(jīng)營全過程 的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對公司經(jīng)營反饋信息的響 應(yīng)速度。從而大幅度提高工作效率，提高實施管理的準確性、科學性，使擔負管理的工作人員從繁 雜的手工勞作中解脫出來。因而程序需要實現(xiàn)的功能有如下主要六大功能：一、客房管理：客房登記，入住情況查詢，客房狀態(tài)查看。二、賓客入住管理：客房預定，登記入住，房間調(diào)整，退房結(jié)帳三、物資管理：物品登記，物品查詢，報修和維修，定時提醒。四、財務(wù)管理：追加押金，增刪財務(wù)，日報表五、員工管理：增改員工

13、，查刪員工六、系統(tǒng)管理：增刪管理員，修改密碼，以及預留的基于SQL的數(shù)據(jù)庫管理（該程序考慮到作為課程設(shè)計和信息系統(tǒng)不是很大，使用了單機版的ACCES，S 以求方便 寫程序 ）七、其他功能：界面管理（提供兩套外觀：經(jīng)典外觀和春天里）1.3核心數(shù)據(jù)流圖部分數(shù)據(jù)流圖 數(shù)據(jù)流名稱：客人信息來源：客人去向：入住登記包含的數(shù)據(jù)項：、號、性別、入住房間、房間類型、房間價格、入住狀態(tài)等（賓館客房管理系統(tǒng)的數(shù)據(jù)流一一客人信息）數(shù)據(jù)流名稱：入住登記來源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項：訂單編號、性別、號、客戶編號、客房類型、抵房時間、入住人數(shù)、預定人、住幾天等信息（賓館客房管理系統(tǒng)的數(shù)據(jù)流一一入住登記）數(shù)

14、據(jù)流名稱：客房信息來源：客人產(chǎn)生入住登記去向：入住包含的數(shù)據(jù)項：客房編號、客房類型、客房價格、客房狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流一一客房信息） 數(shù)據(jù)流名稱：房間狀態(tài) 來源：退房去向：房間 包含的數(shù)據(jù)項：客房、房間狀態(tài)（賓館客房管理系統(tǒng)的數(shù)據(jù)流一一房間狀態(tài)）數(shù)據(jù)流名稱：帳務(wù)信息來源：退房去向：財務(wù)包含的數(shù)據(jù)項：帳單編號、消費金額、入住時間、退房時間、押金財務(wù)(賓館客房管理系統(tǒng)的數(shù)據(jù)流一一帳務(wù)信息)1.4核心數(shù)據(jù)字典賓客入住信息表：Cmanage數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明客人(ctel)Char(20)客人(cn ame)Char(12)Not null客人性別(csex)Char

15、(4)客人號(cidnum)Char(20)客人住址(caddress)Char(50)訂單編號(cnumber)Char(15)Not nu ll,primary key入住人數(shù)(cmemeber)int客房編號(croom)Char(20)Not null客房類型(ctype)Char(10)客房價格(cprice)money客房狀態(tài)(cstatue)Char(2)Not null抵店時間(cindate)短日期型date退房時間(coutdate)短日期型dateNot null入住類別(cintype)Char(4) 預定/現(xiàn)開押金(cya)money調(diào)整房間(cchange)Char

16、(20)原由(creason)Char(80)應(yīng)付款(cmshould)Money實收(cmpay)money客房登記表：Roomlogin數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明房間編號(Rid)Char(12)Not null房間名稱(Rname)Char(20)Not null ,primary key房間描述(Rdescribe)Char(100)房間價格(Rprice)moneyNot null房間狀態(tài)(Rstatue)Char(8)Not null操作員(ruser)Char(12)Not null管理員表:pw數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明用戶(user)Char(

17、12)Not null ,primary key密碼(pwd)Char(8)Not null權(quán)限(power)Char(1)Not null管理表:Smanage數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明財務(wù) ID(Sid)Char(15)Not null primary key事由(Sreason)Char(20)Not null收入(Sin)money支出(Sout)moneyNot null總收入(ssum)moneyNot null操作時間(Sdate)dateNot null結(jié)帳人(sman)Char(12)Not null掛帳單位(scomp)Char(12)操作員(suser)C

18、har(12)Not null維修/報修表:fix數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明登記 ID(Fid)自動編號Not null ,primary key登記日期(Fdate)dateNot null物品名稱(Fname)Char(50)Not null所屬房間(Froom)Char(20)Not null維修狀態(tài)(Fstatue)Char(8)Not null維修日期(Ffdate)date登記操作員(Fman)Char(12)Not null維修員(Ffman)Char(12)所需費用(Fpay)money提醒表:Reminder數(shù)據(jù)項名稱(庫中字段名)數(shù)據(jù)類型及長度說明提醒 ID

19、(RemlD)自動編號Not null ,primary key提醒日期(Remdate)dateNot null提醒類別(remtype)Char(20)Not null提醒狀態(tài)(remstatue)Char(4)Not null操作員(remuser)Char(12)Not null2.2全局E-R圖電話證件名稱姓名類型價格性別1n入住客房狀態(tài)住址11描述結(jié)帳預定維修事由1類別時間收入費用名稱總收帳目提醒表維修表支出狀態(tài)時間所屬房間狀態(tài)管理登記日期客人1編號密碼用戶名管理m入職時間電話職務(wù)住址姓名工資性別年齡職員全局E-R圖三、邏輯設(shè)計3.1開發(fā)環(huán)境開發(fā)語言：Visual Basic開發(fā)平

20、臺：windows xp,1G 存，集成顯卡。開發(fā)工具：Visual Basic 6.0 企業(yè)版，SQL Server 2000,Access 20033.2關(guān)系模式形成以及規(guī)有以下關(guān)系模式：PW(user,pwd,power);Empl(eid,e name,eage,esex,eaddress,etel,ejob,ejtime,ejage);Fix(Fidfname,froom,fstatue,ffdate,fpay,fma n,fuser);Gman age(Gid,g name,gtype,g nu m,gprice,guse,gsum,gdate,guser,gdw);Roomlog

21、i n(Rid,r nameitype,rdescribe,rprice,rstatue,ruser);Remi nder(remid,re mn ame,remdate,remtype,remstatue,remuser);Sman age(Sid,sreas on,sin, sout,ssum,sdate,sma n, scomp,suser);Cman age(cnumber,c name,cictype,cic num ,csex,caddress,ctel,cmember,croom,ctype,cprice, cin date,c in type,coutdate,cya,cyaa

22、dd,cstatue,ccha nge,creas on, cmtel,cmmeeti ng, cmcar,cmdamage,cmother,cmshould,cmpay,cmback,cuser);分解分析：1 )各分量都是不可分割的數(shù)據(jù)項。滿足第一式；2) 每一個關(guān)系中的非碼屬性都完全函數(shù)依賴于碼，符合第二式；3) 每個關(guān)系中的主屬性不傳遞依賴關(guān)系中的每個關(guān)系鍵，符合第三式；4 )關(guān)系中所有非主屬性對每個碼都是完全依賴，且所有主碼對于每個不包含它的碼也是完全函數(shù)依賴，沒有任 何屬性完全函數(shù)依賴非碼的任何一組屬性四、創(chuàng)建數(shù)據(jù)庫1) 創(chuàng)建數(shù)據(jù)庫，讓數(shù)據(jù)庫可以動態(tài)增長create databas

23、e hotelon(n ame=hotel_data,file name=E:hotel.mdf,size=5mB,maxsize=20mb,filegrowth=10%)log on(n ame=hotel_log,file name=E:hotel.ldf,size=2mb,maxsize=5mb,filegrowth=1mb)go2) 創(chuàng)建PW用戶表use hotelgocreate table pw(user char (12) notn ull primary key,Pwd char(8) n ot null,Power char(1) not n ull )go3) 創(chuàng)建客房登記

24、表 RoomLogincreate table roomlogi n(rid char (12) not null,Rn ame char(20) not n ull primary key,Rtype char(10) not nullRdescribe char(100),Rprice money not n ull,Rstatue char(8) not null,Ruser char(12) not null,)go4) 同上創(chuàng)建提醒表 Reminder、物品表 Gmanage維修表fix、員工表 Empl、帳務(wù)表 Smanage客戶 女口住表Cmanage五、程序以及調(diào)試和使用說明5

25、.1程序登陸界面說明：進入登陸界面后，系統(tǒng)會自動加載已有的用戶，讓用戶選擇自己的進行登陸，密碼輸入三次后關(guān)閉窗口；用控件屬性設(shè)置來實現(xiàn)用戶定義的完整性：密碼最大長度為8。用戶名錯誤，或密碼錯誤，系統(tǒng)都會對其進行提醒，以達到正確輸入，本程序設(shè)置一超級用戶：admin，權(quán)限為1,其他用戶的權(quán)限均為 0。超級用戶能對押金進行追加，其他 用戶必須在超級用戶協(xié)助下才能完成押金追加5.2主面板說明：主界面用 VB中的MDIForm,多入口提供給用戶操作，包括菜單欄、工具欄（可選擇顯示和不顯示）、側(cè)邊欄（可隱藏）、主面板Panel（提供操作員最常用的操作，節(jié)約時間），在狀態(tài)欄可以顯示系統(tǒng)時間和當前用戶以及需

26、要維修的房間數(shù)。實現(xiàn)了所有要求的功能說明：提供兩種風格供用戶選擇。在vb模塊里有一函數(shù) change()，變量保存當前風格類型，當每次show 窗口時，就會調(diào)用該函數(shù)通過變量判斷是顯示那種風格5.3具體介紹房態(tài)查看說明：在主面板上的快速入口上點擊房態(tài)查詢，顯示當前房間入住圖形界面。直觀、方便。點擊 房間能顯示在該房間入住過的客戶。嵌入的查詢語句為：selectumber,c name,cictype,cicnum ,csex,caddress,ctel,cmember,croom,ctype,cprice,ci ndate,coutdate,cstatue from cma nage wher

27、e croom= & Comma nd1(l ndex).Capti on & ，覷x3C.Comma nd1(l ndex).Capti on 為當前按下的要查詢的房間按鈕的名稱入住登記和預定房間說明：點”登記,系統(tǒng)自動在roomlogin 表中rstatue=空閑的房間名字添加到房間的下拉列表中，供客戶選擇房間，用戶可以選擇”現(xiàn)開/預定”當用戶選擇下拉列表中的一個房間時，系統(tǒng)自動將roomlogin中該房間的標準類型，價格自動加載顯示，房間狀況一目了然。其他用戶自定義完整 性約束都通過對控件的屬性設(shè)置來完成，當用戶輸入數(shù)據(jù)破壞完整性時，系統(tǒng)會發(fā)出警告，以保持 數(shù)據(jù)庫的完整性C：馬HUT53

28、3 調(diào)房，住宿、退宿查詢說明：通過入口可以打開窗體。當客戶需要調(diào)整房間時，點登記后，系統(tǒng)自動加載已入住客戶的房 間和空閑的房間，當用戶選擇要調(diào)房的客戶時，系統(tǒng)自動加載客戶的信息。選擇目標房間時候，系 統(tǒng)自動加載房間信息。用戶確定調(diào)房后，系統(tǒng)修改數(shù)據(jù)庫：原房間狀態(tài)改為空閑，目標房間改為入 住。原住房產(chǎn)生的費用將加在新入住房間上，而提醒表中原房間改為現(xiàn)房間。因而需要修改三個表:Cmanage,roomlogin,reminder.而查詢?nèi)胱⌒畔⒌那度?sql語句為：selectumber,c name,cictype,cic nu m,csex,caddress,ctel,cmember,croo

29、m,ctype,cprice,c in date,coutdate,cstatue from cma nage,其他查詢語句雷同，此后不在贅述。在文本框里輸入要查詢的，MSFIexGrid空間將會顯示查詢結(jié)果，嵌入的查詢語句為：selectumber,cn ame,cictype,cicnum ,csex,caddress,ctel,cmember,croom,ctype,cprice,c in dat e,coutdate,cstatue from cma nage whereame like & Text1.Text & *-金月芹當）*b.|站軽單二|豈收人Sfrlfl|艸桿許麗1-JT

30、1吩闔子b4Oi去iL=L說明：追加押金窗體系統(tǒng)自動加載已入住客戶，當用戶選擇客戶時候，系統(tǒng)自動加載客戶信息， 用戶添加押金后，保存時系統(tǒng)對cmanage表進行修改，保存數(shù)據(jù)；結(jié)帳窗體。系統(tǒng)自動加載已入住還沒退房的房間號，用戶選擇要退房的房間號，系統(tǒng)加載客戶信息以需付款和明細供核對，確定結(jié) 帳后，系統(tǒng)將對 cmanage表，smanage, reminder , roomlogin進行修改，以保持數(shù)據(jù)庫的參照完整性。如果是掛帳，用戶可以選擇掛帳，在客戶結(jié)帳的時候，調(diào)出掛帳結(jié)帳窗體，系統(tǒng)自動加載掛帳的單位，用戶選擇掛帳單位，系統(tǒng)自動加載需還金額。掛帳結(jié)帳只對sma nage表操作。而日報表顯示s

31、mange里的信息，提供按日期查找的方法， 打印當天的帳務(wù)明細。查詢的嵌入sql語句為：selectsreas on,sin, sout,ssum,sdate,sma n, scomp,suserfrom sma nage where sdate =# &DTPickerl.Value & #。在該處開始一直調(diào)試不出，后來發(fā)現(xiàn)在sql語句中對日期要加#來格式說明是日期型的。報修和維修說明：打開該窗體，左邊有一組option選項。當選報修時候，系統(tǒng)自動加載空閑的房間號。如果為入住的房間報修，則需先調(diào)房退房后才能報修，總不能讓客戶住在需維修的房間中吧。確定報修 后。系統(tǒng)將在 reminder表中增

32、加一條需提醒事項，即需維修事項，傳遞房間號 和維修狀態(tài)reminder表做為關(guān)鍵字。在主窗體中便會有提示需要維修的房間，可以通過房態(tài)查詢，查看需要維 修的房間號。維修完后要進行登記，選擇登記后，系統(tǒng)加載當前狀態(tài)為維修的房間，記錄維修費用和維修員，確定后，系統(tǒng)將操作 roomlogin 和reminder表，保持數(shù)據(jù)庫系統(tǒng)的參照完整性536添加用戶，添加員工，修改密碼說明：只有管理員，即超級用戶才能添加操作員和員工，但是普通擁護可以修改自己的密碼。添加操作員的代碼為：If Textl.Text And Text2.Text And Text2.Text = Puser.Fields(pwd) T

33、henIf Text3.Text The nPuser.EditPuser.Fields(pwd) = Text3.TextMsgBox (密碼修改成功，退出操作員密碼修改!)Puser.Updatemain.Enabled = TrueUnload MeElseMsgBox (請輸入新密碼!)End IfElseIf Text1.Text = ThenMsgBox （請輸入操作員!）Text1.SetFocusElseIf Text1.Text Puser.Fields（user） ThenText1.SetFocusText1.Text = MsgBox （ 無此操作員 , 請重新輸入 !

34、）End IfEnd IfIf Text2.Text = ThenMsgBox （ 請輸入操作員原密碼 !）Text2.SetFocusElseIf Text2.Text Puser.Fields（pwd） ThenMsgBox （ 原密碼錯誤 , 請重新輸入原密碼 !）Text2.SetFocusEnd IfEnd IfEnd If 這是才用 DAO 3.6 對象來對數(shù)據(jù)庫進行操作，這是另一種方法對數(shù)據(jù)庫操作cr = insert into pw values（ & text1.text& , & text2.text & ,0）mydb.Execute cr 這是直接用嵌入 sql 語句來

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

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

37、所有可能的情況，以及同同學老師等交流，總結(jié)并重新設(shè)計了數(shù)據(jù)庫，終于是能有一個比較好的效 果。通過將所有和客戶相關(guān)的財務(wù)信息都加到客戶信息里，避免了對多表的操作，避免了有可能會 出現(xiàn)的參照完整性不一致的問題。繼而是軟件的設(shè)計，由于對 vb 還是算比較熟悉，因而有了數(shù)據(jù)庫 的支撐，就得心應(yīng)手了?？紤]到用戶使用的方便性，軟件主界面提供了很多入口，以及直觀的圖形 顯示，方便用戶操作，因而也給客戶帶來方便，免去了客戶的很多等待時間，提升賓館的形象。同 時提供了兩套外觀，春天里這套外觀可以避免用戶的審美疲勞。整個程序完成了，又花了大量的時 間對其進行調(diào)試。通過白盒黑盒測試，程序能正常的顯示結(jié)果和準確報錯，

38、達到了單機運行的效果。 接著在不同機環(huán)境器上測試，有些控件因為沒有帶走，所以報錯，后來帶上控件后都能正常運行， 在 xp 和 win7 上都能正常運行。由于公司規(guī)模和業(yè)務(wù)量大，因而信息系統(tǒng)不可能只在單機上運行，所以才用C/S,或B/S結(jié)構(gòu)比較合適。因時間關(guān)系所以沒能完成，只預留了接口，供以后開發(fā)擴展用。當然這次課程設(shè)計因為 是數(shù)據(jù)庫的課程設(shè)計，重點在數(shù)據(jù)庫的設(shè)計，所以對于軟件體系結(jié)構(gòu)風格，沒有考慮，只求能達到 目的！在本次課程設(shè)計中，要感各位老師的指導，也要感提供意見和建議的同學，才得以大致完成該 設(shè)計。本欲來讓老師答辯的，但因個人原因，在答辯那天趕回家了，所以沒得完成最終的答辯。但 這不要緊

39、，編程最大的喜事莫過于完成所有程序的那一刻，雖然后續(xù)還有很多維護和修改任務(wù)，但 是心里突然輕松下來那一刻的心情是無與倫比的。再次感老師的指導！七、部分代碼7.1 模塊Public NowUser As String 當前用戶名Public nowpower As String 當前用戶權(quán)限Public mydb As DAO.Database 定義數(shù)據(jù)庫Public bgi As Integer 判斷背景風格Public Sub LoadAccess()Set mydb = DAO.OpenDatabase(App.Path & hotel.mdb)End SubPublic Sub bgro

40、und()If bgi = 1 Thenmain.Picture = = = = = Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: panel.resizemeElseIf bgi = 0 Then main.Picture = Nothing panel.Picture = = = = Not

41、hingUnload findEm: Unload findlogin: Unload 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獲取“變動”信息Private Dec

42、lare Function SendMessage 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.Text = Yea

43、r(Date) - Year(DTPicker1.Value)End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then 如果按下鼠標左鍵Dim ReturnVal As LongX = ReleaseCapture()ReturnVal = SendMessage(addEm.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End IfEnd SubPrivate Sub Form_

44、Load()LoadAccessSet Emp = mydb.OpenRecordset(select * from empl)Text1.Text = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time)Text7.Text = Year(Date) - Year(DTPicker1.Value)End SubPrivateSubCommand1_Click()=! 缺少判斷員工號是否存在的信息If Text1.Text = Or Text2.Text = Or Text4.Text = Thenmsg$ = Msg

45、Box( 請確認 員工號、員工、職務(wù) 已經(jīng)輸入 , 48, Error) ElseEmp.AddNewEmp.Fields(emid) = Text1.TextEmp.Fields(ename) = Text2.TextEmp.Fields(esex) = Combo1.TextEmp.Fields(ejob) = Text4.TextEmp.Fields(eage) = Val(Text5.Text)Emp.Fields(etel) = Text6.TextEmp.Fields(ejtime) = DTPicker1.ValueEmp.Fields(ejage) = Text7.TextEm

46、p.Update 更新記錄Emp.Closemsg$ = MsgBox( 添加成功 , 64, Success!)Unload MeEnd IfEnd SubPrivate Sub 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 定義一個整型變量Di

47、m InLog As RecordsetDim 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 SubPrivate Sub Combo5_click()Label11.Caption = Combo

48、5.TextEnd SubPrivate Sub DTP3_Change()ZSDJ(6).Text = DTP3.Value - DTP1.ValueEnd SubPrivate Sub Form_Load()If bgi = 1 Then Me.Picture = If bgi = 0 Then Me.Picture = Nothing初始化日期及時間DTP1.Value = Date: DTP2.Value = Date: DTP3.Value = Date czy.Text = NowUser 賦值給 czyLoadAccessEnd SubPrivate Sub Form_Unloa

49、d(Cancel As Integer) main.Enabled = True 設(shè)置主窗體有效End SubPrivate Sub Combo2_Click()設(shè)置 ZSDJ(8) 有效 獲得焦點設(shè)置 ZSDJ(8) 有效If Combo2.Text = 折扣 ThenZSDJ(8).Enabled = True ZSDJ(8).SetFocus ZSDJ(8)End IfIf Combo2.Text = 招待 ThenZSDJ(8).Enabled = True ZSDJ(8).Text = 0賦值給 ZSDJ(8)End IfEnd SubPrivate Sub ZSDJ_Change(

50、Index As Integer) Select Case IndexCase 6ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), 0.00) 計算折 前宿費ZSDJ(9).Text = ZSDJ(7).Text 賦值給 ZSDJ(9)ZSDJ(8).Text = 100DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) 計算退宿日期Case 8ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, 0.00)

51、 計算實際宿費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) 計算 提醒日期End IfEnd SelectEnd SubPrivate Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)Select Case IndexCase 0按回車鍵Combol獲

52、得焦點按回車鍵ZSDJ(2)獲得焦點If KeyCode = vbKeyReturn Then Combo1.SetFocusCase 1If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocusCase 2If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 按回車鍵 ZSDJ(3) 獲得焦點 Case 3If KeyCode = vbKeyReturn Then DBCombo1.SetFocus 按回車鍵 ZSDJ(2) 獲得焦點 Case 4If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 按回車鍵 ZSDJ(5) 獲得焦點 Case 5If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 按回車鍵 ZSDJ(6) 獲得焦點 Case 6If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocusCase 8If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 按回車鍵 ZSDJ(10) 獲得焦點 Case 10If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus ZSDJ(11)