【文章內(nèi)容簡(jiǎn)介】 extMatrix(.Rows1,i)=Format(ields(i1)amp?！薄?”yyyy mmdd”) Case Else .TextMatrix(.Rows1,i)=(i1)amp?！薄? End Select Next i Loop End With End Sub Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘ 選擇記錄，然后單擊鼠標(biāo)右鍵，觸發(fā) MouseUp事件 If Button=2 And Shift=0 Then PopupMenu End If End Sub Private Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then ‘ 判斷是否打開(kāi)記錄窗體 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 If End Sub Private 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 =++2 = =+100 = End If End 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 ‘ 判斷是否打開(kāi)記錄窗體 If 1 Then If MsgBox(“ 真 的 要 刪 除 這 條 文 件 記 錄 么 ？ ” ，vbOKCancel+vbExclamation,” 警告 ”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp。Tri m((intCount,1))amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘ 關(guān)閉記錄窗體 =”select*from roomtype”‘ 重新選擇所有記錄 End If End If End If End 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=False End Sub Private 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