【正文】 tem(0).SetFocus Exit Sub End If End If If gintRmode=2 Then ‘判斷是否處于修改狀態(tài) txtSQL=”delete from rooms where roomNO=‘”amp?！安荒転榭?！” 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?！靶薷摹? 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。查詢客房信息 具體實(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。修改客房信息 ”’” Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘關(guān)閉記錄窗體 =”select*from roomtype”‘重新選擇所有記錄 End If End If End IfEnd Sub⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： ”’” 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 ‘判斷是否打開(kāi)記錄窗體 If 1 Then If MsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp。”” End Select Next i Loop End With End SubPrivate 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 IfEnd SubPrivate 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。”’”‘刪除已有記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype”‘添加新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) For intCount=0 To 3 (intCount)=Trim(txtItem(intCount)) Next intCount For intCount=0 To 3 (intCount+4)=Trim(Combo1(intCount)) Next intCount (8)=Trim(txtItem(4)) ‘更新數(shù)據(jù)庫(kù) if gintTmode=1 Then ‘判斷是否屬于添加狀態(tài) MsgBox “添加紀(jì)錄成功!”,vbOKOnly+vbExclamtion,“添加記錄” For intCount=0 To 4 txtItem(intCount)=”” ‘清除已經(jīng)輸入的內(nèi)容 Next intCount For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False’判斷是否打開(kāi)窗口 if flagTedit Then Unload frmRoomtype =“select *from roomtype” End If ElseIf gintTmode=2 Then ‘判斷是否處于修改狀態(tài) Unload Me If flagTedit Then Unload frmRoomtype EndIf =”select *from roomtype” End If End SubPrivate Sub txtItem_GotFocus(Index As Integer)’文本框獲得焦點(diǎn)時(shí)觸發(fā)該事件，即自動(dòng)選中輸入的內(nèi)容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index))End SubPrivate Sub cmdExit_Click()’單擊按鈕cmdExit取消添加信息If mblChange And Then If MsgBox(“保存當(dāng)前記錄的變化嗎？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then ‘保存 Call cmdSave_Click End IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)‘輸入完內(nèi)容，單擊回車鍵將自動(dòng)進(jìn)入下一個(gè)文本框，觸發(fā)文本框的Keydown事件 EnterToTab KeyCodeEnd Sub⑶修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建Private Sub From_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()‘調(diào)用showTitle函數(shù)，顯示表頭Dim i As IntegerWith msgList .Cols=10 .TextMatrix(0,1)=”標(biāo)準(zhǔn)編號(hào)” .TextMatrix(0,2)=”標(biāo)準(zhǔn)名稱” .TextMatrix(0,3)=”房間面積” .TextMatrix(0,4)=”床位數(shù)量” .TextMatrix(0,5)=”是否有空調(diào)” .TextMatrix(0,6)=”是否有電話” .TextMatrix(0,7)=”是否有電視” .TextMatrix(0,8)=”是否有衛(wèi)生間” .TextMatrix(0,9)=”房間單價(jià)” .FixedRows=1‘固定表頭 For i=0 To 9 ‘設(shè)置各列的對(duì)齊方式 .ColAlignment(i)=0 Next i .FillStyle=flexFillRepeat‘表頭項(xiàng)居中 .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols1 .CellAlignment=4 .ColWidth(0)=300‘設(shè)置單元大小 .ColWidth(1)=1000 .ColWidth(2)=2000 .ColWidth(3)=2000 .ColWidth(4)=1000 .ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1End WithEnd SubPrivate Sub ShowData()‘調(diào)用showData函數(shù)，顯示記錄列表 Dim i As Integer Set mrc=ExecuteSQL(txtSQL,MsgText)‘根據(jù)需要設(shè)置SQL語(yǔ)句，顯示需要的記錄 With msgList .Rows=1 Do While Not .Rows=Rows+1 For i=1 To Select Case (i1).Type Case adDBDate .TextMatrix(.Rows1,i)=Format((i1)amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox”已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=’”amp?！薄痑nd typename=’”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox “已經(jīng)存在此標(biāo)準(zhǔn)編號(hào)的記錄!”,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If End If txtSQL=”select * from roomtype where typeid’”amp?！闭?qǐng)輸入數(shù)字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocus