【文章內(nèi)容簡介】 Source= amp。 amp。 \。Persist Security Info=False = select * from tb_kf where 房態(tài) = 39?？辗?9。 If 0 Then For i = 1 To (房間號).Value Next i確定按鈕代碼：If ZSDJ(0) = Or Combo3 = Then MsgBox 請輸入完整信息, , 系統(tǒng)提示 Else 39。查尋登記表中信息 = select * from tb_djb where 房間號 = 39。 amp。 amp。 39。 and 標(biāo)志 like 39。139。 If = 0 Then 39。將記錄保存在tb_djb中 If Then (憑證號碼) = If ZSDJ(0).text Then (姓名) = ZSDJ(0).text If Then (證件名稱) = If ZSDJ(1).text Then (證件號碼) = ZSDJ(1).text If ZSDJ(2).text Then (詳細(xì)地址) = ZSDJ(2).text If ZSDJ(3).text Then (住宿事由) = ZSDJ(3).text If Then (房間號) = Val() If ZSDJ(4).text Then (客房類型) = ZSDJ(4).text If Then (住宿日期) = If Then (住宿時間) = If ZSDJ(5).text Then (客房價格) = 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 (提醒時間) = If Then (退宿日期) = If Then (退宿時間) = If ZSDJ(11).text Then (備注) = ZSDJ(11).text (日期) = Fdate 39?！叭掌凇北４鏋楫?dāng)前系統(tǒng)日期 (時間) = Ftime 39?！皶r間”保存為當(dāng)前系統(tǒng)時間 (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 (憑證號碼) = If ZSDJ(0).text Then (姓名) = ZSDJ(0).text If Then (證件名稱) = If ZSDJ(1).text Then (證件號碼) = 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 (房間號) = Val() If ZSDJ(5).text Then (客房價格) = Val(ZSDJ(5).text) If Then (住宿日期) = If Then (住宿時間) = 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 (提醒時間) = If Then (退宿日期) = If Then (退宿時間) = If ZSDJ(11).text Then (備注) = ZSDJ(11).text (日期) = Fdate (時間) = Ftime (BZ) = Left(Fdate, 4) amp。 Right(Left(Fdate, 7), 2) amp。 Right(Fdate, 2) amp。 Left(Ftime, 2) amp。 Left(Right(Ftime, 5), 2) (標(biāo)志) = 1 39。更新記錄 39。更新房間狀態(tài) = select * from tb_kf where 房間號 like 39。 + + 39。 If Then (房態(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 住宿查詢運(yùn)行后的界面如下：退出命令菜單的代碼如下：Private Sub Command1_Click() Unload Me = TrueEnd Sub掛賬查詢的界面：代碼如下：Private Sub Form_Load() 39。自動識別數(shù)據(jù)庫路徑 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_gzmx Set = Adodc1 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select distinct 掛賬單位 from tb_gzmx If 0 Then For i = 1 To (掛賬單位).Value Next i End IfEnd Sub(1) 輸入操作員的代號和密碼：如下圖命令“確定”代碼如下：Private Sub Command1_Click() 39。修改操作員密碼 = select * from tb_qxsz where 操作員=39。 + + 39。 If 0 Then = (密碼) Else = MsgBox 不存在該操作員!, , 系統(tǒng)提示 Exit Sub End If If And And = (密碼) Then If Then Provider=。Data Source= amp。 amp。 \。Per