【導讀】設(shè)計，到數(shù)據(jù)庫實現(xiàn)等設(shè)計過程，最終實現(xiàn)一個較為完整的反映應(yīng)用需求的數(shù)據(jù)庫系統(tǒng)。設(shè)計中，要求學生應(yīng)該全面考慮各個設(shè)計環(huán)節(jié)以及它們之間的相互聯(lián)系。本階段應(yīng)該對整個應(yīng)用情況作全面的、詳細的。即用戶要完成什么處理功能等。學生在設(shè)計中應(yīng)根據(jù)具體的課題要求確定系統(tǒng)應(yīng)。⑶安全性和完整性功能。實踐中這是一個需要與用戶不斷交流才能逐步確定的需求。運用E-R方法，設(shè)計出系統(tǒng)的各個局部ER模型。通過對局部E-R模型的操作，解決各個E-R模型關(guān)于對象定義不一致問。題，以及對各個E-R模型進行合并優(yōu)化等，最終形成數(shù)據(jù)庫的全局概念模式。設(shè)計報告中進行詳細描述，應(yīng)該能夠反映該設(shè)計的正確性，作為本課程設(shè)計的驗收依據(jù)之一。將概念設(shè)計階段產(chǎn)生的全局概念模式轉(zhuǎn)換成初始的關(guān)系模。一般來說，選擇課題應(yīng)以在規(guī)定的時間內(nèi)能完成，并能得到。應(yīng)有的鍛煉為原則。若確因條件所限，必須要改變課題要求。時，應(yīng)在征得指導教師同意的前提下進行。正文總字數(shù)要求在5000字以上。

　　

【正文】 39。設(shè)置主窗體有效 End Sub Private Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).SetFocus 39。ZSDJ(8)獲得焦點 End If 第 21 頁 共 25 頁 If = 招待 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).Text = 0 39。賦值給 ZSDJ(8) End If End Sub Private Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), ) 39。計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 39。賦值給 ZSDJ(9) ZSDJ(8).Text = 100 = + Val(ZSDJ(6).Text) 39。計算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, ) 39。計算實際宿費 Case 10 If ZSDJ(10).Text Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 39。用 val 函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。計算提醒日期 End If End Select End Sub Private Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then 39。按回車鍵 Combo1 獲得焦點 Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 39。按回車鍵 ZSDJ(2)獲得焦點 Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。按回車鍵 ZSDJ(3)獲得焦點 Case 3 If KeyCode = vbKeyReturn Then 39。按回車鍵 ZSDJ(2)獲得焦點 Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車鍵 ZSDJ(5)獲得焦點 Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 39。按回車鍵 ZSDJ(6)獲得焦點 Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 39。按回車鍵 ZSDJ(10)獲得焦點 Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。ZSDJ(11)獲得焦點 Case 11 If KeyCode = vbKeyReturn Then 39。按回車鍵 Comok 獲得焦點 End Select 第 22 頁 共 25 頁 End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 39。按回車鍵 ZSDJ(1)獲得焦點 End Sub Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。ZSDJ(5)獲得焦點 End Sub Private Sub dj_Click() 39。查詢空閑房間信息 Set Room = (select * from roomlogin where rstatue=39?？臻e 39。) 39。On Error GoTo u = (rname) ZSDJ(4).Text = (rtype) ZSDJ(5).Text = (rprice) Set Room = (select * from roomlogin ) While Not If (rstatue) = 空閑 Then (rname) Wend = Year(Date) amp。 Month(Date) amp。 Day(Date) amp。 Hour(Time) amp。 Minute(Time) amp。 Second(Time) 39。設(shè)置編號 ZSDJ(8).Text = : ZSDJ(10).Text = 39。設(shè)置控件有效或無效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: = True: = True = True: ZSDJ(0).Enabled = True: ZSDJ(0).SetFocus = Exit Sub 39。u: h$ = MsgBox( 沒有空閑房間 , 客 房 已 滿 , 48, Error): = False: = False: = False: = True: = True End Sub Private Sub ok_Click() 39。===========================!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!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 第 23 頁 共 25 頁 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。添加住宿預(yù)收信息 Set Room = (select * from roomlogin where rname=39。 amp。 amp。 39。) (Rstatue) = 入住 Set Remind = (select * from reminder) 39。更新提醒表 (remname) = (remdate) = (remtype) = (remstatue) = 1 (remuser) = NowUser f$ = MsgBox(操作成功 , 64, Tips) 39。設(shè)置控件有效或無效 39。/////////////////////////////////////////////////////////////////////////////// ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False = False: = False: = False = False: = True: = True : ZSDJ(0).Enabled = False Else H$ = MsgBox(請確認姓名、證件號碼和入住人數(shù)都已經(jīng)填寫 , 48, Tips) End If End Sub Private Sub cancel_Click() 39。取消操作 For i = 0 To 11 第 24 頁 共 25 頁 ZSDJ(i).Enabled = False Next i = False: = False: = False = False: = False: = False: = False = True End Sub Private Sub print_Click() 39。打印住宿登記單據(jù) Dim BeginPage, EndPage, NumCopies, i 39。將 Cancel 設(shè)置成 True。 = True On Error GoTo ErrHandler 39。顯示“打印”對話框。 39。從對話框中獲取用戶選定數(shù)值。 BeginPage = EndPage = NumCopies = For i = 1 To NumCopies 39。在此放置代碼，將數(shù)據(jù)發(fā)送到打印機。 Next Exit Sub ErrHandler: 39。用戶按下了“取消”按鈕。 Exit Sub End Sub Private Sub end_Click() Unload Me = True End Sub 第 25 頁 共 25 頁 計算機與通信學院課程設(shè)計評分表 課題名稱：賓館客房信息管理系統(tǒng) 項 目 評 價 設(shè)計方案的合理性與創(chuàng)造性 設(shè)計與調(diào)試結(jié)果 設(shè)計說明書的質(zhì)量 答辯陳述與回答問題情況 課程設(shè)計周表現(xiàn)情況 綜合成績 教師簽名： 日 期：