【正文】 教師簽名： 日 期： 。 Next Exit SubErrHandler: 39。 39。打印住宿登記單據(jù) Dim BeginPage, EndPage, NumCopies, i 39。更新提醒表 (remname) = (remdate) = (remtype) = (remstatue) = 1 (remuser) = NowUser f$ = MsgBox(操作成功, 64, Tips) 39。 amp。設(shè)置控件有效或無(wú)效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: = True: = True = True: ZSDJ(0).Enabled = True: ZSDJ(0).SetFocus = Exit Sub39。 Hour(Time) amp。)39。按回車鍵ZSDJ(1)獲得焦點(diǎn)End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車鍵ZSDJ(6)獲得焦點(diǎn) Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。計(jì)算實(shí)際宿費(fèi) Case 10 If ZSDJ(10).Text Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 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), ) 39。設(shè)置主窗體有效End SubPrivate Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。 39。更新記錄msg$ = MsgBox(添加成功, 64, Success!)Unload MeEnd If End SubPrivate Sub Command2_Click() = : = : = = : = : = End SubPrivate Sub Command3_Click() = TrueUnload MeEnd Sub 賓客入住 Dim i As Integer 39。 Hour(Time) amp。Private Const HTCAPTION = 2Dim Emp As RecordsetPrivate Sub DTPicker1_Change() = Year(Date) Year()End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 39。 \)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)前用戶名Public nowpower As String 39。當(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ì)。通過白盒黑盒測(cè)試，程序能正常的顯示結(jié)果和準(zhǔn)確報(bào)錯(cuò)，達(dá)到了單機(jī)運(yùn)行的效果。繼而是軟件的設(shè)計(jì)，由于對(duì)vb還是算比較熟悉，因而有了數(shù)據(jù)庫(kù)的支撐，就得心應(yīng)手了。并通過模式分解，確定其是無(wú)損的連接。 選定課題后，開始收集相關(guān)資料和設(shè)計(jì)軟件架構(gòu)。（3）語(yǔ)言簡(jiǎn)單，實(shí)現(xiàn)功能很方便。雖然其編寫的應(yīng)用程序在不同的機(jī)器上需要解釋器，需要隨帶很多ocx控件和其他，但是在編寫信息管理系統(tǒng)這方面還是很有優(yōu)勢(shì)的。039。 amp。 amp。系統(tǒng)將在reminder表中增加一條需提醒事項(xiàng)，即需維修事項(xiàng)，傳遞 房間號(hào) 和維修狀態(tài) 給 reminder表做為關(guān)鍵字。 [說明:打開該窗體，左邊有一組option選項(xiàng)。查詢的嵌入sql語(yǔ)句為：select sreason,sin,sout,ssum,sdate,sman,sp,suser from smanage where sdate = amp。系統(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ù)的參照完整性。 amp。用戶確定調(diào)房后，系統(tǒng)修改數(shù)據(jù)庫(kù)：原房間狀態(tài)改為空閑，目標(biāo)房間改為入住。的房間名字添加到 房間號(hào)碼的下拉列表中，供客戶選擇房間，用戶可以選擇現(xiàn)開/預(yù)定當(dāng)用戶選擇下拉列表中的一個(gè)房間時(shí)，系統(tǒng)自動(dòng)將roomlogin中該房間的標(biāo)準(zhǔn)類型，價(jià)格自動(dòng)加載顯示，房間狀況一目了然。 Command1(Index).Caption amp。直觀、方便。用戶名錯(cuò)誤，或密碼錯(cuò)誤，系統(tǒng)都會(huì)對(duì)其進(jìn)行提醒，以達(dá)到正確輸入，本程序設(shè)置一超級(jí)用戶：admin，權(quán)限為1，其他用戶的權(quán)限均為0。E:\39。Smanage(Sid,sreason,sin,sout,ssum,sdate,sman,sp,suser)。Fix(Fid,fname,froom,fstatue,ffdate,fpay,fman,fuser)。二、 賓客入住管理：客房預(yù)定，登記入住，房間調(diào)整，退房結(jié)帳三、 物資管理：物品登記，物品查詢，報(bào)修和維修，定時(shí)提醒。 傳統(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)。但對(duì)占80%以上的廣大中小型賓館來(lái)說，是難以做到的。目錄一. 系統(tǒng)需求分析 6 設(shè)計(jì)前調(diào)查 6 用戶需求分析 6 核心數(shù)據(jù)流圖 7 核心數(shù)據(jù)字典 8二、概念設(shè)計(jì) 9 局部ER圖 9 全局ER圖 10三、邏輯設(shè)計(jì) 11 開發(fā)環(huán)境 11： 11： 11四、創(chuàng)建數(shù)據(jù)庫(kù) 11五、程序以及調(diào)試和使用說明 12 12 主面板 13 14 14 入住登記和預(yù)定房間 14 調(diào)房，住宿、退宿查詢 15 掛帳，結(jié)帳，日?qǐng)?bào)表，追加押金 16 16，添加員工，修改密碼 17六、總結(jié) 18七、部分代碼 19 19 賓客入住 21計(jì)算機(jī)與通信學(xué)院課程設(shè)計(jì)評(píng)分表 26一. 系統(tǒng)需求分析 設(shè)計(jì)前調(diào)查 近年來(lái)，賓館業(yè)迅猛發(fā)展，市場(chǎng)的競(jìng)爭(zhēng)日趨激烈，全面提高賓館的軟件管理水準(zhǔn)，已成為賓館業(yè)發(fā)展的當(dāng)務(wù)之急。 正文的格式:一級(jí)標(biāo)題用3號(hào)黑體,二級(jí)標(biāo)題用四號(hào)宋體加粗,正文用小四號(hào)宋體。設(shè)計(jì)報(bào)告一般要以固定規(guī)格的紙張（如A4）書寫或打印并裝訂，字跡及圖形要清楚，工整，規(guī)范。 人事管理系統(tǒng)設(shè)計(jì)時(shí)要嚴(yán)格按照題意要求進(jìn)行設(shè)計(jì)，不能隨意更改。⒉ 選題要求在后面的課題表中列出了幾個(gè)設(shè)計(jì)課題，每個(gè)課題都有相應(yīng)的要求或說明。在課程設(shè)計(jì)報(bào)告中應(yīng)該提供本設(shè)計(jì)階段的相關(guān)內(nèi)容，作為本課程設(shè)計(jì)的驗(yàn)收依據(jù)之一。要求學(xué)生在本階段的設(shè)計(jì)中分兩步進(jìn)行：● 形成初始的關(guān)系模式。通過對(duì)局部ER模型的操作，解決各個(gè)ER模型關(guān)于對(duì)象定義不一致問題，以及對(duì)各個(gè)ER模型進(jìn)行合并優(yōu)化等，最終形成數(shù)據(jù)庫(kù)的全局概念模式。即根據(jù)需求分析的結(jié)果，抽取出與本課程設(shè)計(jì)相關(guān)的特性。 本階段的設(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)收依據(jù)之一。學(xué)生應(yīng)該根據(jù)具體的課題，認(rèn)真分析有關(guān)的要求，確定本設(shè)計(jì)的信息需求。即用戶要完成什么處理功能等。下面是各個(gè)設(shè)計(jì)