【正文】 ateCommand_Click()Dim txtSQL As String Dim MsgText As String Dim mrcc As If Not Testtxt(txtFields(0).Text) Then MsgBox 請輸入房型名稱！, vbOKOnly + vbExclamation, 警告 txtFields(0).SetFocus Exit Sub End If txtSQL = select * from 房型信息 where 房型名稱 = 39。 amp。 Trim(txtFields(0).Text) amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 房型名稱重復(fù)，請重新輸入！, vbOKOnly + vbExclamation, 警告 txtFields(0).SetFocus Else (0) = Trim(txtFields(0).Text) (1) = Val(txtFields(1).Text) (2) = Val(txtFields(2).Text) (3) = Val(txtFields(3).Text) (4) = Val(txtFields(4).Text) (5) = Val(txtFields(5).Text) MsgBox 房型信息添加成功！, vbOKOnly + vbExclamation, 添加房型信息 End IfEnd Sub編輯房型管理信息模塊代碼設(shè)計：Option ExplicitDim mrc As Dim myBookmark As VariantDim mcclean As BooleanPrivate Sub cancelCommand_Click() Unload MeEnd SubPrivate Sub deleteCommand_Click() myBookmark = If MsgBox(是否刪除當(dāng)前記錄？, vbOKCancel, 刪除當(dāng)前記錄) = vbOK Then If Then myBookmark = = myBookmark Call viewData Else myBookmark = = myBookmark Call viewData End If Else = myBookmark Call viewData End IfEnd SubPrivate Sub editCommand_Click() mcclean = False = False = False = False = False = False Dim i As Integer For i = 1 To 6 txtFields(i).Enabled = True Next myBookmark = End SubPrivate Sub firstCommand_Click() Call viewDataEnd SubPrivate Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from 房型信息 Set mrc = ExecuteSQL(txtSQL, MsgText) Call viewData myBookmark = mcclean = True Dim i As Integer For i = 0 To 6 txtFields(i).Enabled = False NextEnd SubPublic Sub viewData() Dim i As Integer For i = 0 To 6 txtFields(i).Text = (i) NextEnd SubPrivate Sub lastCommand_Click() Call viewDataEnd SubPrivate Sub nextCommand_Click() If Then End If Call viewDataEnd SubPrivate Sub previousCommand_Click() If Then End If Call viewDataEnd SubPrivate Sub updateCommand_Click() If mcclean Then MsgBox 請先修改房型信息, vbOKOnly + vbExclamation, 警告 Exit Sub End If (1) = Val(txtFields(1).Text) (2) = Val(txtFields(2).Text) (3) = Val(txtFields(3).Text) (4) = Val(txtFields(4).Text) (5) = Val(txtFields(5).Text) (6) = Val(txtFields(6).Text) MsgBox 房型信息更新成功！, vbOKOnly + vbExclamation, 更新房型信息 = myBookmark Call viewData = True = True = True = True = True Dim i As Integer For i = 0 To 6 txtFields(i).Enabled = False Next mcclean = TrueEnd Sub查詢房型管理信息模塊代碼設(shè)計：Private Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As txtSQL = select * from 房型信息 where If Trim() = Then sMeg = 房型名稱不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub txtSQL = txtSQL amp。 房型名稱 = 39。 amp。 Trim() amp。 39。 End If Set mrc = ExecuteSQL(txtSQL, MsgText) Set = mrcEnd Sub添加客戶管理信息模塊代碼設(shè)計：Option ExplicitPrivate Sub cancelCommand_Click()Unload MeEnd SubPrivate Sub txtfields_LostFocus(Index As Integer)Dim pTitle As StringpTitle = 信息框If Not IsNumeric(txtFields(3).Text) And (txtFields(3).Text ) Then MsgBox 請在“年齡”中輸入數(shù)字, vbExclamation + vbOKOnly, pTitle txtFields(3).SetFocus txtFields(3).SelLength = Len(txtFields(1)) txtFields(3).SelStart = 0End IfIf Not IsNumeric(txtFields(6).Text) And (txtFields(6).Text ) Then MsgBox 請在“身份證”中輸入數(shù)字, vbExclamation + vbOKOnly, pTitle txtFields(6).SetFocus txtFields(6).SelLength = Len(txtFields(6)) txtFields(6).SelStart = 0End IfIf Not IsNumeric(txtFields(7).Text) And (txtFields(7).Text ) Then MsgBox 請在“郵編”中輸入數(shù)字, vbExclamation + vbOKOnly, pTitle txtFields(7).SetFocus txtFields(7).SelLength = Len(txtFields(7)) txtFields(7).SelStart = 0End IfIf Not IsNumeric(txtFields(10).Text) And (txtFields(10).Text ) Then MsgBox 請在“需求面積”中輸入數(shù)字, vbExclamation + vbOKOnly, pTitle txtFields(10).SetFocus txtFields(10).SelLength = Len(txtFields(10)) txtFields(10).SelStart = 0End IfIf Not IsNumeric(txtFields(11).Text) And (txtFields(11).Text ) Then MsgBox 請在“需求房層”中輸入數(shù)字, vbExclamation + vbOKOnly, pTitle txtFields(11).SetFocus txtFields(11).SelLength = Len(txtFields(11)) txtFields(11).SelStart = 0End IfEnd SubPrivate Sub updateCommand_Click()Dim txtSQL As String Dim MsgText As String Dim mrcc As If Not Testtxt(txtFields(0).Text) Then MsgBox 請輸入客戶編號！, vbOKOnly + vbExclamation, 警告 txtFields(0).SetFocus Exit Sub End If If Not Testtxt(txtFields(1).Text) Then MsgBox 請輸入客戶名稱！, vbOKOnly + vbExclamation, 警告 txtFields(1).SetFocus Exit Sub End If txtSQL = select * from 客戶信息 where 客戶編號 = 39。 amp。 Trim(txtFields(0).Text) amp。 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then