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

jj 03.04 kampf mit net framework

Browse Source
This commit is contained in:
Digital Data
2017-04-03 13:01:57 +02:00
parent cb12278936
commit e24ce1d4bd
26 changed files with 1247 additions and 196 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organizer/ClassControlLoader.vb
View File

@@ -14,7 +14,7 @@
' Return sqlCommand
'End Function
Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Public Shared Function LoadAutoValue(control As System.Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Try
Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
@@ -205,7 +205,7 @@
control.DataSource = dt
End Sub
Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable)
Overloads Shared Sub SetDataSource(control As System.Windows.Forms.DataGridView, dt As DataTable)
control.DataSource = dt
End Sub
@@ -218,7 +218,7 @@
Public Class Label : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Public Shared Sub LoadValue(control As System.Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Dim Sql
Dim ControlId As Integer
Try
@@ -263,7 +263,7 @@
Public Class Checkbox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.CheckBox, value As String)
Public Shared Sub LoadValue(control As System.Windows.Forms.CheckBox, value As String)
Try
Dim result As Boolean = False
Boolean.TryParse(value, result)
@@ -279,7 +279,7 @@
Public Class RadioButton : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.RadioButton, value As String)
Public Shared Sub LoadValue(control As System.Windows.Forms.RadioButton, value As String)
Try
Dim result As Boolean = False
Boolean.TryParse(value, result)
@@ -295,7 +295,7 @@
Public Class TextBox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Public Shared Sub LoadValue(control As System.Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 272 Then
@@ -509,7 +509,7 @@
Public Class DataGridView : Inherits _ListControl
Public Shared Sub LoadValue(control As Windows.Forms.DataGridView, values As List(Of Object))
Public Shared Sub LoadValue(control As System.Windows.Forms.DataGridView, values As List(Of Object))
control.Rows.Clear()
For Each item In values
control.Rows.Add(item.ToString)