【正文】 o1Boundcolumn 房間號(hào)提供數(shù)據(jù)選擇Combo1 List 身份證、軍官證、工作證 證件列表Combo2 List 折扣、招待、掛帳 付款方式列表3）程序代碼： Dim i As Integer 39。定義一個(gè)整型變量Private Sub Form_Load() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = amp。 \ = amp。 \ = amp。 \End SubPrivate Sub Form_Activate() = Date: = Time39。初始化日期及時(shí)間 = 12:00:00 PM: = Date: = Date = (4).Text 39。賦值給 czy 39。Comdj獲得焦點(diǎn)End SubPrivate Sub Form_Unload(Cancel As Integer) = True 39。設(shè)置主窗體有效End SubPrivate Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).SetFocus 39。ZSDJ(8)獲得焦點(diǎn) End If If = 招待 Then ZSDJ(8).Enabled = True 39。設(shè)置 ZSDJ(8)有效 ZSDJ(8).Text = 0 39。賦值給 ZSDJ(8) End IfEnd SubPrivate Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), ) 39。計(jì)算折前宿費(fèi) ZSDJ(9).Text = ZSDJ(7).Text 39。賦值給 ZSDJ(9) ZSDJ(8).Text = 100 = + Val(ZSDJ(6).Text) 39。計(jì)算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(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ì)算提醒日期 If (Val(ZSDJ(10).Text) Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) * Val(ZSDJ(5).Text) Then = 6:00:00 PM Else = 12:00:00 AM End If 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。按回車(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’回車(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 DTP2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵 tim3獲得焦點(diǎn)End SubPrivate Sub DTP3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵 tim4獲得焦點(diǎn)End SubPrivate Sub tim3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵 DTP3獲得焦點(diǎn)End SubPrivate Sub tim4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。按回車(chē)鍵 Text10獲得焦點(diǎn)End SubPrivate Sub DBCombo1_Change() = select * from kf where 房間號(hào) =39。 amp。 amp。 39。and 房態(tài)=39?？辗?9。39。查詢(xún)空閑房間信息 = select * from djb where 房間號(hào)=39。 amp。 amp。 39。and 標(biāo)志=39。139。39。查詢(xún)住宿登記信息 If 0 Then If = 0 Then ZSDJ(4).Text = (房間類(lèi)型) 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ù)字編碼組成。首先查詢(xún) djb 表中的信息，將記錄移到最后一條，假如無(wú)記錄，憑證號(hào)碼等于系統(tǒng)日期、字母“d” 、 “001”的組合；假如有記錄，憑證號(hào)碼等于系統(tǒng)日期、字母“d、三位數(shù)字編碼加 1 的組合。具體代碼如下：Private Sub dj_Click()39。查詢(xún)空閑房間信息 = select * from kf where 房態(tài)=39?？辗?9。 = select * from kf where 房態(tài)=39。空房39。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è)置控件有效或無(wú)效 = 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 單擊“確定”按鈕，將查找 djb 表中房間號(hào)符合 和標(biāo)志為“1”的住宿 登記信息，假如無(wú)記錄將添加新記錄到 djb 表中、添加新記錄到 djys 表中；查找 kf 表中房間號(hào)符合 的客房信息，將房間狀態(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 (證件名稱(chēng)) = 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 (客房類(lèi)型) = 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 (日期) = 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