Initial population

2026-03-07 19:38:21 -06:00
commit 46735bddd3
59 changed files with 12911 additions and 0 deletions
--- a/frmMain.vb
+++ b/frmMain.vb
@@ -0,0 +1,351 @@
+Imports System.Windows.Forms
+
+Public Class frmMain
+    Inherits Windows.Forms.Form
+
+    Private m_frmEditComposer As frmEditComposer
+    Private m_frmEditInstrumentation As frmEditInstrumentation
+    Private m_frmEditPublisher As frmEditPublisher
+    Private m_frmEditHymnal As frmEditHymnal
+    Private m_frmEditBook As frmEditBook
+    Private m_frmEditHymnTuneName As frmEditHymnTuneName
+    Private m_frmEditHymn As frmEditHymn
+    Friend WithEvents mnuEditInstrumentations As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents MenuItem1 As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Private m_frmEditWork As frmEditWork
+
+#Region " Windows Form Designer generated code "
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Windows Form Designer.
+        InitializeComponent()
+
+        'Add any initialization after the InitializeComponent() call
+
+    End Sub
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    Friend WithEvents MenuStrip1 As Windows.Forms.MenuStrip
+    Friend WithEvents mnuFile As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuFileExit As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEdit As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditComposer As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditPublisher As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditHymnal As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditBook As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditHymnTuneNames As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditHymn As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuEditWork As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuGenerate As Windows.Forms.ToolStripMenuItem
+    Friend WithEvents mnuGenerateWebSite As Windows.Forms.ToolStripMenuItem
+
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuFileExit = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEdit = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditBook = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditHymn = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditHymnTuneNames = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditHymnal = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditWork = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditComposer = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditInstrumentations = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuEditPublisher = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuGenerate = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuGenerateWebSite = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile, Me.mnuEdit, Me.mnuGenerate})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.TabIndex = 1
+        '
+        'mnuFile
+        '
+        Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileExit})
+        Me.mnuFile.Name = "mnuFile"
+        Me.mnuFile.Text = "&File"
+        '
+        'mnuFileExit
+        '
+        Me.mnuFileExit.Name = "mnuFileExit"
+        Me.mnuFileExit.Size = New System.Drawing.Size(180, 22)
+        Me.mnuFileExit.Text = "E&xit"
+        '
+        'mnuEdit
+        '
+        Me.mnuEdit.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuEditBook, Me.mnuEditHymn, Me.mnuEditHymnTuneNames, Me.mnuEditHymnal, Me.mnuEditWork, Me.ToolStripSeparator2, Me.mnuEditComposer, Me.mnuEditInstrumentations, Me.mnuEditPublisher})
+        Me.mnuEdit.Name = "mnuEdit"
+        Me.mnuEdit.Size = New System.Drawing.Size(39, 20)
+        Me.mnuEdit.Text = "&Edit"
+        '
+        'mnuEditBook
+        '
+        Me.mnuEditBook.Name = "mnuEditBook"
+        Me.mnuEditBook.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditBook.Text = "Books..."
+        '
+        'mnuEditHymn
+        '
+        Me.mnuEditHymn.Name = "mnuEditHymn"
+        Me.mnuEditHymn.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditHymn.Text = "Hymns..."
+        '
+        'mnuEditHymnTuneNames
+        '
+        Me.mnuEditHymnTuneNames.Name = "mnuEditHymnTuneNames"
+        Me.mnuEditHymnTuneNames.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditHymnTuneNames.Text = "Hymn Tune Names..."
+        '
+        'mnuEditHymnal
+        '
+        Me.mnuEditHymnal.Name = "mnuEditHymnal"
+        Me.mnuEditHymnal.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditHymnal.Text = "Hymnals..."
+        '
+        'mnuEditWork
+        '
+        Me.mnuEditWork.Name = "mnuEditWork"
+        Me.mnuEditWork.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditWork.Text = "Works..."
+        '
+        'mnuEditComposer
+        '
+        Me.mnuEditComposer.Name = "mnuEditComposer"
+        Me.mnuEditComposer.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditComposer.Text = "&Composers..."
+        '
+        'mnuEditInstrumentations
+        '
+        Me.mnuEditInstrumentations.Name = "mnuEditInstrumentations"
+        Me.mnuEditInstrumentations.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditInstrumentations.Text = "Instrumentations..."
+        '
+        'mnuEditPublisher
+        '
+        Me.mnuEditPublisher.Name = "mnuEditPublisher"
+        Me.mnuEditPublisher.Size = New System.Drawing.Size(185, 22)
+        Me.mnuEditPublisher.Text = "Publishers..."
+        '
+        'mnuGenerate
+        '
+        Me.mnuGenerate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuGenerateWebSite})
+        Me.mnuGenerate.Name = "mnuGenerate"
+        Me.mnuGenerate.Size = New System.Drawing.Size(66, 20)
+        Me.mnuGenerate.Text = "&Generate"
+        '
+        'mnuGenerateWebSite
+        '
+        Me.mnuGenerateWebSite.Name = "mnuGenerateWebSite"
+        Me.mnuGenerateWebSite.Size = New System.Drawing.Size(180, 22)
+        Me.mnuGenerateWebSite.Text = "&Web Site"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(182, 6)
+        '
+        'frmMain
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 16)
+        Me.ClientSize = New System.Drawing.Size(960, 574)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.IsMdiContainer = True
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Name = "frmMain"
+        Me.Text = "OrganLit"
+        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+#End Region
+
+    Private Function OpenDatabaseConnection() As Boolean
+        Try
+            MyGlobals.g_objDatabaseLayer = New clsDatabaseLayer
+            Return MyGlobals.g_objDatabaseLayer.OpenDatabaseConnection()
+        Catch
+            Return False
+        End Try
+    End Function
+
+    Private Function CloseDatabaseConnection() As Boolean
+        Try
+            Return MyGlobals.g_objDatabaseLayer.CloseDatabaseConnection()
+        Catch
+            Return False
+        End Try
+    End Function
+
+    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        If Not OpenDatabaseConnection() Then
+            MessageBox.Show("Error connecting to database", "Database error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Me.Close()
+        End If
+
+    End Sub
+
+    Public Sub DisableMenus()
+        mnuFile.Enabled = False
+        mnuEdit.Enabled = False
+    End Sub
+
+    Public Sub EnableMenus()
+        mnuFile.Enabled = True
+        mnuEdit.Enabled = True
+    End Sub
+
+    Private Sub mnuEditComposer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditComposer.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        m_frmEditComposer = New frmEditComposer
+        m_frmEditComposer.MdiParent = Me
+        m_frmEditComposer.Show()
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditPublisher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditPublisher.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditPublisher Is Nothing OrElse m_frmEditPublisher.IsDisposed Then
+            m_frmEditPublisher = New frmEditPublisher
+            m_frmEditPublisher.MdiParent = Me
+            m_frmEditPublisher.Show()
+        Else
+            m_frmEditPublisher.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditHymnal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditHymnal.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditHymnal Is Nothing OrElse m_frmEditHymnal.IsDisposed Then
+            m_frmEditHymnal = New frmEditHymnal
+            m_frmEditHymnal.MdiParent = Me
+            m_frmEditHymnal.Show()
+        Else
+            m_frmEditHymnal.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditBook.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditBook Is Nothing OrElse m_frmEditBook.IsDisposed Then
+            m_frmEditBook = New frmEditBook
+            m_frmEditBook.MdiParent = Me
+            m_frmEditBook.Show()
+        Else
+            m_frmEditBook.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditHymnTuneNames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditHymnTuneNames.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditHymnTuneName Is Nothing OrElse m_frmEditHymnTuneName.IsDisposed Then
+            m_frmEditHymnTuneName = New frmEditHymnTuneName
+            m_frmEditHymnTuneName.MdiParent = Me
+            m_frmEditHymnTuneName.Show()
+        Else
+            m_frmEditHymnTuneName.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditHymn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditHymn.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditHymn Is Nothing OrElse m_frmEditHymn.IsDisposed Then
+            m_frmEditHymn = New frmEditHymn
+            m_frmEditHymn.MdiParent = Me
+            m_frmEditHymn.Show()
+        Else
+            m_frmEditHymn.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditWork_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditWork.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        If m_frmEditWork Is Nothing OrElse m_frmEditWork.IsDisposed Then
+            m_frmEditWork = New frmEditWork
+            m_frmEditWork.MdiParent = Me
+            m_frmEditWork.Show()
+        Else
+            m_frmEditWork.Activate()
+        End If
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuFileExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileExit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub mnuGenerateWebSite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGenerateWebSite.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        modGenerateWebSite.GenerateWebSite()
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub mnuEditInstrumentations_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEditInstrumentations.Click
+        Me.Cursor = Windows.Forms.Cursors.WaitCursor
+        CloseAllEditWindows()
+        m_frmEditInstrumentation = New frmEditInstrumentation
+        m_frmEditInstrumentation.MdiParent = Me
+        m_frmEditInstrumentation.Show()
+        Me.Cursor = Windows.Forms.Cursors.Default
+    End Sub
+
+    Private Sub CloseAllEditWindows()
+        CloseWindow(m_frmEditBook)
+        CloseWindow(m_frmEditComposer)
+        CloseWindow(m_frmEditHymn)
+        CloseWindow(m_frmEditHymnal)
+        CloseWindow(m_frmEditHymnTuneName)
+        CloseWindow(m_frmEditInstrumentation)
+        CloseWindow(m_frmEditPublisher)
+        CloseWindow(m_frmEditWork)
+    End Sub
+
+    Private Sub CloseWindow(ByVal objWindow As Windows.Forms.Form)
+        If objWindow Is Nothing OrElse objWindow.IsDisposed Then
+        Else
+            objWindow.Close()
+        End If
+    End Sub
+End Class