【正文】 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus’回車鍵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 DTP2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵tim3獲得焦點(diǎn)End SubPrivate Sub DTP3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵tim4獲得焦點(diǎn)End SubPrivate Sub tim3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵DTP3獲得焦點(diǎn)End SubPrivate Sub tim4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車鍵Text10獲得焦點(diǎn)End SubPrivate Sub DBCombo1_Change() = select * from kf where 房間號(hào)=39。 amp。 amp。 39。and 房態(tài)=39?？辗?9。39。查詢空閑房間信息 = select * from djb where 房間號(hào)=39。 amp。 amp。 39。and 標(biāo)志=39。139。39。查詢住宿登記信息 If 0 Then If = 0 Then ZSDJ(4).Text = (房間類型) 39。賦值給ZSDJ(4) ZSDJ(5).Text = (價(jià)格) 39。賦值給ZSDJ(5) Else MsgBox (此房間已占用或停止使用!!) End If End IfEnd SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。ZSDJ(5)獲得焦點(diǎn)End Sub 單擊“登記”按鈕，將自動(dòng)生成憑證號(hào)碼。憑證號(hào)碼由系統(tǒng)日期、字母+d。、三位數(shù)字編碼組成。首先查詢djb表中的信息，將記錄移到最后一條，假如無記錄，憑證號(hào)碼等于系統(tǒng)日期、字母“d”、“001”的組合；假如有記錄，憑證號(hào)碼等于系統(tǒng)日期、字母“d、三位數(shù)字編碼加1的組合。具體代碼如下：Private Sub dj_Click()39。查詢空閑房間信息 = select * from kf where 房態(tài)=39。空房39。 = select * from kf where 房態(tài)=39?？辗?9。39。生成憑證號(hào)碼 = select * from djb order by 憑證號(hào)碼If Not Then If = Then = Date amp。 d amp。 Format(1, 000)If Then = Month(Date) = Month(Left(, 10)) If = Then = Date amp。 d amp。 Format(Val(Right(, 3)) + 1, 000) End If If Then = Date amp。 d amp。 Format(1, 000) End IfEnd If39。清空數(shù)據(jù)For i = 0 To 6 ZSDJ(i).Text = ZSDJ(i).Enabled = TrueNext i ZSDJ(8).Text = : ZSDJ(10).Text = : ZSDJ(11).Text = : = : = 39。設(shè)置控件有效或無效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: ZSDJ(11).Enabled = True: = True: = True = True: ZSDJ(0).SetFocus 39。ZSDJ(0)獲得焦點(diǎn)End Sub 單擊“確定”按鈕，“1”的住宿登記信息，假如無記錄將添加新記錄到djb表中、添加新記錄到djys表中；，將房間狀態(tài)更新為“入住”狀態(tài)。代碼如下：Private Sub ok_Click() Dim mydb1 As Database Dim myrs1 As Recordset Set mydb1 = Workspaces(0).OpenDatabase( amp。 \) Set myrs1 = (djys, dbOpenTable) 房間號(hào) like + Chr(34) + + Chr(34) + and 標(biāo)志 like + Chr(34) + 1 + Chr(34) + If Then 39。添加住宿信息 If Then (憑證號(hào)碼) = If ZSDJ(0).Text Then (姓名) = ZSDJ(0).Text If Then (證件名稱) = If ZSDJ(1).Text Then (證件號(hào)碼) = ZSDJ(1).Text If ZSDJ(2).Text Then (詳細(xì)地址) = ZSDJ(2).Text If ZSDJ(3).Text Then (出差事由) = ZSDJ(3).Text If Then (房間號(hào)) = Val() If ZSDJ(4).Text Then (客房類型) = ZSDJ(4).Text If Then (住宿日期) = If Then (住宿時(shí)間) = If ZSDJ(5).Text Then (客房價(jià)格) = Val(ZSDJ(5).Text) If ZSDJ(6).Text Then (住宿天數(shù)) = ZSDJ(6).Text If ZSDJ(8).Text Then (折扣) = ZSDJ(8).Text If ZSDJ(7).Text Then (宿費(fèi)) = ZSDJ(7).Text If Then (結(jié)款方式) = If ZSDJ(9).Text Then (應(yīng)收宿費(fèi)) = ZSDJ(9).Text If ZSDJ(10).Text Then (預(yù)收金額) = Val(ZSDJ(10).Text) If Then (提醒日期) = If Then (提醒時(shí)間) = If Then (退宿日期) = If Then (退宿時(shí)間) = If ZSDJ(11).Text Then (備注) = ZSDJ(11).Text (日期) = Date (時(shí)間) = Time 39。(BZ) = Left(Date, 4) amp。 Right(Left(Date, 7), 2) amp。 Right(Date, 2) amp。 Left(Time, 2) amp。 Left(Right(Time, 5), 2) (標(biāo)志) = 1 39。更新記錄 39。添加住宿預(yù)收信息 If Then (憑證號(hào)碼) = If ZSDJ(0).Text Then (姓名) = ZSDJ(0).Text If Then (證件名稱) = If ZSDJ(1).Text Then (證件號(hào)碼) = ZSDJ(1).Text If ZSDJ(2).Text Then (詳細(xì)地址) = ZSDJ(2).Text If ZSDJ(3).Text Then (出差事由) = ZSDJ(3).Text If Then (房間號(hào)) = Val() If ZSDJ(5).Text Then (客房價(jià)格) = Val(ZSDJ(5).Text) If Then (住宿日期) = If Then (住宿時(shí)間) = If ZSDJ(6).Text Then (住宿天數(shù)) = ZSDJ(6).Text If Then (結(jié)款方式) = If ZSDJ(8).Text Then (折扣) = ZSDJ(8).Text If ZSDJ(7).Text Then (宿費(fèi)) = ZSDJ(7).Text If ZSDJ(9).Text Then (應(yīng)收宿費(fèi)) = ZSDJ(9).Text If ZSDJ(10).Text Then (預(yù)收金額) = Val(ZSDJ(10).Text) If Then (提醒日期) = If Then (提醒時(shí)間) = If Then (退宿日期) = If Then (退宿時(shí)間) = If ZSDJ(11).Text Then (備注) = ZSDJ(11).Text (日期) = Date (時(shí)間) = Time 39。(BZ) = Left(Date, 4) amp。 Right(Left(Date, 7), 2) amp。 Right(Date, 2) amp。 Left(Time, 2) amp。 Left(Right(Time, 5), 2) (標(biāo)志) = 1 39。更新記錄 39。更新房間狀態(tài) 房間號(hào) like + Chr(34) + + Chr(34) + (房態(tài)) = 入住 39。設(shè)置控件有效或無效 For i = 0 To 6 ZSDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False = False: = False End If = False: = True: = True End SubPrivate Sub cancel_Click() 39。取消操作 For i = 0 To 11 ZSDJ(i).Enabled = False Next i = False: = False: = False = False: = False: = False: = False = False: = False: = TrueEnd Sub使用Printer對(duì)象打印住宿登記單。Printer返回一個(gè)打印對(duì)象，允許與一個(gè)系統(tǒng)打印機(jī)進(jìn)行通信。PrinterNewPage打印新的一頁；；；, ；。具體代碼如下： Private Sub print_Click() 39。打印住宿登記單據(jù) = 8000: = 8000 = 1100: = 300 = 12 望月賓館 (住宿證) Dim A, B, C, D As Integer A = 100: B = 500: C = 4800: D = 400 = 10 = 100 + A = B + 200 Date amp。 amp。 Time amp。 NO. amp。 B = B + D (A, B + 100)(C, B + 100) = 100 + A = B + 200 姓名： amp。 ZSDJ(0).Text B = B + D = 100 + A = B + 200 房間號(hào): amp。 B = B + D = 100 + A = B + 200 押金: amp。 Format(ZSDJ(10).Text, ) B = B + D = 100 + A = B + 200 amp。 : amp。 ZSDJ(8).Text amp。 % B = B + D = 100 + A = B + 200 補(bǔ)交日期: amp。 B = B + D (A, B + 100)(C, B + 100) = 100 + A = B + 200 操作員: amp。 amp。 歡迎光