AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 09.12

Browse Source
This commit is contained in:
JenneJ
2016-12-09 13:33:26 +01:00
parent ad3e53f887
commit fdb479cfdc
15 changed files with 96 additions and 2359 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -9,8 +9,27 @@ Public Class ClassControlCommandsUI
Private _AddFormDataHandler As System.EventHandler
Private _ContextMenuStrip As ContextMenuStrip
Public IsInsert As Boolean = False
Public IsEdit As Boolean = False
Private _isinsert As Boolean = False
Private _isedit As Boolean = False
Public Property IsInsert As Boolean
Get
Return _isinsert
End Get
Set(value As Boolean)
_isinsert = value
_CtrlBuilder.IsInsert = value
End Set
End Property
Public Property IsEdit As Boolean
Get
Return _isedit
End Get
Set(value As Boolean)
_isedit = value
_CtrlBuilder.IsEdit = value
End Set
End Property
''' <summary>
''' Erstellt eine neue Instanz der ClassControlCommandsUI Klasse
''' </summary>
@@ -231,7 +250,7 @@ Public Class ClassControlCommandsUI
parent)
control = "Radiobutton - " & dr.Item("CONTROL_ID")
Case 12 'CheckedListBox
CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
_CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -251,7 +270,7 @@ Public Class ClassControlCommandsUI
parent)
control = "CheckedlistBox - " & dr.Item("CONTROL_ID")
Case 13 'CheckedListBox
CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
_CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -271,7 +290,7 @@ Public Class ClassControlCommandsUI
parent)
control = "Listbox - " & dr.Item("CONTROL_ID")
Case 14 'DataGridViewCheckable
CtrlBuilder.AddDataGridViewCheckable(dr.Item("CONTROL_ID"),
_CtrlBuilder.AddDataGridViewCheckable(dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
@@ -532,7 +551,7 @@ Public Class ClassControlCommandsUI
'Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID))
Dim ValueExists = VALUE_EXISTS_DT.Select(String.Format("CONTROL_ID = {0}", CONTROL_ID))
Dim ValueChanged As Boolean = CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
Dim ValueChanged As Boolean = _CtrlBuilder.ControlsChanged.Contains(CONTROL_ID)
If Not ValueChanged Then
Continue For