home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm1021.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-28  |  6.4 KB  |  198 lines
  1. VERSION 4.00
  2. Begin VB.Form frmtab 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3105
  5.    ClientLeft      =   2445
  6.    ClientTop       =   1860
  7.    ClientWidth     =   6405
  8.    Height          =   3510
  9.    Left            =   2385
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3105
  12.    ScaleWidth      =   6405
  13.    Top             =   1515
  14.    Width           =   6525
  15.    Begin TabDlg.SSTab SSTab1 
  16.       Height          =   3075
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   6195
  21.       _Version        =   65536
  22.       _ExtentX        =   10927
  23.       _ExtentY        =   5424
  24.       _StockProps     =   15
  25.       Caption         =   "&Books"
  26.       TabsPerRow      =   3
  27.       Tab             =   1
  28.       TabOrientation  =   0
  29.       Tabs            =   2
  30.       Style           =   0
  31.       TabMaxWidth     =   0
  32.       TabHeight       =   529
  33.       TabCaption(0)   =   "Publishers"
  34.       Tab(0).ControlCount=   9
  35.       Tab(0).ControlEnabled=   0   'False
  36.       Tab(0).Control(0)=   "txtState"
  37.       Tab(0).Control(1)=   "txtCity"
  38.       Tab(0).Control(2)=   "txtAddress"
  39.       Tab(0).Control(3)=   "dtaPublishers"
  40.       Tab(0).Control(4)=   "txtName"
  41.       Tab(0).Control(5)=   "lblState"
  42.       Tab(0).Control(6)=   "lblCity"
  43.       Tab(0).Control(7)=   "lblAddress"
  44.       Tab(0).Control(8)=   "lblPublisher"
  45.       TabCaption(1)   =   "&Books"
  46.       Tab(1).ControlCount=   5
  47.       Tab(1).ControlEnabled=   -1  'True
  48.       Tab(1).Control(0)=   "lblTitle"
  49.       Tab(1).Control(1)=   "lblDescription"
  50.       Tab(1).Control(2)=   "dtaBooks"
  51.       Tab(1).Control(3)=   "txtTitle"
  52.       Tab(1).Control(4)=   "txtDescription"
  53.       Begin VB.TextBox txtDescription 
  54.          DataField       =   "Description"
  55.          DataSource      =   "dtaBooks"
  56.          Height          =   315
  57.          Left            =   2280
  58.          TabIndex        =   6
  59.          Top             =   1080
  60.          Width           =   3675
  61.       End
  62.       Begin VB.TextBox txtTitle 
  63.          DataField       =   "Title"
  64.          DataSource      =   "dtaBooks"
  65.          Height          =   315
  66.          Left            =   2280
  67.          TabIndex        =   5
  68.          Top             =   660
  69.          Width           =   3675
  70.       End
  71.       Begin VB.Data dtaBooks 
  72.          Caption         =   "Books"
  73.          Connect         =   "Access"
  74.          DatabaseName    =   "\source\chp21\biblio.mdb"
  75.          Exclusive       =   0   'False
  76.          Height          =   300
  77.          Left            =   420
  78.          Options         =   0
  79.          ReadOnly        =   0   'False
  80.          RecordsetType   =   1  'Dynaset
  81.          RecordSource    =   "Titles"
  82.          Top             =   2640
  83.          Width           =   5475
  84.       End
  85.       Begin VB.TextBox txtState 
  86.          DataField       =   "State"
  87.          DataSource      =   "dtaPublishers"
  88.          Height          =   375
  89.          Left            =   -70260
  90.          TabIndex        =   4
  91.          Top             =   2100
  92.          Width           =   1215
  93.       End
  94.       Begin VB.TextBox txtCity 
  95.          DataField       =   "City"
  96.          DataSource      =   "dtaPublishers"
  97.          Height          =   375
  98.          Left            =   -72660
  99.          TabIndex        =   3
  100.          Top             =   2100
  101.          Width           =   1215
  102.       End
  103.       Begin VB.TextBox txtAddress 
  104.          DataField       =   "Address"
  105.          DataSource      =   "dtaPublishers"
  106.          Height          =   735
  107.          Left            =   -72660
  108.          TabIndex        =   2
  109.          Top             =   1260
  110.          Width           =   3675
  111.       End
  112.       Begin VB.Data dtaPublishers 
  113.          Caption         =   "Publishers"
  114.          Connect         =   "Access"
  115.          DatabaseName    =   "\source\chp21\biblio.mdb"
  116.          Exclusive       =   0   'False
  117.          Height          =   300
  118.          Left            =   -74580
  119.          Options         =   0
  120.          ReadOnly        =   0   'False
  121.          RecordsetType   =   1  'Dynaset
  122.          RecordSource    =   "Publishers"
  123.          Top             =   2580
  124.          Width           =   5475
  125.       End
  126.       Begin VB.TextBox txtName 
  127.          DataField       =   "Name"
  128.          DataSource      =   "dtaPublishers"
  129.          Height          =   315
  130.          Left            =   -72660
  131.          TabIndex        =   1
  132.          Top             =   780
  133.          Width           =   3675
  134.       End
  135.       Begin VB.Label lblDescription 
  136.          Caption         =   "Description"
  137.          Height          =   300
  138.          Left            =   360
  139.          TabIndex        =   12
  140.          Top             =   1140
  141.          Width           =   1215
  142.       End
  143.       Begin VB.Label lblTitle 
  144.          Caption         =   "Title"
  145.          Height          =   300
  146.          Left            =   360
  147.          TabIndex        =   11
  148.          Top             =   720
  149.          Width           =   1215
  150.       End
  151.       Begin VB.Label lblState 
  152.          Caption         =   "State"
  153.          Height          =   300
  154.          Left            =   -71160
  155.          TabIndex        =   10
  156.          Top             =   2160
  157.          Width           =   735
  158.       End
  159.       Begin VB.Label lblCity 
  160.          Caption         =   "City"
  161.          Height          =   300
  162.          Left            =   -74460
  163.          TabIndex        =   9
  164.          Top             =   2160
  165.          Width           =   1215
  166.       End
  167.       Begin VB.Label lblAddress 
  168.          Caption         =   "Address"
  169.          Height          =   300
  170.          Left            =   -74460
  171.          TabIndex        =   8
  172.          Top             =   1260
  173.          Width           =   1215
  174.       End
  175.       Begin VB.Label lblPublisher 
  176.          Caption         =   "Publisher"
  177.          Height          =   295
  178.          Left            =   -74460
  179.          TabIndex        =   7
  180.          Top             =   780
  181.          Width           =   1215
  182.       End
  183.    End
  184. Attribute VB_Name = "frmtab"
  185. Attribute VB_Creatable = False
  186. Attribute VB_Exposed = False
  187. Option Explicit
  188. Private Sub Form_Load()
  189. SSTab1.TabCaption(0) = "Publishers"
  190. SSTab1.TabCaption(1) = "&Books"
  191. End Sub
  192. Private Sub SSTab1_Click(PreviousTab As Integer)
  193. If PreviousTab = 0 Then
  194.     dtaBooks.RecordSource = "select * from titles where pubid= " & dtaPublishers.Recordset("pubid")
  195.     dtaBooks.Refresh
  196. End If
  197. End Sub
  198.