home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / biblio.fr_ / biblio.bin
Text File  |  1993-04-28  |  42KB  |  1,314 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Bibliography Database Browser"
  5.    ClientHeight    =   5670
  6.    ClientLeft      =   645
  7.    ClientTop       =   1890
  8.    ClientWidth     =   8385
  9.    Height          =   6360
  10.    Icon            =   BIBLIO.FRX:0000
  11.    Left            =   585
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5670
  14.    ScaleWidth      =   8385
  15.    Top             =   1260
  16.    Width           =   8505
  17.    Begin PictureBox Group 
  18.       BackColor       =   &H00C0C0C0&
  19.       Height          =   4950
  20.       Index           =   1
  21.       Left            =   0
  22.       ScaleHeight     =   4920
  23.       ScaleWidth      =   6915
  24.       TabIndex        =   2
  25.       Top             =   735
  26.       Width           =   6945
  27.       Begin TextBox TitlePublisher 
  28.          DataField       =   "Company Name"
  29.          DataSource      =   "DataCtl(2)"
  30.          FontBold        =   -1  'True
  31.          FontItalic      =   0   'False
  32.          FontName        =   "MS Serif"
  33.          FontSize        =   12
  34.          FontStrikethru  =   0   'False
  35.          FontUnderline   =   0   'False
  36.          Height          =   435
  37.          Left            =   315
  38.          TabIndex        =   25
  39.          Top             =   3570
  40.          Width           =   4530
  41.       End
  42.       Begin TextBox TitlePubID 
  43.          DataField       =   "PubID"
  44.          DataSource      =   "DataCtl(1)"
  45.          FontBold        =   -1  'True
  46.          FontItalic      =   0   'False
  47.          FontName        =   "MS Serif"
  48.          FontSize        =   12
  49.          FontStrikethru  =   0   'False
  50.          FontUnderline   =   0   'False
  51.          Height          =   435
  52.          Left            =   4305
  53.          TabIndex        =   22
  54.          Top             =   1260
  55.          Width           =   750
  56.       End
  57.       Begin TextBox TitleISBN 
  58.          DataField       =   "ISBN"
  59.          DataSource      =   "DataCtl(1)"
  60.          FontBold        =   -1  'True
  61.          FontItalic      =   0   'False
  62.          FontName        =   "MS Serif"
  63.          FontSize        =   12
  64.          FontStrikethru  =   0   'False
  65.          FontUnderline   =   0   'False
  66.          Height          =   435
  67.          Left            =   1365
  68.          TabIndex        =   20
  69.          Top             =   1260
  70.          Width           =   2850
  71.       End
  72.       Begin TextBox TitleAuID 
  73.          DataField       =   "Au_ID"
  74.          DataSource      =   "DataCtl(1)"
  75.          FontBold        =   -1  'True
  76.          FontItalic      =   0   'False
  77.          FontName        =   "MS Serif"
  78.          FontSize        =   12
  79.          FontStrikethru  =   0   'False
  80.          FontUnderline   =   0   'False
  81.          Height          =   435
  82.          Left            =   315
  83.          TabIndex        =   18
  84.          Top             =   1260
  85.          Width           =   645
  86.       End
  87.       Begin TextBox TitleYearPublished 
  88.          DataField       =   "Year Published"
  89.          DataSource      =   "DataCtl(1)"
  90.          FontBold        =   -1  'True
  91.          FontItalic      =   0   'False
  92.          FontName        =   "MS Serif"
  93.          FontSize        =   12
  94.          FontStrikethru  =   0   'False
  95.          FontUnderline   =   0   'False
  96.          Height          =   435
  97.          Left            =   5145
  98.          TabIndex        =   16
  99.          Top             =   1260
  100.          Width           =   1695
  101.       End
  102.       Begin TextBox TitleField 
  103.          DataField       =   "Title"
  104.          DataSource      =   "DataCtl(1)"
  105.          FontBold        =   -1  'True
  106.          FontItalic      =   0   'False
  107.          FontName        =   "MS Serif"
  108.          FontSize        =   12
  109.          FontStrikethru  =   0   'False
  110.          FontUnderline   =   0   'False
  111.          Height          =   435
  112.          Left            =   105
  113.          TabIndex        =   14
  114.          Top             =   315
  115.          Width           =   6735
  116.       End
  117.       Begin Data DataCtl 
  118.          BackColor       =   &H00C0C0C0&
  119.          Caption         =   "Titles"
  120.          Connect         =   ""
  121.          DatabaseName    =   "biblio.mdb"
  122.          Exclusive       =   0   'False
  123.          FontBold        =   -1  'True
  124.          FontItalic      =   0   'False
  125.          FontName        =   "MS Serif"
  126.          FontSize        =   12
  127.          FontStrikethru  =   0   'False
  128.          FontUnderline   =   0   'False
  129.          Height          =   435
  130.          Index           =   1
  131.          Left            =   0
  132.          Options         =   0
  133.          ReadOnly        =   -1  'True
  134.          RecordSource    =   "Select * from Titles Order by Title"
  135.          Top             =   4515
  136.          Width           =   6945
  137.       End
  138.       Begin Label TitleAuthor 
  139.          BorderStyle     =   1  'Fixed Single
  140.          DataField       =   "Author"
  141.          DataSource      =   "DataCtl(0)"
  142.          FontBold        =   -1  'True
  143.          FontItalic      =   0   'False
  144.          FontName        =   "MS Serif"
  145.          FontSize        =   12
  146.          FontStrikethru  =   0   'False
  147.          FontUnderline   =   0   'False
  148.          Height          =   540
  149.          Left            =   315
  150.          TabIndex        =   57
  151.          Top             =   2730
  152.          Width           =   6420
  153.       End
  154.       Begin Line Line1 
  155.          BorderWidth     =   2
  156.          X1              =   6930
  157.          X2              =   0
  158.          Y1              =   2310
  159.          Y2              =   2310
  160.       End
  161.       Begin Label Label5 
  162.          BackColor       =   &H00C0C0C0&
  163.          Caption         =   "Publisher"
  164.          FontBold        =   -1  'True
  165.          FontItalic      =   0   'False
  166.          FontName        =   "MS Serif"
  167.          FontSize        =   12
  168.          FontStrikethru  =   0   'False
  169.          FontUnderline   =   0   'False
  170.          Height          =   330
  171.          Index           =   6
  172.          Left            =   420
  173.          TabIndex        =   26
  174.          Top             =   3255
  175.          Width           =   1485
  176.       End
  177.       Begin Label Label5 
  178.          BackColor       =   &H00C0C0C0&
  179.          Caption         =   "Author"
  180.          FontBold        =   -1  'True
  181.          FontItalic      =   0   'False
  182.          FontName        =   "MS Serif"
  183.          FontSize        =   12
  184.          FontStrikethru  =   0   'False
  185.          FontUnderline   =   0   'False
  186.          Height          =   330
  187.          Index           =   5
  188.          Left            =   420
  189.          TabIndex        =   24
  190.          Top             =   2415
  191.          Width           =   1485
  192.       End
  193.       Begin Label Label5 
  194.          BackColor       =   &H00C0C0C0&
  195.          Caption         =   "PubID"
  196.          FontBold        =   -1  'True
  197.          FontItalic      =   0   'False
  198.          FontName        =   "MS Serif"
  199.          FontSize        =   12
  200.          FontStrikethru  =   0   'False
  201.          FontUnderline   =   0   'False
  202.          Height          =   330
  203.          Index           =   4
  204.          Left            =   4305
  205.          TabIndex        =   23
  206.          Top             =   945
  207.          Width           =   750
  208.       End
  209.       Begin Label Label5 
  210.          BackColor       =   &H00C0C0C0&
  211.          Caption         =   "ISBN"
  212.          FontBold        =   -1  'True
  213.          FontItalic      =   0   'False
  214.          FontName        =   "MS Serif"
  215.          FontSize        =   12
  216.          FontStrikethru  =   0   'False
  217.          FontUnderline   =   0   'False
  218.          Height          =   330
  219.          Index           =   3
  220.          Left            =   1470
  221.          TabIndex        =   21
  222.          Top             =   945
  223.          Width           =   1485
  224.       End
  225.       Begin Label Label5 
  226.          BackColor       =   &H00C0C0C0&
  227.          Caption         =   "Author ID"
  228.          FontBold        =   -1  'True
  229.          FontItalic      =   0   'False
  230.          FontName        =   "MS Serif"
  231.          FontSize        =   12
  232.          FontStrikethru  =   0   'False
  233.          FontUnderline   =   0   'False
  234.          Height          =   330
  235.          Index           =   2
  236.          Left            =   105
  237.          TabIndex        =   19
  238.          Top             =   945
  239.          Width           =   1485
  240.       End
  241.       Begin Label Label5 
  242.          BackColor       =   &H00C0C0C0&
  243.          Caption         =   "Year Published"
  244.          FontBold        =   -1  'True
  245.          FontItalic      =   0   'False
  246.          FontName        =   "MS Serif"
  247.          FontSize        =   12
  248.          FontStrikethru  =   0   'False
  249.          FontUnderline   =   0   'False
  250.          Height          =   330
  251.          Index           =   1
  252.          Left            =   5145
  253.          TabIndex        =   17
  254.          Top             =   945
  255.          Width           =   1695
  256.       End
  257.       Begin Label Label5 
  258.          BackColor       =   &H00C0C0C0&
  259.          Caption         =   "Title"
  260.          FontBold        =   -1  'True
  261.          FontItalic      =   0   'False
  262.          FontName        =   "MS Serif"
  263.          FontSize        =   12
  264.          FontStrikethru  =   0   'False
  265.          FontUnderline   =   0   'False
  266.          ForeColor       =   &H00C00000&
  267.          Height          =   330
  268.          Index           =   0
  269.          Left            =   105
  270.          TabIndex        =   15
  271.          Top             =   0
  272.          Width           =   1485
  273.       End
  274.    End
  275.    Begin PictureBox Group 
  276.       BackColor       =   &H00C0C0C0&
  277.       Height          =   4950
  278.       Index           =   3
  279.       Left            =   0
  280.       ScaleHeight     =   4920
  281.       ScaleWidth      =   6915
  282.       TabIndex        =   0
  283.       Top             =   735
  284.       Width           =   6945
  285.       Begin TextBox CommentsPubID 
  286.          DataField       =   "PubID"
  287.          DataSource      =   "DataCtl(3)"
  288.          Height          =   330
  289.          Left            =   5040
  290.          TabIndex        =   46
  291.          Top             =   630
  292.          Width           =   1275
  293.       End
  294.       Begin TextBox Text4 
  295.          DataField       =   "Comments"
  296.          DataSource      =   "DataCtl(3)"
  297.          Height          =   3270
  298.          Left            =   105
  299.          MultiLine       =   -1  'True
  300.          TabIndex        =   44
  301.          Top             =   1155
  302.          Width           =   6735
  303.       End
  304.       Begin Data DataCtl 
  305.          BackColor       =   &H00C0C0C0&
  306.          Caption         =   "Comments"
  307.          Connect         =   ""
  308.          DatabaseName    =   "biblio.mdb"
  309.          Exclusive       =   0   'False
  310.          Height          =   435
  311.          Index           =   3
  312.          Left            =   0
  313.          Options         =   0
  314.          ReadOnly        =   -1  'True
  315.          RecordSource    =   "Publisher Comments"
  316.          Top             =   4515
  317.          Width           =   6840
  318.       End
  319.       Begin Label Label11 
  320.          BorderStyle     =   1  'Fixed Single
  321.          DataField       =   "Publisher"
  322.          DataSource      =   "DataCtl(3)"
  323.          Height          =   330
  324.          Left            =   105
  325.          TabIndex        =   49
  326.          Top             =   315
  327.          Width           =   4845
  328.       End
  329.       Begin Label Label10 
  330.          BackColor       =   &H00C0C0C0&
  331.          Caption         =   "Comments on Publisher Named:"
  332.          FontBold        =   -1  'True
  333.          FontItalic      =   0   'False
  334.          FontName        =   "MS Serif"
  335.          FontSize        =   12
  336.          FontStrikethru  =   0   'False
  337.          FontUnderline   =   0   'False
  338.          ForeColor       =   &H00C00000&
  339.          Height          =   330
  340.          Left            =   105
  341.          TabIndex        =   48
  342.          Top             =   0
  343.          Width           =   4845
  344.       End
  345.       Begin Label Label9 
  346.          BackColor       =   &H00C0C0C0&
  347.          Caption         =   "PubID"
  348.          FontBold        =   -1  'True
  349.          FontItalic      =   0   'False
  350.          FontName        =   "MS Serif"
  351.          FontSize        =   12
  352.          FontStrikethru  =   0   'False
  353.          FontUnderline   =   0   'False
  354.          Height          =   330
  355.          Left            =   5040
  356.          TabIndex        =   47
  357.          Top             =   315
  358.          Width           =   855
  359.       End
  360.       Begin Label Label8 
  361.          BackColor       =   &H00C0C0C0&
  362.          Caption         =   "Comments"
  363.          FontBold        =   -1  'True
  364.          FontItalic      =   0   'False
  365.          FontName        =   "MS Serif"
  366.          FontSize        =   12
  367.          FontStrikethru  =   0   'False
  368.          FontUnderline   =   0   'False
  369.          Height          =   330
  370.          Left            =   105
  371.          TabIndex        =   45
  372.          Top             =   840
  373.          Width           =   1695
  374.       End
  375.    End
  376.    Begin PictureBox Group 
  377.       BackColor       =   &H00C0C0C0&
  378.       Height          =   4950
  379.       Index           =   2
  380.       Left            =   0
  381.       ScaleHeight     =   4920
  382.       ScaleWidth      =   6915
  383.       TabIndex        =   1
  384.       Top             =   735
  385.       Width           =   6945
  386.       Begin Data DataCtl 
  387.          BackColor       =   &H00C0C0C0&
  388.          Caption         =   "Publishers"
  389.          Connect         =   ""
  390.          DatabaseName    =   "biblio.mdb"
  391.          Exclusive       =   0   'False
  392.          Height          =   435
  393.          Index           =   2
  394.          Left            =   0
  395.          Options         =   0
  396.          ReadOnly        =   -1  'True
  397.          RecordSource    =   "Select * from Publishers order by Name"
  398.          Top             =   4515
  399.          Width           =   6735
  400.       End
  401.       Begin ComboBox PubsAuthors 
  402.          FontBold        =   -1  'True
  403.          FontItalic      =   0   'False
  404.          FontName        =   "MS Serif"
  405.          FontSize        =   12
  406.          FontStrikethru  =   0   'False
  407.          FontUnderline   =   0   'False
  408.          Height          =   405
  409.          Left            =   105
  410.          Style           =   2  'Dropdown List
  411.          TabIndex        =   55
  412.          Top             =   3990
  413.          Width           =   6735
  414.       End
  415.       Begin ComboBox PubsTitles 
  416.          FontBold        =   -1  'True
  417.          FontItalic      =   0   'False
  418.          FontName        =   "MS Serif"
  419.          FontSize        =   12
  420.          FontStrikethru  =   0   'False
  421.          FontUnderline   =   0   'False
  422.          Height          =   405
  423.          Left            =   105
  424.          Style           =   2  'Dropdown List
  425.          TabIndex        =   53
  426.          Top             =   3045
  427.          Width           =   6735
  428.       End
  429.       Begin TextBox Text1 
  430.          DataField       =   "Fax"
  431.          DataSource      =   "DataCtl(2)"
  432.          FontBold        =   -1  'True
  433.          FontItalic      =   0   'False
  434.          FontName        =   "MS Serif"
  435.          FontSize        =   8.25
  436.          FontStrikethru  =   0   'False
  437.          FontUnderline   =   0   'False
  438.          Height          =   285
  439.          Index           =   8
  440.          Left            =   2940
  441.          TabIndex        =   41
  442.          Top             =   2415
  443.          Width           =   2220
  444.       End
  445.       Begin TextBox Text1 
  446.          DataField       =   "Telephone"
  447.          DataSource      =   "DataCtl(2)"
  448.          FontBold        =   -1  'True
  449.          FontItalic      =   0   'False
  450.          FontName        =   "MS Serif"
  451.          FontSize        =   8.25
  452.          FontStrikethru  =   0   'False
  453.          FontUnderline   =   0   'False
  454.          Height          =   285
  455.          Index           =   7
  456.          Left            =   105
  457.          TabIndex        =   40
  458.          Top             =   2415
  459.          Width           =   2745
  460.       End
  461.       Begin TextBox Text1 
  462.          DataField       =   "Zip"
  463.          DataSource      =   "DataCtl(2)"
  464.          FontBold        =   -1  'True
  465.          FontItalic      =   0   'False
  466.          FontName        =   "MS Serif"
  467.          FontSize        =   8.25
  468.          FontStrikethru  =   0   'False
  469.          FontUnderline   =   0   'False
  470.          Height          =   285
  471.          Index           =   6
  472.          Left            =   3885
  473.          TabIndex        =   39
  474.          Top             =   1890
  475.          Width           =   1275
  476.       End
  477.       Begin TextBox Text1 
  478.          DataField       =   "State"
  479.          DataSource      =   "DataCtl(2)"
  480.          FontBold        =   -1  'True
  481.          FontItalic      =   0   'False
  482.          FontName        =   "MS Serif"
  483.          FontSize        =   8.25
  484.          FontStrikethru  =   0   'False
  485.          FontUnderline   =   0   'False
  486.          Height          =   285
  487.          Index           =   5
  488.          Left            =   2940
  489.          TabIndex        =   38
  490.          Top             =   1890
  491.          Width           =   855
  492.       End
  493.       Begin TextBox Text1 
  494.          DataField       =   "City"
  495.          DataSource      =   "DataCtl(2)"
  496.          FontBold        =   -1  'True
  497.          FontItalic      =   0   'False
  498.          FontName        =   "MS Serif"
  499.          FontSize        =   8.25
  500.          FontStrikethru  =   0   'False
  501.          FontUnderline   =   0   'False
  502.          Height          =   285
  503.          Index           =   4
  504.          Left            =   105
  505.          TabIndex        =   37
  506.          Top             =   1890
  507.          Width           =   2745
  508.       End
  509.       Begin TextBox Text1 
  510.          DataField       =   "Address"
  511.          DataSource      =   "DataCtl(2)"
  512.          FontBold        =   -1  'True
  513.          FontItalic      =   0   'False
  514.          FontName        =   "MS Serif"
  515.          FontSize        =   8.25
  516.          FontStrikethru  =   0   'False
  517.          FontUnderline   =   0   'False
  518.          Height          =   285
  519.          Index           =   3
  520.          Left            =   105
  521.          TabIndex        =   35
  522.          Top             =   1575
  523.          Width           =   5055
  524.       End
  525.       Begin TextBox Text1 
  526.          DataField       =   "Name"
  527.          DataSource      =   "DataCtl(2)"
  528.          FontBold        =   -1  'True
  529.          FontItalic      =   0   'False
  530.          FontName        =   "MS Serif"
  531.          FontSize        =   12
  532.          FontStrikethru  =   0   'False
  533.          FontUnderline   =   0   'False
  534.          Height          =   420
  535.          Index           =   2
  536.          Left            =   105
  537.          TabIndex        =   33
  538.          Top             =   315
  539.          Width           =   6735
  540.       End
  541.       Begin TextBox PubPubID 
  542.          DataField       =   "PubID"
  543.          DataSource      =   "DataCtl(2)"
  544.          FontBold        =   -1  'True
  545.          FontItalic      =   0   'False
  546.          FontName        =   "MS Serif"
  547.          FontSize        =   8.25
  548.          FontStrikethru  =   0   'False
  549.          FontUnderline   =   0   'False
  550.          Height          =   285
  551.          Left            =   5775
  552.          TabIndex        =   31
  553.          Top             =   1680
  554.          Width           =   855
  555.       End
  556.       Begin TextBox Text1 
  557.          DataField       =   "Company Name"
  558.          DataSource      =   "DataCtl(2)"
  559.          FontBold        =   -1  'True
  560.          FontItalic      =   0   'False
  561.          FontName        =   "MS Serif"
  562.          FontSize        =   8.25
  563.          FontStrikethru  =   0   'False
  564.          FontUnderline   =   0   'False
  565.          Height          =   285
  566.          Index           =   0
  567.          Left            =   105
  568.          TabIndex        =   29
  569.          Top             =   1050
  570.          Width           =   6525
  571.       End
  572.       Begin Shape Shape1 
  573.          Height          =   1905
  574.          Left            =   105
  575.          Top             =   840
  576.          Width           =   6630
  577.       End
  578.       Begin Label Label13 
  579.          BackColor       =   &H00C0C0C0&
  580.          Caption         =   "Authors"
  581.          FontBold        =   -1  'True
  582.          FontItalic      =   0   'False
  583.          FontName        =   "MS Serif"
  584.          FontSize        =   9.75
  585.          FontStrikethru  =   0   'False
  586.          FontUnderline   =   0   'False
  587.          Height          =   330
  588.          Left            =   105
  589.          TabIndex        =   56
  590.          Top             =   3780
  591.          Width           =   1905
  592.       End
  593.       Begin Label Label12 
  594.          BackColor       =   &H00C0C0C0&
  595.          Caption         =   "Titles Published"
  596.          FontBold        =   -1  'True
  597.          FontItalic      =   0   'False
  598.          FontName        =   "MS Serif"
  599.          FontSize        =   9.75
  600.          FontStrikethru  =   0   'False
  601.          FontUnderline   =   0   'False
  602.          Height          =   330
  603.          Left            =   105
  604.          TabIndex        =   54
  605.          Top             =   2835
  606.          Width           =   1905
  607.       End
  608.       Begin Label Label7 
  609.          BackColor       =   &H00C0C0C0&
  610.          Caption         =   "Phone - FAX"
  611.          FontBold        =   -1  'True
  612.          FontItalic      =   0   'False
  613.          FontName        =   "MS Serif"
  614.          FontSize        =   8.25
  615.          FontStrikethru  =   0   'False
  616.          FontUnderline   =   0   'False
  617.          Height          =   225
  618.          Index           =   4
  619.          Left            =   210
  620.          TabIndex        =   43
  621.          Top             =   2205
  622.          Width           =   1590
  623.       End
  624.       Begin Label Label7 
  625.          BackColor       =   &H00C0C0C0&
  626.          Caption         =   "Address"
  627.          FontBold        =   -1  'True
  628.          FontItalic      =   0   'False
  629.          FontName        =   "MS Serif"
  630.          FontSize        =   8.25
  631.          FontStrikethru  =   0   'False
  632.          FontUnderline   =   0   'False
  633.          Height          =   330
  634.          Index           =   3
  635.          Left            =   210
  636.          TabIndex        =   36
  637.          Top             =   1365
  638.          Width           =   1590
  639.       End
  640.       Begin Label Label7 
  641.          BackColor       =   &H00C0C0C0&
  642.          Caption         =   "Publisher"
  643.          FontBold        =   -1  'True
  644.          FontItalic      =   0   'False
  645.          FontName        =   "MS Serif"
  646.          FontSize        =   12
  647.          FontStrikethru  =   0   'False
  648.          FontUnderline   =   0   'False
  649.          ForeColor       =   &H00C00000&
  650.          Height          =   330
  651.          Index           =   2
  652.          Left            =   105
  653.          TabIndex        =   34
  654.          Top             =   0
  655.          Width           =   1800
  656.       End
  657.       Begin Label Label7 
  658.          BackColor       =   &H00C0C0C0&
  659.          Caption         =   "PubID"
  660.          FontBold        =   -1  'True
  661.          FontItalic      =   0   'False
  662.          FontName        =   "MS Serif"
  663.          FontSize        =   8.25
  664.          FontStrikethru  =   0   'False
  665.          FontUnderline   =   0   'False
  666.          Height          =   225
  667.          Index           =   1
  668.          Left            =   5880
  669.          TabIndex        =   32
  670.          Top             =   1470
  671.          Width           =   750
  672.       End
  673.       Begin Label Label7 
  674.          BackColor       =   &H00C0C0C0&
  675.          Caption         =   "Company Name"
  676.          FontBold        =   -1  'True
  677.          FontItalic      =   0   'False
  678.          FontName        =   "MS Serif"
  679.          FontSize        =   8.25
  680.          FontStrikethru  =   0   'False
  681.          FontUnderline   =   0   'False
  682.          Height          =   330
  683.          Index           =   0
  684.          Left            =   210
  685.          TabIndex        =   30
  686.          Top             =   840
  687.          Width           =   3585
  688.       End
  689.    End
  690.    Begin PictureBox Group 
  691.       BackColor       =   &H00C0C0C0&
  692.       Height          =   4950
  693.       Index           =   0
  694.       Left            =   0
  695.       ScaleHeight     =   4920
  696.       ScaleWidth      =   6915
  697.       TabIndex        =   3
  698.       Top             =   735
  699.       Width           =   6945
  700.       Begin ListBox ListPublishers 
  701.          FontBold        =   -1  'True
  702.          FontItalic      =   0   'False
  703.          FontName        =   "MS Serif"
  704.          FontSize        =   9.75
  705.          FontStrikethru  =   0   'False
  706.          FontUnderline   =   0   'False
  707.          Height          =   990
  708.          Left            =   210
  709.          TabIndex        =   50
  710.          Top             =   3255
  711.          Width           =   6210
  712.       End
  713.       Begin Data DataCtl 
  714.          Caption         =   "PubsList"
  715.          Connect         =   ""
  716.          DatabaseName    =   "biblio.mdb"
  717.          Exclusive       =   0   'False
  718.          Height          =   330
  719.          Index           =   4
  720.          Left            =   0
  721.          Options         =   0
  722.          ReadOnly        =   -1  'True
  723.          RecordSource    =   ""
  724.          Top             =   4095
  725.          Visible         =   0   'False
  726.          Width           =   1440
  727.       End
  728.       Begin ListBox TitlesList 
  729.          FontBold        =   -1  'True
  730.          FontItalic      =   0   'False
  731.          FontName        =   "MS Serif"
  732.          FontSize        =   9.75
  733.          FontStrikethru  =   0   'False
  734.          FontUnderline   =   0   'False
  735.          Height          =   990
  736.          Left            =   210
  737.          TabIndex        =   28
  738.          Top             =   1575
  739.          Width           =   6210
  740.       End
  741.       Begin TextBox AuthorName 
  742.          DataField       =   "Author"
  743.          DataSource      =   "DataCtl(0)"
  744.          FontBold        =   -1  'True
  745.          FontItalic      =   0   'False
  746.          FontName        =   "MS Serif"
  747.          FontSize        =   12
  748.          FontStrikethru  =   0   'False
  749.          FontUnderline   =   0   'False
  750.          Height          =   435
  751.          Left            =   105
  752.          TabIndex        =   11
  753.          Top             =   315
  754.          Width           =   4950
  755.       End
  756.       Begin TextBox AuthorAuID 
  757.          DataField       =   "Au_ID"
  758.          DataSource      =   "DataCtl(0)"
  759.          FontBold        =   -1  'True
  760.          FontItalic      =   0   'False
  761.          FontName        =   "MS Serif"
  762.          FontSize        =   8.25
  763.          FontStrikethru  =   0   'False
  764.          FontUnderline   =   0   'False
  765.          Height          =   285
  766.          Left            =   5250
  767.          TabIndex        =   4
  768.          Top             =   630
  769.          Width           =   1170
  770.       End
  771.       Begin Data DataCtl 
  772.          BackColor       =   &H00C0C0C0&
  773.          Caption         =   "Authors"
  774.          Connect         =   ""
  775.          DatabaseName    =   "biblio.mdb"
  776.          Exclusive       =   0   'False
  777.          Height          =   435
  778.          Index           =   0
  779.          Left            =   0
  780.          Options         =   0
  781.          ReadOnly        =   -1  'True
  782.          RecordSource    =   "Select * from Authors Order by Author"
  783.          Top             =   4515
  784.          Width           =   6735
  785.       End
  786.       Begin Label Label7 
  787.          BackColor       =   &H00C0C0C0&
  788.          Caption         =   "Publishers"
  789.          FontBold        =   -1  'True
  790.          FontItalic      =   0   'False
  791.          FontName        =   "MS Serif"
  792.          FontSize        =   12
  793.          FontStrikethru  =   0   'False
  794.          FontUnderline   =   0   'False
  795.          Height          =   225
  796.          Index           =   5
  797.          Left            =   210
  798.          TabIndex        =   51
  799.          Top             =   2940
  800.          Width           =   1695
  801.       End
  802.       Begin Label Label6 
  803.          BackColor       =   &H00C0C0C0&
  804.          Caption         =   "Titles"
  805.          FontBold        =   -1  'True
  806.          FontItalic      =   0   'False
  807.          FontName        =   "MS Serif"
  808.          FontSize        =   12
  809.          FontStrikethru  =   0   'False
  810.          FontUnderline   =   0   'False
  811.          Height          =   330
  812.          Left            =   210
  813.          TabIndex        =   27
  814.          Top             =   1155
  815.          Width           =   1905
  816.       End
  817.       Begin Line Line2 
  818.          BorderWidth     =   2
  819.          X1              =   0
  820.          X2              =   6930
  821.          Y1              =   1050
  822.          Y2              =   1050
  823.       End
  824.       Begin Label Label4 
  825.          BackColor       =   &H00C0C0C0&
  826.          Caption         =   "Author Name"
  827.          FontBold        =   -1  'True
  828.          FontItalic      =   0   'False
  829.          FontName        =   "MS Serif"
  830.          FontSize        =   12
  831.          FontStrikethru  =   0   'False
  832.          FontUnderline   =   0   'False
  833.          ForeColor       =   &H00C00000&
  834.          Height          =   435
  835.          Left            =   105
  836.          TabIndex        =   13
  837.          Top             =   0
  838.          Width           =   2430
  839.       End
  840.       Begin Label Label3 
  841.          BackColor       =   &H00C0C0C0&
  842.          Caption         =   "Author ID"
  843.          FontBold        =   -1  'True
  844.          FontItalic      =   0   'False
  845.          FontName        =   "MS Serif"
  846.          FontSize        =   12
  847.          FontStrikethru  =   0   'False
  848.          FontUnderline   =   0   'False
  849.          Height          =   435
  850.          Left            =   5250
  851.          TabIndex        =   12
  852.          Top             =   315
  853.          Width           =   1170
  854.       End
  855.    End
  856.    Begin PictureBox ButtonBox 
  857.       AutoRedraw      =   -1  'True
  858.       AutoSize        =   -1  'True
  859.       Height          =   750
  860.       Left            =   0
  861.       ScaleHeight     =   720
  862.       ScaleWidth      =   8385
  863.       TabIndex        =   5
  864.       Top             =   0
  865.       Width           =   8415
  866.       Begin CommandButton DisplayStyle 
  867.          Caption         =   "ShowAll"
  868.          FontBold        =   -1  'True
  869.          FontItalic      =   -1  'True
  870.          FontName        =   "MS Serif"
  871.          FontSize        =   12
  872.          FontStrikethru  =   0   'False
  873.          FontUnderline   =   0   'False
  874.          Height          =   750
  875.          Left            =   6720
  876.          TabIndex        =   52
  877.          Top             =   0
  878.          Width           =   1695
  879.       End
  880.       Begin CommandButton TablePointer 
  881.          Caption         =   "Authors"
  882.          FontBold        =   -1  'True
  883.          FontItalic      =   -1  'True
  884.          FontName        =   "MS Serif"
  885.          FontSize        =   12
  886.          FontStrikethru  =   0   'False
  887.          FontUnderline   =   0   'False
  888.          Height          =   750
  889.          Index           =   0
  890.          Left            =   1680
  891.          TabIndex        =   42
  892.          Top             =   0
  893.          Width           =   1695
  894.       End
  895.       Begin CommandButton TablePointer 
  896.          BackColor       =   &H00808000&
  897.          Caption         =   "Titles"
  898.          Default         =   -1  'True
  899.          FontBold        =   -1  'True
  900.          FontItalic      =   -1  'True
  901.          FontName        =   "MS Serif"
  902.          FontSize        =   12
  903.          FontStrikethru  =   0   'False
  904.          FontUnderline   =   0   'False
  905.          Height          =   750
  906.          Index           =   1
  907.          Left            =   0
  908.          TabIndex        =   8
  909.          Top             =   0
  910.          Width           =   1695
  911.       End
  912.       Begin CommandButton TablePointer 
  913.          Caption         =   "Publishers"
  914.          FontBold        =   -1  'True
  915.          FontItalic      =   -1  'True
  916.          FontName        =   "MS Serif"
  917.          FontSize        =   12
  918.          FontStrikethru  =   0   'False
  919.          FontUnderline   =   0   'False
  920.          Height          =   750
  921.          Index           =   2
  922.          Left            =   3360
  923.          TabIndex        =   7
  924.          Top             =   0
  925.          Width           =   1695
  926.       End
  927.       Begin CommandButton TablePointer 
  928.          Caption         =   "Comments"
  929.          FontBold        =   -1  'True
  930.          FontItalic      =   -1  'True
  931.          FontName        =   "MS Serif"
  932.          FontSize        =   12
  933.          FontStrikethru  =   0   'False
  934.          FontUnderline   =   0   'False
  935.          Height          =   750
  936.          Index           =   3
  937.          Left            =   5040
  938.          TabIndex        =   6
  939.          Top             =   0
  940.          Width           =   1695
  941.       End
  942.    End
  943.    Begin Label Label2 
  944.       Caption         =   "Label2"
  945.       Height          =   435
  946.       Left            =   3780
  947.       TabIndex        =   10
  948.       Top             =   3990
  949.       Width           =   1170
  950.    End
  951.    Begin Label Label1 
  952.       Caption         =   "Label1"
  953.       Height          =   435
  954.       Left            =   3780
  955.       TabIndex        =   9
  956.       Top             =   3990
  957.       Width           =   1170
  958.    End
  959.    Begin Menu Menufile 
  960.       Caption         =   "&File"
  961.       Begin Menu MenuFileExit 
  962.          Caption         =   "E&xit"
  963.       End
  964.    End
  965.    Begin Menu MenuSelectMain 
  966.       Caption         =   "&Select"
  967.       Begin Menu MenuSelect 
  968.          Caption         =   "&Authors"
  969.          Index           =   0
  970.       End
  971.       Begin Menu MenuSelect 
  972.          Caption         =   "&Titles"
  973.          Index           =   1
  974.       End
  975.       Begin Menu MenuSelect 
  976.          Caption         =   "&Publishers"
  977.          Index           =   2
  978.       End
  979.       Begin Menu MenuSelect 
  980.          Caption         =   "Publisher &Comments"
  981.          Index           =   3
  982.       End
  983.    End
  984.    Begin Menu MenuChanges 
  985.       Caption         =   "&Changes"
  986.       Begin Menu MenuChangesLock 
  987.          Caption         =   "&Data Locked"
  988.          Checked         =   -1  'True
  989.       End
  990.    End
  991. End
  992. Option Explicit
  993. '
  994. '   Define the constants that refer to the data control
  995. '   control array. There are 5 data controls used. 1 for
  996. '   each table accessed in the BIBLIO database and 1 to
  997. '   generate the lists of publishers, titles and authors
  998. '
  999. Const Authors% = 0
  1000. Const Titles% = 1
  1001. Const Publishers% = 2
  1002. Const Comments% = 3
  1003. Const PubsList% = 4
  1004. Dim Loading As Integer
  1005.  
  1006. Sub AuthorAuID_Change ()
  1007. '
  1008. '   The author ID has changed. Update the lists of titles
  1009. '   and publisher information for this author.
  1010. '
  1011. Dim SavePlace As Variant
  1012. Dim SQL As String
  1013.  
  1014. If Loading Then Exit Sub
  1015. DoEvents
  1016.  
  1017. '
  1018. '   Save the current record pointer in case the SQL query
  1019. '   fails.
  1020.  
  1021. SavePlace = DataCtl(Titles).Recordset.Bookmark
  1022. '
  1023. '   Clear the list of titles and publishers
  1024. '   for this author
  1025.  
  1026. TitlesList.Clear
  1027. ListPublishers.Clear
  1028.  
  1029. '
  1030. '   Query the database for all of the titles this author
  1031. '   has written. Fill in the titleslist table with the records
  1032. '
  1033. SQL = "Select distinct Title from Titles"
  1034. SQL = SQL & " where titles.Au_ID = " & AuthorAuID.Text
  1035.  
  1036. DataCtl(PubsList).RecordSource = SQL
  1037. DataCtl(PubsList).Refresh
  1038.  
  1039. Do While Not DataCtl(PubsList).Recordset.EOF
  1040.     TitlesList.AddItem DataCtl(PubsList).Recordset("Title")
  1041.     DataCtl(PubsList).Recordset.MoveNext
  1042. Loop
  1043. '
  1044. '   Do the same for the publishers for this author.
  1045. '   This query joins the titles and publishers table
  1046. '   on the publisher's ID number. It filters for the
  1047. '   current author.
  1048. '
  1049.  
  1050. SQL = "Select distinct [Company Name] from Titles, Publishers "
  1051. SQL = SQL & " where titles.PubID = Publishers.PubID and "
  1052. SQL = SQL & " titles.Au_ID = " & AuthorAuID.Text
  1053.  
  1054. DataCtl(PubsList).RecordSource = SQL
  1055. DataCtl(PubsList).Refresh
  1056.  
  1057. Do While Not DataCtl(PubsList).Recordset.EOF
  1058.     ListPublishers.AddItem DataCtl(PubsList).Recordset("Company Name")
  1059.     DataCtl(PubsList).Recordset.MoveNext
  1060. Loop
  1061.  
  1062.  
  1063. End Sub
  1064.  
  1065. Sub DisplayStyle_Click ()
  1066. '
  1067. '   Position the picture controls holding the table
  1068. '   templates to either overlap or cascade.
  1069. '
  1070. Static AllState As Integer
  1071. Dim i As Integer, J As Integer
  1072. Dim TopIncr As Integer
  1073. Dim LeftIncr As Integer
  1074. AllState = Not AllState
  1075. If AllState = False Then
  1076.   For i = Authors To Comments
  1077.     Group(i).Top = ButtonBox.Top + ButtonBox.Height
  1078.     Group(i).Left = 0
  1079.     Group(i).ZOrder 1
  1080.   Next i
  1081.   form1.Height = Group(0).Height + Group(0).Top + ButtonBox.Height
  1082.   DisplayStyle.Caption = "Show All"
  1083. Else
  1084.     TopIncr = Group(0).Height * .06
  1085.     LeftIncr = Group(0).Width * .06
  1086.     J = 0
  1087.     i = Publishers
  1088.     GoSub SetLocation
  1089.     i = Authors
  1090.     GoSub SetLocation
  1091.     i = Titles
  1092.     GoSub SetLocation
  1093.     form1.Height = Group(Titles).Height + Group(Titles).Top + ButtonBox.Height
  1094.     DisplayStyle.Caption = "Show One"
  1095.  
  1096. End If
  1097. Exit Sub
  1098.  
  1099. SetLocation:
  1100.     J = J + 1
  1101.     Group(i).Top = Group(i).Top + J * TopIncr
  1102.     Group(i).Left = Group(i).Left + J * LeftIncr
  1103.     Group(i).ZOrder 0
  1104. Return
  1105. End Sub
  1106.  
  1107. Sub Form_Load ()
  1108. '
  1109. ' Prevent the data controls from querying until all are
  1110. ' actually loaded (which occurs at first Form_Paint.)
  1111. '
  1112. Loading = True
  1113. form1.Move 0, 0
  1114. End Sub
  1115.  
  1116. Sub Form_Paint ()
  1117. '
  1118. '   The form has been painted (at least once). Let the
  1119. '   data control build the templates and refresh the
  1120. '   bound controls.
  1121. '
  1122. Loading = False
  1123. End Sub
  1124.  
  1125. Sub Group_Click (Index As Integer)
  1126. '
  1127. '   One of the menu buttons was pressed.
  1128. '
  1129. TablePointer_Click (Index)
  1130. End Sub
  1131.  
  1132. Sub Group_Paint (Index As Integer)
  1133. '
  1134. '   The group was repainted. Start the data control sequence
  1135. '   that rebuilds all of the group templates.
  1136. '
  1137. Select Case Index
  1138.     Case Authors: AuthorAuID_Change
  1139. End Select
  1140. End Sub
  1141.  
  1142. Sub ListPublishers_Click ()
  1143. Dim SavePlace As Variant
  1144. '
  1145. ' The user has touched one of the publishers displayed.
  1146. ' Assume that they want to seem more info on this publisher
  1147. ' Tell the data control for the publishers template to
  1148. ' find this publisher. Switch to that template.
  1149. '
  1150. SavePlace = DataCtl(Publishers).Recordset.Bookmark
  1151. DataCtl(Publishers).Recordset.FindFirst "[Company Name] = '" & ListPublishers.List(ListPublishers.ListIndex) & "'"
  1152. If DataCtl(Publishers).Recordset.NoMatch = True Then
  1153.     DataCtl(Publishers).Recordset.Bookmark = SavePlace
  1154.     Beep
  1155. Else
  1156.    TablePointer_Click (Publishers)
  1157. End If
  1158.  
  1159. End Sub
  1160.  
  1161. Sub MenuChangesLock_Click ()
  1162. Dim i
  1163. '   Lock or unlock the data controls.
  1164. '   Note that all data controls have to be refreshed
  1165. '   for any of this to take effect.
  1166. '
  1167.  
  1168. MenuChangesLock.Checked = Not MenuChangesLock.Checked
  1169.  
  1170. If Not MenuChangesLock.Checked Then
  1171.     i = MsgBox("Permit changes to sample BIBLIO database?", MB_ICONQUESTION + MB_OKCANCEL, "BIBLIO Database")
  1172.     If i = IDOK Then
  1173.         MenuChangesLock.Checked = False
  1174.     Else
  1175.         Exit Sub
  1176.     End If
  1177. End If
  1178.  
  1179. For i = Authors To Comments
  1180.         DataCtl(i).ReadOnly = MenuChangesLock.Checked
  1181. Next i
  1182. For i = Authors To Comments
  1183.         Debug.Print i, DataCtl(i).RecordSource
  1184.         DataCtl(i).Refresh
  1185. Next i
  1186.  
  1187. End Sub
  1188.  
  1189. Sub MenuFileExit_Click ()
  1190. End
  1191. End Sub
  1192.  
  1193. Sub MenuSelect_Click (Index As Integer)
  1194. TablePointer_Click (Index)
  1195. End Sub
  1196.  
  1197. Sub PubPubID_Change ()
  1198. '
  1199. '   The publisher's ID has changed. Perhaps another
  1200. '   control did a find on this control.
  1201. '
  1202. Dim SavePlace As Variant
  1203. Dim SQL As String
  1204.  
  1205. If Loading Then Exit Sub
  1206.  
  1207. PubsTitles.Clear
  1208. PubsAuthors.Clear
  1209. '
  1210. '   Find all titles that this publisher has printed.
  1211. '
  1212. SQL = "Select distinct Title from Titles"
  1213. SQL = SQL + " where titles.PubID =  " & PubPubID.Text
  1214. DataCtl(PubsList).RecordSource = SQL
  1215. DataCtl(PubsList).Refresh
  1216.  
  1217. '
  1218. '   Put them in the table.
  1219. '
  1220. Do While Not DataCtl(PubsList).Recordset.EOF
  1221.     PubsTitles.AddItem DataCtl(PubsList).Recordset(0)
  1222.     DataCtl(PubsList).Recordset.MoveNext
  1223. Loop
  1224.  
  1225. If PubsTitles.ListCount > 0 Then PubsTitles.ListIndex = 0
  1226. '
  1227. '   Find all of the authors this publisher deals with.
  1228. '
  1229. SQL = "Select distinct Author from Titles, Authors"
  1230. SQL = SQL & " where Titles.AU_ID = Authors.AU_ID and "
  1231. SQL = SQL & " titles.PubID = " & PubPubID.Text
  1232. DataCtl(PubsList).RecordSource = SQL
  1233. DataCtl(PubsList).Refresh
  1234.  
  1235. '
  1236. '   Put them  in the authors list table.
  1237. '
  1238. Do While Not DataCtl(PubsList).Recordset.EOF
  1239.     PubsAuthors.AddItem DataCtl(PubsList).Recordset(0)
  1240.     DataCtl(PubsList).Recordset.MoveNext
  1241. Loop
  1242. If PubsAuthors.ListCount > 0 Then PubsAuthors.ListIndex = 0
  1243.  
  1244.  
  1245. End Sub
  1246.  
  1247. Sub TablePointer_Click (Index As Integer)
  1248. Dim i%
  1249. '
  1250. '   User has pressed one of the command buttons.
  1251. '
  1252. Select Case Index
  1253.     Case Authors: AuthorAuID_Change
  1254.     Case Publishers: PubPubID_Change
  1255. End Select
  1256.  
  1257. Group(Index).ZOrder 0
  1258.  
  1259. For i = Authors To Comments
  1260.     If i <> Index Then
  1261.         TablePointer(i).Enabled = True
  1262.         TablePointer(i).Default = True
  1263.     Else
  1264.         TablePointer(i).Enabled = False
  1265.     End If
  1266. Next i
  1267.  
  1268. End Sub
  1269.  
  1270. Sub TitleAuID_Change ()
  1271. Dim SavePlace As Variant
  1272. '
  1273. '   The author has changed in the title template.
  1274. '   look up this author information using the author data
  1275. '   control. Note that this changes the author template too.
  1276. '
  1277. If Loading Then Exit Sub
  1278.  
  1279. SavePlace = DataCtl(Authors).Recordset.Bookmark
  1280.  
  1281. DataCtl(Authors).Recordset.FindFirst "Au_ID =" & TitleAuID
  1282. If DataCtl(Authors).Recordset.NoMatch Then
  1283.     DataCtl(Authors).Recordset.Bookmark = SavePlace
  1284. End If
  1285.  
  1286. End Sub
  1287.  
  1288. Sub TitlePubID_Change ()
  1289. Dim SavePlace As Variant
  1290. '
  1291. '   The PubID has changed in the title template.
  1292. '   look up this publisher using the publisher data
  1293. '   control. Note that this changes the publisher
  1294. '   template too.
  1295. '   Also change the comments template.
  1296. '
  1297.  
  1298. If Loading Then Exit Sub
  1299. SavePlace = DataCtl(Publishers).Recordset.Bookmark
  1300.  
  1301. DataCtl(Publishers).Recordset.FindFirst "PubID =" & TitlePubID
  1302. If DataCtl(Publishers).Recordset.NoMatch Then
  1303.     DataCtl(Publishers).Recordset.Bookmark = SavePlace
  1304. End If
  1305.  
  1306. SavePlace = DataCtl(Comments).Recordset.Bookmark
  1307.  
  1308. DataCtl(Comments).Recordset.FindFirst "PubID =" & TitlePubID
  1309. If DataCtl(Comments).Recordset.NoMatch Then
  1310.     DataCtl(Comments).Recordset.Bookmark = SavePlace
  1311. End If
  1312. End Sub
  1313.  
  1314.