【正文】 1 m [全局ER圖]三、邏輯設(shè)計(jì) 開發(fā)環(huán)境 開發(fā)語(yǔ)言:Visual Basic 開發(fā)平臺(tái)：windows xp,1G內(nèi)存，集成顯卡。因此，欲在競(jìng)爭(zhēng)中甩開對(duì)手，取得優(yōu)勢(shì)，必須在經(jīng)營(yíng)、管理、產(chǎn)品、服務(wù)等方面具備獨(dú)到之處。行距為22。 倉(cāng)庫(kù)管理系統(tǒng)學(xué)生管理系統(tǒng)若確因條件所限，必須要改變課題要求時(shí)，應(yīng)在征得指導(dǎo)教師同意的前提下進(jìn)行。⒋ 創(chuàng)建數(shù)據(jù)庫(kù)在某一數(shù)據(jù)庫(kù)管理系統(tǒng)環(huán)境中創(chuàng)建數(shù)據(jù)庫(kù)，根據(jù)需要也可建立相關(guān)數(shù)據(jù)視圖和存儲(chǔ)過(guò)程。本階段的設(shè)計(jì)結(jié)果（局部和全局ER圖、具體數(shù)據(jù)庫(kù)設(shè)計(jì)工具中概念結(jié)構(gòu)設(shè)計(jì)圖）應(yīng)該在課程設(shè)計(jì)報(bào)告中進(jìn)行詳細(xì)描述，應(yīng)該能夠反映該設(shè)計(jì)的正確性，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。⒉ 數(shù)據(jù)庫(kù)的概念設(shè)計(jì)數(shù)據(jù)庫(kù)的概念設(shè)計(jì)是在需求分析的基礎(chǔ)上，利用與用戶雙方都能理解的形式，設(shè)計(jì)出數(shù)據(jù)庫(kù)的概念模型。學(xué)生在設(shè)計(jì)中應(yīng)根據(jù)具體的課題要求確定系統(tǒng)應(yīng)該實(shí)現(xiàn)的功能，一些基本的功能通常是必須具備的，如用戶的管理與維護(hù)，基本數(shù)據(jù)的維護(hù)，靈活的信息查詢等。課 程 設(shè) 計(jì) 報(bào) 告課程名稱 數(shù)據(jù)庫(kù)原理課程設(shè)計(jì) 課題名稱 賓館客房信息管理系統(tǒng) 專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù) 班 級(jí) 08計(jì)算機(jī)03班 學(xué) 號(hào) 35號(hào) 姓 名 曾彬 指導(dǎo)教師 張鐵楠 譚小蘭 2011年 3 月 18 日26 / 28湖南工程學(xué)院課 程 設(shè) 計(jì) 任 務(wù) 書課程名稱 數(shù)據(jù)庫(kù)原理課程設(shè)計(jì) 課 題 賓館客房信息管理系統(tǒng) 專業(yè)班級(jí) 08計(jì)算機(jī)03班 學(xué)生姓名 曾彬 學(xué) 號(hào) 35 指導(dǎo)老師 張鐵楠 譚小蘭 審 批 任務(wù)書下達(dá)日期 2011 年 3 月 4 日任務(wù)完成日期 2011年 3 月 18 日一、設(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ì)具體的問(wèn)題，完成從系統(tǒng)的需求分析、數(shù)據(jù)庫(kù)的概念設(shè)計(jì)、數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)，到數(shù)據(jù)庫(kù)實(shí)現(xiàn)等設(shè)計(jì)過(guò)程，最終實(shí)現(xiàn)一個(gè)較為完整的反映應(yīng)用需求的數(shù)據(jù)庫(kù)系統(tǒng)。⑵ 信息需求。本課程設(shè)計(jì)要求學(xué)生采用ER方法進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì)。⒊ 數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)的目的是將概念設(shè)計(jì)階段設(shè)計(jì)好的ER圖轉(zhuǎn)換成與具體機(jī)器上的DBMS（如Oracle）所支持的數(shù)據(jù)模型（如關(guān)系模型）相符合的邏輯結(jié)構(gòu)。在課程設(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ù)之一。3．參考選題 機(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ì)(自己選題需經(jīng)指導(dǎo)教師認(rèn)可).課程設(shè)計(jì)的設(shè)計(jì)報(bào)告是學(xué)生對(duì)本次課程設(shè)計(jì)的全面總結(jié)，應(yīng)該反映每個(gè)設(shè)計(jì)階段的設(shè)計(jì)思路和設(shè)計(jì)內(nèi)容。正文的內(nèi)容:一、課題的主要功能；二、課題的功能模塊的劃分（要求畫出模塊圖）；三、主要功能的實(shí)現(xiàn)（至少要有一個(gè)主要模塊的流程圖）；四、程序調(diào)試；五、總結(jié)；六、附件（所有程序的原代碼，要求對(duì)程序?qū)懗霰匾淖⑨專?。而?duì)賓館的經(jīng)營(yíng)狀況起決定作用的是客房的管理。 開發(fā)工具：Visual Basic ,SQL Server 2000,Access 2003 關(guān)系模式形成以及規(guī)范 ：PW(user,pwd,power)。 ：1） 各分量都是不可分割的數(shù)據(jù)項(xiàng)。實(shí)現(xiàn)了所有要求的功能] [說(shuō)明：提供兩種風(fēng)格供用戶選擇。Command1(Index).Caption為當(dāng)前按下的要查詢的房間按鈕的名稱] 入住登記和預(yù)定房間 [說(shuō)明：點(diǎn)登記,系統(tǒng)自動(dòng)在 roomlogin表中rstatue=39。因而需要修改三個(gè)表：Cmanage,roomlogin,:select umber,ame,cictype,cium,csex,caddress,ctel,cmember,croom,ctype,cprice,cindate,coutdate,cstatue from cmanage,其他查詢語(yǔ)句雷同，此后不在贅述。掛帳結(jié)帳只對(duì)smanage表操作。如果為入住的房間報(bào)修，則需先調(diào)房退房后才能報(bào)修，總不能讓客戶住在需維修的房間中吧。 39。兩種效果都一樣]六、總結(jié) 兩周的日日夜夜的奮戰(zhàn)，終于達(dá)到了預(yù)定的效果，完成了該信息系統(tǒng)的設(shè)計(jì)和程序編寫。所以很自然選擇了VB語(yǔ)言。因而數(shù)據(jù)庫(kù)的設(shè)計(jì)尤為重要，但是在設(shè)計(jì)之初，往往會(huì)有很多情況不能考慮周全，再加之一個(gè)人編寫，所以進(jìn)度一度很慢，后來(lái)通過(guò)列出所有可能的情況，以及同同學(xué)老師等交流，總結(jié)并重新設(shè)計(jì)了數(shù)據(jù)庫(kù)，終于是能有一個(gè)比較好的效果。由于公司規(guī)模和業(yè)務(wù)量大，因而信息系統(tǒng)不可能只在單機(jī)上運(yùn)行，所以才用C/S，或B/S結(jié)構(gòu)比較合適。定義數(shù)據(jù)庫(kù)Public bgi As Integer 39。 Month(Date) amp。 amp。ZSDJ(8)獲得焦點(diǎn) End If If = 招待 Then ZSDJ(8).Enabled = True 39。計(jì)算提醒日期 End If End SelectEnd SubPrivate Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then 39。ZSDJ(11)獲得焦點(diǎn) Case 11 If KeyCode = vbKeyReturn Then 39。 Month(Date) amp。===========================!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11 Set InLog = (select * from cmanage) If ZSDJ(0).Text And ZSDJ(1).Text And And ZSDJ(6).Text Then If Then (umber) = If ZSDJ(0).Text Then (ame) = ZSDJ(0).Text If Then (cictype) = If ZSDJ(1).Text Then (cium) = ZSDJ(1).Text If ZSDJ(2).Text Then (caddress) = ZSDJ(2).Text If Then (ctel) = If Then (croom) = If Then (cintype) = If Then (csex) = If Then (cmember) = If ZSDJ(4).Text Then (ctype) = ZSDJ(4).Text If Then (cindate) = If ZSDJ(5).Text Then (cprice) = Val(ZSDJ(5).Text) If ZSDJ(9).Text Then (cmshould) = ZSDJ(9).Text If ZSDJ(10).Text Then (cya) = Val(ZSDJ(10).Text) If Then (coutdate) = (cstatue) = 1 39。/////////////////////////////////////////////////////////////////////////////// ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False = False: = False: = False = False: = True: = True : ZSDJ(0).Enabled = False Else H$ = MsgBox(請(qǐng)確認(rèn)姓名、證件號(hào)碼和入住人數(shù)都已經(jīng)填寫, 48, Tips) End IfEnd SubPrivate Sub cancel_Click() 39。 BeginPage = EndPage = NumCopies = For i = 1 To NumCopies 39。 Next Exit SubErrHandler: 39。打印住宿登記單據(jù) Dim BeginPage, EndPage, NumCopies, i 39。 amp。 Hour(Time) amp。按回車鍵ZSDJ(1)獲得焦點(diǎn)End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。賦值給ZSDJ(8) End IfEnd SubPrivate Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), )