Initial population
This commit is contained in:
251
frmEditInstrumentation.vb
Normal file
251
frmEditInstrumentation.vb
Normal file
@@ -0,0 +1,251 @@
|
||||
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)
|
||||
|
||||
SetUpExistingItemsHeaders()
|
||||
|
||||
lobjInstrumentations = clsInstrumentation.GetAllInstrumentations
|
||||
|
||||
Me.ExistingItemsListSuspendLayout()
|
||||
|
||||
For Each lobjInstrumentation In lobjInstrumentations
|
||||
Me.ExistingObjectsListItems.Add(ConvertInstrumentationToListViewItem(lobjInstrumentation))
|
||||
Next
|
||||
|
||||
Me.ExistingItemsListResumeLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SetUpExistingItemsHeaders()
|
||||
Me.ExistingObjectsListColumns.Add("Instrumentation 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
|
||||
txtInstrumentationName.MaxLength = MyGlobals.INSTRUMENTATION_NAME_SIZE
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub SetFocusToFirstDetailControlForEdit()
|
||||
txtInstrumentationName.Focus()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Function DetailControlsHaveDifferentDataThanExistingData(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjSavedInstrumentation As clsInstrumentation
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
|
||||
lobjSavedInstrumentation = CType(lstvwExistingItem.Tag, clsInstrumentation)
|
||||
|
||||
mobjDetailInstrumentation.InstrumentationName = txtInstrumentationName.Text
|
||||
|
||||
If lobjSavedInstrumentation.StateIsIdentical(mobjDetailInstrumentation) Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Protected Overrides Function DetailControlsHaveSignificantData() As Boolean
|
||||
If txtInstrumentationName.Text.Trim.Length > 0 Then
|
||||
Return True
|
||||
End If
|
||||
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Protected Overrides Sub EmptyOutDetailControls()
|
||||
txtInstrumentationName.Text = ""
|
||||
mobjDetailInstrumentation = New clsInstrumentation
|
||||
End Sub
|
||||
|
||||
Protected Overrides Function LoadExistingDataToDetailControls(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjInstrumentation As clsInstrumentation
|
||||
Dim lblnReturnValue As Boolean = False
|
||||
lobjInstrumentation = CType(lstvwExistingItem.Tag, clsInstrumentation)
|
||||
txtInstrumentationName.Text = lobjInstrumentation.InstrumentationName
|
||||
|
||||
mobjDetailInstrumentation = CType(lobjInstrumentation.Clone(), clsInstrumentation)
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Protected Overrides Function ConfirmOKToDeleteExistingItem(ByVal lstvwItemToDelete As Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lobjInstrumentation As clsInstrumentation
|
||||
Dim lstrReferencedBy As String = ""
|
||||
|
||||
lobjInstrumentation = CType(lstvwItemToDelete.Tag, clsInstrumentation)
|
||||
|
||||
If Not lobjInstrumentation.OKToDelete(lstrReferencedBy) Then
|
||||
MessageBox.Show("Can't delete Instrumentation: " + lobjInstrumentation.InstrumentationName + ". 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 Instrumentation: " + lobjInstrumentation.InstrumentationName + "?", "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 lobjInstrumentation As clsInstrumentation
|
||||
lobjInstrumentation = CType(lstvwItemToDelete.Tag, clsInstrumentation)
|
||||
|
||||
Return lobjInstrumentation.Delete()
|
||||
End Function
|
||||
|
||||
Protected Overrides Function SaveNewItem() As Boolean
|
||||
Dim lstrErrorString As String = ""
|
||||
|
||||
mobjDetailInstrumentation.InstrumentationName = txtInstrumentationName.Text
|
||||
|
||||
If Not mobjDetailInstrumentation.Validate(lstrErrorString) Then
|
||||
MessageBox.Show(lstrErrorString, "Edit Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Not mobjDetailInstrumentation.Save() Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Me.ExistingObjectsListItems.Add(ConvertInstrumentationToListViewItem(mobjDetailInstrumentation))
|
||||
|
||||
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 ConvertInstrumentationToListViewItem(ByVal lobjInstrumentation As clsInstrumentation) As ListViewItem
|
||||
Dim lobjItem As ListViewItem
|
||||
lobjItem = New ListViewItem(lobjInstrumentation.InstrumentationName)
|
||||
'lobjItem.SubItems.Add("Item1Col2")
|
||||
'lobjItem.SubItems.Add("Item1Col3")
|
||||
lobjItem.Tag = lobjInstrumentation
|
||||
|
||||
Return lobjItem
|
||||
|
||||
End Function
|
||||
|
||||
Protected Overrides Function SaveNewDataForExistingItem(ByVal lstvwExistingItem As Windows.Forms.ListViewItem) As Boolean
|
||||
Dim lstrErrorString As String = ""
|
||||
|
||||
mobjDetailInstrumentation.InstrumentationName = txtInstrumentationName.Text
|
||||
|
||||
If Not mobjDetailInstrumentation.Validate(lstrErrorString) Then
|
||||
MessageBox.Show(lstrErrorString, "Edit Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Not mobjDetailInstrumentation.Save() Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Me.ExistingObjectsListItems.Remove(lstvwExistingItem)
|
||||
Me.ExistingObjectsListItems.Add(ConvertInstrumentationToListViewItem(mobjDetailInstrumentation))
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub txtInstrumentationName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInstrumentationName.TextChanged
|
||||
MyBase.DetailDataHasChanged()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user