Update to .Net 10/SQL 2025

This commit is contained in:
Jon
2026-04-21 16:35:57 -05:00
parent 46735bddd3
commit a9379d308e
50 changed files with 2069 additions and 2179 deletions

View File

@@ -1,110 +1,9 @@
Imports System.Windows.Forms
Imports System.Windows.Forms
Public Class frmEditPublisher
Inherits BaseEditForm
Private mobjDetailPublisher As New clsPublisher
#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 lblPublisherName As Windows.Forms.Label
Friend WithEvents cboStreamingAllowed As ComboBox
Friend WithEvents lblPublisherStreamingAllowed As Label
Friend WithEvents txtPublisherName As Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lblPublisherName = New System.Windows.Forms.Label()
Me.txtPublisherName = New System.Windows.Forms.TextBox()
Me.lblPublisherStreamingAllowed = New System.Windows.Forms.Label()
Me.cboStreamingAllowed = New System.Windows.Forms.ComboBox()
Me.fraAddEdit.SuspendLayout()
Me.SuspendLayout()
'
'fraAddEdit
'
Me.fraAddEdit.Controls.Add(Me.cboStreamingAllowed)
Me.fraAddEdit.Controls.Add(Me.lblPublisherStreamingAllowed)
Me.fraAddEdit.Controls.Add(Me.txtPublisherName)
Me.fraAddEdit.Controls.Add(Me.lblPublisherName)
Me.fraAddEdit.Location = New System.Drawing.Point(8, 412)
Me.fraAddEdit.Size = New System.Drawing.Size(1072, 116)
Me.fraAddEdit.Controls.SetChildIndex(Me.lblPublisherName, 0)
Me.fraAddEdit.Controls.SetChildIndex(Me.txtPublisherName, 0)
Me.fraAddEdit.Controls.SetChildIndex(Me.lblPublisherStreamingAllowed, 0)
Me.fraAddEdit.Controls.SetChildIndex(Me.cboStreamingAllowed, 0)
'
'lblPublisherName
'
Me.lblPublisherName.Location = New System.Drawing.Point(16, 24)
Me.lblPublisherName.Name = "lblPublisherName"
Me.lblPublisherName.Size = New System.Drawing.Size(96, 16)
Me.lblPublisherName.TabIndex = 3
Me.lblPublisherName.Text = "Publisher Name"
'
'txtPublisherName
'
Me.txtPublisherName.Location = New System.Drawing.Point(135, 24)
Me.txtPublisherName.Name = "txtPublisherName"
Me.txtPublisherName.Size = New System.Drawing.Size(448, 20)
Me.txtPublisherName.TabIndex = 4
'
'lblPublisherStreamingAllowed
'
Me.lblPublisherStreamingAllowed.Location = New System.Drawing.Point(16, 46)
Me.lblPublisherStreamingAllowed.Name = "lblPublisherStreamingAllowed"
Me.lblPublisherStreamingAllowed.Size = New System.Drawing.Size(130, 16)
Me.lblPublisherStreamingAllowed.TabIndex = 5
Me.lblPublisherStreamingAllowed.Text = "Publisher Streaming Allowed"
'
'cboPublisherStreamingAllowed
'
Me.cboStreamingAllowed.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStreamingAllowed.FormattingEnabled = True
Me.cboStreamingAllowed.Location = New System.Drawing.Point(135, 46)
Me.cboStreamingAllowed.Name = "cboStreamingAllowed"
Me.cboStreamingAllowed.Size = New System.Drawing.Size(120, 16)
Me.cboStreamingAllowed.TabIndex = 6
'
'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 lobjPublisher As clsPublisher
Dim lobjPublishers As System.Collections.Generic.List(Of clsPublisher)
@@ -214,7 +113,7 @@ Public Class frmEditPublisher
End If
Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete publisher: " + lobjPublisher.PublisherName + "?", "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