Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/source/chap30/frmsstab.frm

Visual Basic Form | 1995-09-28 | 8.5 KB | 258 lines

VERSION 4.00
Begin VB.Form frmsstab
   Caption         =   "Sheridan Tab Control"
   ClientHeight    =   3165
   ClientLeft      =   2835
   ClientTop       =   3015
   ClientWidth     =   5490
   Height          =   3570
   Left            =   2775
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   5490
   Top             =   2670
   Width           =   5610
   Begin VBX.SSIndexTab SSIndexTab1
      ActiveTabBackColor=   &H00C0C0C0&
      ActiveTabForeColor=   &H00000000&
      BackColor       =   &H00C0C0C0&
      BevelColorFace  =   &H8000000F&
      BevelColorHighlite=   &H00FFFFFF&
      BevelColorShadow=   &H80000010&
      Caption         =   "FRMSSTAB.frx":0000
      Height          =   3135
      Left            =   0
      TabHeight       =   300
      TabIndex        =   0
      TabMaxWidth     =   0
      TabRowOffset    =   150
      Tabs            =   3
      TabsPerRow      =   3
      Top             =   0
      Width           =   5415
      Begin VB.Frame Frame3
         Height          =   1575
         Left            =   60
         TabIndex        =   18
         Top             =   31200
         Width           =   1095
         Begin VB.Label Label9
            Caption         =   "Year"
            Height          =   255
            Left            =   60
            TabIndex        =   21
            Top             =   120
            Width           =   1035
         End
         Begin VB.Label Label8
            Caption         =   "Title"
            Height          =   255
            Left            =   60
            TabIndex        =   20
            Top             =   600
            Width           =   1035
         End
         Begin VB.Label Label7
            Caption         =   "Subject"
            Height          =   255
            Left            =   60
            TabIndex        =   19
            Top             =   1080
            Width           =   1035
         End
      End
      Begin VB.TextBox Text9
         DataField       =   "Year Born"
         DataSource      =   "dtaauthors"
         Height          =   315
         Left            =   1200
         TabIndex        =   17
         Top             =   32280
         Width           =   1275
      End
      Begin VB.TextBox Text8
         DataField       =   "Author"
         DataSource      =   "dtaauthors"
         Height          =   315
         Left            =   1200
         TabIndex        =   16
         Text            =   "Text1"
         Top             =   31800
         Width           =   4035
      End
      Begin VB.TextBox Text7
         DataField       =   "Au_ID"
         DataSource      =   "dtaauthors"
         Height          =   315
         Left            =   1200
         TabIndex        =   15
         Text            =   "Text1"
         Top             =   31320
         Width           =   1215
      End
      Begin VB.Data dtaauthors
         Caption         =   "Authors"
         Connect         =   "Access"
         DatabaseName    =   "\source\chap30\biblio.mdb"
         Exclusive       =   0   'False
         Height          =   300
         Left            =   1260
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "Authors"
         Top             =   33000
         Width           =   3135
      End
      Begin VB.Frame Frame2
         Height          =   1755
         Left            =   0
         TabIndex        =   11
         Top             =   15840
         Width           =   1155
         Begin VB.Label Label6
            Caption         =   "Company"
            Height          =   300
            Left            =   120
            TabIndex        =   14
            Top             =   1140
            Width           =   915
         End
         Begin VB.Label Label5
            Caption         =   "Name"
            Height          =   300
            Left            =   120
            TabIndex        =   13
            Top             =   660
            Width           =   915
         End
         Begin VB.Label Label4
            Caption         =   "Pub. ID"
            Height          =   300
            Left            =   120
            TabIndex        =   12
            Top             =   180
            Width           =   915
         End
      End
      Begin VB.TextBox Text6
         DataField       =   "Company Name"
         DataSource      =   "dtapublishers"
         Height          =   315
         Left            =   1200
         TabIndex        =   10
         Top             =   16920
         Width           =   4035
      End
      Begin VB.TextBox Text5
         DataField       =   "Title"
         DataSource      =   "dtatitles"
         Height          =   315
         Left            =   1200
         TabIndex        =   9
         Top             =   16440
         Width           =   4035
      End
      Begin VB.Data dtapublishers
         Caption         =   "Publishers"
         Connect         =   "Access"
         DatabaseName    =   "\source\chap30\biblio.mdb"
         Exclusive       =   0   'False
         Height          =   300
         Left            =   1260
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "Publishers"
         Top             =   17640
         Width           =   3135
      End
      Begin VB.TextBox Text4
         DataField       =   "PubID"
         DataSource      =   "dtapublishers"
         Height          =   315
         Left            =   1200
         TabIndex        =   8
         Top             =   15960
         Width           =   1215
      End
      Begin VB.Frame Frame1
         Height          =   1275
         Left            =   -60
         TabIndex        =   4
         Top             =   600
         Width           =   1215
         Begin VB.Label Label3
            Caption         =   "Subject"
            Height          =   255
            Left            =   180
            TabIndex        =   7
            Top             =   960
            Width           =   1035
         End
         Begin VB.Label Label2
            Caption         =   "Title"
            Height          =   255
            Left            =   180
            TabIndex        =   6
            Top             =   480
            Width           =   1035
         End
         Begin VB.Label Label1
            Caption         =   "Year"
            Height          =   255
            Left            =   180
            TabIndex        =   5
            Top             =   0
            Width           =   1035
         End
      End
      Begin VB.TextBox Text1
         DataField       =   "Year Published"
         DataSource      =   "dtatitles"
         Height          =   315
         Left            =   1200
         TabIndex        =   3
         Text            =   "Text1"
         Top             =   600
         Width           =   1215
      End
      Begin VB.TextBox Text3
         DataField       =   "Subject"
         DataSource      =   "dtatitles"
         Height          =   315
         Left            =   1200
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   1560
         Width           =   4035
      End
      Begin VB.TextBox Text2
         DataField       =   "Title"
         DataSource      =   "dtatitles"
         Height          =   315
         Left            =   1200
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   1080
         Width           =   4035
      End
      Begin VB.Data dtatitles
         Caption         =   "Titles"
         Connect         =   "Access"
         DatabaseName    =   "\source\chap30\biblio.mdb"
         Exclusive       =   0   'False
         Height          =   300
         Left            =   1260
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "Titles"
         Top             =   2280
         Width           =   3135
      End
   End
Attribute VB_Name = "frmsstab"
Attribute VB_Creatable = False
Attribute VB_Exposed = False