354 lines
14 KiB
VB.net
354 lines
14 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Class frmEditHymnTuneName
|
|
Inherits BaseEditForm
|
|
|
|
Private mobjDetailHymnTuneName As New clsHymnTuneName
|
|
|
|
#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 lblHymnTuneName As Windows.Forms.Label
|
|
Friend WithEvents txtHymnTuneName As Windows.Forms.TextBox
|
|
Friend WithEvents grpAlternateTuneNames As Windows.Forms.GroupBox
|
|
Friend WithEvents lstAlternateTuneNames As Windows.Forms.ListBox
|
|
Friend WithEvents btnAddAlternateHymnTuneName As Windows.Forms.Button
|
|
Friend WithEvents btnRemoveAlternateHymnTuneName As Windows.Forms.Button
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.lblHymnTuneName = New Windows.Forms.Label
|
|
Me.txtHymnTuneName = New Windows.Forms.TextBox
|
|
Me.grpAlternateTuneNames = New Windows.Forms.GroupBox
|
|
Me.btnRemoveAlternateHymnTuneName = New Windows.Forms.Button
|
|
Me.btnAddAlternateHymnTuneName = New Windows.Forms.Button
|
|
Me.lstAlternateTuneNames = New Windows.Forms.ListBox
|
|
Me.fraAddEdit.SuspendLayout()
|
|
Me.grpAlternateTuneNames.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'fraAddEdit
|
|
'
|
|
Me.fraAddEdit.Controls.Add(Me.grpAlternateTuneNames)
|
|
Me.fraAddEdit.Controls.Add(Me.txtHymnTuneName)
|
|
Me.fraAddEdit.Controls.Add(Me.lblHymnTuneName)
|
|
Me.fraAddEdit.Location = New System.Drawing.Point(8, 300)
|
|
Me.fraAddEdit.Size = New System.Drawing.Size(1072, 228)
|
|
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnTuneName, 0)
|
|
Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnTuneName, 0)
|
|
Me.fraAddEdit.Controls.SetChildIndex(Me.grpAlternateTuneNames, 0)
|
|
'
|
|
'lblHymnTuneName
|
|
'
|
|
Me.lblHymnTuneName.Location = New System.Drawing.Point(16, 24)
|
|
Me.lblHymnTuneName.Name = "lblHymnTuneName"
|
|
Me.lblHymnTuneName.Size = New System.Drawing.Size(96, 16)
|
|
Me.lblHymnTuneName.TabIndex = 3
|
|
Me.lblHymnTuneName.Text = "Hymn Tune Name"
|
|
'
|
|
'txtHymnTuneName
|
|
'
|
|
Me.txtHymnTuneName.Location = New System.Drawing.Point(112, 24)
|
|
Me.txtHymnTuneName.Name = "txtHymnTuneName"
|
|
Me.txtHymnTuneName.Size = New System.Drawing.Size(448, 20)
|
|
Me.txtHymnTuneName.TabIndex = 4
|
|
'
|
|
'grpAlternateTuneNames
|
|
'
|
|
Me.grpAlternateTuneNames.Controls.Add(Me.btnRemoveAlternateHymnTuneName)
|
|
Me.grpAlternateTuneNames.Controls.Add(Me.btnAddAlternateHymnTuneName)
|
|
Me.grpAlternateTuneNames.Controls.Add(Me.lstAlternateTuneNames)
|
|
Me.grpAlternateTuneNames.Location = New System.Drawing.Point(8, 48)
|
|
Me.grpAlternateTuneNames.Name = "grpAlternateTuneNames"
|
|
Me.grpAlternateTuneNames.Size = New System.Drawing.Size(552, 168)
|
|
Me.grpAlternateTuneNames.TabIndex = 5
|
|
Me.grpAlternateTuneNames.TabStop = False
|
|
Me.grpAlternateTuneNames.Text = "Alternate Tune Names for this Tune"
|
|
'
|
|
'btnRemoveAlternateHymnTuneName
|
|
'
|
|
Me.btnRemoveAlternateHymnTuneName.Location = New System.Drawing.Point(464, 48)
|
|
Me.btnRemoveAlternateHymnTuneName.Name = "btnRemoveAlternateHymnTuneName"
|
|
Me.btnRemoveAlternateHymnTuneName.Size = New System.Drawing.Size(80, 24)
|
|
Me.btnRemoveAlternateHymnTuneName.TabIndex = 2
|
|
Me.btnRemoveAlternateHymnTuneName.Text = "Remove"
|
|
'
|
|
'btnAddAlternateHymnTuneName
|
|
'
|
|
Me.btnAddAlternateHymnTuneName.Location = New System.Drawing.Point(464, 16)
|
|
Me.btnAddAlternateHymnTuneName.Name = "btnAddAlternateHymnTuneName"
|
|
Me.btnAddAlternateHymnTuneName.Size = New System.Drawing.Size(80, 24)
|
|
Me.btnAddAlternateHymnTuneName.TabIndex = 1
|
|
Me.btnAddAlternateHymnTuneName.Text = "Add..."
|
|
'
|
|
'lstAlternateTuneNames
|
|
'
|
|
Me.lstAlternateTuneNames.Location = New System.Drawing.Point(8, 16)
|
|
Me.lstAlternateTuneNames.Name = "lstAlternateTuneNames"
|
|
Me.lstAlternateTuneNames.Size = New System.Drawing.Size(440, 147)
|
|
Me.lstAlternateTuneNames.TabIndex = 0
|
|
'
|
|
'frmEditHymnTuneName
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(1088, 534)
|
|
Me.Name = "frmEditHymnTuneName"
|
|
Me.StartPosition = Windows.Forms.FormStartPosition.Manual
|
|
Me.Text = "Edit Hymn Tune Name"
|
|
Me.fraAddEdit.ResumeLayout(False)
|
|
Me.fraAddEdit.PerformLayout()
|
|
Me.grpAlternateTuneNames.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Protected Overrides Sub LoadExistingItemsList()
|
|
Dim lobjHymnTuneName As clsHymnTuneName
|
|
Dim lobjHymnTuneNames As System.Collections.Generic.List(Of clsHymnTuneName)
|
|
|
|
SetUpExistingItemsHeaders()
|
|
|
|
lobjHymnTuneNames = clsHymnTuneName.GetAllHymnTuneNames
|
|
|
|
Me.ExistingItemsListSuspendLayout()
|
|
|
|
For Each lobjHymnTuneName In lobjHymnTuneNames
|
|
Me.ExistingObjectsListItems.Add(ConvertHymnTuneNameToListViewItem(lobjHymnTuneName))
|
|
Next
|
|
|
|
Me.ExistingItemsListResumeLayout()
|
|
|
|
End Sub
|
|
|
|
Private Sub SetUpExistingItemsHeaders()
|
|
Me.ExistingObjectsListColumns.Add("Hymn Tune Name", 800, HorizontalAlignment.Left)
|
|
'Me.ExistingObjectsListColumns.Add("Column2", 0, HorizontalAlignment.Left)
|
|
'Me.ExistingObjectsListColumns.Add("Column3", 200, HorizontalAlignment.Left)
|
|
|
|
'Set up sorting rules
|
|
Dim lobjBaseEditFormColumnSortRules(0) As clsGridColumnSortRule
|
|
lobjBaseEditFormColumnSortRules(0) = New clsGridColumnSortRule(clsGridColumnSortRule.enumSortType.SortAsString)
|
|
MyBaseEditFormColumnSortRules = lobjBaseEditFormColumnSortRules
|
|
|
|
End Sub
|
|
|
|
Protected Overrides Sub InitializeDetailControls()
|
|
'Load data to detail controls here at form load time
|
|
txtHymnTuneName.MaxLength = MyGlobals.HYMN_TUNE_NAME_SIZE
|
|
End Sub
|
|
|
|
Protected Overrides Sub SetFocusToFirstDetailControlForEdit()
|
|
txtHymnTuneName.Focus()
|
|
End Sub
|
|
|
|
Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
|
Dim lobjSavedHymnTuneName As clsHymnTuneName
|
|
Dim lblnReturnValue As Boolean = False
|
|
|
|
lobjSavedHymnTuneName = CType(lstvwExistingItem.Tag, clsHymnTuneName)
|
|
|
|
mobjDetailHymnTuneName.HymnTuneName = txtHymnTuneName.Text
|
|
'Alternate tune names should already be in mobjDetailHymnTuneName
|
|
|
|
If lobjSavedHymnTuneName.StateIsIdentical(mobjDetailHymnTuneName) Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
Protected Overrides Function DetailControlsHaveSignificantData() As Boolean
|
|
If txtHymnTuneName.Text.Trim.Length > 0 Then
|
|
Return True
|
|
End If
|
|
|
|
Return False
|
|
End Function
|
|
|
|
Protected Overrides Sub EmptyOutDetailControls()
|
|
txtHymnTuneName.Text = ""
|
|
lstAlternateTuneNames.Items.Clear()
|
|
mobjDetailHymnTuneName = New clsHymnTuneName
|
|
End Sub
|
|
|
|
Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
|
Dim lobjHymnTuneName As clsHymnTuneName
|
|
Dim lblnReturnValue As Boolean = False
|
|
|
|
lobjHymnTuneName = CType(lstvwExistingItem.Tag, clsHymnTuneName)
|
|
lobjHymnTuneName.Refresh()
|
|
txtHymnTuneName.Text = lobjHymnTuneName.HymnTuneName
|
|
|
|
Dim objDictionaryEntry As DictionaryEntry
|
|
Dim objOtherHymnTuneName As clsHymnTuneName
|
|
For Each objDictionaryEntry In lobjHymnTuneName.OtherHymnTuneNamesForTune
|
|
objOtherHymnTuneName = CType(objDictionaryEntry.Value, clsHymnTuneName)
|
|
lstAlternateTuneNames.Items.Add(objOtherHymnTuneName)
|
|
Next
|
|
|
|
mobjDetailHymnTuneName = CType(lobjHymnTuneName.Clone(), clsHymnTuneName)
|
|
Return True
|
|
End Function
|
|
|
|
Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
|
|
Dim lobjHymnTuneName As clsHymnTuneName
|
|
Dim lstrReferencedBy As String = ""
|
|
|
|
lobjHymnTuneName = CType(lstvwItemToDelete.Tag, clsHymnTuneName)
|
|
|
|
If Not lobjHymnTuneName.OKToDelete(lstrReferencedBy) Then
|
|
MessageBox.Show("Can't delete hymn tune name: " + lobjHymnTuneName.HymnTuneName + ". Currently used by " + lstrReferencedBy + ".", "Unable to delete", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
Return False
|
|
End If
|
|
|
|
|
|
Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete hymn tune name: " + lobjHymnTuneName.HymnTuneName + "?", "Delete confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
|
|
If ldrDialogResult = Windows.Forms.DialogResult.No Then
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Protected Overrides Function DeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
|
|
Dim lobjHymnTuneName As clsHymnTuneName
|
|
lobjHymnTuneName = CType(lstvwItemToDelete.Tag, clsHymnTuneName)
|
|
|
|
Return lobjHymnTuneName.Delete()
|
|
End Function
|
|
|
|
Protected Overrides Function SaveNewItem() As Boolean
|
|
Dim lstrErrorString As String = ""
|
|
|
|
mobjDetailHymnTuneName.HymnTuneName = txtHymnTuneName.Text
|
|
'Alternate tune names should already be in mobjDetailHymnTuneName
|
|
|
|
If Not mobjDetailHymnTuneName.Validate(lstrErrorString) Then
|
|
MessageBox.Show(lstrErrorString, "Edit Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
Return False
|
|
End If
|
|
|
|
If Not mobjDetailHymnTuneName.Save() Then
|
|
Return False
|
|
End If
|
|
|
|
'Refresh to pick up any other alternate hymn tune names that
|
|
'may have gotten added by adding an entry
|
|
mobjDetailHymnTuneName.Refresh()
|
|
|
|
Me.ExistingObjectsListItems.Add(ConvertHymnTuneNameToListViewItem(mobjDetailHymnTuneName))
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Protected Overrides Sub UserRequestedToExit()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Protected Overrides Sub EditOrAddStarting()
|
|
CType(Me.ParentForm, frmMain).DisableMenus()
|
|
End Sub
|
|
Protected Overrides Sub EditOrAddCompleted()
|
|
CType(Me.ParentForm, frmMain).EnableMenus()
|
|
End Sub
|
|
|
|
Private Function ConvertHymnTuneNameToListViewItem(ByVal lobjHymnTuneName As clsHymnTuneName) As ListViewItem
|
|
Dim lobjItem As ListViewItem
|
|
lobjItem = New ListViewItem(lobjHymnTuneName.HymnTuneName)
|
|
'lobjItem.SubItems.Add("Item1Col2")
|
|
'lobjItem.SubItems.Add("Item1Col3")
|
|
lobjItem.Tag = lobjHymnTuneName
|
|
|
|
Return lobjItem
|
|
|
|
End Function
|
|
|
|
Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
|
Dim lstrErrorString As String = ""
|
|
|
|
mobjDetailHymnTuneName.HymnTuneName = txtHymnTuneName.Text
|
|
|
|
If Not mobjDetailHymnTuneName.Validate(lstrErrorString) Then
|
|
MessageBox.Show(lstrErrorString, "Edit Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
Return False
|
|
End If
|
|
|
|
If Not mobjDetailHymnTuneName.Save() Then
|
|
Return False
|
|
End If
|
|
|
|
mobjDetailHymnTuneName.Refresh()
|
|
|
|
Me.ExistingObjectsListItems.Remove(lstvwExistingItem)
|
|
Me.ExistingObjectsListItems.Add(ConvertHymnTuneNameToListViewItem(mobjDetailHymnTuneName))
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub txtHymnTuneName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtHymnTuneName.TextChanged
|
|
MyBase.DetailDataHasChanged()
|
|
End Sub
|
|
|
|
Private Sub btnAddAlternateHymnTuneName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddAlternateHymnTuneName.Click
|
|
If txtHymnTuneName.Text.Trim.Length = 0 Then
|
|
MessageBox.Show("Cannot add alternate hymn tune name when no hymn tune name has been entered")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim objNewAlternateHymnTuneName As clsHymnTuneName
|
|
mobjDetailHymnTuneName.HymnTuneName = txtHymnTuneName.Text.Trim
|
|
objNewAlternateHymnTuneName = frmAddAlternateHymnTuneName.GetAlternateHymnTuneNameChosen(mobjDetailHymnTuneName)
|
|
If objNewAlternateHymnTuneName Is Nothing Then
|
|
'User cancelled
|
|
Else
|
|
lstAlternateTuneNames.Items.Add(objNewAlternateHymnTuneName)
|
|
mobjDetailHymnTuneName.AddAlternateHymnTuneName(objNewAlternateHymnTuneName)
|
|
MyBase.DetailDataHasChanged()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btnRemoveAlternateHymnTuneName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveAlternateHymnTuneName.Click
|
|
If txtHymnTuneName.Text.Trim.Length = 0 Then
|
|
MessageBox.Show("Cannot remove alternate hymn tune name when no hymn tune name has been entered")
|
|
Exit Sub
|
|
End If
|
|
|
|
If lstAlternateTuneNames.SelectedItems.Count = 0 Then
|
|
MessageBox.Show("Must select an alternate hymn tune name to remove")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim objHymnTuneNameToRemove As clsHymnTuneName
|
|
objHymnTuneNameToRemove = CType(lstAlternateTuneNames.SelectedItem, clsHymnTuneName)
|
|
|
|
mobjDetailHymnTuneName.RemoveAlternateHymnTuneName(objHymnTuneNameToRemove)
|
|
lstAlternateTuneNames.Items.RemoveAt(lstAlternateTuneNames.SelectedIndex)
|
|
MyBase.DetailDataHasChanged()
|
|
|
|
End Sub
|
|
End Class |