【正文】 For i=0 To 3 Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i ElseIf gintTmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrc=ExecuteSql(txtSQL,MsgText) If =false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount) Next intCount txtItem(4)=.Fileds(8) For i=0 To 3 Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With txtItem(0).Enabled=False End If =amp?！毙薷摹盓nd IfmblChang=False End SubPrivate Sub cmd_Click()’用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕觸發(fā)Click事件 Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount=0 To 4 ‘判斷是否輸入內(nèi)容 If Trim(txtItem(intCount)amp。””)=”” Then Select Case intCount Case 0 sMeg=”標(biāo)準(zhǔn)編號(hào)” Case 1 sMeg=”標(biāo)準(zhǔn)名稱” Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價(jià)” End Select sMeg=sMegamp?！辈荒転榭?” MsgBox sMeg,vbOkOnly+vbExclamation,”警告” txtItem(intCount).SetFocus Exit Sub End if Next intCount ‘判斷輸入內(nèi)容是否為數(shù)字 For intCount=2 To 4 If Not IsNumeric(Trim(txtItem(intCount))) Then Select Case intCount Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價(jià)” End Select sMeg=sMegamp。”請(qǐng)輸入數(shù)字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit Sub End If Next intCount If gintTmode=1 Then ‘判斷是否有相同ID記錄 txtSQL=”select*from roomtype where typeid_ =’”amp。Trim(txtItem(0))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。Trim(txtItem(0))amp。”’and typename=’”amp。Trim(txtItem(1))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。Trim(txtItem(0))amp?！薄薄畡h除已有記錄 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’判斷是否打開窗口 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語句，顯示需要的記錄 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。””,”yyyymmdd”) Case Else .TextMatrix(.Rows1,i)=(i1)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