frm客户修改.frm

这是一个啤酒销售系统的软件

VERSION 5.00
Begin VB.Form frm客户修改 
   Caption         =   "客户"
   ClientHeight    =   3660
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   5790
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   3660
   ScaleWidth      =   5790
   Begin VB.CommandButton C4 
      Caption         =   "最后一个"
      Height          =   375
      Left            =   4560
      TabIndex        =   12
      Top             =   1680
      Width           =   975
   End
   Begin VB.CommandButton C3 
      Caption         =   "第一个"
      Height          =   375
      Left            =   4560
      TabIndex        =   11
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton C2 
      Caption         =   "下一个"
      Height          =   375
      Left            =   4560
      TabIndex        =   10
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton C1 
      Caption         =   "上一个"
      Height          =   375
      Left            =   4560
      TabIndex        =   9
      Top             =   600
      Width           =   975
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭(&C)"
      Height          =   300
      Left            =   4560
      TabIndex        =   8
      Top             =   2280
      Width           =   975
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "更新(&U)"
      Height          =   300
      Left            =   3240
      TabIndex        =   7
      Top             =   2265
      Width           =   855
   End
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "刷新(&R)"
      Height          =   300
      Left            =   2280
      TabIndex        =   6
      Top             =   2265
      Width           =   975
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除(&D)"
      Height          =   300
      Left            =   1320
      TabIndex        =   5
      Top             =   2265
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(&A)"
      Height          =   300
      Left            =   360
      TabIndex        =   4
      Top             =   2280
      Width           =   975
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      BOFAction       =   1  'BOF
      Connect         =   "Access"
      DatabaseName    =   "C:\啤酒数据库\BEER.MDB"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      EOFAction       =   1  'EOF
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "客户"
      Top             =   3315
      Visible         =   0   'False
      Width           =   5790
   End
   Begin VB.TextBox txtFields 
      DataField       =   "客户单位"
      DataSource      =   "Data1"
      Height          =   405
      Index           =   1
      Left            =   1200
      MaxLength       =   10
      TabIndex        =   3
      Top             =   1440
      Width           =   2775
   End
   Begin VB.TextBox txtFields 
      DataField       =   "客户号"
      DataSource      =   "Data1"
      Height          =   405
      Index           =   0
      Left            =   1200
      TabIndex        =   1
      Top             =   600
      Width           =   2775
   End
   Begin VB.Label lblLabels 
      Caption         =   "客户单位:"
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   2
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label lblLabels 
      Caption         =   "客户号:"
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   735
   End
End
Attribute VB_Name = "frm客户修改"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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
Private Sub c1_Click()
C2.Enabled = True
C4.Enabled = True
If Data1.Recordset.BOF Then
C1.Enabled = False
C3.Enabled = False
C2.SetFocus
Else
Data1.Recordset.MovePrevious
End If
End Sub

Private Sub c2_Click()
C1.Enabled = True
C3.Enabled = True
If Data1.Recordset.EOF Then
C2.Enabled = False
C4.Enabled = False
C1.SetFocus
Else
Data1.Recordset.MoveNext
End If
End Sub

Private Sub c3_Click()
C2.Enabled = True
C4.Enabled = True
Data1.Recordset.MoveFirst
C1.Enabled = False
C3.Enabled = False
End Sub

Private Sub c4_Click()
C1.Enabled = True
C3.Enabled = True
Data1.Recordset.MoveLast
C2.Enabled = False
C4.Enabled = False
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)
  '对于 Table 对象，当记录集创建后并使用下面的行时，
  '必须设置 Index 属性
  'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
  '这是放置验证代码的地方
  '当下面的动作发生时，调用这个事件
  Select Case Action
    Case vbDataActionMoveFirst
    Case vbDataActionMovePrevious
    Case vbDataActionMoveNext
    Case vbDataActionMoveLast
    Case vbDataActionAddNew
    Case vbDataActionUpdate
    Case vbDataActionDelete
    Case vbDataActionFind
    Case vbDataActionBookmark
    Case vbDataActionClose
  End Select
  Screen.MousePointer = vbHourglass
End Sub