main修改客户信息.frm

1. 观察计算机显示系统构成

         Begin VB.Label Label1 
            Caption         =   "客户编号:              客户名称:             客户简称:              客户地址:             所属地区:             客户电话: "
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   2400
            Left            =   255
            TabIndex        =   21
            Top             =   465
            Width           =   1200
         End
      End
      Begin VB.Label czjl 
         BackStyle       =   0  'Transparent
         Height          =   285
         Left            =   4050
         TabIndex        =   35
         Top             =   -585
         Width           =   4905
      End
   End
End
Attribute VB_Name = "main修改客户信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Private Sub Form_Load()
 On Error Resume Next
  frm主窗体.StatusBar1.Panels(1) = Me.Caption
  Data1.DatabaseName = App.Path & "\db2.mdb"
  Data1.Connect = ";pwd=" & 73322
  Data1.RecordSource = "select * from 客户信息表"
  Data1.Refresh
  Data1.Recordset.MoveFirst
  For i = 0 To 16
    kh(i).Enabled = False
    If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
  Next i
  ComSave.Enabled = False
  ComCancel.Enabled = False
End Sub

Private Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 On Error Resume Next
'运用数组
  Select Case Index
       Case 0
         If Index = 0 And KeyCode = vbKeyReturn Then
            kh(1).SetFocus
         End If
         
       Case 1
         If Index = 1 And KeyCode = vbKeyReturn Then
            kh(2).SetFocus
        End If
        If KeyCode = vbKeyUp Then
           kh(1).SetFocus
        End If
        
       Case 2
         If Index = 2 And KeyCode = vbKeyReturn Then
            kh(3).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(1).SetFocus
         End If
         
       Case 3
         If Index = 3 And KeyCode = vbKeyReturn Then
            kh(4).SetFocus
         End If
        If KeyCode = vbKeyUp Then
           kh(2).SetFocus
        End If
        
       Case 4
         If Index = 4 And KeyCode = vbKeyReturn Then
            kh(5).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(3).SetFocus
         End If
         
       Case 5
         If Index = 5 And KeyCode = vbKeyReturn Then
            kh(6).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(4).SetFocus
         End If
         
       Case 6
         If Index = 6 And KeyCode = vbKeyReturn Then
            kh(7).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(5).SetFocus
         End If
         
       Case 7
         If Index = 7 And KeyCode = vbKeyReturn Then
            kh(8).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(6).SetFocus
         End If
         
       Case 8
         If Index = 8 And KeyCode = vbKeyReturn Then
            kh(9).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(7).SetFocus
         End If
         
       Case 9
         If Index = 9 And KeyCode = vbKeyReturn Then
            SSTab1.Tab = 1
            kh(10).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(8).SetFocus
         End If
         
       Case 10
         If Index = 10 And KeyCode = vbKeyReturn Then
            kh(11).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            SSTab1.Tab = 0
            kh(9).SetFocus
         End If
         
       Case 11
         If Index = 11 And KeyCode = vbKeyReturn Then
            kh(12).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(10).SetFocus
         End If
         
       Case 12
         If Index = 12 And KeyCode = vbKeyReturn Then
            kh(13).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(11).SetFocus
         End If
         
       Case 13
         If Index = 13 And KeyCode = vbKeyReturn Then
            kh(14).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(12).SetFocus
         End If
         
       Case 14
         If Index = 14 And KeyCode = vbKeyReturn Then
            kh(15).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(13).SetFocus
         End If
         
       Case 15
         If Index = 15 And KeyCode = vbKeyReturn Then
            kh(16).SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(14).SetFocus
         End If
         
       Case 16
         If Index = 16 And KeyCode = vbKeyReturn Then
            ComSave.SetFocus
         End If
         If KeyCode = vbKeyUp Then
            kh(15).SetFocus
         End If
  End Select
End Sub
Private Sub Command1_Click()
 On Error Resume Next
  If Not Data1.Recordset.BOF Then
     Data1.Recordset.MoveFirst
     For i = 0 To 16
       If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
     Next i
  End If
End Sub

Private Sub Command2_Click()
 On Error Resume Next
  If Data1.Recordset.RecordCount <> 0 Then
     If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
     If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst
     For i = 0 To 16
       If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
     Next i
  End If
End Sub

Private Sub Command3_Click()
 On Error Resume Next
  If Data1.Recordset.RecordCount <> 0 Then
  If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
  If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
  For i = 0 To 16
      If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
  Next i
  End If
End Sub

Private Sub Command4_Click()
 On Error Resume Next
  If Not Data1.Recordset.EOF Then
  Data1.Recordset.MoveLast
  For i = 0 To 16
      If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
  Next i
  End If
End Sub

Private Sub ComUpdate_Click()
 On Error Resume Next
  If Data1.Recordset.RecordCount > 0 Then
     Data1.Recordset.Edit
     For i = 0 To 16
         kh(i).Enabled = True
     Next i
     Command1.Enabled = False
     Command2.Enabled = False
     Command3.Enabled = False
     Command4.Enabled = False
     ComSave.Enabled = True
     ComCancel.Enabled = True
     ComUpdate.Enabled = False
  Else
     MsgBox ("没有要修改的客户")
  End If
End Sub

Private Sub ComSave_Click()
 On Error Resume Next
 On Error Resume Next
  Dim a As String
  a = MsgBox("您确实要修改该客户吗？", vbYesNo)
  If a = vbYes Then
     Data1.Recordset.Edit
     For i = 0 To 16
        If kh(i).Text <> "" Then Data1.Recordset.Fields(i) = kh(i).Text
        kh(i).Enabled = False
     Next i
     ComUpdate.Enabled = True
     ComSave.Enabled = False
     ComCancel.Enabled = False
     Command1.Enabled = True
     Command2.Enabled = True
     Command3.Enabled = True
     Command4.Enabled = True
     Data1.Recordset.Update
  End If
End Sub

Private Sub ComCancel_Click()
 On Error Resume Next
  For i = 0 To 16
      kh(i).Enabled = False
  Next i
  ComUpdate.Enabled = True
  ComSave.Enabled = False
  ComCancel.Enabled = False
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
  frm主窗体.Enabled = True
  frm主窗体.StatusBar1.Panels(1) = "杨扬工作室 作者:小杨"
End Sub

Private Sub ComEnd_Click()
  frm主窗体.Enabled = True
  Unload Me
End Sub