//P133:
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'ɾ¼һ¼
'¼¼Ψһļ¼
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
  'ԶûӦóҪ
  Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
  Data1.UpdateRecord
  Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
  Unload Me
End Sub


//P148:
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
  cmdDelete.Enabled = False
  cmdFind.Enabled = False
  cmdUpdate.Enabled = True
  txtFields(0).SetFocus
End Sub
Private Sub cmdDelete_Click()
  If MsgBox("Ҫɾǰ¼", vbYesNo, "Ϣʾ") = vbYes Then
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then
      Data1.Recordset.MoveFirst
      If Data1.Recordset.BOF Then
         cmdDelete.Enabled = False
         cmdFind.Enabled = False
      End If
    End If
  End If
End Sub
Private Sub cmdClose_Click()
  Unload Me
End Sub
Private Sub cmdFind_Click()
  Dim str  As String
  str = InputBox("ұʽ,=9", "")
  If str = "" Then Exit Sub
  Data1.Recordset.FindFirst str
  If Data1.Recordset.NoMatch Then
     MsgBox "ָûƥļ¼", , "Ϣʾ"
  End If
End Sub
Private Sub cmdUpdate_Click()
  Data1.UpdateRecord
  Data1.Recordset.Bookmark = Data1.Recordset.LastModified
  cmdUpdate.Enabled = False
  cmdDelete.Enabled = True
  cmdFind.Enabled = True
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  MsgBox "ݴ¼д" & Error$(DataErr)
  Response = 0  'Դ
End Sub
Private Sub Data1_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  Data1.Caption = "¼" & (Data1.Recordset.AbsolutePosition + 1)
End Sub
Private Sub Form_Initialize()
  If Data1.Recordset.EOF And Data1.Recordset.BOF Then  '¼ǷΪ
     cmdFind.Enabled = False
     cmdDelete.Enabled = False
  Else
     Data1.Recordset.MoveFirst  'ָһ¼
  End If
  cmdUpdate.Enabled = False
End Sub


//P151:
Private Sub Command1_Click()
  Data1.Recordset.Delete
End Sub
Private Sub Command2_Click()
  Unload Me
End Sub
Private Sub Data1_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  Data1.Caption = "¼" & (Data1.Recordset.AbsolutePosition + 1)
End Sub
