frmmain.frm

VB6.0下对Access数据库文件进行查找、添加、删除记录的源代码！

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFlxGrd.Ocx"
Begin VB.Form frmMain 
   Caption         =   "Database Sample by Arnar Mar Sig"
   ClientHeight    =   7650
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9165
   LinkTopic       =   "Form1"
   ScaleHeight     =   7650
   ScaleWidth      =   9165
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame 
      Caption         =   "Adding Records into Recordset object"
      Height          =   1815
      Index           =   3
      Left            =   3600
      TabIndex        =   19
      Top             =   1200
      Width           =   3495
      Begin VB.CommandButton cmdAdd 
         Caption         =   "Add Record"
         Height          =   255
         Left            =   2280
         TabIndex        =   27
         Top             =   1440
         Width           =   1095
      End
      Begin VB.TextBox txtAddName 
         Height          =   285
         Left            =   840
         TabIndex        =   23
         Top             =   360
         Width           =   2535
      End
      Begin VB.TextBox txtAddPhone 
         Height          =   285
         Left            =   840
         TabIndex        =   22
         Top             =   720
         Width           =   2535
      End
      Begin VB.TextBox txtAddHome 
         Height          =   285
         Left            =   840
         TabIndex        =   21
         Top             =   1080
         Width           =   2535
      End
      Begin VB.CheckBox chkAddWorking 
         Caption         =   "Working"
         Height          =   255
         Left            =   840
         TabIndex        =   20
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         Caption         =   "Name:"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   26
         Top             =   375
         Width           =   615
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         Caption         =   "Phone:"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   25
         Top             =   735
         Width           =   615
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         Caption         =   "Home:"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   24
         Top             =   1095
         Width           =   615
      End
   End
   Begin VB.Frame Frame 
      Caption         =   "Delete Record"
      Height          =   1095
      Index           =   2
      Left            =   3600
      TabIndex        =   14
      Top             =   0
      Width           =   3495
      Begin VB.TextBox txtToDelete 
         Height          =   285
         Left            =   1440
         TabIndex        =   16
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton cmdDelete 
         Caption         =   "Delete"
         Height          =   285
         Left            =   2745
         TabIndex        =   15
         Top             =   360
         Width           =   635
      End
      Begin VB.Label lblStatus 
         Caption         =   "Status:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   720
         Width           =   3255
      End
      Begin VB.Label Label 
         Alignment       =   1  'Right Justify
         Caption         =   "Search For:"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   17
         Top             =   375
         Width           =   1095
      End
   End
   Begin VB.Frame Frame 
      Caption         =   "Setting Records into Grid"
      Height          =   4095
      Index           =   1
      Left            =   0
      TabIndex        =   11
      Top             =   3120
      Width           =   7095
      Begin VB.CommandButton cmdSetToGrid 
         Caption         =   "View Data"
         Height          =   375
         Left            =   6120
         TabIndex        =   13
         Top             =   3600
         Width           =   855
      End
      Begin MSFlexGridLib.MSFlexGrid flgGrid 
         Height          =   3135
         Left            =   120
         TabIndex        =   12
         Top             =   360
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   5530
         _Version        =   393216
      End
   End
   Begin VB.Frame Frame 
      Caption         =   "Searching/Editing Recordset object"
      Height          =   3015
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3495
      Begin VB.CommandButton cmdEdit 
         Caption         =   "Apply Changes"
         Height          =   375
         Left            =   2160
         TabIndex        =   28
         Top             =   2520
         Width           =   1215
      End
      Begin VB.CommandButton cmdSearch 
         Caption         =   "Search"
         Height          =   285
         Left            =   2740
         TabIndex        =   10
         Top             =   360
         Width           =   635
      End
      Begin VB.TextBox txtSearchFor 
         Height          =   285
         Left            =   1320
         TabIndex        =   5
         Top             =   360
         Width           =   1335
      End
      Begin VB.CheckBox chkWorking 
         Caption         =   "Working"
         Height          =   255
         Left            =   840
         TabIndex        =   4
         Top             =   2040
         Width           =   1695
      End
      Begin VB.TextBox txtHome