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

jj 31.05

Browse Source
This commit is contained in:
JenneJ
2016-05-31 15:19:32 +02:00
parent ecb4161e6a
commit bd4bc6b9f3
30 changed files with 613 additions and 533 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -103,6 +103,20 @@ Public Class ClassControlBuilder
End If
End Sub
Public Sub RecordChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs)
Dim onRecordChangedHandler As EventHandler = CType(Me.Events(_onRecordChangedName), EventHandler)
Dim ctrl As DevExpress.XtraGrid.Views.Grid.GridView = sender
Dim controlId As Integer = DirectCast(ctrl.GridControl.Tag, ClassControlMetadata).Id
If Not ControlsChanged.Contains(controlId) Then
ControlsChanged.Add(controlId)
End If
If (onRecordChangedHandler IsNot Nothing And WatchRecordChanges) Then
onRecordChangedHandler.Invoke(sender, e)
End If
End Sub
Public Sub MouseHover(sender As Object, e As EventArgs)
Dim onMouseHoverHandler As EventHandler = CType(Me.Events(_onMouseHoverName), EventHandler)
@@ -448,7 +462,7 @@ Public Class ClassControlBuilder
'SQL für enable control
Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2,CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId)
value = DirectCast(control, DevExpress.XtraEditors.DateEdit).DateTime
If String.IsNullOrEmpty(value) Then
@@ -586,10 +600,10 @@ Public Class ClassControlBuilder
Dim GridView As DevExpress.XtraGrid.Views.Grid.GridView = sender
Dim control As Control = DirectCast(GridView.GridControl, Control)
Dim controlId As Integer = DirectCast(GridView.GridControl.Tag, ClassControlMetadata).Id
CONTROL_ID = controlId
control.Update()
'SQL für abhängige Auswahllisten
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1,CONTROL_TYPE_ID,FORMAT_TYPE FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
'SQL für enable control
@@ -651,7 +665,7 @@ Public Class ClassControlBuilder
Catch ex As Exception
Exit Sub
End Try
If CURRENT_RECORD_ID = 0 And CtrlCommandUI.IsInsert = True Then
Exit Sub
End If
@@ -782,11 +796,18 @@ Public Class ClassControlBuilder
Case "GridControl"
Dim gridcontrol As DevExpress.XtraGrid.GridControl = CType(control, DevExpress.XtraGrid.GridControl)
Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = gridcontrol.MainView
AddHandler gridview.CellValueChanged, AddressOf RecordChanged
AddHandler gridview.CellValueChanged, AddressOf OnCheckedChanged
AddHandler gridview.SelectionChanged, AddressOf RecordChanged
AddHandler gridview.SelectionChanged, AddressOf OnCheckedChanged
AddHandler gridview.CustomDrawColumnHeader, AddressOf OnDrawColumnHeader
End Select
End Sub
Private Sub OnDrawColumnHeader(sender As Object, e As DevExpress.XtraGrid.Views.Grid.ColumnHeaderCustomDrawEventArgs)
Console.WriteLine()
End Sub
Private Sub SetDragDropHandler(groupbox As GroupBox)
If Not IsNothing(_group_box_drag_drop_handler) Then
AddHandler groupbox.DragDrop, Me._group_box_drag_drop_handler
@@ -1738,6 +1759,9 @@ Public Class ClassControlBuilder
gridview.OptionsView.EnableAppearanceEvenRow = True
gridview.Appearance.EvenRow.BackColor = Color.Aqua
gridview.OptionsSelection.MultiSelect = True
gridview.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
If _designMode Then
Dim CheckEdit As New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
@@ -2171,12 +2195,12 @@ Public Class ClassControlBuilder
control.DisplayMember = DT_ListBox.Columns(0).ColumnName
End Try
End If
End If
End If
End If
End If
' Wenn statische liste vorhanden, werte splitten und einfügen
If static_list.Length > 0 Then