VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2655
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4740
   LinkTopic       =   "Form1"
   ScaleHeight     =   2655
   ScaleWidth      =   4740
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdEdit 
      Caption         =   "修改"
      Height          =   255
      Left            =   960
      TabIndex        =   14
      Top             =   2040
      Width           =   735
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删除"
      Height          =   255
      Left            =   2760
      TabIndex        =   13
      Top             =   2040
      Width           =   855
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   255
      Left            =   1800
      TabIndex        =   12
      Top             =   2040
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "关闭"
      Height          =   255
      Left            =   3720
      TabIndex        =   11
      Top             =   2040
      Width           =   855
   End
   Begin VB.CommandButton cmdUpdata 
      Caption         =   "更新"
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   2040
      Width           =   735
   End
   Begin VB.TextBox txtNum 
      DataField       =   "编号"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1245
      TabIndex        =   4
      Top             =   120
      Width           =   330
   End
   Begin VB.TextBox txtFilm 
      DataField       =   "片名"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1245
      TabIndex        =   3
      Top             =   495
      Width           =   3300
   End
   Begin VB.TextBox txtPath 
      DataField       =   "存储路径"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1245
      TabIndex        =   2
      Top             =   885
      Width           =   3375
   End
   Begin VB.TextBox txtLastTime 
      DataField       =   "上次观看时间"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1245
      TabIndex        =   1
      Top             =   1260
      Width           =   1320
   End
   Begin VB.TextBox txtIntro 
      DataField       =   "影片介绍"
      DataSource      =   "Data1"
      Height          =   285
      Left            =   1245
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   1635
      Width           =   3375
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "J:\书稿\VB高教\PROJECT\第9章\Data控件\影片信息数据库.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "影片信息"
      Top             =   2310
      Width           =   4740
   End
   Begin VB.Label label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "编号:"
      Height          =   255
      Index           =   0
      Left            =   -600
      TabIndex        =   9
      Top             =   165
      Width           =   1815
   End
   Begin VB.Label label2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "片名:"
      Height          =   255
      Index           =   1
      Left            =   -600
      TabIndex        =   8
      Top             =   540
      Width           =   1815
   End
   Begin VB.Label label3 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "存储路径:"
      Height          =   255
      Index           =   2
      Left            =   -600
      TabIndex        =   7
      Top             =   930
      Width           =   1815
   End
   Begin VB.Label label4 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "上次观看时间:"
      Height          =   255
      Index           =   3
      Left            =   -600
      TabIndex        =   6
      Top             =   1305
      Width           =   1815
   End
   Begin VB.Label label5 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "影片介绍:"
      Height          =   255
      Index           =   4
      Left            =   -600
      TabIndex        =   5
      Top             =   1680
      Width           =   1815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmdAdd_Click()
    Data1.Recordset.AddNew  '添加新记录
    cmdUpdata.Enabled = True    '激活更新按钮
End Sub

Private Sub cmdDel_Click()
    Data1.Recordset.Delete  '删除当前记录
End Sub

Private Sub cmdEdit_Click()
    Data1.Recordset.Edit    '开始修改记录
    cmdUpdata.Enabled = True    '激活更新按钮
End Sub

Private Sub cmdExit_Click()
    End                     '退出程序
End Sub

Private Sub cmdUpdata_Click()
    Data1.Recordset.Update      '更新记录
    cmdUpdata.Enabled = False   '使更新按钮不可用
End Sub


Private Sub Form_Load()
    cmdUpdata.Enabled = False   '使更新按钮不可用
End Sub
