1 ʾһ壬з5ı򣨷ֱֶεֵ4ťֱΪӡɾ¡͡رաӦťֱַcmdAddcmdDeletecmdUpdatecmdCloseһDataؼЩťϷֱClick¼̣
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
  Data1.Recordset.Delete
  Data1.Recordset.MoveNext
End Sub
Private Sub cmdUpdate_Click()
  Data1.UpdateRecord
  Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
  Unload Me
End Sub
2 ʾһ壬зһADO DataؼAdodc1úԴȻһFrame1ڸÿз5ǩʹLabel1ؼ飩5ıʹText1ؼ飩3ťʹCommand1ؼ飩ֱúЩıԴ磬Text10ıӦɼġѧšֶΣΪ
DataSource="adodc1"
DataField="ѧ"
ڸô¼̣
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
  ByVal pRecordset As ADODB.Recordset)
  Adodc1.Caption = "¼:" & (Adodc1.Recordset.AbsolutePosition) & _
    "/" & Adodc1.Recordset.RecordCount
End Sub
Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0 'ʵӹ
      If Command1(0).Caption = "" Then
         Command1(0).Caption = "ȷ"
         Command1(1).Caption = "ȡ"
         Adodc1.Recordset.AddNew
         Tenable (False)
      Else   
         Command1(0).Caption = ""
         Command1(1).Caption = "༭"
         Adodc1.Recordset.UpdateBatch adAffectAll
         Tenable (True)
       End If
      Case 1 'ʵֱ༭
          If Command1(1).Caption = "༭" Then
             Command1(0).Caption = "ȷ"
             Command1(1).Caption = "ȡ"
             Tenable (False)
          Else
             Command1(0).Caption = ""
             Command1(1).Caption = "༭"
             Adodc1.Recordset.CancelUpdate
             Adodc1.Refresh
             Tenable (True)
          End If
        Case 2 'ʵɾ
          Adodc1.Recordset.Delete
          Adodc1.Recordset.MoveNext
  End Select
  Text1(0).SetFocus
End Sub
Private Sub Tenable(ByVal setvalue As Boolean)
  ' 򿪻رıı༭
  Dim x As TextBox
  For Each x In Text1
    x.Locked = setvalue
  Next
  Command1(2).Visible = setvalue
  Adodc1.Enabled = setvalue
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  ' ڰEnterʱһı޸
  If KeyAscii = 13 Then
    i = (Index + 1) Mod 5
    Text1(i).SetFocus
  End If
End Sub
