Liren Large Software Subsidy 10

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 4.ddi / BIBLIO.FR_ / BIBLIO.bin

(.txt)

Wrap

Visual Basic Form | 1993-04-28 | 41.3 KB | 1,216 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00808080& Caption = "Bibliography Database Browser" ClientHeight = 5670 ClientLeft = 645 ClientTop = 1890 ClientWidth = 8385 Height = 6360 Icon = BIBLIO.FRX:0000 Left = 585 LinkTopic = "Form1" ScaleHeight = 5670 ScaleWidth = 8385 Top = 1260 Width = 8505 Begin PictureBox Group BackColor = &H00C0C0C0& Height = 4950 Index = 1 Left = 0 ScaleHeight = 4920 ScaleWidth = 6915 TabIndex = 2 Top = 735 Width = 6945 Begin TextBox TitlePublisher DataField = "Company Name" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 315 TabIndex = 25 Top = 3570 Width = 4530 End Begin TextBox TitlePubID DataField = "PubID" DataSource = "DataCtl(1)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 4305 TabIndex = 22 Top = 1260 Width = 750 End Begin TextBox TitleISBN DataField = "ISBN" DataSource = "DataCtl(1)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 1365 TabIndex = 20 Top = 1260 Width = 2850 End Begin TextBox TitleAuID DataField = "Au_ID" DataSource = "DataCtl(1)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 315 TabIndex = 18 Top = 1260 Width = 645 End Begin TextBox TitleYearPublished DataField = "Year Published" DataSource = "DataCtl(1)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 5145 TabIndex = 16 Top = 1260 Width = 1695 End Begin TextBox TitleField DataField = "Title" DataSource = "DataCtl(1)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 105 TabIndex = 14 Top = 315 Width = 6735 End Begin Data DataCtl BackColor = &H00C0C0C0& Caption = "Titles" Connect = "" DatabaseName = "biblio.mdb" Exclusive = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Index = 1 Left = 0 Options = 0 ReadOnly = -1 'True RecordSource = "Select * from Titles Order by Title" Top = 4515 Width = 6945 End Begin Label TitleAuthor BorderStyle = 1 'Fixed Single DataField = "Author" DataSource = "DataCtl(0)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 540 Left = 315 TabIndex = 57 Top = 2730 Width = 6420 End Begin Line Line1 BorderWidth = 2 X1 = 6930 X2 = 0 Y1 = 2310 Y2 = 2310 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Publisher" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 6 Left = 420 TabIndex = 26 Top = 3255 Width = 1485 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Author" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 5 Left = 420 TabIndex = 24 Top = 2415 Width = 1485 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "PubID" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 4 Left = 4305 TabIndex = 23 Top = 945 Width = 750 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "ISBN" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 3 Left = 1470 TabIndex = 21 Top = 945 Width = 1485 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Author ID" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 2 Left = 105 TabIndex = 19 Top = 945 Width = 1485 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Year Published" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 1 Left = 5145 TabIndex = 17 Top = 945 Width = 1695 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "Title" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C00000& Height = 330 Index = 0 Left = 105 TabIndex = 15 Top = 0 Width = 1485 End End Begin PictureBox Group BackColor = &H00C0C0C0& Height = 4950 Index = 3 Left = 0 ScaleHeight = 4920 ScaleWidth = 6915 TabIndex = 0 Top = 735 Width = 6945 Begin TextBox CommentsPubID DataField = "PubID" DataSource = "DataCtl(3)" Height = 330 Left = 5040 TabIndex = 46 Top = 630 Width = 1275 End Begin TextBox Text4 DataField = "Comments" DataSource = "DataCtl(3)" Height = 3270 Left = 105 MultiLine = -1 'True TabIndex = 44 Top = 1155 Width = 6735 End Begin Data DataCtl BackColor = &H00C0C0C0& Caption = "Comments" Connect = "" DatabaseName = "biblio.mdb" Exclusive = 0 'False Height = 435 Index = 3 Left = 0 Options = 0 ReadOnly = -1 'True RecordSource = "Publisher Comments" Top = 4515 Width = 6840 End Begin Label Label11 BorderStyle = 1 'Fixed Single DataField = "Publisher" DataSource = "DataCtl(3)" Height = 330 Left = 105 TabIndex = 49 Top = 315 Width = 4845 End Begin Label Label10 BackColor = &H00C0C0C0& Caption = "Comments on Publisher Named:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C00000& Height = 330 Left = 105 TabIndex = 48 Top = 0 Width = 4845 End Begin Label Label9 BackColor = &H00C0C0C0& Caption = "PubID" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 5040 TabIndex = 47 Top = 315 Width = 855 End Begin Label Label8 BackColor = &H00C0C0C0& Caption = "Comments" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 105 TabIndex = 45 Top = 840 Width = 1695 End End Begin PictureBox Group BackColor = &H00C0C0C0& Height = 4950 Index = 2 Left = 0 ScaleHeight = 4920 ScaleWidth = 6915 TabIndex = 1 Top = 735 Width = 6945 Begin Data DataCtl BackColor = &H00C0C0C0& Caption = "Publishers" Connect = "" DatabaseName = "biblio.mdb" Exclusive = 0 'False Height = 435 Index = 2 Left = 0 Options = 0 ReadOnly = -1 'True RecordSource = "Select * from Publishers order by Name" Top = 4515 Width = 6735 End Begin ComboBox PubsAuthors FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Left = 105 Style = 2 'Dropdown List TabIndex = 55 Top = 3990 Width = 6735 End Begin ComboBox PubsTitles FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 405 Left = 105 Style = 2 'Dropdown List TabIndex = 53 Top = 3045 Width = 6735 End Begin TextBox Text1 DataField = "Fax" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 8 Left = 2940 TabIndex = 41 Top = 2415 Width = 2220 End Begin TextBox Text1 DataField = "Telephone" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 7 Left = 105 TabIndex = 40 Top = 2415 Width = 2745 End Begin TextBox Text1 DataField = "Zip" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 6 Left = 3885 TabIndex = 39 Top = 1890 Width = 1275 End Begin TextBox Text1 DataField = "State" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 5 Left = 2940 TabIndex = 38 Top = 1890 Width = 855 End Begin TextBox Text1 DataField = "City" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 4 Left = 105 TabIndex = 37 Top = 1890 Width = 2745 End Begin TextBox Text1 DataField = "Address" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 3 Left = 105 TabIndex = 35 Top = 1575 Width = 5055 End Begin TextBox Text1 DataField = "Name" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 420 Index = 2 Left = 105 TabIndex = 33 Top = 315 Width = 6735 End Begin TextBox PubPubID DataField = "PubID" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Left = 5775 TabIndex = 31 Top = 1680 Width = 855 End Begin TextBox Text1 DataField = "Company Name" DataSource = "DataCtl(2)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 0 Left = 105 TabIndex = 29 Top = 1050 Width = 6525 End Begin Shape Shape1 Height = 1905 Left = 105 Top = 840 Width = 6630 End Begin Label Label13 BackColor = &H00C0C0C0& Caption = "Authors" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 105 TabIndex = 56 Top = 3780 Width = 1905 End Begin Label Label12 BackColor = &H00C0C0C0& Caption = "Titles Published" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 105 TabIndex = 54 Top = 2835 Width = 1905 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Phone - FAX" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 4 Left = 210 TabIndex = 43 Top = 2205 Width = 1590 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Address" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 3 Left = 210 TabIndex = 36 Top = 1365 Width = 1590 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Publisher" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C00000& Height = 330 Index = 2 Left = 105 TabIndex = 34 Top = 0 Width = 1800 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "PubID" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 5880 TabIndex = 32 Top = 1470 Width = 750 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Company Name" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Index = 0 Left = 210 TabIndex = 30 Top = 840 Width = 3585 End End Begin PictureBox Group BackColor = &H00C0C0C0& Height = 4950 Index = 0 Left = 0 ScaleHeight = 4920 ScaleWidth = 6915 TabIndex = 3 Top = 735 Width = 6945 Begin ListBox ListPublishers FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 990 Left = 210 TabIndex = 50 Top = 3255 Width = 6210 End Begin Data DataCtl Caption = "PubsList" Connect = "" DatabaseName = "biblio.mdb" Exclusive = 0 'False Height = 330 Index = 4 Left = 0 Options = 0 ReadOnly = -1 'True RecordSource = "" Top = 4095 Visible = 0 'False Width = 1440 End Begin ListBox TitlesList FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 990 Left = 210 TabIndex = 28 Top = 1575 Width = 6210 End Begin TextBox AuthorName DataField = "Author" DataSource = "DataCtl(0)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 105 TabIndex = 11 Top = 315 Width = 4950 End Begin TextBox AuthorAuID DataField = "Au_ID" DataSource = "DataCtl(0)" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Left = 5250 TabIndex = 4 Top = 630 Width = 1170 End Begin Data DataCtl BackColor = &H00C0C0C0& Caption = "Authors" Connect = "" DatabaseName = "biblio.mdb" Exclusive = 0 'False Height = 435 Index = 0 Left = 0 Options = 0 ReadOnly = -1 'True RecordSource = "Select * from Authors Order by Author" Top = 4515 Width = 6735 End Begin Label Label7 BackColor = &H00C0C0C0& Caption = "Publishers" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 5 Left = 210 TabIndex = 51 Top = 2940 Width = 1695 End Begin Label Label6 BackColor = &H00C0C0C0& Caption = "Titles" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 330 Left = 210 TabIndex = 27 Top = 1155 Width = 1905 End Begin Line Line2 BorderWidth = 2 X1 = 0 X2 = 6930 Y1 = 1050 Y2 = 1050 End Begin Label Label4 BackColor = &H00C0C0C0& Caption = "Author Name" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00C00000& Height = 435 Left = 105 TabIndex = 13 Top = 0 Width = 2430 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Author ID" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Left = 5250 TabIndex = 12 Top = 315 Width = 1170 End End Begin PictureBox ButtonBox AutoRedraw = -1 'True AutoSize = -1 'True Height = 750 Left = 0 ScaleHeight = 720 ScaleWidth = 8385 TabIndex = 5 Top = 0 Width = 8415 Begin CommandButton DisplayStyle Caption = "ShowAll" FontBold = -1 'True FontItalic = -1 'True FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 750 Left = 6720 TabIndex = 52 Top = 0 Width = 1695 End Begin CommandButton TablePointer Caption = "Authors" FontBold = -1 'True FontItalic = -1 'True FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 750 Index = 0 Left = 1680 TabIndex = 42 Top = 0 Width = 1695 End Begin CommandButton TablePointer BackColor = &H00808000& Caption = "Titles" Default = -1 'True FontBold = -1 'True FontItalic = -1 'True FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 750 Index = 1 Left = 0 TabIndex = 8 Top = 0 Width = 1695 End Begin CommandButton TablePointer Caption = "Publishers" FontBold = -1 'True FontItalic = -1 'True FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 750 Index = 2 Left = 3360 TabIndex = 7 Top = 0 Width = 1695 End Begin CommandButton TablePointer Caption = "Comments" FontBold = -1 'True FontItalic = -1 'True FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 750 Index = 3 Left = 5040 TabIndex = 6 Top = 0 Width = 1695 End End Begin Label Label2 Caption = "Label2" Height = 435 Left = 3780 TabIndex = 10 Top = 3990 Width = 1170 End Begin Label Label1 Caption = "Label1" Height = 435 Left = 3780 TabIndex = 9 Top = 3990 Width = 1170 End Begin Menu Menufile Caption = "&File" Begin Menu MenuFileExit Caption = "E&xit" End End Begin Menu MenuSelectMain Caption = "&Select" Begin Menu MenuSelect Caption = "&Authors" Index = 0 End Begin Menu MenuSelect Caption = "&Titles" Index = 1 End Begin Menu MenuSelect Caption = "&Publishers" Index = 2 End Begin Menu MenuSelect Caption = "Publisher &Comments" Index = 3 End End Begin Menu MenuChanges Caption = "&Changes" Begin Menu MenuChangesLock Caption = "&Data Locked" Checked = -1 'True End End Option Explicit ' Define the constants that refer to the data control ' control array. There are 5 data controls used. 1 for ' each table accessed in the BIBLIO database and 1 to ' generate the lists of publishers, titles and authors Const Authors% = 0 Const Titles% = 1 Const Publishers% = 2 Const Comments% = 3 Const PubsList% = 4 Dim Loading As Integer Sub AuthorAuID_Change () ' The author ID has changed. Update the lists of titles ' and publisher information for this author. Dim SavePlace As Variant Dim SQL As String If Loading Then Exit Sub DoEvents ' Save the current record pointer in case the SQL query ' fails. SavePlace = DataCtl(Titles).Recordset.Bookmark ' Clear the list of titles and publishers ' for this author TitlesList.Clear ListPublishers.Clear ' Query the database for all of the titles this author ' has written. Fill in the titleslist table with the records SQL = "Select distinct Title from Titles" SQL = SQL & " where titles.Au_ID = " & AuthorAuID.Text DataCtl(PubsList).RecordSource = SQL DataCtl(PubsList).Refresh Do While Not DataCtl(PubsList).Recordset.EOF TitlesList.AddItem DataCtl(PubsList).Recordset("Title") DataCtl(PubsList).Recordset.MoveNext ' Do the same for the publishers for this author. ' This query joins the titles and publishers table ' on the publisher's ID number. It filters for the ' current author. SQL = "Select distinct [Company Name] from Titles, Publishers " SQL = SQL & " where titles.PubID = Publishers.PubID and " SQL = SQL & " titles.Au_ID = " & AuthorAuID.Text DataCtl(PubsList).RecordSource = SQL DataCtl(PubsList).Refresh Do While Not DataCtl(PubsList).Recordset.EOF ListPublishers.AddItem DataCtl(PubsList).Recordset("Company Name") DataCtl(PubsList).Recordset.MoveNext End Sub Sub DisplayStyle_Click () ' Position the picture controls holding the table ' templates to either overlap or cascade. Static AllState As Integer Dim i As Integer, J As Integer Dim TopIncr As Integer Dim LeftIncr As Integer AllState = Not AllState If AllState = False Then For i = Authors To Comments Group(i).Top = ButtonBox.Top + ButtonBox.Height Group(i).Left = 0 Group(i).ZOrder 1 Next i form1.Height = Group(0).Height + Group(0).Top + ButtonBox.Height DisplayStyle.Caption = "Show All" TopIncr = Group(0).Height * .06 LeftIncr = Group(0).Width * .06 J = 0 i = Publishers GoSub SetLocation i = Authors GoSub SetLocation i = Titles GoSub SetLocation form1.Height = Group(Titles).Height + Group(Titles).Top + ButtonBox.Height DisplayStyle.Caption = "Show One" End If Exit Sub SetLocation: J = J + 1 Group(i).Top = Group(i).Top + J * TopIncr Group(i).Left = Group(i).Left + J * LeftIncr Group(i).ZOrder 0 Return End Sub Sub Form_Load () ' Prevent the data controls from querying until all are ' actually loaded (which occurs at first Form_Paint.) Loading = True form1.Move 0, 0 End Sub Sub Form_Paint () ' The form has been painted (at least once). Let the ' data control build the templates and refresh the ' bound controls. Loading = False End Sub Sub Group_Click (Index As Integer) ' One of the menu buttons was pressed. TablePointer_Click (Index) End Sub Sub Group_Paint (Index As Integer) ' The group was repainted. Start the data control sequence ' that rebuilds all of the group templates. Select Case Index Case Authors: AuthorAuID_Change End Select End Sub Sub ListPublishers_Click () Dim SavePlace As Variant ' The user has touched one of the publishers displayed. ' Assume that they want to seem more info on this publisher ' Tell the data control for the publishers template to ' find this publisher. Switch to that template. SavePlace = DataCtl(Publishers).Recordset.Bookmark DataCtl(Publishers).Recordset.FindFirst "[Company Name] = '" & ListPublishers.List(ListPublishers.ListIndex) & "'" If DataCtl(Publishers).Recordset.NoMatch = True Then DataCtl(Publishers).Recordset.Bookmark = SavePlace Beep TablePointer_Click (Publishers) End If End Sub Sub MenuChangesLock_Click () Dim i ' Lock or unlock the data controls. ' Note that all data controls have to be refreshed ' for any of this to take effect. MenuChangesLock.Checked = Not MenuChangesLock.Checked If Not MenuChangesLock.Checked Then i = MsgBox("Permit changes to sample BIBLIO database?", MB_ICONQUESTION + MB_OKCANCEL, "BIBLIO Database") If i = IDOK Then MenuChangesLock.Checked = False Else Exit Sub End If End If For i = Authors To Comments DataCtl(i).ReadOnly = MenuChangesLock.Checked Next i For i = Authors To Comments Debug.Print i, DataCtl(i).RecordSource DataCtl(i).Refresh Next i End Sub Sub MenuFileExit_Click () End Sub Sub MenuSelect_Click (Index As Integer) TablePointer_Click (Index) End Sub Sub PubPubID_Change () ' The publisher's ID has changed. Perhaps another ' control did a find on this control. Dim SavePlace As Variant Dim SQL As String If Loading Then Exit Sub PubsTitles.Clear PubsAuthors.Clear ' Find all titles that this publisher has printed. SQL = "Select distinct Title from Titles" SQL = SQL + " where titles.PubID = " & PubPubID.Text DataCtl(PubsList).RecordSource = SQL DataCtl(PubsList).Refresh ' Put them in the table. Do While Not DataCtl(PubsList).Recordset.EOF PubsTitles.AddItem DataCtl(PubsList).Recordset(0) DataCtl(PubsList).Recordset.MoveNext If PubsTitles.ListCount > 0 Then PubsTitles.ListIndex = 0 ' Find all of the authors this publisher deals with. SQL = "Select distinct Author from Titles, Authors" SQL = SQL & " where Titles.AU_ID = Authors.AU_ID and " SQL = SQL & " titles.PubID = " & PubPubID.Text DataCtl(PubsList).RecordSource = SQL DataCtl(PubsList).Refresh ' Put them in the authors list table. Do While Not DataCtl(PubsList).Recordset.EOF PubsAuthors.AddItem DataCtl(PubsList).Recordset(0) DataCtl(PubsList).Recordset.MoveNext If PubsAuthors.ListCount > 0 Then PubsAuthors.ListIndex = 0 End Sub Sub TablePointer_Click (Index As Integer) Dim i% ' User has pressed one of the command buttons. Select Case Index Case Authors: AuthorAuID_Change Case Publishers: PubPubID_Change End Select Group(Index).ZOrder 0 For i = Authors To Comments If i <> Index Then TablePointer(i).Enabled = True TablePointer(i).Default = True Else TablePointer(i).Enabled = False End If Next i End Sub Sub TitleAuID_Change () Dim SavePlace As Variant ' The author has changed in the title template. ' look up this author information using the author data ' control. Note that this changes the author template too. If Loading Then Exit Sub SavePlace = DataCtl(Authors).Recordset.Bookmark DataCtl(Authors).Recordset.FindFirst "Au_ID =" & TitleAuID If DataCtl(Authors).Recordset.NoMatch Then DataCtl(Authors).Recordset.Bookmark = SavePlace End If End Sub Sub TitlePubID_Change () Dim SavePlace As Variant ' The PubID has changed in the title template. ' look up this publisher using the publisher data ' control. Note that this changes the publisher ' template too. ' Also change the comments template. If Loading Then Exit Sub SavePlace = DataCtl(Publishers).Recordset.Bookmark DataCtl(Publishers).Recordset.FindFirst "PubID =" & TitlePubID If DataCtl(Publishers).Recordset.NoMatch Then DataCtl(Publishers).Recordset.Bookmark = SavePlace End If SavePlace = DataCtl(Comments).Recordset.Bookmark DataCtl(Comments).Recordset.FindFirst "PubID =" & TitlePubID If DataCtl(Comments).Recordset.NoMatch Then DataCtl(Comments).Recordset.Bookmark = SavePlace End If End Sub