home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch11 / manytbls / manytbls.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  10.0 KB  |  308 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Many Tables"
  4.    ClientHeight    =   4875
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6405
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4875
  10.    ScaleWidth      =   6405
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Data AUTHORS 
  13.       Caption         =   "Authors"
  14.       Connect         =   "Access"
  15.       DatabaseName    =   "C:\Program Files\DevStudio\VB\Biblio.mdb"
  16.       DefaultCursorType=   0  'DefaultCursor
  17.       DefaultType     =   2  'UseODBC
  18.       Exclusive       =   0   'False
  19.       Height          =   345
  20.       Left            =   315
  21.       Options         =   0
  22.       ReadOnly        =   0   'False
  23.       RecordsetType   =   0  'Table
  24.       RecordSource    =   "Authors"
  25.       Top             =   5925
  26.       Visible         =   0   'False
  27.       Width           =   5565
  28.    End
  29.    Begin VB.Data AUTHORISBN 
  30.       Caption         =   "AuthorISBN"
  31.       Connect         =   "Access"
  32.       DatabaseName    =   "C:\Program Files\DevStudio\VB\Biblio.mdb"
  33.       DefaultCursorType=   0  'DefaultCursor
  34.       DefaultType     =   2  'UseODBC
  35.       Exclusive       =   0   'False
  36.       Height          =   345
  37.       Left            =   315
  38.       Options         =   0
  39.       ReadOnly        =   0   'False
  40.       RecordsetType   =   0  'Table
  41.       RecordSource    =   "Title Author"
  42.       Top             =   5550
  43.       Visible         =   0   'False
  44.       Width           =   5550
  45.    End
  46.    Begin VB.Data PUBLISHERS 
  47.       Caption         =   "PUBLISHERS"
  48.       Connect         =   "Access"
  49.       DatabaseName    =   "C:\Program Files\DevStudio\VB\Biblio.mdb"
  50.       DefaultCursorType=   0  'DefaultCursor
  51.       DefaultType     =   2  'UseODBC
  52.       Exclusive       =   0   'False
  53.       Height          =   345
  54.       Left            =   330
  55.       Options         =   0
  56.       ReadOnly        =   0   'False
  57.       RecordsetType   =   0  'Table
  58.       RecordSource    =   "Publishers"
  59.       Top             =   5205
  60.       Visible         =   0   'False
  61.       Width           =   5565
  62.    End
  63.    Begin VB.Data TITLES 
  64.       Caption         =   "TITLES"
  65.       Connect         =   "Access"
  66.       DatabaseName    =   "C:\Program Files\DevStudio\VB\Biblio.mdb"
  67.       DefaultCursorType=   0  'DefaultCursor
  68.       DefaultType     =   2  'UseODBC
  69.       Exclusive       =   0   'False
  70.       Height          =   345
  71.       Left            =   285
  72.       Options         =   0
  73.       ReadOnly        =   0   'False
  74.       RecordsetType   =   0  'Table
  75.       RecordSource    =   "Titles"
  76.       Top             =   4410
  77.       Width           =   6000
  78.    End
  79.    Begin VB.Label Label8 
  80.       BackColor       =   &H80000009&
  81.       BorderStyle     =   1  'Fixed Single
  82.       DataField       =   "Comments"
  83.       DataSource      =   "TITLES"
  84.       Height          =   1275
  85.       Left            =   1065
  86.       TabIndex        =   11
  87.       Top             =   3000
  88.       Width           =   5220
  89.    End
  90.    Begin VB.Label Label7 
  91.       Caption         =   "Comments"
  92.       BeginProperty Font 
  93.          Name            =   "MS Sans Serif"
  94.          Size            =   9.75
  95.          Charset         =   0
  96.          Weight          =   400
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   270
  102.       Left            =   60
  103.       TabIndex        =   10
  104.       Top             =   3000
  105.       Width           =   990
  106.    End
  107.    Begin VB.Label Label6 
  108.       BackColor       =   &H80000009&
  109.       BorderStyle     =   1  'Fixed Single
  110.       DataField       =   "Subject"
  111.       DataSource      =   "TITLES"
  112.       Height          =   750
  113.       Left            =   1065
  114.       TabIndex        =   9
  115.       Top             =   2004
  116.       Width           =   5190
  117.    End
  118.    Begin VB.Label Label5 
  119.       Caption         =   "Subject"
  120.       BeginProperty Font 
  121.          Name            =   "MS Sans Serif"
  122.          Size            =   9.75
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   300
  130.       Left            =   90
  131.       TabIndex        =   8
  132.       Top             =   2004
  133.       Width           =   840
  134.    End
  135.    Begin VB.Label Label4 
  136.       Caption         =   "Author"
  137.       BeginProperty Font 
  138.          Name            =   "MS Sans Serif"
  139.          Size            =   9.75
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   225
  147.       Left            =   75
  148.       TabIndex        =   7
  149.       Top             =   1484
  150.       Width           =   810
  151.    End
  152.    Begin VB.Label Label3 
  153.       Caption         =   "Pub. Year"
  154.       BeginProperty Font 
  155.          Name            =   "MS Sans Serif"
  156.          Size            =   9.75
  157.          Charset         =   0
  158.          Weight          =   400
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   270
  164.       Left            =   3840
  165.       TabIndex        =   6
  166.       Top             =   888
  167.       Width           =   1005
  168.    End
  169.    Begin VB.Label Label2 
  170.       Caption         =   "Publisher"
  171.       BeginProperty Font 
  172.          Name            =   "MS Sans Serif"
  173.          Size            =   9.75
  174.          Charset         =   0
  175.          Weight          =   400
  176.          Underline       =   0   'False
  177.          Italic          =   0   'False
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       Height          =   210
  181.       Left            =   75
  182.       TabIndex        =   5
  183.       Top             =   918
  184.       Width           =   870
  185.    End
  186.    Begin VB.Label Label1 
  187.       Caption         =   "Title"
  188.       BeginProperty Font 
  189.          Name            =   "MS Sans Serif"
  190.          Size            =   9.75
  191.          Charset         =   0
  192.          Weight          =   400
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       Height          =   195
  198.       Left            =   90
  199.       TabIndex        =   4
  200.       Top             =   353
  201.       Width           =   900
  202.    End
  203.    Begin VB.Label lblYearPublished 
  204.       BackColor       =   &H80000009&
  205.       BorderStyle     =   1  'Fixed Single
  206.       DataField       =   "Year Published"
  207.       DataSource      =   "TITLES"
  208.       BeginProperty Font 
  209.          Name            =   "MS Sans Serif"
  210.          Size            =   9.75
  211.          Charset         =   0
  212.          Weight          =   400
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       Height          =   330
  218.       Left            =   5055
  219.       TabIndex        =   3
  220.       Top             =   858
  221.       Width           =   1170
  222.    End
  223.    Begin VB.Label lblAuthor 
  224.       BackColor       =   &H80000009&
  225.       BorderStyle     =   1  'Fixed Single
  226.       DataField       =   "Author"
  227.       DataSource      =   "AUTHORS"
  228.       BeginProperty Font 
  229.          Name            =   "MS Sans Serif"
  230.          Size            =   9.75
  231.          Charset         =   0
  232.          Weight          =   400
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.       Height          =   330
  238.       Left            =   1065
  239.       TabIndex        =   2
  240.       Top             =   1431
  241.       Width           =   3480
  242.    End
  243.    Begin VB.Label lblPublisher 
  244.       BackColor       =   &H80000009&
  245.       BorderStyle     =   1  'Fixed Single
  246.       DataField       =   "Name"
  247.       DataSource      =   "PUBLISHERS"
  248.       BeginProperty Font 
  249.          Name            =   "MS Sans Serif"
  250.          Size            =   9.75
  251.          Charset         =   0
  252.          Weight          =   400
  253.          Underline       =   0   'False
  254.          Italic          =   0   'False
  255.          Strikethrough   =   0   'False
  256.       EndProperty
  257.       Height          =   330
  258.       Left            =   1065
  259.       TabIndex        =   1
  260.       Top             =   858
  261.       Width           =   2445
  262.    End
  263.    Begin VB.Label lblTitle 
  264.       BackColor       =   &H80000009&
  265.       BorderStyle     =   1  'Fixed Single
  266.       DataField       =   "Title"
  267.       DataSource      =   "TITLES"
  268.       BeginProperty Font 
  269.          Name            =   "MS Sans Serif"
  270.          Size            =   9.75
  271.          Charset         =   0
  272.          Weight          =   400
  273.          Underline       =   0   'False
  274.          Italic          =   0   'False
  275.          Strikethrough   =   0   'False
  276.       EndProperty
  277.       Height          =   330
  278.       Left            =   1065
  279.       TabIndex        =   0
  280.       Top             =   285
  281.       Width           =   5190
  282.    End
  283. Attribute VB_Name = "Form1"
  284. Attribute VB_GlobalNameSpace = False
  285. Attribute VB_Creatable = False
  286. Attribute VB_PredeclaredId = True
  287. Attribute VB_Exposed = False
  288. Option Explicit
  289. Private Sub Form_Load()
  290.     PUBLISHERS.Refresh
  291.     AUTHORISBN.Refresh
  292.     AUTHORS.Refresh
  293.     PUBLISHERS.Recordset.Index = "PrimaryKey"
  294.     AUTHORISBN.Recordset.Index = "ISBN"
  295.     AUTHORS.Recordset.Index = "PrimaryKey"
  296. End Sub
  297. Private Sub TITLES_Reposition()
  298.     PUBLISHERS.Recordset.Seek "=", TITLES.Recordset.Fields("PubID")
  299.     If PUBLISHERS.Recordset.NoMatch Then lblPublisher.Caption = "***"
  300.     AUTHORISBN.Recordset.Seek "=", TITLES.Recordset.Fields("ISBN")
  301.     If AUTHORISBN.Recordset.NoMatch Then
  302.         lblAuthor.Caption = "***"
  303.         Exit Sub
  304.     End If
  305.     AUTHORS.Recordset.Seek "=", AUTHORISBN.Recordset.Fields("Au_ID")
  306.                 
  307. End Sub
  308.