jreuss/OrganLit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to .Net 10/SQL 2025

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

90
frmEditInstrumentation.vb
View File

@@ -1,84 +1,8 @@
Imports System.Windows.Forms
Imports System.Windows.Forms
Public Class frmEditInstrumentation
Inherits BaseEditForm
Private mobjDetailInstrumentation As New clsInstrumentation
#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 lblInstrumentationName As Windows.Forms.Label
Friend WithEvents txtInstrumentationName As Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lblInstrumentationName = New Windows.Forms.Label
Me.txtInstrumentationName = New Windows.Forms.TextBox
Me.fraAddEdit.SuspendLayout()
Me.SuspendLayout()
'
'fraAddEdit
'
Me.fraAddEdit.Controls.Add(Me.txtInstrumentationName)
Me.fraAddEdit.Controls.Add(Me.lblInstrumentationName)
Me.fraAddEdit.Location = New System.Drawing.Point(8, 417)
Me.fraAddEdit.Size = New System.Drawing.Size(1072, 111)
Me.fraAddEdit.Controls.SetChildIndex(Me.lblInstrumentationName, 0)
Me.fraAddEdit.Controls.SetChildIndex(Me.txtInstrumentationName, 0)
'
'lblInstrumentationName
'
Me.lblInstrumentationName.Location = New System.Drawing.Point(16, 24)
Me.lblInstrumentationName.Name = "lblInstrumentationName"
Me.lblInstrumentationName.Size = New System.Drawing.Size(96, 16)
Me.lblInstrumentationName.TabIndex = 3
Me.lblInstrumentationName.Text = "Instrumentation"
'
'txtInstrumentationName
'
Me.txtInstrumentationName.Location = New System.Drawing.Point(112, 24)
Me.txtInstrumentationName.Name = "txtInstrumentationName"
Me.txtInstrumentationName.Size = New System.Drawing.Size(448, 20)
Me.txtInstrumentationName.TabIndex = 4
'
'frmEditInstrumentation
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(1088, 534)
Me.Name = "frmEditInstrumentation"
Me.StartPosition = Windows.Forms.FormStartPosition.Manual
Me.Text = "Edit Instrumentation"
Me.fraAddEdit.ResumeLayout(False)
Me.fraAddEdit.PerformLayout()
Me.ResumeLayout(False)
End Sub
#End Region
Protected Overrides Sub LoadExistingItemsList()
Dim lobjInstrumentation As clsInstrumentation
Dim lobjInstrumentations As System.Collections.Generic.List(Of clsInstrumentation)
@@ -118,7 +42,7 @@ Public Class frmEditInstrumentation
txtInstrumentationName.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 lobjSavedInstrumentation As clsInstrumentation
Dim lblnReturnValue As Boolean = False
@@ -146,7 +70,7 @@ Public Class frmEditInstrumentation
mobjDetailInstrumentation = New clsInstrumentation
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 lobjInstrumentation As clsInstrumentation
Dim lblnReturnValue As Boolean = False
lobjInstrumentation = CType(lstvwExistingItem.Tag, clsInstrumentation)
@@ -156,7 +80,7 @@ Public Class frmEditInstrumentation
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 lobjInstrumentation As clsInstrumentation
Dim lstrReferencedBy As String = ""
@@ -169,14 +93,14 @@ Public Class frmEditInstrumentation
Dim ldrDialogResult As DialogResult = MessageBox.Show("Are you sure you want to delete Instrumentation: " + lobjInstrumentation.InstrumentationName + "?", "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 lobjInstrumentation As clsInstrumentation
lobjInstrumentation = CType(lstvwItemToDelete.Tag, clsInstrumentation)
@@ -224,7 +148,7 @@ Public Class frmEditInstrumentation
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 = ""
mobjDetailInstrumentation.InstrumentationName = txtInstrumentationName.Text