使用数据绑定控件实现增、删、改

 

Private Sub Form_Load()
  Me.Caption = "使用数据绑定控件实现增、删、改"
End Sub
Private Sub Text1_GotFocus(Index As Integer)
  Text1(Index).BackColor = &HFFFF00
  Text1(Index).SelStart = 0
  Text1(Index).SelLength = Len(Text1(Index))
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn And Index < 5 Then Text1(Index + 1).SetFocus
End Sub
Private Sub Text1_LostFocus(Index As Integer)
  Text1(Index).BackColor = &H80000005
End Sub

 

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
     Case "add"
       Adodc1.Recordset.AddNew
       For i = 1 To Text1.UBound
           Text1(i) = ""
           Text1(i).Locked = False
       Next i
       Text1(0).SetFocus
     Case "save"
       Adodc1.Recordset.Update
     Case "xg"
       For i = 1 To Text1.UBound
           Text1(i).Locked = False
       Next i
     Case "cancel"
       For i = 1 To Text1.UBound
           Text1(i).Locked = True
       Next i
     Case "del"
       Adodc1.Recordset.Delete
       Adodc1.Recordset.Update
     Case "close"
       Unload Me
  End Select
End Sub