Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wine/wine1.frm

Visual Basic Form | 1995-09-06 | 5.9 KB | 190 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00808080&
   Caption         =   "Form1"
   ClientHeight    =   5265
   ClientLeft      =   1350
   ClientTop       =   2280
   ClientWidth     =   8745
   Height          =   5670
   Left            =   1290
   LinkTopic       =   "Form1"
   ScaleHeight     =   5265
   ScaleWidth      =   8745
   Top             =   1935
   Width           =   8865
   Begin PictureBox Panel3D1
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   0
      Top             =   0
      Width           =   1000
      Begin CommandButton Command3
         Caption         =   "New"
         Height          =   495
         Left            =   1680
         TabIndex        =   13
         Top             =   3960
         Width           =   855
      End
      Begin CommandButton Command2
         Caption         =   "Delete"
         Height          =   495
         Left            =   360
         TabIndex        =   12
         Top             =   3960
         Width           =   855
      End
      Begin CommandButton Command1
         Caption         =   "Close"
         Height          =   495
         Left            =   7200
         TabIndex        =   11
         Top             =   3960
         Width           =   855
      End
      Begin Data Data1
         Caption         =   "Winery DB"
         Connect         =   ""
         DatabaseName    =   ""
         Enabled         =   0   'False
         Exclusive       =   0   'False
         Height          =   495
         Left            =   2400
         Options         =   0
         ReadOnly        =   0   'False
         RecordSource    =   ""
         Top             =   3360
         Width           =   3255
      End
      Begin PictureBox Frame3D5
         BackColor       =   &H000000FF&
         Height          =   1000
         Left            =   0
         ScaleHeight     =   975
         ScaleWidth      =   975
         TabIndex        =   1
         Top             =   0
         Width           =   1000
         Begin TextBox Text4
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            DataSource      =   "Data1"
            Height          =   285
            Left            =   360
            MaxLength       =   2
            TabIndex        =   9
            Top             =   240
            Width           =   495
         End
      End
      Begin PictureBox Frame3D4
         BackColor       =   &H000000FF&
         Height          =   1000
         Left            =   0
         ScaleHeight     =   975
         ScaleWidth      =   975
         TabIndex        =   2
         Top             =   0
         Width           =   1000
         Begin TextBox Text5
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            DataSource      =   "Data1"
            Height          =   285
            Left            =   120
            MaxLength       =   5
            TabIndex        =   10
            Top             =   240
            Width           =   975
         End
      End
      Begin PictureBox Frame3D3
         BackColor       =   &H000000FF&
         Height          =   1000
         Left            =   0
         ScaleHeight     =   975
         ScaleWidth      =   975
         TabIndex        =   3
         Top             =   0
         Width           =   1000
         Begin TextBox Text3
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            DataSource      =   "Data1"
            Height          =   285
            Left            =   120
            MaxLength       =   25
            TabIndex        =   8
            Top             =   240
            Width           =   2535
         End
      End
      Begin PictureBox Frame3D2
         BackColor       =   &H000000FF&
         Height          =   1000
         Left            =   0
         ScaleHeight     =   975
         ScaleWidth      =   975
         TabIndex        =   4
         Top             =   0
         Width           =   1000
         Begin TextBox Text2
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            DataSource      =   "Data1"
            Height          =   285
            Left            =   120
            MaxLength       =   25
            TabIndex        =   7
            Top             =   240
            Width           =   6015
         End
      End
      Begin PictureBox Frame3D1
         BackColor       =   &H000000FF&
         Height          =   1000
         Left            =   0
         ScaleHeight     =   975
         ScaleWidth      =   975
         TabIndex        =   5
         Top             =   0
         Width           =   1000
         Begin TextBox Text1
            BackColor       =   &H00C0C0C0&
            BorderStyle     =   0  'None
            DataSource      =   "Data1"
            Height          =   285
            Left            =   120
            MaxLength       =   35
            TabIndex        =   6
            Top             =   240
            Width           =   6015
         End
      End
   End
Sub Command1_Click ()
Unload Me
End Sub
Sub Command2_Click ()
Data1.Recordset.Delete
End Sub
Sub Command3_Click ()
Data1.Recordset.AddNew
End Sub
Sub Form_Load ()
Data1.Enabled = True
Data1.DatabaseName = "d:\VBWRK3\WINE.MDB"
Data1.RecordSource = "Winery"
Data1.Refresh
Data1.Recordset.AddNew
Text1.DataField = "WineryName"
Text2.DataField = "WineryAddress"
Text3.DataField = "WineryCity"
Text4.DataField = "WineryState"
Text5.DataField = "WineryZip"
End Sub