cmdSave.Enabled = False cmdCancel.Enabled = False cmdAdd.Enabled = True cmdQuery.Enabled = True ’如果是从添加后取消 If add = 1 Then
’如果当前House表中有数据则显示第一条数据 If Nor rs_house.EOF And Not rs_house. BOF Then For i = 0 To 7
Text(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If
CmdEdit.Enabled = True CmdDel.Enabled = True CmdFirst.Enabled = True CmdPrev.Enabled = True CmdNext.Enabled = True CmdLast.Enabled = True ’如果没有数据，则显示空 Else
For I = 0 To 7
Text(i).Text = “” Next i
CmdEdit.Enabled = False CmdDel.Enabled = False CmdFirst.Enabled = False CmdPrev.Enabled = False CmdNext.Enabled = False CmdLast.Enabled = False End Tf
’如果是修改后取消，则恢复到修改前的数据 ElseIf add = 0 Then For I = 0 To 7
Text1(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If End If
’开始时设置各个text框不可写 For i = 0 To 7
Text1(i).Enabled = False Next i
’先设置ComboBox的默认值及不可改 Combol.Enabled = False End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
删除按钮的源代码： Private Sub cmdDel_Click()
’当单击删除记录时，需要弹出一个提示框，警告用户 Dim answer As String
Answer = MsgBox(“确定要删除吗？”，vbYesNo,“”) ’确实删除
If answer = vbYes Then
rs_house.Delete ’删除当前记录 rs_house.Update ’更新删除
MsgBox “成功删除！”， vbOKOnly + vbExlamation, “” Else
Exit Sub End If
’删除之后，显示总信息条数需要减1 Text2.Text = Val(Text2.Text) – 1
’删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
’先移动rs_house记录到后一条 rs_house.MoveNext If rs_house.EOF Then Rs_house.MovePrevious ’如果没有到记录首则显示该记录 If Not rs_house.BOF Then For I = 0 To 7
Text1(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If
’如果到记录首，则表格已经为空，置所有text框显示为空 ElseIf rs_house.BOF Then For I = 0 To 7
Text1(i).Text = “” Next i
cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False
End If
’如果删除的不是首尾记录，则显示当前记录即可 Else
For i = 0 To 7
Text1(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If End If End Sub
保存按钮的源代码：
Private Sub cmdEdit_Click()
’设置除保存和取消按钮外的其他按钮不可用
cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False
’需要设置除主键之外的text框可写 For I = 1 To 7
Text1(i).Enabled = True Next i
Combol.Enabled = True add = 0 End Sub
Private Sub cmdFirst_Click()
’先移动rs_house记录到第一条 Rs_house.MoveFirst
’同时需要设置相应按钮为可用和不可用 cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = True cmdLast.Enabled = True
’如果已经是第一条记录，则提示用户
If rs_house.BOF = True Then
MsgBox “对不起，已经是第一条记录了！”， vbOKOnly + vbInformation, “注意”
Exit Sub
’如果不是，则这个数据表的记录位置移到第一条记录，并且显示之 Else
For I = 0 To 7
Text(i).Text = rs_house.Fields(i) Next i
If rs_house.Fields(8) = “已租” Then Combol.ListIndex = 0
ElseIf rs_house.Fields(8) = “未租” Then Combol.ListIndex = 1
ElseIf rs_house.Fields(8) = “意向” Then Combol.ListIndex = 2 End If End If End SubPREV