【正文】 ubPrivate Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵Combo1獲得焦點(diǎn) Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 39。按回車(chē)鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。按回車(chē)鍵ZSDJ(3)獲得焦點(diǎn) Case 3 If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵ZSDJ(2)獲得焦點(diǎn) Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車(chē)鍵ZSDJ(5)獲得焦點(diǎn) Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 39。按回車(chē)鍵ZSDJ(6)獲得焦點(diǎn) Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 39。按回車(chē)鍵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。按回車(chē)鍵Comok獲得焦點(diǎn) End SelectEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 39。按回車(chē)鍵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。查詢(xún)空閑房間信息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)有空閑房間,客房已滿(mǎn), 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)填寫(xiě), 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ì)話(huà)框。 39。從對(duì)話(huà)框中獲取用戶(hù)選定數(shù)值。 BeginPage = EndPage = NumCopies = For i = 1 To NumCopies 39。在此放置代碼，將數(shù)據(jù)發(fā)送到打印機(jī)。 Next Exit SubErrHandler: 39。用戶(hù)按下了“取消”按鈕。 Exit SubEnd SubPrivate Sub end_Click() Unload Me = TrueEnd Sub參考文獻(xiàn)[1] 《SQLSERVER2005應(yīng)用》 劉晶編著，科學(xué)出版社[2] 《數(shù)據(jù)庫(kù)原理及應(yīng)用開(kāi)發(fā)教程》 王東清編著，科學(xué)出版社[3] 《VB開(kāi)發(fā)實(shí)例》 李明主編，南京大學(xué)出版社附錄：計(jì)算機(jī)與信息工程學(xué)院課程設(shè)計(jì)評(píng)分表課題名稱(chēng)：賓館客房信息管理系統(tǒng)項(xiàng) 目評(píng) 價(jià)設(shè)計(jì)方案的合理性與創(chuàng)造性設(shè)計(jì)與調(diào)試結(jié)果設(shè)計(jì)說(shuō)明書(shū)的質(zhì)量答辯陳述與回答問(wèn)題情況課程設(shè)計(jì)周表現(xiàn)情況綜合成績(jī)備注：一旦發(fā)現(xiàn)在網(wǎng)上抄襲等判0分 教師簽名： 日 期： 28 / 28