【正文】 日期天數(shù) eDays=DatePart(“y”,txtItem(4)) If bYear=eYear Then aDays=eDaysbDays Else aDays=(eYearbYear1)*365+(365bDays)+eDays End If =aDays*Trim(cboItem(3))*Trim(txtItem(3))/100‘計算應交房費 amMount=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100 ‘更新數(shù)據(jù) Unload frmCheckout End If =”select*from booking where ammount’0’” End If End Sub 附：各模塊視圖 ”’” ‘顯示相關(guān)顧客信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not Then txtNO=mrcc!bookno txtItem(0)=mrcc!customname txtItem(1)=mrcc!customID txtItem(2)=mrcc!indate txtItem(3)=mrcc!discount txtItem(5)=mrcc!inmemo For intCount =0 To 3 txtItem(intCount).Enabled=False Next intCount End If End If End If Exit Sub End Sub Pri If IsDate(txtItem(4)) Then txtItem(4)=Format(txtItem(4),”yyyy mmdd”) Else MsgBox “入庫時間應輸入日期（ yyyymmyy） !”,vbOKOnly+vbExclamation,“警告 ” txtItem(4).SetFocus Exit Sub End If txtSQl=”select *from booking where bookno=’”amp?！盿nd putup”’y’” flagSedit=True End If End Sub Private Sub From_Load()‘添加訂房信息，載入窗體時把所有未預定的客房信息加入其中 Dim sSql As String Dim intCount As Integer =True Else MsgBox “沒有訂房信息 !” ,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp?！薄? End If End If If Trim(sQSql)=”” Then MsgBox “請設置查詢條件 !” ,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。Trim(Combo1(1)amp。””)=””Then sQSql=sQSqlamp。”’” ElseIf Trim(Combo1(1)amp。Tri m(Combo1(2)amp?！薄?””Then sQSql=sQSqlamp?！薄? ElseIf Trim(Combo1(1)amp。Trim(Combo1(2)amp?！薄?amp?！盿ndroomprice=’”amp?！薄? ””And Trim(Combo1(2)amp?！薄?amp。””=””Then sQSql=”roomprice=’”amp?！薄? ElseIf Trim(Combo1(1)amp。Trim(Combo1(2)amp?！薄?=””And Trim(Combo1(2 )amp。Trim(Combo1(2)amp?！薄?amp?！薄?”” Then sQSql=”roomprice=’”amp?！薄?=”” Then If Trim(Combo1(1)amp。””)amp。查詢訂房庫信息 具體實現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時，程序?qū)⒆詣蛹尤肟头糠N類和客房單價 Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select distinct typename from roomtype” ‘選擇所有客房種類 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(0).AddItem (0) Loop End If txtSQL=”select distinct price from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Combo1(1).AddItem (0) Combo1(2).AddItem (0) Loop End If End Sub Private Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”amp。修改訂房信息 查詢剩余客房信息 ”’” End If End If If Trim(sQSql)=”” Then MsgBox “請設置查詢條件！” ,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。Trim(Combo1amp。”’” Else sQSql=sQSqlamp。Trim(Combo1amp?！薄? End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。Trim(txtItem(0)amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作 Unload frmRoom =”select*from rooms” End If End If End If End Sub 刪除客房信息 Private Sub menuDeleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then If 1 Then‘判斷客房信息列表內(nèi)容是否為空 If MsgBox(“ 真的要刪除這條文件記錄么？ ”,vbOKCancel+vbExclamation, “警告 ”)=vbOK Then intCount=‘記載當前記錄位置 txtSQL=”delete from rooms where roomNO=‘ ”amp。Trim((intCount,1))amp?！薄?=”” Then (intCount+1)=Null Else (intCount+1)=Trim(txtItem(intCount)) End If Next intCount (4)=”” (5)=Trim(txtItem(3)) If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=”” Next intCount mblChange=False If flagRedit Then Unload frmRoom =”select*from rooms” ‘重新顯示數(shù)據(jù) End If ElseIf gintRmode=2 Then Unload Me If flagRedit Then Unload frmRoom End If =”select*from rooms” End If End Sub Trim(txtItem(0))amp。Trim(txtItem(0))amp?！薄?=”” Then Select Case intCount Case 0 sMeg=“客房編號” Case 1 sMeg=“客房 位置” End Select sMeg=sMegamp?！疤砑?” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0‘顯示記錄內(nèi)容 Else MsgBox “ 請先進行客房標準設 置 !”,vbOKOnly+vbExclamation, “警告 ” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設置 SQL 語句顯示當前選擇記 錄 If =False Then With mrcc txtItem(0)=.Fields(0) For i