【正文】 (ZSDJ(8).Text) / 100, ) 39。計(jì)算實(shí)際宿費(fèi) 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。計(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。按回車鍵Combo1獲得焦點(diǎn) Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。按回車鍵ZSDJ(3)獲得焦點(diǎn) Case 3 If KeyCode = vbKeyReturn Then 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車鍵ZSDJ(5)獲得焦點(diǎn) Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).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(10)獲得焦點(diǎn) Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。ZSDJ(11)獲得焦點(diǎn) Case 11 If KeyCode = vbKeyReturn Then 39。按回車鍵Comok獲得焦點(diǎn) End SelectEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 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(5)獲得焦點(diǎn)End SubPrivate Sub dj_Click()39。查詢空閑房間信息Set Room = (select * from roomlogin where rstatue=39?？臻e39。)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è)置編號(hào) ZSDJ(8).Text = : ZSDJ(10).Text = 39。設(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。u: h$ = MsgBox(沒(méi)有空閑房間,客房已滿, 48, Error): = False: = False: = False: = True: = True End SubPrivate 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 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è)置控件有效或無(wú)效 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。取消操作 For i = 0 To 11 ZSDJ(i).Enabled = False Next i = False: = False: = False = False: = False: = False: = False = TrueEnd SubPrivate Sub print_Click() 39。打印住宿登記單據(jù) Dim BeginPage, EndPage, NumCopies, i 39。將 Cancel 設(shè)置成 True。 = True On Error GoTo ErrHandler 39。顯示“打印”對(duì)話框。 39。從對(duì)話框中獲取用戶選定數(shù)值。 BeginPage = EndPage = NumCopies = For i = 1 To NumCopies 39。在此放置代碼，將數(shù)據(jù)發(fā)送到打印機(jī)。 Next Exit SubErrHandler: 39。用戶按下了“取消”按鈕。 Exit SubEnd SubPrivate Sub end_Click() Unload Me = TrueEnd Sub計(jì)算機(jī)與通信學(xué)院課程設(shè)計(jì)評(píng)分表課題名稱：賓館客房信息管理系統(tǒng)項(xiàng) 目評(píng) 價(jià)設(shè)計(jì)方案的合理性與創(chuàng)造性設(shè)計(jì)與調(diào)試結(jié)果設(shè)計(jì)說(shuō)明書的質(zhì)量答辯陳述與回答問(wèn)題情況課程設(shè)計(jì)周表現(xiàn)情況綜合成績(jī) 教師簽名： 日 期：