Update to .Net 10/SQL 2025

frmEditComposer.vb

@@ -1,84 +1,8 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms
 
 Public Class frmEditComposer
-    Inherits BaseEditForm
-
     Private mobjDetailComposer As New clsComposer
 
-#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 lblComposerName As Windows.Forms.Label
-    Friend WithEvents txtComposerName As Windows.Forms.TextBox
-    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
-        Me.lblComposerName = New Windows.Forms.Label
-        Me.txtComposerName = New Windows.Forms.TextBox
-        Me.fraAddEdit.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'fraAddEdit
-        '
-        Me.fraAddEdit.Controls.Add(Me.txtComposerName)
-        Me.fraAddEdit.Controls.Add(Me.lblComposerName)
-        Me.fraAddEdit.Location = New System.Drawing.Point(8, 412)
-        Me.fraAddEdit.Size = New System.Drawing.Size(1072, 116)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.lblComposerName, 0)
-        Me.fraAddEdit.Controls.SetChildIndex(Me.txtComposerName, 0)
-        '
-        'lblComposerName
-        '
-        Me.lblComposerName.Location = New System.Drawing.Point(16, 24)
-        Me.lblComposerName.Name = "lblComposerName"
-        Me.lblComposerName.Size = New System.Drawing.Size(96, 16)
-        Me.lblComposerName.TabIndex = 3
-        Me.lblComposerName.Text = "Composer Name"
-        '
-        'txtComposerName
-        '
-        Me.txtComposerName.Location = New System.Drawing.Point(112, 24)
-        Me.txtComposerName.Name = "txtComposerName"
-        Me.txtComposerName.Size = New System.Drawing.Size(448, 20)
-        Me.txtComposerName.TabIndex = 4
-        '
-        'frmEditComposer
-        '
-        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
-        Me.ClientSize = New System.Drawing.Size(1088, 534)
-        Me.Name = "frmEditComposer"
-        Me.StartPosition = Windows.Forms.FormStartPosition.Manual
-        Me.Text = "Edit Composer"
-        Me.fraAddEdit.ResumeLayout(False)
-        Me.fraAddEdit.PerformLayout()
-        Me.ResumeLayout(False)
-
-    End Sub
-
-#End Region
-
     Protected Overrides Sub LoadExistingItemsList()
         Dim lobjComposer As clsComposer
         Dim lobjComposers As System.Collections.Generic.List(Of clsComposer)
@@ -117,7 +41,7 @@ Public Class frmEditComposer
         txtComposerName.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 lobjSavedComposer As clsComposer
         Dim lblnReturnValue As Boolean = False
 
@@ -145,7 +69,7 @@ Public Class frmEditComposer
         mobjDetailComposer = New clsComposer
     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 lobjComposer As clsComposer
         Dim lblnReturnValue As Boolean = False
         lobjComposer = CType(lstvwExistingItem.Tag, clsComposer)
@@ -155,7 +79,7 @@ Public Class frmEditComposer
         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 lobjComposer As clsComposer
         Dim lstrReferencedBy As String = ""
 
@@ -168,14 +92,14 @@ Public Class frmEditComposer
 
 
         Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete composer: " + lobjComposer.ComposerName + "?", "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 lobjComposer As clsComposer
         lobjComposer = CType(lstvwItemToDelete.Tag, clsComposer)
 
@@ -223,7 +147,7 @@ Public Class frmEditComposer
 
     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 = ""
 
         mobjDetailComposer.ComposerName = txtComposerName.Text