MDIForm1.frm

 VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   6720
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9480
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   6465
      Width           =   9480
      _ExtentX        =   16722
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9480
      _ExtentX        =   16722
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
         NumButtons      =   13
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile
      Caption         =   "File"
      Begin VB.Menu mnuExit
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnuEdit
      Caption         =   "Edit"
   End
   Begin VB.Menu mnuView
      Caption         =   "View"
   End
   Begin VB.Menu mnuForms
      Caption         =   "Authors"
      Begin VB.Menu mnuAuthors
         Caption         =   "Authors"
      End
      Begin VB.Menu mnuSearchAuthor
         Caption         =   "Search Author"
      End
      Begin VB.Menu mnuAuthorTitle
         Caption         =   "Author Title"
      End
   End
   Begin VB.Menu mnuTitles
      Caption         =   "Titles"
      Begin VB.Menu mnuTitlesForm
         Caption         =   "Titles Form"
      End
      Begin VB.Menu mnuSearchTitles
         Caption         =   "Search Titles"
      End
   End
   Begin VB.Menu mnuPublishers
      Caption         =   "Publishers"
      Begin VB.Menu mnuPubForm
         Caption         =   "Publishers Form"
      End
      Begin VB.Menu mnuSearchPub
         Caption         =   "Search Publisher"
      End
      Begin VB.Menu mnuPubTitle
         Caption         =   "Publisher Title"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Load()
conn = "Provider = Microsoft.JET.OLEDB.4.0; Data Source =" & App.Path & "\biblio.mdb"
End Sub

Private Sub mnuAuthors_Click()
frmAuthors.Show
End Sub

Private Sub mnuAuthorTitle_Click()
frmAuthorTitles.Show
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuPubForm_Click()
frmPublishers.Show
End Sub

Private Sub mnuPubTitle_Click()
frmPublisherTitle.Show
End Sub

Private Sub mnuSearchAuthor_Click()
frmSearchAuthor.Show
End Sub

Private Sub mnuSearchPub_Click()
frmSearchPublisher.Show
End Sub

Private Sub mnuSearchTitles_Click()
frmSearchTitle.Show
End Sub

Private Sub mnuTitlesForm_Click()
frmTitles.Show
End Sub

Project Homepage: