Update to .Net 10/SQL 2025
This commit is contained in:
168
frmEditHymn.vb
168
frmEditHymn.vb
@@ -1,158 +1,9 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmEditHymn
|
||||
Inherits OrganLit.BaseEditForm
|
||||
|
||||
Private mobjDetailHymn As New clsHymn
|
||||
Private m_objHymnTuneNamesHash As Hashtable
|
||||
|
||||
#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 lblHymnName As Windows.Forms.Label
|
||||
Friend WithEvents txtHymnName As Windows.Forms.TextBox
|
||||
Friend WithEvents lblHymnTuneName As Windows.Forms.Label
|
||||
Friend WithEvents cboHymnTuneName As ComboTypeAhead.ComboTypeAhead
|
||||
Friend WithEvents lblHymnal As Windows.Forms.Label
|
||||
Friend WithEvents lblHymnNumber As Windows.Forms.Label
|
||||
Friend WithEvents txtHymnNumber As Windows.Forms.TextBox
|
||||
Friend WithEvents cboHymnal As Windows.Forms.ComboBox
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.lblHymnName = New Windows.Forms.Label
|
||||
Me.txtHymnName = New Windows.Forms.TextBox
|
||||
Me.lblHymnal = New Windows.Forms.Label
|
||||
Me.lblHymnTuneName = New Windows.Forms.Label
|
||||
Me.cboHymnTuneName = New ComboTypeAhead.ComboTypeAhead
|
||||
Me.lblHymnNumber = New Windows.Forms.Label
|
||||
Me.txtHymnNumber = New Windows.Forms.TextBox
|
||||
Me.cboHymnal = New Windows.Forms.ComboBox
|
||||
Me.fraAddEdit.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'fraAddEdit
|
||||
'
|
||||
Me.fraAddEdit.Controls.Add(Me.cboHymnal)
|
||||
Me.fraAddEdit.Controls.Add(Me.txtHymnNumber)
|
||||
Me.fraAddEdit.Controls.Add(Me.lblHymnNumber)
|
||||
Me.fraAddEdit.Controls.Add(Me.cboHymnTuneName)
|
||||
Me.fraAddEdit.Controls.Add(Me.lblHymnTuneName)
|
||||
Me.fraAddEdit.Controls.Add(Me.lblHymnal)
|
||||
Me.fraAddEdit.Controls.Add(Me.txtHymnName)
|
||||
Me.fraAddEdit.Controls.Add(Me.lblHymnName)
|
||||
Me.fraAddEdit.Location = New System.Drawing.Point(10, 475)
|
||||
Me.fraAddEdit.Size = New System.Drawing.Size(1064, 117)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnal, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnTuneName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.cboHymnTuneName, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.lblHymnNumber, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.txtHymnNumber, 0)
|
||||
Me.fraAddEdit.Controls.SetChildIndex(Me.cboHymnal, 0)
|
||||
'
|
||||
'lblHymnName
|
||||
'
|
||||
Me.lblHymnName.Location = New System.Drawing.Point(16, 64)
|
||||
Me.lblHymnName.Name = "lblHymnName"
|
||||
Me.lblHymnName.Size = New System.Drawing.Size(96, 16)
|
||||
Me.lblHymnName.TabIndex = 4
|
||||
Me.lblHymnName.Text = "Hymn Name"
|
||||
'
|
||||
'txtHymnName
|
||||
'
|
||||
Me.txtHymnName.Location = New System.Drawing.Point(112, 64)
|
||||
Me.txtHymnName.Name = "txtHymnName"
|
||||
Me.txtHymnName.Size = New System.Drawing.Size(424, 20)
|
||||
Me.txtHymnName.TabIndex = 5
|
||||
'
|
||||
'lblHymnal
|
||||
'
|
||||
Me.lblHymnal.Location = New System.Drawing.Point(16, 16)
|
||||
Me.lblHymnal.Name = "lblHymnal"
|
||||
Me.lblHymnal.Size = New System.Drawing.Size(80, 16)
|
||||
Me.lblHymnal.TabIndex = 0
|
||||
Me.lblHymnal.Text = "Hymnal"
|
||||
'
|
||||
'lblHymnTuneName
|
||||
'
|
||||
Me.lblHymnTuneName.Location = New System.Drawing.Point(16, 88)
|
||||
Me.lblHymnTuneName.Name = "lblHymnTuneName"
|
||||
Me.lblHymnTuneName.Size = New System.Drawing.Size(96, 16)
|
||||
Me.lblHymnTuneName.TabIndex = 6
|
||||
Me.lblHymnTuneName.Text = "Hymn Tune Name"
|
||||
'
|
||||
'cboHymnTuneName
|
||||
'
|
||||
Me.cboHymnTuneName.Location = New System.Drawing.Point(112, 88)
|
||||
Me.cboHymnTuneName.Name = "cboHymnTuneName"
|
||||
Me.cboHymnTuneName.Size = New System.Drawing.Size(288, 21)
|
||||
Me.cboHymnTuneName.Sorted = True
|
||||
Me.cboHymnTuneName.TabIndex = 7
|
||||
'
|
||||
'lblHymnNumber
|
||||
'
|
||||
Me.lblHymnNumber.Location = New System.Drawing.Point(16, 40)
|
||||
Me.lblHymnNumber.Name = "lblHymnNumber"
|
||||
Me.lblHymnNumber.Size = New System.Drawing.Size(80, 16)
|
||||
Me.lblHymnNumber.TabIndex = 2
|
||||
Me.lblHymnNumber.Text = "Hymn Number"
|
||||
'
|
||||
'txtHymnNumber
|
||||
'
|
||||
Me.txtHymnNumber.Location = New System.Drawing.Point(112, 40)
|
||||
Me.txtHymnNumber.Name = "txtHymnNumber"
|
||||
Me.txtHymnNumber.Size = New System.Drawing.Size(64, 20)
|
||||
Me.txtHymnNumber.TabIndex = 3
|
||||
'
|
||||
'cboHymnal
|
||||
'
|
||||
Me.cboHymnal.DropDownStyle = Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboHymnal.Location = New System.Drawing.Point(112, 16)
|
||||
Me.cboHymnal.Name = "cboHymnal"
|
||||
Me.cboHymnal.Size = New System.Drawing.Size(424, 21)
|
||||
Me.cboHymnal.Sorted = True
|
||||
Me.cboHymnal.TabIndex = 1
|
||||
'
|
||||
'frmEditHymn
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(1080, 598)
|
||||
Me.Name = "frmEditHymn"
|
||||
Me.StartPosition = Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Edit Hymn"
|
||||
Me.fraAddEdit.ResumeLayout(False)
|
||||
Me.fraAddEdit.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Overrides Sub LoadExistingItemsList()
|
||||
Dim lobjHymn As clsHymn
|
||||
Dim lobjHymns As System.Collections.Generic.List(Of clsHymn)
|
||||
@@ -241,7 +92,7 @@ Public Class frmEditHymn
|
||||
cboHymnal.Focus()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjSavedHymn As clsHymn
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
|
||||
@@ -288,7 +139,7 @@ Public Class frmEditHymn
|
||||
mobjDetailHymn = New clsHymn
|
||||
End Sub
|
||||
|
||||
Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjHymn As clsHymn
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
lobjHymn = CType(lstvwExistingItem.Tag, clsHymn)
|
||||
@@ -307,7 +158,7 @@ Public Class frmEditHymn
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
|
||||
Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As System.Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjHymn As clsHymn
|
||||
Dim lstrReferencedBy As String = ""
|
||||
|
||||
@@ -319,14 +170,14 @@ Public Class frmEditHymn
|
||||
End If
|
||||
|
||||
Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete hymn: " + lobjHymn.ToString + "?", "Delete confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
|
||||
If ldrDialogResult = Windows.Forms.DialogResult.No Then
|
||||
If ldrDialogResult = System.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
|
||||
Protected Overrides Function DeleteExistingItem(ByVal lstvwItemToDelete As System.Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjHymn As clsHymn
|
||||
lobjHymn = CType(lstvwItemToDelete.Tag, clsHymn)
|
||||
|
||||
@@ -409,7 +260,7 @@ Public Class frmEditHymn
|
||||
|
||||
End Function
|
||||
|
||||
Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As System.Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lstrErrorString As String = ""
|
||||
Dim lblnAddedNewHymnTuneName As Boolean
|
||||
|
||||
@@ -467,7 +318,7 @@ Public Class frmEditHymn
|
||||
MyBase.DetailDataHasChanged()
|
||||
End Sub
|
||||
|
||||
Private Sub txtHymnNumber_KeyPress(ByVal sender As Object, ByVal e As Windows.Forms.KeyPressEventArgs) Handles txtHymnNumber.KeyPress
|
||||
Private Sub txtHymnNumber_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtHymnNumber.KeyPress
|
||||
If Not MyGlobals.AllowKeypressInNumericTextBox(e.KeyChar) Then
|
||||
e.Handled = True
|
||||
End If
|
||||
@@ -478,4 +329,5 @@ Public Class frmEditHymn
|
||||
m_objHymnTuneNamesHash.Add(objHymnTuneName.HymnTuneName.ToUpper, objHymnTuneName)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user