VERSION 5.00
Begin VB.Form frmpersonadd 
   Caption         =   "Person"
   ClientHeight    =   1665
   ClientLeft      =   3540
   ClientTop       =   4665
   ClientWidth     =   5520
   LinkTopic       =   "Form1"
   Picture         =   "frmpersonadd.frx":0000
   ScaleHeight     =   1665
   ScaleWidth      =   5520
   Begin VB.CommandButton cmdClose 
      Caption         =   "關閉(&C)"
      Height          =   300
      Left            =   4440
      TabIndex        =   10
      Top             =   1020
      Width           =   975
   End
   Begin VB.CommandButton cmdUpdate 
      Caption         =   "更新(&U)"
      Height          =   300
      Left            =   3360
      TabIndex        =   9
      Top             =   1020
      Width           =   975
   End
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "刷新(&R)"
      Height          =   300
      Left            =   2280
      TabIndex        =   8
      Top             =   1020
      Width           =   975
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "刪除(&D)"
      Height          =   300
      Left            =   1200
      TabIndex        =   7
      Top             =   1020
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(&A)"
      Height          =   300
      Left            =   120
      TabIndex        =   6
      Top             =   1020
      Width           =   975
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Connect         =   "Access 2000;"
      DatabaseName    =   "C:\WINDOWS\Desktop\圖書管理系統\BookManage.mdb"
      DefaultCursorType=   0  '缺省游標
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Person"
      Top             =   1320
      Width           =   5520
   End
   Begin VB.TextBox txtFields 
      DataField       =   "Department"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   5
      Top             =   680
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "Name"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   2040
      MaxLength       =   8
      TabIndex        =   3
      Top             =   360
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "No"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   2040
      MaxLength       =   6
      TabIndex        =   1
      Top             =   40
      Width           =   3375
   End
   Begin VB.Label lblLabels 
      Caption         =   "部門:"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   4
      Top             =   700
      Width           =   1815
   End
   Begin VB.Label lblLabels 
      Caption         =   "姓名:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   380
      Width           =   1815
   End
   Begin VB.Label lblLabels 
      Caption         =   "編號:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   1815
   End
End
Attribute VB_Name = "frmpersonadd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

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 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