【正文】 39。 39。 Hour(Time) amp。 \)End SubPublic Sub bground()If bgi = 1 Then = = = = = Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: ElseIf bgi = 0 Then = Nothing = Nothing = Nothing = Nothing = NothingUnload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: End IfEnd IfEnd SubPrivate Declare Function ReleaseCapture Lib user32 () As Long 39。當(dāng)然這次課程設(shè)計因為是數(shù)據(jù)庫的課程設(shè)計，重點在數(shù)據(jù)庫的設(shè)計，所以對于軟件體系結(jié)構(gòu)風(fēng)格，沒有考慮，只求能達(dá)到目的！在本次課程設(shè)計中，要感謝各位老師的指導(dǎo)，也要感謝提供意見和建議的同學(xué)，才得以大致完成該設(shè)計。繼而是軟件的設(shè)計，由于對vb還是算比較熟悉，因而有了數(shù)據(jù)庫的支撐，就得心應(yīng)手了。 選定課題后，開始收集相關(guān)資料和設(shè)計軟件架構(gòu)。雖然其編寫的應(yīng)用程序在不同的機器上需要解釋器，需要隨帶很多ocx控件和其他，但是在編寫信息管理系統(tǒng)這方面還是很有優(yōu)勢的。 amp。系統(tǒng)將在reminder表中增加一條需提醒事項，即需維修事項，傳遞 房間號 和維修狀態(tài) 給 reminder表做為關(guān)鍵字。查詢的嵌入sql語句為：select sreason,sin,sout,ssum,sdate,sman,sp,suser from smanage where sdate = amp。 amp。的房間名字添加到 房間號碼的下拉列表中，供客戶選擇房間，用戶可以選擇現(xiàn)開/預(yù)定當(dāng)用戶選擇下拉列表中的一個房間時，系統(tǒng)自動將roomlogin中該房間的標(biāo)準(zhǔn)類型，價格自動加載顯示，房間狀況一目了然。直觀、方便。E:\39。Fix(Fid,fname,froom,fstatue,ffdate,fpay,fman,fuser)。 傳統(tǒng)的管理方法已經(jīng)不能適應(yīng)現(xiàn)代社會的需要，因此采用電腦管理業(yè)務(wù)、財務(wù)等諸多環(huán)節(jié)已成為推動賓館業(yè)迅速發(fā)展的先決條件，賓館客房管理信息系統(tǒng)是各大中小型賓館所需要使用的一個管理系統(tǒng)。目錄一. 系統(tǒng)需求分析 6 設(shè)計前調(diào)查 6 用戶需求分析 6 核心數(shù)據(jù)流圖 7 核心數(shù)據(jù)字典 8二、概念設(shè)計 9 局部ER圖 9 全局ER圖 10三、邏輯設(shè)計 11 開發(fā)環(huán)境 11： 11： 11四、創(chuàng)建數(shù)據(jù)庫 11五、程序以及調(diào)試和使用說明 12 12 主面板 13 14 14 入住登記和預(yù)定房間 14 調(diào)房，住宿、退宿查詢 15 掛帳，結(jié)帳，日報表，追加押金 16 16，添加員工，修改密碼 17六、總結(jié) 18七、部分代碼 19 19 賓客入住 21計算機與通信學(xué)院課程設(shè)計評分表 26一. 系統(tǒng)需求分析 設(shè)計前調(diào)查 近年來，賓館業(yè)迅猛發(fā)展，市場的競爭日趨激烈，全面提高賓館的軟件管理水準(zhǔn)，已成為賓館業(yè)發(fā)展的當(dāng)務(wù)之急。設(shè)計報告一般要以固定規(guī)格的紙張（如A4）書寫或打印并裝訂，字跡及圖形要清楚，工整，規(guī)范。⒉ 選題要求在后面的課題表中列出了幾個設(shè)計課題，每個課題都有相應(yīng)的要求或說明。要求學(xué)生在本階段的設(shè)計中分兩步進(jìn)行：● 形成初始的關(guān)系模式。即根據(jù)需求分析的結(jié)果，抽取出與本課程設(shè)計相關(guān)的特性。學(xué)生應(yīng)該根據(jù)具體的課題，認(rèn)真分析有關(guān)的要求，確定本設(shè)計的信息需求。下面是各個設(shè)計階段的具體內(nèi)容。用戶對數(shù)據(jù)庫的需求包括：⑴ 處理需求。本課程設(shè)計要求學(xué)生在自己的設(shè)計中能反映出基本的安全性和完整性功能。● 設(shè)計全局概念模式。為了減少或消除關(guān)系模式中存在的數(shù)據(jù)冗余和操作異常，根據(jù)設(shè)計所要求的規(guī)范級別，按照本課程所學(xué)知識，逐一分析各個關(guān)系模式是否滿足規(guī)定的范式。若學(xué)生對課題表以外的相關(guān)課題較感興趣，希望選作課程設(shè)計的課題時，應(yīng)征得指導(dǎo)教師的認(rèn)可，并寫出明確的設(shè)計要求和說明。⑶ 總結(jié)⑷ 驗收情況二、進(jìn)度安排第三周 星期二 8：00——12：00 星期三 8：00——12：00 星期四 8：00——12：00第四周 星期二 8：00——12：00 星期三 8：00——12：00 星期四 8：00——12：00附：課程設(shè)計報告裝訂順序：封面、任務(wù)書、目錄、正文、評分、附件（A4大小的圖紙及程序清單）。像沿海城市三星級以上賓館引進(jìn)外方管理，使小部分賓館管理水準(zhǔn)幾乎接近或達(dá)到國際水平。因而程序需要實現(xiàn)的功能有如下主要六大功能：一、 客房管理：客房登記，入住情況查詢，客房狀態(tài)查看。Reminder(remid,remname,remdate,remtype,remstatue,remuser)。,size=2mb,maxsize=5mb,filegrowth=1mb)go 2)創(chuàng)建PW用戶表 use hotel go create table pw (user char (12) not null primary key, Pwd char(8) not null, Power char(1) not null ) go 3)創(chuàng)建客房登記表RoomLogin create table roomlogin (rid char (12) 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,) go 4)同上創(chuàng)建提醒表Reminder、物品表Gmanage、維修表fix、員工表Empl、帳務(wù)表Smanage、客戶如住表Cmanage五、程序以及調(diào)試和使用說明 [說明：進(jìn)入登陸界面后，系統(tǒng)會自動加載已有的用戶，讓用戶選擇自己的帳戶進(jìn)行登陸，密碼 輸入三次后關(guān)閉窗口；用控件屬性設(shè)置來實現(xiàn)用戶定義的完整性：密碼最大長度為8。 amp。選擇目標(biāo)房間時候，系統(tǒng)自動加載房間信息。] 掛帳，結(jié)帳，日報表，追加押金[說明：，當(dāng)用戶選擇客戶號碼時候，系統(tǒng)自動加載客戶信息，用戶添加押金后，保存時系統(tǒng)對cmanage表進(jìn)行修改，保存數(shù)據(jù)；結(jié)帳窗體。在該處開始一直調(diào)試不出，后來發(fā)現(xiàn)在sql語句中對日期要加來格式說明是日期型的。添加操作員的代碼為： If And And = (pwd) Then If Then (pwd) = MsgBox (密碼修改成功,退出操作員密碼修改!) = True Unload Me Else MsgBox (請輸入新密碼!!) End If Else If = Then MsgBox (請輸入操作員!) Else If (user) Then = MsgBox (無此操作員,請重新輸入!) End If End If If = Then MsgBox (請輸入操作員原密碼!) Else If (pwd) Then MsgBox (原密碼錯誤,請重新輸入原密碼!) End If End If End If 這是才用 DAO ，這是另一種方法對數(shù)據(jù)庫操作cr = insert into pw values(39。 ,39。有豐富的api接口。運用相關(guān)的數(shù)據(jù)庫知識，設(shè)計好數(shù)據(jù)表，確定字段。整個程序完成了，又花了大量的時間對其進(jìn)行調(diào)試。再次感謝老師的指導(dǎo)！ 七、部分代碼 Public NowUser As String 39。HF010amp。缺少判斷員工號是否存在的信息If = Or = Or = Then msg$ = MsgBox(請確認(rèn) 員工號、員工姓名、職務(wù) 已經(jīng)輸入, 48, Error) Else(emid) = (ename) = (esex) = (ejob) = (eage) = Val()(etel) = (ejtime) = (ejage) = 39。賦值給czy LoadAccessEnd SubPrivate Sub Form_Unload(Cancel As Integer) = True 39。計算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, ) 39。按回車鍵ZSDJ(5)獲得焦點 Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 39?？臻e39。設(shè)置編號 ZSDJ(8).Text = : ZSDJ(10).Text = 39。) (Rstatue) = 入住 Set Remind = (select * from reminder) 39。顯示“打印”對