AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: Add Drag Drop to User Profile Manager

Browse Source
This commit is contained in:
Jonathan Jenne
2018-06-07 16:47:02 +02:00
parent c8af52bfda
commit e4f4afd6bf
8 changed files with 781 additions and 2490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

@@ -13991,7 +13991,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitCommandCollection()
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _
@@ -14003,6 +14003,14 @@ Namespace DD_DMSLiteDataSetTableAdapters
" TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WHERE (SHORT_NAME = 'PM')))))"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
Me._commandCollection(1).CommandText = "SELECT T1.* FROM TBDD_USER_MODULES T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND"& _
" T.MODULE_ID = (SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM') AND T.USE"& _
"R_ID NOT IN (SELECT USER_ID FROM TBPM_PROFILE_USER WHERE PROFIL_ID = @PROFILE_ID"& _
")"
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -14029,6 +14037,32 @@ Namespace DD_DMSLiteDataSetTableAdapters
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
Public Overloads Overridable Function FillByProfileId_NotAssigned(ByVal dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable, ByVal PROFILE_ID As Integer) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(1)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
Public Overloads Overridable Function GetDataByProfileId_NotAssigned(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.TBDD_USERDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(1)
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
Dim dataTable As DD_DMSLiteDataSet.TBDD_USERDataTable = New DD_DMSLiteDataSet.TBDD_USERDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _