【文章內(nèi)容簡(jiǎn)介】 As Integer If flagTedit Then ‘判斷是否打開記錄窗體 If 1 Then fintTmode=2‘設(shè)置為修改狀態(tài) intCount=‘記下選擇記錄 =”select*from roomtype where typeid’”amp。Trim((intCount,1))amp?！薄? Else Call menuAddroomtype_Click End If Else =”select*from roomtype” End IfEnd SubPrivate Sub From_Resize()‘窗體變化時(shí)，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方 If vbMinimized And vbMinimized Then‘邊界處理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End IfEnd Sub⑷刪除客房標(biāo)準(zhǔn)Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then ‘判斷是否打開記錄窗體 If 1 Then If MsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp。Trim((intCount,1))amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘關(guān)閉記錄窗體 =”select*from roomtype”‘重新選擇所有記錄 End If End If End IfEnd Sub⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： 添加客房信息 修改客房信息 刪除客房信息 查詢客房信息 具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 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 “請(qǐng)先進(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語(yǔ)句顯示當(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“請(qǐng)先進(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=“客房編號(hào)” 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)存在此客房編號(hào)的記錄！”,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ù)庫(kù)對(duì)象添加記錄 (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ù)庫(kù)中 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(“真的要?jiǎng)h除這條文件記錄么？”,vbOKCancel+vbExclamation,“警告”)=vbOK Then intCount=‘記載當(dāng)前記錄位置　　 txtSQL=”de