352 lines
14 KiB
VB.net
352 lines
14 KiB
VB.net
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
|