【正文】 rivate Sub From_Load()‘載入窗體時，自動添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp。“添加” 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 “請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設(shè)置SQL語句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) 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 Else MsgBox“請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” =False Exit Sub End If End With End If =amp?！靶薷摹? End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As Dim Msgtext As String For intCount=0 To 3 If Trim(TxtItem(intCount)amp?！薄?=”” Then Select Case intCount Case 0 sMeg=“客房編號” Case 1 sMeg=“客房位置” End Select sMeg=sMegamp。“不能為空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode=1 Then‘判斷是否有重復(fù)記錄 txtSQL=”select * from rooms where roomNO=‘”amp。Trim(txtItem(0))amp?！薄? Set mrc=ExecuteSQL(txtSQL,msgText) If =False Then MsgBox “已經(jīng)存在此客房編號的記錄！”,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If End If If gintRmode=2 Then ‘判斷是否處于修改狀態(tài) txtSQL=”delete from rooms where roomNO=‘”amp。Trim(txtItem(0))amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms”‘再加入新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) ‘為數(shù)據(jù)庫對象添加記錄 (0)=Trim(txtItem(0)) (1)=Trim(txtItem(0)) For intCount=1 To 2 If Trim(txtItem(intCount)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修改客房信息Private Sub menuModifyroom_Click()‘選擇修改房間信息，觸menuModifyroom的Click事件,程序判斷為修改狀態(tài)后，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫中 Dim intCount As Integer If flagRedit Then ‘判斷記錄窗體是否打開 If 1 Then‘判斷客房信息列表內(nèi)容是否為空 gintRmode=2‘設(shè)置為修改狀態(tài)　　　　 intCount=‘紀(jì)錄當(dāng)前記錄位置=”select*from rooms where roomNO=’”amp。Trim((intCount,1))amp。”’” Else Call menuAddroom_Click‘添加記錄　　　End If Else =”select*from rooms” End IfEnd 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=‘記載當(dāng)前記錄位置　　 txtSQL=”delete from rooms where roomNO=‘”amp。Trim((intCount,1)amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作　　　　　　　　Unload frmRoom =”select*from rooms” End If End If End If End Sub查詢客房信息Private Sub From_Load()‘載入窗體時，將自動加入所有記錄的入庫時間 Dim i As Integer Dim j As Integer Dim sSql As String 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 Trim((0)) Loop =0 Else MsgBox “請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,”警告” Exit Sub End If End SubPrivate Sub cmdOK_Click()‘設(shè)置完查詢內(nèi)容和方式后，單擊cmdOk按鈕查詢 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomNO=’”amp。Trim(txtItem(0)amp。””)amp。”’” End If If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。””)=”” Then sQSql=”roomtype=’”amp。Trim(Combo1amp?！薄?amp?！薄? Else sQSql=sQSqlamp?！盿nd roomtype=’”amp。Trim(Combo1amp?！薄?amp?！薄? End If End If If Trim(sQSql)=”” Then MsgBox “請設(shè)置查詢條件！”,vbOKOnly+vbExclamation,“警告” Exit Sub Else If flagRedit Then Unload frmRoom End If =”select*from rooms where”amp。sQSql End If End Sub⑹訂房信息管理模塊的創(chuàng)建訂房信息管理模塊主要實現(xiàn)如下功能：查詢剩余客房信息添加訂房信息