【正文】 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 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 Combo3_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。查詢空閑房間信息 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài)=39?？辗?9。 39。查詢客房數(shù)據(jù)表 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_djb order by 憑證號(hào)碼 39。按憑證號(hào)碼排序數(shù)據(jù) If Not Then 39。移動(dòng)記錄集到最后一條記錄 If = Then = Fdate amp。 d amp。 Format(1, 000) 39。當(dāng)lsph值為空為憑證號(hào)碼文本框賦值 If Then 39。當(dāng)lsph值不空時(shí) = Month(Fdate) 39。把當(dāng)前月份賦給y1 = Month(Left(, 10)) 39。把lsph中的月份賦給y2 If = Then 39。如果y1文本框中內(nèi)容與y2相同 = Fdate amp。 d amp。 Format(Val(Right(, 3)) + 1, 000) 39。為憑證號(hào)碼文本框賦值 = Val(Right(, 3)) + 1 39。text1中存儲(chǔ)lsph文本框中后三位數(shù) End If If Then 39。如果y1文本框中內(nèi)容與y2不同 = Fdate amp。 d amp。 Format(1, 000) 39。為憑證號(hào)碼文本框賦值 End If End If 39。清空數(shù)據(jù) For i = 0 To 6 ZSDJ(i).text = ZSDJ(i).Enabled = True Next 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) = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) = 39?？辗?9。 If 0 Then For i = 1 To (房間號(hào)).Value Next i End IfEnd SubPrivate Sub ok_Click() If ZSDJ(0) = Or Combo3 = Then MsgBox 請(qǐng)輸入完整信息, , 系統(tǒng)提示 Else 39。查尋登記表中信息 = select * from tb_djb where 房間號(hào) = 39。 amp。 amp。 39。 and 標(biāo)志 like 39。139。 If = 0 Then 39。將記錄保存在tb_djb中 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 (客房?jī)r(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 (日期) = Fdate 39?！叭掌凇北４鏋楫?dāng)前系統(tǒng)日期 (時(shí)間) = Ftime 39?！皶r(shí)間”保存為當(dāng)前系統(tǒng)時(shí)間 (BZ) = Left(Fdate, 4) amp。 Right(Left(Fdate, 7), 2) amp。 Right(Fdate, 2) amp。 Left(Ftime, 2) amp。 Left(Right(Ftime, 5), 2) 39。計(jì)算“BZ”的值 (標(biāo)志) = 1 39?！皹?biāo)志”設(shè)置為“1” 39。更新記錄 39。添加住宿預(yù)收信息 Provider=。Data Source= amp。 amp。 \。Persist Security Info=False select * from tb_djys, adocon, adOpenKeyset, adLockOptimistic 39。打開tb_djys表 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 ZSDJ(4).text Then (客房類型) = ZSDJ(4).text If Then (房間號(hào)) = Val() If ZSDJ(5).text Then (客房?jī)r(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