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

Merge branch 'master' of http://jennej@172.24.11.74:90/scm/git/RecordOrganizer

Browse Source
This commit is contained in:
JenneJ
2016-03-08 10:50:27 +01:00
parent 93fe1a888e 9ca22dce19
commit 9d4f9fdc89
17 changed files with 3743 additions and 3553 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
app/DD-Record-Organiser/ClassControlLoader.vb
View File

@@ -15,6 +15,7 @@
Try Try
Dim AutoValue As String = String.Empty Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId)) Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId) SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId)
@@ -22,7 +23,12 @@
Return Nothing Return Nothing
End If End If
AutoValue = ClassDatabase.Execute_Scalar(SQL) If Not IsNothing(CONNID) Then
AutoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL)
Else
AutoValue = ClassDatabase.Execute_Scalar(SQL)
End If
' AutoValue = ClassDatabase.Execute_Scalar(SQL)
If String.IsNullOrEmpty(AutoValue) Or IsDBNull(AutoValue) Then If String.IsNullOrEmpty(AutoValue) Or IsDBNull(AutoValue) Then
Return Nothing Return Nothing
@@ -41,11 +47,11 @@
Public Class _ListControl : Inherits _BaseControl Public Class _ListControl : Inherits _BaseControl
Public Shared Function GetDynamicValue(controlId As Integer, formId As Integer, sqlCommand As String) As DynamicValue Public Shared Function GetDynamicValue(controlId As Integer, formId As Integer, connID As Object, sqlCommand As String) As DynamicValue
Dim returnValue As DynamicValue Dim returnValue As DynamicValue
returnValue.StaticList = CheckForStaticList(controlId) returnValue.StaticList = CheckForStaticList(controlId)
returnValue.DataTable = GetSqlList(controlId, formId, sqlCommand) returnValue.DataTable = GetSqlList(controlId, formId, connID, sqlCommand)
Return returnValue Return returnValue
End Function End Function
@@ -68,7 +74,7 @@
End Try End Try
End Function End Function
Private Shared Function GetSqlList(controlId As Integer, formId As Integer, sqlCommand As String) Private Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String)
Try Try
If sqlCommand Is Nothing Or sqlCommand = String.Empty Then If sqlCommand Is Nothing Or sqlCommand = String.Empty Then
Return Nothing Return Nothing
@@ -78,7 +84,12 @@
Dim final As DataTable Dim final As DataTable
If cached Is Nothing Then If cached Is Nothing Then
final = ClassDatabase.Return_Datatable(sqlCommand) If Not IsDBNull(connection_Id) Then
final = ClassDatabase.MSSQL_ReturnDTWithConnection(connection_Id, sqlCommand)
Else
final = ClassDatabase.Return_Datatable(sqlCommand)
End If
ClassControlValueCache.SaveToCache(sqlCommand, final) ClassControlValueCache.SaveToCache(sqlCommand, final)
Console.WriteLine("CACHE MISS") Console.WriteLine("CACHE MISS")
Else Else
@@ -274,9 +285,9 @@
control.Text = value control.Text = value
End Sub End Sub
Public Shared Sub LoadList(control As Windows.Forms.ComboBox, formId As Integer, SQLCommand As String) Public Shared Sub LoadList(control As Windows.Forms.ComboBox, formId As Integer, connID As Object, SQLCommand As String)
Try Try
Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, SQLCommand) Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, connID, SQLCommand)
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
control.DataSource = dynamic.StaticList control.DataSource = dynamic.StaticList
@@ -292,24 +303,32 @@
End Sub End Sub
Private Shared Sub CalculateDropdownWidth(control As Windows.Forms.ComboBox, dt As DataTable) Private Shared Sub CalculateDropdownWidth(control As Windows.Forms.ComboBox, dt As DataTable)
Const WIDEST_WIDTH As Integer = 300 Try
Dim FinalWidth As Integer = WIDEST_WIDTH Const WIDEST_WIDTH As Integer = 300
For Each row As DataRow In dt.Rows Dim FinalWidth As Integer = WIDEST_WIDTH
'Die Breite der Dropdown-List anpassen Dim index As Integer = 1
Using g As Graphics = control.CreateGraphics() If dt.Columns.Count = 1 Then
Dim valueWidth As Integer = g.MeasureString(row.Item(1).ToString(), control.Font).Width index = 0
If valueWidth + 30 > FinalWidth Then End If
FinalWidth = valueWidth + 30 For Each row As DataRow In dt.Rows
End If 'Die Breite der Dropdown-List anpassen
g.Dispose() Using g As Graphics = control.CreateGraphics()
End Using Dim valueWidth As Integer = g.MeasureString(row.Item(index).ToString(), control.Font).Width
Next If valueWidth + 30 > FinalWidth Then
FinalWidth = valueWidth + 30
End If
g.Dispose()
End Using
Next
If FinalWidth > WIDEST_WIDTH Then If FinalWidth > WIDEST_WIDTH Then
control.DropDownWidth = Math.Max(FinalWidth, control.Width) control.DropDownWidth = Math.Max(FinalWidth, control.Width)
End If End If
Catch ex As Exception
MsgBox("Error in CalculateDropdownWidth:" & vbNewLine & ex.Message)
End Try
End Sub End Sub
End Class End Class
Public Class CheckedListBox : Inherits _ListControl Public Class CheckedListBox : Inherits _ListControl
@@ -329,9 +348,9 @@
Next Next
End Sub End Sub
Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, SQLCommand As String) Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String)
Try Try
Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, SQLCommand) Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, conn_Id, SQLCommand)
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
control.DataSource = dynamic.StaticList control.DataSource = dynamic.StaticList
@@ -358,8 +377,8 @@
control.SelectedIndex = control.FindStringExact(value) control.SelectedIndex = control.FindStringExact(value)
End Sub End Sub
Public Shared Sub LoadList(control As DevExpress.XtraEditors.ListBoxControl, formId As Integer, SQLCommand As String) Public Shared Sub LoadList(control As DevExpress.XtraEditors.ListBoxControl, formId As Integer, ConnId As Object, SQLCommand As String)
Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, SQLCommand) Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, ConnId, SQLCommand)
If dynamic.StaticList IsNot Nothing Then If dynamic.StaticList IsNot Nothing Then
control.DataSource = dynamic.StaticList control.DataSource = dynamic.StaticList

21
app/DD-Record-Organiser/ClassControlValues.vb
View File

@@ -250,7 +250,7 @@ Public Class ClassControlValues
' Zuerst alle SQL Commands für FormID finden ' Zuerst alle SQL Commands für FormID finden
' CONTROL_SQLCOMMAND_1 wird als SQL gealiast ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
swsql.Stop() swsql.Stop()
@@ -276,19 +276,19 @@ Public Class ClassControlValues
End If End If
Dim sqlcommand As String = row.Item("SQL") Dim sqlcommand As String = row.Item("SQL")
Dim ConnID = row.Item("CONTROL_CONNID_1")
Select Case Ctrl.GetType() Select Case Ctrl.GetType()
Case GetType(ComboBox) Case GetType(ComboBox)
Dim combobox = DirectCast(Ctrl, ComboBox) Dim combobox = DirectCast(Ctrl, ComboBox)
ControlLoader.Combobox.LoadList(combobox, FormID, sqlcommand) ControlLoader.Combobox.LoadList(combobox, FormID, ConnID, sqlcommand)
Case GetType(DevExpress.XtraEditors.ListBoxControl) Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox = DirectCast(Ctrl, DevExpress.XtraEditors.ListBoxControl) Dim listbox = DirectCast(Ctrl, DevExpress.XtraEditors.ListBoxControl)
ControlLoader.ListBox.LoadList(listbox, FormID, sqlcommand) ControlLoader.ListBox.LoadList(listbox, FormID, ConnID, sqlcommand)
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl) Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl) Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, sqlcommand) ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, ConnID, sqlcommand)
End Select End Select
@@ -315,7 +315,7 @@ Public Class ClassControlValues
Exit Sub Exit Sub
End If End If
Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId) Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1, CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 <> '' AND CONTROL_SQLCOMMAND_1 LIKE '%@%'", FormId)
Dim SW As Stopwatch = Stopwatch.StartNew() Dim SW As Stopwatch = Stopwatch.StartNew()
Dim commands As New List(Of String) Dim commands As New List(Of String)
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)
@@ -332,21 +332,24 @@ Public Class ClassControlValues
Continue For Continue For
End If End If
Dim connID = row.Item("CONTROL_CONNID_1")
Dim sqlcommand As String = row.Item("SQL") Dim sqlcommand As String = row.Item("SQL")
sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId) sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId)
Select Case Ctrl.GetType() Select Case Ctrl.GetType()
Case GetType(ComboBox) Case GetType(ComboBox)
Dim combobox = DirectCast(Ctrl, ComboBox) Dim combobox = DirectCast(Ctrl, ComboBox)
ControlLoader.Combobox.LoadList(combobox, FormId, sqlcommand) ControlLoader.Combobox.LoadList(combobox, FormId, connID, sqlcommand)
Case GetType(DevExpress.XtraEditors.ListBoxControl) Case GetType(DevExpress.XtraEditors.ListBoxControl)
Dim listbox = DirectCast(Ctrl, DevExpress.XtraEditors.ListBoxControl) Dim listbox = DirectCast(Ctrl, DevExpress.XtraEditors.ListBoxControl)
ControlLoader.ListBox.LoadList(listbox, FormId, sqlcommand) ControlLoader.ListBox.LoadList(listbox, FormId, connID, sqlcommand)
Case GetType(DevExpress.XtraEditors.CheckedListBoxControl) Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl) Dim chlistbox = DirectCast(Ctrl, DevExpress.XtraEditors.CheckedListBoxControl)
ControlLoader.CheckedListBox.LoadList(chlistbox, FormId, sqlcommand) ControlLoader.CheckedListBox.LoadList(chlistbox, FormId, connID, sqlcommand)
End Select End Select
Next Next

59
app/DD-Record-Organiser/ClassDatabase.vb
View File

@@ -77,6 +77,35 @@ Public Class ClassDatabase
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function MSSQL_ReturnDTWithConnection(connectionId As Integer, sql As String)
Try
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Else
MsgBox("No ConnectionID!", MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler bei MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei MSSQL_ReturnDTWithConnection:")
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
@@ -180,6 +209,36 @@ Public Class ClassDatabase
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Execute_ScalarWithConnection(connectionId As Integer, cmdscalar As String)
Dim result
Try
Dim connectionString As String
connectionString = ClassDatabase.GetConnectionString(connectionId)
If connectionString <> "" Then
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = connectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Else
MsgBox("No ConnectionID!", MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add("Fehler bei Execute_ScalarWithConnection: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Dim result Dim result
Try Try

209
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@@ -5,112 +5,131 @@ Public Class ClassDragDrop
Public Shared files_dropped As String() Public Shared files_dropped As String()
Public Shared Function Drop_File(e As DragEventArgs) Public Shared Function Drop_File(e As DragEventArgs)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False) Try
files_dropped = Nothing If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False)
Dim oApp As New Outlook.Application files_dropped = Nothing
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')"
ClassDatabase.Execute_non_Query(sql)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')"
If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False) ClassDatabase.Execute_non_Query(sql)
Dim MyFiles() As String
Dim i As Integer
' Assign the files to an array.
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
ReDim Preserve files_dropped(i) If e.Data.GetDataPresent(DataFormats.FileDrop) Then
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i) If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False)
' ListBox1.Items.Add(MyFiles(i)) Dim MyFiles() As String
Next Dim i As Integer
Return files_dropped ' Assign the files to an array.
End If MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then ReDim Preserve files_dropped(i)
Console.WriteLine(">> FileGroupDescriptor/FileContents") files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False) ' ListBox1.Items.Add(MyFiles(i))
'// the first step here is to get the stbFileName Next
'// of the attachment and Return files_dropped
'// build a full-path name so we can store it End If
'// in the temporary folder Catch ex As Exception
'// MsgBox("Unexpected Error in DropFile||DataFormats.FileDrop: " & ex.Message, MsgBoxStyle.Critical)
'// set up to obtain the aryFileGroupDescriptor ClassLogger.Add("Unexpected Error in DataFormats.FileDrop: " & ex.Message, True)
'// and extract the file name End Try
Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
stmInput.Read(aryFileGroupDescriptor, 0, 512)
'// used to build the stbFileName from the aryFileGroupDescriptor block
Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
'// this trick gets the stbFileName of the passed attached file
Dim intCnt As Integer = 76
Do While aryFileGroupDescriptor(intCnt) <> 0
stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
intCnt += 1
Loop
stmInput.Close()
Dim anhaenge = e.Data.GetDataPresent("FileContents") Try
'Dim path As String = "C:\VBProjekte\Dateien" If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
'// put the zip file into the temp directory Console.WriteLine(">> FileGroupDescriptor/FileContents")
Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString() If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False)
'// create the full-path name '// the first step here is to get the stbFileName
'// '// of the attachment and
'// Second step: we have the file name. '// build a full-path name so we can store it
'// Now we need to get the actual raw '// in the temporary folder
'// data for the attached file and copy it to disk so we work on it. '//
'// '// set up to obtain the aryFileGroupDescriptor
'// get the actual raw file into memory '// and extract the file name
Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
If msInput Is Nothing = False Then Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512]
'// allocate enough bytes to hold the raw date stmInput.Read(aryFileGroupDescriptor, 0, 512)
Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte '// used to build the stbFileName from the aryFileGroupDescriptor block
'// set starting position at first byte and read in the raw data Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
msInput.Position = 0 '// this trick gets the stbFileName of the passed attached file
msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32)) Dim intCnt As Integer = 76
'// create a file and save the raw zip file to it Do While aryFileGroupDescriptor(intCnt) <> 0
Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) '; stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length) intCnt += 1
fsOutput.Close() ' // close the file Loop
stmInput.Close()
Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile) Dim anhaenge = e.Data.GetDataPresent("FileContents")
'// always good to make sure we actually created the file 'Dim path As String = "C:\VBProjekte\Dateien"
If (finTemp.Exists = True) Then '// put the zip file into the temp directory
'MsgBox("Attachment File from Outlook created:" & vbNewLine & strOutFile) Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString()
' lblFile.Text += "Attachment File from Outlook created" + Environment.NewLine '// create the full-path name
Console.WriteLine(">> Drop of a mailattachment - File") '//
ReDim Preserve files_dropped(0) '// Second step: we have the file name.
files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile '// Now we need to get the actual raw
TEMP_FILES.Add(strOutFile) '// data for the attached file and copy it to disk so we work on it.
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) '//
Return files_dropped '// get the actual raw file into memory
Else Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
ClassLogger.Add(">> Attachment File from Outlook could not be created", False) If msInput Is Nothing = False Then
'lblFile.Text += "Attachment File from Outlook could not be created" + Environment.NewLine '// allocate enough bytes to hold the raw date
Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
'// set starting position at first byte and read in the raw data
msInput.Position = 0
msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32))
'// create a file and save the raw zip file to it
Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) ';
fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length)
fsOutput.Close() ' // close the file
Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile)
'// always good to make sure we actually created the file
If (finTemp.Exists = True) Then
'MsgBox("Attachment File from Outlook created:" & vbNewLine & strOutFile)
' lblFile.Text += "Attachment File from Outlook created" + Environment.NewLine
Console.WriteLine(">> Drop of a mailattachment - File")
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile
TEMP_FILES.Add(strOutFile)
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
Return files_dropped
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
'lblFile.Text += "Attachment File from Outlook could not be created" + Environment.NewLine
End If
End If End If
End If End If
End If Catch ex As Exception
MsgBox("Unexpected Error in DropFile||Attachment: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Drop Attachment: " & ex.Message, True)
End Try
If e.Data.GetDataPresent("FileGroupDescriptor") Then Try
Console.WriteLine(">> FileGroupDescriptor") If e.Data.GetDataPresent("FileGroupDescriptor") Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False) Console.WriteLine(">> FileGroupDescriptor")
'supports a drop of a Outlook message If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False)
Dim myobj As Object Dim oApp As New Outlook.Application
'supports a drop of a Outlook message
Dim myobj As Object
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
myobj = oApp.ActiveExplorer.Selection.Item(i)
'hardcode a destination path for testing
Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (myobj.Subject + ".msg").Replace(":", ""))
myobj.SaveAs(strFile)
TEMP_FILES.Add(strFile)
ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOKMESSAGE@" & strFile
Next
Return files_dropped
End If
Catch ex As Exception
MsgBox("Unexpected Error in DropFile||OutlookMessage: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Drop OutlookMessage: " & ex.Message, True)
End Try
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
myobj = oApp.ActiveExplorer.Selection.Item(i)
'hardcode a destination path for testing
Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (myobj.Subject + ".msg").Replace(":", ""))
myobj.SaveAs(strFile)
TEMP_FILES.Add(strFile)
ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOKMESSAGE@" & strFile
Next
Return files_dropped
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Drop_File: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try
If e.Data.GetDataPresent(DataFormats.StringFormat) Then If e.Data.GetDataPresent(DataFormats.StringFormat) Then
Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object) Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object)

12
app/DD-Record-Organiser/DD_DMSDataSet.xsc
View File

@@ -128,14 +128,18 @@
<TableUISetting Name="TBDD_USER_GROUPS"> <TableUISetting Name="TBDD_USER_GROUPS">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN"> <ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN"> <ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
</ColumnUISettings> </ColumnUISettings>
</TableUISetting> </TableUISetting>

99
app/DD-Record-Organiser/DD_DMSDataSet.xsd
View File

@@ -1423,29 +1423,30 @@ SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_USER_GROUPS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_USER_GROUPS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_USER_GROUPS <CommandText>DELETE FROM TBDD_USER_GROUPS
WHERE (GUID = @Original_GUID)</CommandText> WHERE (GUID = @Original_GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_USER_GROUPS <CommandText>INSERT INTO TBDD_USER_GROUPS
(NAME, ADDED_WHO) (NAME, ADDED_WHO, COMMENT)
VALUES (@NAME,@ADDED_WHO); VALUES (@NAME,@ADDED_WHO,@COMMENT);
SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBDD_USER_GROUPS.* <CommandText>SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT
FROM TBDD_USER_GROUPS</CommandText> FROM TBDD_USER_GROUPS</CommandText>
<Parameters /> <Parameters />
</DbCommand> </DbCommand>
@@ -1453,12 +1454,13 @@ FROM TBDD_USER_GROUPS</CommandText>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_USER_GROUPS <CommandText>UPDATE TBDD_USER_GROUPS
SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID)</CommandText> SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_USER_GROUPS" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
@@ -1473,6 +1475,7 @@ SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_US
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@@ -1503,65 +1506,48 @@ FROM VWPMO_USERS_GROUPS</CommandText>
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_GROUPS_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_GROUPS_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText> <CommandText>DELETE FROM TBDD_GROUPS_USER
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); <CommandText>INSERT INTO TBDD_GROUPS_USER
(USER_ID, GROUP_ID, ADDED_WHO, COMMENT)
VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT);
SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="USER_ID" ColumnName="USER_ID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="GROUP_ID" ColumnName="GROUP_ID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBDD_GROUPS_USER.* <CommandText>SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT
FROM TBDD_GROUPS_USER</CommandText> FROM TBDD_GROUPS_USER</CommandText>
<Parameters /> <Parameters />
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); <CommandText>UPDATE TBDD_GROUPS_USER
SET USER_ID = @USER_ID, GROUP_ID = @GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT
WHERE (GUID = @Original_GUID);
SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)</CommandText> SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="USER_ID" ColumnName="USER_ID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="GROUP_ID" ColumnName="GROUP_ID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GROUP_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GROUP_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ADDED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ADDED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ADDED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHO" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_CHANGED_WHEN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_CHANGED_WHEN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="CHANGED_WHEN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_GROUPS_USER" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@@ -1575,6 +1561,7 @@ SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@@ -3931,6 +3918,13 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" /> <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@@ -3993,6 +3987,13 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" /> <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

316
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb generated
View File

@@ -7384,7 +7384,7 @@ Partial Public Class DD_DMSDataSet
Me.columnGUID.Unique = true Me.columnGUID.Unique = true
Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnBEZEICHNUNG.MaxLength = 50
Me.columnEINGANGSART_ID.AllowDBNull = false Me.columnEINGANGSART_ID.AllowDBNull = false
Me.columnEINGANGSART_ID.DefaultValue = CType(1, Byte) Me.columnEINGANGSART_ID.DefaultValue = CType(1,Byte)
Me.columnKURZNAME.AllowDBNull = false Me.columnKURZNAME.AllowDBNull = false
Me.columnKURZNAME.MaxLength = 50 Me.columnKURZNAME.MaxLength = 50
Me.columnZIEL_PFAD.AllowDBNull = false Me.columnZIEL_PFAD.AllowDBNull = false
@@ -10172,6 +10172,8 @@ Partial Public Class DD_DMSDataSet
Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
@@ -10255,6 +10257,14 @@ Partial Public Class DD_DMSDataSet
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@@ -10292,9 +10302,9 @@ Partial Public Class DD_DMSDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_USER_GROUPSRow
Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT}
rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USER_GROUPSRow) Me.Rows.Add(rowTBDD_USER_GROUPSRow)
Return rowTBDD_USER_GROUPSRow Return rowTBDD_USER_GROUPSRow
@@ -10329,6 +10339,7 @@ Partial Public Class DD_DMSDataSet
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -10346,6 +10357,8 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCHANGED_WHO) MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN) MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementSeed = -1
@@ -10357,6 +10370,7 @@ Partial Public Class DD_DMSDataSet
Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50
Me.columnCOMMENT.MaxLength = 200
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -10854,6 +10868,8 @@ Partial Public Class DD_DMSDataSet
Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New() Public Sub New()
@@ -10945,6 +10961,14 @@ Partial Public Class DD_DMSDataSet
End Get End Get
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@@ -10982,9 +11006,9 @@ Partial Public Class DD_DMSDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_GROUPS_USERRow
Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT}
If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then
columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0)
End If End If
@@ -11026,6 +11050,7 @@ Partial Public Class DD_DMSDataSet
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -11045,6 +11070,8 @@ Partial Public Class DD_DMSDataSet
MyBase.Columns.Add(Me.columnCHANGED_WHO) MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN) MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementSeed = -1
@@ -11057,6 +11084,7 @@ Partial Public Class DD_DMSDataSet
Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50 Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50
Me.columnCOMMENT.MaxLength = 200
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -23707,6 +23735,21 @@ Partial Public Class DD_DMSDataSet
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsNAMENull() As Boolean Public Function IsNAMENull() As Boolean
@@ -23755,6 +23798,18 @@ Partial Public Class DD_DMSDataSet
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.COMMENTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetCOMMENTNull()
Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow()
@@ -24011,6 +24066,21 @@ Partial Public Class DD_DMSDataSet
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
@@ -24068,6 +24138,18 @@ Partial Public Class DD_DMSDataSet
Public Sub SetCHANGED_WHENNull() Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetCOMMENTNull()
Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
End Class End Class
'''<summary> '''<summary>
@@ -36644,6 +36726,7 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -36652,21 +36735,24 @@ Namespace DD_DMSDataSetTableAdapters
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"& _
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _
"HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _
"ENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _
"ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _ "ANGED_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ "UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _
")" "S WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub End Sub
@@ -36684,7 +36770,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _
"NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub End Sub
@@ -36765,7 +36852,7 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer
If (NAME Is Nothing) Then If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else Else
@@ -36776,6 +36863,11 @@ Namespace DD_DMSDataSetTableAdapters
Else Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
End If End If
If (COMMENT Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then
@@ -36795,7 +36887,7 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (NAME Is Nothing) Then If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else Else
@@ -36806,8 +36898,13 @@ Namespace DD_DMSDataSetTableAdapters
Else Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) If (COMMENT Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String)
End If
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then
@@ -37137,71 +37234,37 @@ Namespace DD_DMSDataSetTableAdapters
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
"@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _
"ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _
"ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _
"] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _
"N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _
""
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN],"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _
" [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_"& _ "WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
"WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, "& _ "GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _
"ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_"& _ "BDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())"
"IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [ADDE"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _
"D_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, ["& _ "@GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _
"CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ "@Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGE"& _
"@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _ "D_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)"
"ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _
"ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _
"] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _
"N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _
";"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _
"HEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -37217,7 +37280,8 @@ Namespace DD_DMSDataSetTableAdapters
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _
"D_WHEN, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub End Sub
@@ -37277,36 +37341,8 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer)
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer)
If (Original_ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
Else
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String)
End If
If (Original_ADDED_WHEN.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date)
Else
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
End If
If (Original_CHANGED_WHO Is Nothing) Then
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
Else
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String)
End If
If (Original_CHANGED_WHEN.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date)
Else
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then
@@ -37326,7 +37362,7 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer)
Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer)
If (ADDED_WHO Is Nothing) Then If (ADDED_WHO Is Nothing) Then
@@ -37334,20 +37370,10 @@ Namespace DD_DMSDataSetTableAdapters
Else Else
Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String)
End If End If
If (ADDED_WHEN.HasValue = true) Then If (COMMENT Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date)
Else
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
End If
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
Else Else
Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String)
End If
If (CHANGED_WHEN.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date)
Else
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
End If End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
@@ -37368,59 +37394,21 @@ Namespace DD_DMSDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer)
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer)
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String)
End If
If (ADDED_WHEN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
End If
If (CHANGED_WHO Is Nothing) Then If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
Else Else
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String)
End If End If
If (CHANGED_WHEN.HasValue = true) Then If (COMMENT Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
Else Else
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GROUP_ID,Integer)
If (Original_ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
Else
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
End If
If (Original_ADDED_WHEN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
End If
If (Original_CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String)
End If
If (Original_CHANGED_WHEN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then
@@ -37435,14 +37423,6 @@ Namespace DD_DMSDataSetTableAdapters
End If End If
End Try End Try
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer
Return Me.Update(USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID)
End Function
End Class End Class
'''<summary> '''<summary>

2
app/DD-Record-Organiser/My Project/AssemblyInfo.vb
View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.4.2")> <Assembly: AssemblyVersion("2.4.4.5")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

38
app/DD-Record-Organiser/frmEntities.Designer.vb generated
View File

@@ -158,12 +158,12 @@ Partial Class frmEntities
' '
'TBPMO_FORMBindingNavigator 'TBPMO_FORMBindingNavigator
' '
resources.ApplyResources(Me.TBPMO_FORMBindingNavigator, "TBPMO_FORMBindingNavigator")
Me.TBPMO_FORMBindingNavigator.AddNewItem = Nothing Me.TBPMO_FORMBindingNavigator.AddNewItem = Nothing
Me.TBPMO_FORMBindingNavigator.BindingSource = Me.TBPMO_FORMBindingSource Me.TBPMO_FORMBindingNavigator.BindingSource = Me.TBPMO_FORMBindingSource
Me.TBPMO_FORMBindingNavigator.CountItem = Nothing Me.TBPMO_FORMBindingNavigator.CountItem = Nothing
Me.TBPMO_FORMBindingNavigator.DeleteItem = Nothing Me.TBPMO_FORMBindingNavigator.DeleteItem = Nothing
Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2}) Me.TBPMO_FORMBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
resources.ApplyResources(Me.TBPMO_FORMBindingNavigator, "TBPMO_FORMBindingNavigator")
Me.TBPMO_FORMBindingNavigator.MoveFirstItem = Nothing Me.TBPMO_FORMBindingNavigator.MoveFirstItem = Nothing
Me.TBPMO_FORMBindingNavigator.MoveLastItem = Nothing Me.TBPMO_FORMBindingNavigator.MoveLastItem = Nothing
Me.TBPMO_FORMBindingNavigator.MoveNextItem = Nothing Me.TBPMO_FORMBindingNavigator.MoveNextItem = Nothing
@@ -183,19 +183,18 @@ Partial Class frmEntities
' '
'ToolStripButton1 'ToolStripButton1
' '
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Name = "ToolStripButton1"
' '
'ToolStripButton2 'ToolStripButton2
' '
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Name = "ToolStripButton2" Me.ToolStripButton2.Name = "ToolStripButton2"
' '
'GroupBox1 'GroupBox1
' '
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(DESCRIPTIONLabel) Me.GroupBox1.Controls.Add(DESCRIPTIONLabel)
Me.GroupBox1.Controls.Add(Me.DESCRIPTIONTextBox) Me.GroupBox1.Controls.Add(Me.DESCRIPTIONTextBox)
Me.GroupBox1.Controls.Add(FORM_TITLELabel) Me.GroupBox1.Controls.Add(FORM_TITLELabel)
@@ -206,13 +205,14 @@ Partial Class frmEntities
Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox1) Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox1)
Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) Me.GroupBox1.Controls.Add(CHANGED_WHOLabel)
Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBoxPMOFormView) Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBoxPMOFormView)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
'DESCRIPTIONTextBox 'DESCRIPTIONTextBox
' '
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "DESCRIPTION", True)) Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "DESCRIPTION", True))
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox" Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox"
' '
'TBPMO_FORM_VIEWBindingSource 'TBPMO_FORM_VIEWBindingSource
@@ -223,54 +223,54 @@ Partial Class frmEntities
' '
'FORM_TITLETextBox 'FORM_TITLETextBox
' '
resources.ApplyResources(Me.FORM_TITLETextBox, "FORM_TITLETextBox")
Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_TITLE", True)) Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_TITLE", True))
resources.ApplyResources(Me.FORM_TITLETextBox, "FORM_TITLETextBox")
Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox" Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox"
' '
'FORM_IDTextBox 'FORM_IDTextBox
' '
resources.ApplyResources(Me.FORM_IDTextBox, "FORM_IDTextBox")
Me.FORM_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_ID", True)) Me.FORM_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "FORM_ID", True))
resources.ApplyResources(Me.FORM_IDTextBox, "FORM_IDTextBox")
Me.FORM_IDTextBox.Name = "FORM_IDTextBox" Me.FORM_IDTextBox.Name = "FORM_IDTextBox"
Me.FORM_IDTextBox.ReadOnly = True Me.FORM_IDTextBox.ReadOnly = True
' '
'ADDED_WHOTextBox1 'ADDED_WHOTextBox1
' '
resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1")
Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1")
Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1"
Me.ADDED_WHOTextBox1.ReadOnly = True Me.ADDED_WHOTextBox1.ReadOnly = True
' '
'CHANGED_WHOTextBoxPMOFormView 'CHANGED_WHOTextBoxPMOFormView
' '
resources.ApplyResources(Me.CHANGED_WHOTextBoxPMOFormView, "CHANGED_WHOTextBoxPMOFormView")
Me.CHANGED_WHOTextBoxPMOFormView.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBoxPMOFormView.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_VIEWBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBoxPMOFormView, "CHANGED_WHOTextBoxPMOFormView")
Me.CHANGED_WHOTextBoxPMOFormView.Name = "CHANGED_WHOTextBoxPMOFormView" Me.CHANGED_WHOTextBoxPMOFormView.Name = "CHANGED_WHOTextBoxPMOFormView"
Me.CHANGED_WHOTextBoxPMOFormView.ReadOnly = True Me.CHANGED_WHOTextBoxPMOFormView.ReadOnly = True
' '
'CHANGED_WHOTextBoxPMOForm 'CHANGED_WHOTextBoxPMOForm
' '
resources.ApplyResources(Me.CHANGED_WHOTextBoxPMOForm, "CHANGED_WHOTextBoxPMOForm")
Me.CHANGED_WHOTextBoxPMOForm.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBoxPMOForm.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBoxPMOForm, "CHANGED_WHOTextBoxPMOForm")
Me.CHANGED_WHOTextBoxPMOForm.Name = "CHANGED_WHOTextBoxPMOForm" Me.CHANGED_WHOTextBoxPMOForm.Name = "CHANGED_WHOTextBoxPMOForm"
Me.CHANGED_WHOTextBoxPMOForm.ReadOnly = True Me.CHANGED_WHOTextBoxPMOForm.ReadOnly = True
' '
'PARENT_IDTextBox 'PARENT_IDTextBox
' '
resources.ApplyResources(Me.PARENT_IDTextBox, "PARENT_IDTextBox")
Me.PARENT_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "PARENT_ID", True)) Me.PARENT_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "PARENT_ID", True))
resources.ApplyResources(Me.PARENT_IDTextBox, "PARENT_IDTextBox")
Me.PARENT_IDTextBox.Name = "PARENT_IDTextBox" Me.PARENT_IDTextBox.Name = "PARENT_IDTextBox"
' '
'NAMETextBox 'NAMETextBox
' '
resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "NAME", True)) Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "NAME", True))
resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
Me.NAMETextBox.Name = "NAMETextBox" Me.NAMETextBox.Name = "NAMETextBox"
' '
'ADDED_WHOTextBox 'ADDED_WHOTextBox
' '
resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True Me.ADDED_WHOTextBox.ReadOnly = True
' '
@@ -317,7 +317,6 @@ Partial Class frmEntities
' '
'GroupBox2 'GroupBox2
' '
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.Label4) Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.SINGLE_RECORDCheckBox) Me.GroupBox2.Controls.Add(Me.SINGLE_RECORDCheckBox)
Me.GroupBox2.Controls.Add(Me.NumericUpDown1) Me.GroupBox2.Controls.Add(Me.NumericUpDown1)
@@ -335,6 +334,7 @@ Partial Class frmEntities
Me.GroupBox2.Controls.Add(Me.PARENT_IDTextBox) Me.GroupBox2.Controls.Add(Me.PARENT_IDTextBox)
Me.GroupBox2.Controls.Add(Me.CHANGED_WHOTextBoxPMOForm) Me.GroupBox2.Controls.Add(Me.CHANGED_WHOTextBoxPMOForm)
Me.GroupBox2.Controls.Add(CHANGED_WHOLabel1) Me.GroupBox2.Controls.Add(CHANGED_WHOLabel1)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
' '
@@ -345,30 +345,30 @@ Partial Class frmEntities
' '
'SINGLE_RECORDCheckBox 'SINGLE_RECORDCheckBox
' '
resources.ApplyResources(Me.SINGLE_RECORDCheckBox, "SINGLE_RECORDCheckBox")
Me.SINGLE_RECORDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SINGLE_RECORD", True)) Me.SINGLE_RECORDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SINGLE_RECORD", True))
resources.ApplyResources(Me.SINGLE_RECORDCheckBox, "SINGLE_RECORDCheckBox")
Me.SINGLE_RECORDCheckBox.Name = "SINGLE_RECORDCheckBox" Me.SINGLE_RECORDCheckBox.Name = "SINGLE_RECORDCheckBox"
Me.SINGLE_RECORDCheckBox.UseVisualStyleBackColor = True Me.SINGLE_RECORDCheckBox.UseVisualStyleBackColor = True
' '
'NumericUpDown1 'NumericUpDown1
' '
resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1")
Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORMBindingSource, "LEVEL", True)) Me.NumericUpDown1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORMBindingSource, "LEVEL", True))
resources.ApplyResources(Me.NumericUpDown1, "NumericUpDown1")
Me.NumericUpDown1.Name = "NumericUpDown1" Me.NumericUpDown1.Name = "NumericUpDown1"
' '
'GUIDTextBox 'GUIDTextBox
' '
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True)) Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORMBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True Me.GUIDTextBox.ReadOnly = True
' '
'ComboBox1 'ComboBox1
' '
resources.ApplyResources(Me.ComboBox1, "ComboBox1")
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True)) Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPMO_FORMBindingSource, "FORM_TYPE_ID", True))
Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource Me.ComboBox1.DataSource = Me.TBPMO_FORM_TYPEBindingSource
Me.ComboBox1.DisplayMember = "FORM_TYPE" Me.ComboBox1.DisplayMember = "FORM_TYPE"
resources.ApplyResources(Me.ComboBox1, "ComboBox1")
Me.ComboBox1.FormattingEnabled = True Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Name = "ComboBox1" Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.ValueMember = "GUID" Me.ComboBox1.ValueMember = "GUID"
@@ -380,8 +380,8 @@ Partial Class frmEntities
' '
'SHOW_FORM_CONSTRUCTCheckBox 'SHOW_FORM_CONSTRUCTCheckBox
' '
resources.ApplyResources(Me.SHOW_FORM_CONSTRUCTCheckBox, "SHOW_FORM_CONSTRUCTCheckBox")
Me.SHOW_FORM_CONSTRUCTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SHOW_FORM_CONSTRUCT", True)) Me.SHOW_FORM_CONSTRUCTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORMBindingSource, "SHOW_FORM_CONSTRUCT", True))
resources.ApplyResources(Me.SHOW_FORM_CONSTRUCTCheckBox, "SHOW_FORM_CONSTRUCTCheckBox")
Me.SHOW_FORM_CONSTRUCTCheckBox.Name = "SHOW_FORM_CONSTRUCTCheckBox" Me.SHOW_FORM_CONSTRUCTCheckBox.Name = "SHOW_FORM_CONSTRUCTCheckBox"
Me.SHOW_FORM_CONSTRUCTCheckBox.UseVisualStyleBackColor = True Me.SHOW_FORM_CONSTRUCTCheckBox.UseVisualStyleBackColor = True
' '

2406
app/DD-Record-Organiser/frmEntities.resx
View File

File diff suppressed because it is too large Load Diff

13
app/DD-Record-Organiser/frmSQLEditor.vb
View File

@@ -176,6 +176,7 @@ Public Class frmSQLEditor
Return Nothing Return Nothing
End Try End Try
End Function End Function
Private Sub EnableColumns(Optional enabled = True) Private Sub EnableColumns(Optional enabled = True)
cmbSelectColumns.Enabled = enabled cmbSelectColumns.Enabled = enabled
@@ -325,15 +326,13 @@ Public Class frmSQLEditor
Private Sub frmSQLEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmSQLEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try Try
Dim connsql = "SELECT BEZEICHNUNG FROM TBDD_CONNECTION WHERE GUID = (SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID & ")" Dim connsql = "SELECT BEZEICHNUNG FROM TBDD_CONNECTION WHERE GUID = (SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID & ")"
Dim con_name = ClassDatabase.Execute_Scalar(connsql, True) Dim con_name = ClassDatabase.Execute_Scalar(connsql, True)
If IsDBNull(con_name) Then If IsDBNull(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then
cmbConnection.SelectedIndex = 0 cmbConnection.SelectedIndex = 0
End If End If
Else Else
If IsNothing(con_name) Then If IsNothing(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then

134
app/DD-Record-Organiser/frmUserKonfig.Designer.vb generated
View File

@@ -43,6 +43,7 @@ Partial Class frmUserKonfig
Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label
Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label
Dim LANGUAGELabel As System.Windows.Forms.Label Dim LANGUAGELabel As System.Windows.Forms.Label
Dim COMMENTLabel As System.Windows.Forms.Label
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter() Me.TBDD_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter()
@@ -114,6 +115,8 @@ Partial Class frmUserKonfig
Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter() Me.VWPMO_USERS_GROUPSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_USERS_GROUPSTableAdapter()
Me.lblsave = New System.Windows.Forms.Label() Me.lblsave = New System.Windows.Forms.Label()
Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox() Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox()
Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
PRENAMELabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@@ -133,6 +136,7 @@ Partial Class frmUserKonfig
CHANGED_WHOLabel1 = New System.Windows.Forms.Label() CHANGED_WHOLabel1 = New System.Windows.Forms.Label()
CHANGED_WHENLabel1 = New System.Windows.Forms.Label() CHANGED_WHENLabel1 = New System.Windows.Forms.Label()
LANGUAGELabel = New System.Windows.Forms.Label() LANGUAGELabel = New System.Windows.Forms.Label()
COMMENTLabel = New System.Windows.Forms.Label()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -145,6 +149,7 @@ Partial Class frmUserKonfig
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator1.SuspendLayout() Me.BindingNavigator1.SuspendLayout()
CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GUIDLabel 'GUIDLabel
@@ -291,13 +296,13 @@ Partial Class frmUserKonfig
' '
'TBDD_USERBindingNavigator 'TBDD_USERBindingNavigator
' '
resources.ApplyResources(Me.TBDD_USERBindingNavigator, "TBDD_USERBindingNavigator")
Me.TBDD_USERBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem Me.TBDD_USERBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
Me.TBDD_USERBindingNavigator.BindingSource = Me.TBDD_USERBindingSource Me.TBDD_USERBindingNavigator.BindingSource = Me.TBDD_USERBindingSource
Me.TBDD_USERBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBDD_USERBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBDD_USERBindingNavigator.CountItemFormat = "of {0}" Me.TBDD_USERBindingNavigator.CountItemFormat = "of {0}"
Me.TBDD_USERBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem Me.TBDD_USERBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
Me.TBDD_USERBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_USERBindingNavigatorSaveItem, Me.tbRefreshUsers, Me.tsAddUser}) Me.TBDD_USERBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_USERBindingNavigatorSaveItem, Me.tbRefreshUsers, Me.tsAddUser})
resources.ApplyResources(Me.TBDD_USERBindingNavigator, "TBDD_USERBindingNavigator")
Me.TBDD_USERBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBDD_USERBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBDD_USERBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.TBDD_USERBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.TBDD_USERBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem Me.TBDD_USERBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
@@ -307,37 +312,37 @@ Partial Class frmUserKonfig
' '
'BindingNavigatorAddNewItem 'BindingNavigatorAddNewItem
' '
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
' '
'BindingNavigatorCountItem 'BindingNavigatorCountItem
' '
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
' '
'BindingNavigatorDeleteItem 'BindingNavigatorDeleteItem
' '
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
' '
'BindingNavigatorMoveFirstItem 'BindingNavigatorMoveFirstItem
' '
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
' '
'BindingNavigatorMovePreviousItem 'BindingNavigatorMovePreviousItem
' '
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
' '
'BindingNavigatorSeparator 'BindingNavigatorSeparator
' '
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
' '
'BindingNavigatorPositionItem 'BindingNavigatorPositionItem
' '
@@ -346,145 +351,145 @@ Partial Class frmUserKonfig
' '
'BindingNavigatorSeparator1 'BindingNavigatorSeparator1
' '
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
' '
'BindingNavigatorMoveNextItem 'BindingNavigatorMoveNextItem
' '
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
' '
'BindingNavigatorMoveLastItem 'BindingNavigatorMoveLastItem
' '
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
' '
'BindingNavigatorSeparator2 'BindingNavigatorSeparator2
' '
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
' '
'TBDD_USERBindingNavigatorSaveItem 'TBDD_USERBindingNavigatorSaveItem
' '
resources.ApplyResources(Me.TBDD_USERBindingNavigatorSaveItem, "TBDD_USERBindingNavigatorSaveItem")
Me.TBDD_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.TBDD_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.TBDD_USERBindingNavigatorSaveItem, "TBDD_USERBindingNavigatorSaveItem")
Me.TBDD_USERBindingNavigatorSaveItem.Name = "TBDD_USERBindingNavigatorSaveItem" Me.TBDD_USERBindingNavigatorSaveItem.Name = "TBDD_USERBindingNavigatorSaveItem"
' '
'tbRefreshUsers 'tbRefreshUsers
' '
resources.ApplyResources(Me.tbRefreshUsers, "tbRefreshUsers")
Me.tbRefreshUsers.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.tbRefreshUsers.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tbRefreshUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG Me.tbRefreshUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tbRefreshUsers, "tbRefreshUsers")
Me.tbRefreshUsers.Name = "tbRefreshUsers" Me.tbRefreshUsers.Name = "tbRefreshUsers"
' '
'tsAddUser 'tsAddUser
' '
resources.ApplyResources(Me.tsAddUser, "tsAddUser")
Me.tsAddUser.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.tsAddUser.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3 Me.tsAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3
resources.ApplyResources(Me.tsAddUser, "tsAddUser")
Me.tsAddUser.Name = "tsAddUser" Me.tsAddUser.Name = "tsAddUser"
' '
'GUIDTextBox 'GUIDTextBox
' '
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True)) Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True Me.GUIDTextBox.ReadOnly = True
' '
'PRENAMETextBox 'PRENAMETextBox
' '
resources.ApplyResources(Me.PRENAMETextBox, "PRENAMETextBox")
Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True)) Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True))
resources.ApplyResources(Me.PRENAMETextBox, "PRENAMETextBox")
Me.PRENAMETextBox.Name = "PRENAMETextBox" Me.PRENAMETextBox.Name = "PRENAMETextBox"
' '
'NAMETextBox 'NAMETextBox
' '
resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True)) Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True))
resources.ApplyResources(Me.NAMETextBox, "NAMETextBox")
Me.NAMETextBox.Name = "NAMETextBox" Me.NAMETextBox.Name = "NAMETextBox"
' '
'USERNAMETextBox 'USERNAMETextBox
' '
resources.ApplyResources(Me.USERNAMETextBox, "USERNAMETextBox")
Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True)) Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True))
resources.ApplyResources(Me.USERNAMETextBox, "USERNAMETextBox")
Me.USERNAMETextBox.Name = "USERNAMETextBox" Me.USERNAMETextBox.Name = "USERNAMETextBox"
' '
'EMAILTextBox 'EMAILTextBox
' '
resources.ApplyResources(Me.EMAILTextBox, "EMAILTextBox")
Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True)) Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True))
resources.ApplyResources(Me.EMAILTextBox, "EMAILTextBox")
Me.EMAILTextBox.Name = "EMAILTextBox" Me.EMAILTextBox.Name = "EMAILTextBox"
' '
'LOGGED_INCheckBox 'LOGGED_INCheckBox
' '
resources.ApplyResources(Me.LOGGED_INCheckBox, "LOGGED_INCheckBox")
Me.LOGGED_INCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "LOGGED_IN", True)) Me.LOGGED_INCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "LOGGED_IN", True))
resources.ApplyResources(Me.LOGGED_INCheckBox, "LOGGED_INCheckBox")
Me.LOGGED_INCheckBox.Name = "LOGGED_INCheckBox" Me.LOGGED_INCheckBox.Name = "LOGGED_INCheckBox"
Me.LOGGED_INCheckBox.UseVisualStyleBackColor = True Me.LOGGED_INCheckBox.UseVisualStyleBackColor = True
' '
'LOGGED_WHERETextBox 'LOGGED_WHERETextBox
' '
resources.ApplyResources(Me.LOGGED_WHERETextBox, "LOGGED_WHERETextBox")
Me.LOGGED_WHERETextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.LOGGED_WHERETextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.LOGGED_WHERETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOGGED_WHERE", True)) Me.LOGGED_WHERETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOGGED_WHERE", True))
resources.ApplyResources(Me.LOGGED_WHERETextBox, "LOGGED_WHERETextBox")
Me.LOGGED_WHERETextBox.Name = "LOGGED_WHERETextBox" Me.LOGGED_WHERETextBox.Name = "LOGGED_WHERETextBox"
Me.LOGGED_WHERETextBox.ReadOnly = True Me.LOGGED_WHERETextBox.ReadOnly = True
' '
'LOG_IN_WHENTextBox 'LOG_IN_WHENTextBox
' '
resources.ApplyResources(Me.LOG_IN_WHENTextBox, "LOG_IN_WHENTextBox")
Me.LOG_IN_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.LOG_IN_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.LOG_IN_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_IN_WHEN", True)) Me.LOG_IN_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_IN_WHEN", True))
resources.ApplyResources(Me.LOG_IN_WHENTextBox, "LOG_IN_WHENTextBox")
Me.LOG_IN_WHENTextBox.Name = "LOG_IN_WHENTextBox" Me.LOG_IN_WHENTextBox.Name = "LOG_IN_WHENTextBox"
Me.LOG_IN_WHENTextBox.ReadOnly = True Me.LOG_IN_WHENTextBox.ReadOnly = True
' '
'LOG_OUT_WHENTextBox 'LOG_OUT_WHENTextBox
' '
resources.ApplyResources(Me.LOG_OUT_WHENTextBox, "LOG_OUT_WHENTextBox")
Me.LOG_OUT_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.LOG_OUT_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.LOG_OUT_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_OUT_WHEN", True)) Me.LOG_OUT_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_OUT_WHEN", True))
resources.ApplyResources(Me.LOG_OUT_WHENTextBox, "LOG_OUT_WHENTextBox")
Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox"
Me.LOG_OUT_WHENTextBox.ReadOnly = True Me.LOG_OUT_WHENTextBox.ReadOnly = True
' '
'RECORG_ADMINCheckBox 'RECORG_ADMINCheckBox
' '
resources.ApplyResources(Me.RECORG_ADMINCheckBox, "RECORG_ADMINCheckBox")
Me.RECORG_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "RECORD_ADMIN", True)) Me.RECORG_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "RECORD_ADMIN", True))
resources.ApplyResources(Me.RECORG_ADMINCheckBox, "RECORG_ADMINCheckBox")
Me.RECORG_ADMINCheckBox.Name = "RECORG_ADMINCheckBox" Me.RECORG_ADMINCheckBox.Name = "RECORG_ADMINCheckBox"
Me.RECORG_ADMINCheckBox.UseVisualStyleBackColor = True Me.RECORG_ADMINCheckBox.UseVisualStyleBackColor = True
' '
'ADDED_WHOTextBox 'ADDED_WHOTextBox
' '
resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True Me.ADDED_WHOTextBox.ReadOnly = True
' '
'ADDED_WHENTextBox 'ADDED_WHENTextBox
' '
resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True Me.ADDED_WHENTextBox.ReadOnly = True
' '
'CHANGED_WHOTextBox 'CHANGED_WHOTextBox
' '
resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True Me.CHANGED_WHOTextBox.ReadOnly = True
' '
'CHANGED_WHENTextBox 'CHANGED_WHENTextBox
' '
resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True Me.CHANGED_WHENTextBox.ReadOnly = True
' '
@@ -518,8 +523,8 @@ Partial Class frmUserKonfig
' '
'btnRemoveUserFromGroup 'btnRemoveUserFromGroup
' '
resources.ApplyResources(Me.btnRemoveUserFromGroup, "btnRemoveUserFromGroup")
Me.btnRemoveUserFromGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.btnRemoveUserFromGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
resources.ApplyResources(Me.btnRemoveUserFromGroup, "btnRemoveUserFromGroup")
Me.btnRemoveUserFromGroup.Name = "btnRemoveUserFromGroup" Me.btnRemoveUserFromGroup.Name = "btnRemoveUserFromGroup"
Me.btnRemoveUserFromGroup.UseVisualStyleBackColor = True Me.btnRemoveUserFromGroup.UseVisualStyleBackColor = True
' '
@@ -542,17 +547,17 @@ Partial Class frmUserKonfig
' '
'btnAddUserToGroup 'btnAddUserToGroup
' '
resources.ApplyResources(Me.btnAddUserToGroup, "btnAddUserToGroup")
Me.btnAddUserToGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 Me.btnAddUserToGroup.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1
resources.ApplyResources(Me.btnAddUserToGroup, "btnAddUserToGroup")
Me.btnAddUserToGroup.Name = "btnAddUserToGroup" Me.btnAddUserToGroup.Name = "btnAddUserToGroup"
Me.btnAddUserToGroup.UseVisualStyleBackColor = True Me.btnAddUserToGroup.UseVisualStyleBackColor = True
' '
'cmbGroup 'cmbGroup
' '
resources.ApplyResources(Me.cmbGroup, "cmbGroup")
Me.cmbGroup.DataSource = Me.TBDD_USER_GROUPSBindingSource Me.cmbGroup.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.cmbGroup.DisplayMember = "NAME" Me.cmbGroup.DisplayMember = "NAME"
Me.cmbGroup.FormattingEnabled = True Me.cmbGroup.FormattingEnabled = True
resources.ApplyResources(Me.cmbGroup, "cmbGroup")
Me.cmbGroup.Name = "cmbGroup" Me.cmbGroup.Name = "cmbGroup"
Me.cmbGroup.ValueMember = "GUID" Me.cmbGroup.ValueMember = "GUID"
' '
@@ -563,7 +568,8 @@ Partial Class frmUserKonfig
' '
'TabGruppendefinition 'TabGruppendefinition
' '
resources.ApplyResources(Me.TabGruppendefinition, "TabGruppendefinition") Me.TabGruppendefinition.Controls.Add(COMMENTLabel)
Me.TabGruppendefinition.Controls.Add(Me.COMMENTTextBox)
Me.TabGruppendefinition.Controls.Add(Me.ListBox1) Me.TabGruppendefinition.Controls.Add(Me.ListBox1)
Me.TabGruppendefinition.Controls.Add(GUIDLabel1) Me.TabGruppendefinition.Controls.Add(GUIDLabel1)
Me.TabGruppendefinition.Controls.Add(Me.GUIDTextBox1) Me.TabGruppendefinition.Controls.Add(Me.GUIDTextBox1)
@@ -579,61 +585,62 @@ Partial Class frmUserKonfig
Me.TabGruppendefinition.Controls.Add(Me.CHANGED_WHENTextBox1) Me.TabGruppendefinition.Controls.Add(Me.CHANGED_WHENTextBox1)
Me.TabGruppendefinition.Controls.Add(Me.BindingNavigator1) Me.TabGruppendefinition.Controls.Add(Me.BindingNavigator1)
Me.TabGruppendefinition.Name = "TabGruppendefinition" Me.TabGruppendefinition.Name = "TabGruppendefinition"
resources.ApplyResources(Me.TabGruppendefinition, "TabGruppendefinition")
' '
'ListBox1 'ListBox1
' '
resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.DataSource = Me.TBDD_USER_GROUPSBindingSource Me.ListBox1.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.ListBox1.DisplayMember = "NAME" Me.ListBox1.DisplayMember = "NAME"
Me.ListBox1.FormattingEnabled = True Me.ListBox1.FormattingEnabled = True
resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.Name = "ListBox1" Me.ListBox1.Name = "ListBox1"
Me.ListBox1.ValueMember = "GUID" Me.ListBox1.ValueMember = "GUID"
' '
'GUIDTextBox1 'GUIDTextBox1
' '
resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True)) Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
Me.GUIDTextBox1.Name = "GUIDTextBox1" Me.GUIDTextBox1.Name = "GUIDTextBox1"
' '
'NAMETextBox1 'NAMETextBox1
' '
resources.ApplyResources(Me.NAMETextBox1, "NAMETextBox1")
Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "NAME", True)) Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "NAME", True))
resources.ApplyResources(Me.NAMETextBox1, "NAMETextBox1")
Me.NAMETextBox1.Name = "NAMETextBox1" Me.NAMETextBox1.Name = "NAMETextBox1"
' '
'ADDED_WHOTextBox1 'ADDED_WHOTextBox1
' '
resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1")
Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1")
Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1"
' '
'ADDED_WHENTextBox1 'ADDED_WHENTextBox1
' '
resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1")
Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1")
Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1"
' '
'CHANGED_WHOTextBox1 'CHANGED_WHOTextBox1
' '
resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1")
Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1")
Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1"
' '
'CHANGED_WHENTextBox1 'CHANGED_WHENTextBox1
' '
resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1")
Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1")
Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1"
' '
'BindingNavigator1 'BindingNavigator1
' '
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.AddNewItem = Me.ToolStripButton1 Me.BindingNavigator1.AddNewItem = Me.ToolStripButton1
Me.BindingNavigator1.BindingSource = Me.TBDD_USER_GROUPSBindingSource Me.BindingNavigator1.BindingSource = Me.TBDD_USER_GROUPSBindingSource
Me.BindingNavigator1.CountItem = Me.ToolStripLabel1 Me.BindingNavigator1.CountItem = Me.ToolStripLabel1
Me.BindingNavigator1.CountItemFormat = "of {0}" Me.BindingNavigator1.CountItemFormat = "of {0}"
Me.BindingNavigator1.DeleteItem = Me.ToolStripButton2 Me.BindingNavigator1.DeleteItem = Me.ToolStripButton2
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton9}) Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripButton9})
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton3 Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton3
Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton6 Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton6
Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton5 Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton5
@@ -643,37 +650,37 @@ Partial Class frmUserKonfig
' '
'ToolStripButton1 'ToolStripButton1
' '
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1" Me.ToolStripButton1.Name = "ToolStripButton1"
' '
'ToolStripLabel1 'ToolStripLabel1
' '
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1" Me.ToolStripLabel1.Name = "ToolStripLabel1"
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
' '
'ToolStripButton2 'ToolStripButton2
' '
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Name = "ToolStripButton2" Me.ToolStripButton2.Name = "ToolStripButton2"
' '
'ToolStripButton3 'ToolStripButton3
' '
resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3")
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3")
Me.ToolStripButton3.Name = "ToolStripButton3" Me.ToolStripButton3.Name = "ToolStripButton3"
' '
'ToolStripButton4 'ToolStripButton4
' '
resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4")
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4")
Me.ToolStripButton4.Name = "ToolStripButton4" Me.ToolStripButton4.Name = "ToolStripButton4"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
' '
'ToolStripTextBox1 'ToolStripTextBox1
' '
@@ -682,44 +689,44 @@ Partial Class frmUserKonfig
' '
'ToolStripSeparator2 'ToolStripSeparator2
' '
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
' '
'ToolStripButton5 'ToolStripButton5
' '
resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5")
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5")
Me.ToolStripButton5.Name = "ToolStripButton5" Me.ToolStripButton5.Name = "ToolStripButton5"
' '
'ToolStripButton6 'ToolStripButton6
' '
resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6")
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6")
Me.ToolStripButton6.Name = "ToolStripButton6" Me.ToolStripButton6.Name = "ToolStripButton6"
' '
'ToolStripSeparator3 'ToolStripSeparator3
' '
resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3")
Me.ToolStripSeparator3.Name = "ToolStripSeparator3" Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3")
' '
'ToolStripButton7 'ToolStripButton7
' '
resources.ApplyResources(Me.ToolStripButton7, "ToolStripButton7")
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.ToolStripButton7, "ToolStripButton7")
Me.ToolStripButton7.Name = "ToolStripButton7" Me.ToolStripButton7.Name = "ToolStripButton7"
' '
'ToolStripButton8 'ToolStripButton8
' '
resources.ApplyResources(Me.ToolStripButton8, "ToolStripButton8")
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG Me.ToolStripButton8.Image = Global.DD_Record_Organiser.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButton8, "ToolStripButton8")
Me.ToolStripButton8.Name = "ToolStripButton8" Me.ToolStripButton8.Name = "ToolStripButton8"
' '
'ToolStripButton9 'ToolStripButton9
' '
resources.ApplyResources(Me.ToolStripButton9, "ToolStripButton9")
Me.ToolStripButton9.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.ToolStripButton9.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton9.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3 Me.ToolStripButton9.Image = Global.DD_Record_Organiser.My.Resources.Resources.benutzer3
resources.ApplyResources(Me.ToolStripButton9, "ToolStripButton9")
Me.ToolStripButton9.Name = "ToolStripButton9" Me.ToolStripButton9.Name = "ToolStripButton9"
' '
'VWPMO_USERS_GROUPSBindingSource 'VWPMO_USERS_GROUPSBindingSource
@@ -743,12 +750,28 @@ Partial Class frmUserKonfig
' '
'LANGUAGEComboBox 'LANGUAGEComboBox
' '
resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox")
Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True)) Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True))
Me.LANGUAGEComboBox.FormattingEnabled = True Me.LANGUAGEComboBox.FormattingEnabled = True
Me.LANGUAGEComboBox.Items.AddRange(New Object() {resources.GetString("LANGUAGEComboBox.Items"), resources.GetString("LANGUAGEComboBox.Items1")}) Me.LANGUAGEComboBox.Items.AddRange(New Object() {resources.GetString("LANGUAGEComboBox.Items"), resources.GetString("LANGUAGEComboBox.Items1")})
resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox")
Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox" Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox"
' '
'TBDD_GROUPS_USERBindingSource
'
Me.TBDD_GROUPS_USERBindingSource.DataMember = "TBDD_GROUPS_USER"
Me.TBDD_GROUPS_USERBindingSource.DataSource = Me.DD_DMSDataSet
'
'COMMENTLabel
'
resources.ApplyResources(COMMENTLabel, "COMMENTLabel")
COMMENTLabel.Name = "COMMENTLabel"
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
Me.COMMENTTextBox.Name = "COMMENTTextBox"
'
'frmUserKonfig 'frmUserKonfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -802,6 +825,7 @@ Partial Class frmUserKonfig
Me.BindingNavigator1.ResumeLayout(False) Me.BindingNavigator1.ResumeLayout(False)
Me.BindingNavigator1.PerformLayout() Me.BindingNavigator1.PerformLayout()
CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -877,4 +901,6 @@ Partial Class frmUserKonfig
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents lblsave As System.Windows.Forms.Label Friend WithEvents lblsave As System.Windows.Forms.Label
Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox
Friend WithEvents TBDD_GROUPS_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox
End Class End Class

45
app/DD-Record-Organiser/frmUserKonfig.en-US.resx
View File

@@ -231,6 +231,27 @@
<data name="tsAddUser.Text" xml:space="preserve"> <data name="tsAddUser.Text" xml:space="preserve">
<value>Add User from AD</value> <value>Add User from AD</value>
</data> </data>
<data name="btnRemoveUserFromGroup.Text" xml:space="preserve">
<value>Remove User from Group</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Assigned Groups:</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Available Groups:</value>
</data>
<data name="btnAddUserToGroup.Text" xml:space="preserve">
<value>Add selected User to Group</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>795, 186</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve"> <data name="XtraTabPage1.Text" xml:space="preserve">
<value>User-Group Assignment</value> <value>User-Group Assignment</value>
</data> </data>
@@ -317,27 +338,15 @@
<data name="ToolStripButton9.Text" xml:space="preserve"> <data name="ToolStripButton9.Text" xml:space="preserve">
<value>Add User from AD</value> <value>Add User from AD</value>
</data> </data>
<data name="BindingNavigator1.Size" type="System.Drawing.Size, System.Drawing">
<value>795, 25</value>
</data>
<data name="TabGruppendefinition.Size" type="System.Drawing.Size, System.Drawing">
<value>795, 186</value>
</data>
<data name="TabGruppendefinition.Text" xml:space="preserve"> <data name="TabGruppendefinition.Text" xml:space="preserve">
<value>Groupdefinition</value> <value>Groupdefinition</value>
</data> </data>
<data name="btnRemoveUserFromGroup.Text" xml:space="preserve">
<value>Remove User from Group</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>Assigned Groups:</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 13</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Available Groups:</value>
</data>
<data name="btnAddUserToGroup.Text" xml:space="preserve">
<value>Add selected User to Group</value>
</data>
<data name="lblsave.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblsave.Size" type="System.Drawing.Size, System.Drawing">
<value>129, 13</value> <value>129, 13</value>
</data> </data>

3772
app/DD-Record-Organiser/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

3
app/DD-Record-Organiser/frmUserKonfig.vb
View File

@@ -12,8 +12,7 @@
End Sub End Sub
Private Sub frmUserKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmUserKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.VWPMO_USERS_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
'Me.VWPMO_USERS_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_USERS_GROUPS)
Load_User() Load_User()
End Sub End Sub
Sub Load_User() Sub Load_User()

87
app/DD-Record-Organiser/frmWD_Index_Dokart.vb
View File

@@ -80,6 +80,7 @@ Public Class frmWD_Index_Dokart
End If End If
End If End If
If indexierung_erfolgreich = True Then If indexierung_erfolgreich = True Then
ClassLogger.Add(">> File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung") If multiindex = False Then MsgBox("Datei erfolgreich nach windream übertragen", MsgBoxStyle.Information, "Erfolgsmeldung")
ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID) ClassDatabase.Execute_Scalar("UPDATE TBPMO_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_FILEID)
'frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen") 'frmForm_Constructor.tsstatus_Detail_show(True, "Datei erfolgreich nach windream übertragen")
@@ -211,62 +212,66 @@ Public Class frmWD_Index_Dokart
Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click Private Sub btnindex_Click(sender As Object, e As EventArgs) Handles btnindex.Click
If CURRENT_RECORD_ID = 0 Then If CURRENT_RECORD_ID = 0 Then
MsgBox("No Record chosen or the docuemnttype was not chosen!", MsgBoxStyle.Information) MsgBox("No Record chosen or the documenttype was not chosen!", MsgBoxStyle.Information)
Exit Sub Exit Sub
End If End If
If lvwIndices.Items.Count = 0 Then If lvwIndices.Items.Count = 0 Then
MsgBox("Bitte eine Dokumentart wählen!", MsgBoxStyle.Information) MsgBox("Please choose a documenttxpe!", MsgBoxStyle.Information)
Exit Sub Exit Sub
End If End If
Indexing_File() If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save()
Indexing_File(cmbDokumentart.SelectedValue)
End If
End Sub End Sub
Sub Indexing_File() Sub Indexing_File(doctype_id As Integer)
Try Try
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs, "ConfigMain") SaveMySettingsValue("WD_IndexDeleteDocs", WD_IndexDeleteDocs, "ConfigMain")
If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save() ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text
ClassWindream._WDObjekttyp = Me.OBJECT_TYPETextBox.Text If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then
If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then 'Die erste Datei indexieren
'Die erste Datei indexieren If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, True) = True Then
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = True Then 'Und nun die folgenden
'Und nun die folgenden Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')")
Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_FILEID & " AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')") If Not DTFiles2Work Is Nothing Then
If Not DTFiles2Work Is Nothing Then Dim err = False
Dim err = False For Each filerow As DataRow In DTFiles2Work.Rows
For Each filerow As DataRow In DTFiles2Work.Rows CURRENT_FILEID = filerow.Item("GUID")
CURRENT_FILEID = filerow.Item("GUID") CURRENT_FILENAME = filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = filerow.Item("FILENAME2WORK") Dim HandleType As String = filerow.Item("HANDLE_TYPE")
Dim HandleType As String = filerow.Item("HANDLE_TYPE") aktFiledropped = CURRENT_FILENAME
aktFiledropped = CURRENT_FILENAME If HandleType = "@DROPFROMFSYSTEM@" Then
If HandleType = "@DROPFROMFSYSTEM@" Then droptype = "dragdrop file"
droptype = "dragdrop file" ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then
ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then droptype = "dragdrop attachment"
droptype = "dragdrop attachment" ElseIf HandleType = "@OUTLOOKMESSAGE@" Then
ElseIf HandleType = "@OUTLOOKMESSAGE@" Then droptype = "dragdrop message"
droptype = "dragdrop message"
End If
If WORK_FILE(CURRENT_FILENAME, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, True) = False Then
err = True
Exit For
End If
Next
Me.Cursor = Cursors.Default
If err = False Then
MsgBox("All files Alle Dateien wurden mit Multiindexing erfolgreich nach windream übertragen!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Me.Close()
End If End If
If WORK_FILE(CURRENT_FILENAME, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, True) = False Then
err = True
Exit For
End If
Next
Me.Cursor = Cursors.Default
If err = False Then
MsgBox("All files Alle Dateien wurden mit Multiindexing erfolgreich nach windream übertragen!", MsgBoxStyle.Information, "Erfolgsmeldung:")
Me.Close()
End If End If
End If End If
Else
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, cmbDokumentart.SelectedValue, cmbDokumentart.Text, False) = True Then Me.Close()
End If End If
Me.Cursor = Cursors.Default Else
If WORK_FILE(Me.txtFilepath.Text, Me.PATHTextBox.Text, doctype_id, My.Settings.WD_INDEXDOKART_SAVE, False) = True Then Me.Close()
End If End If
Me.Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Indexing_File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Indexing_File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

7
app/SetupWiX/Product.wxs
View File

@@ -87,6 +87,12 @@
<File Id="SnapPanelLib" Name="SnapPanelControl.dll" Source="SnapPanelControl.dll" KeyPath="yes" /> <File Id="SnapPanelLib" Name="SnapPanelControl.dll" Source="SnapPanelControl.dll" KeyPath="yes" />
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="DLLLicenseManager.dll" KeyPath="no" /> <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="DLLLicenseManager.dll" KeyPath="no" />
</Component> </Component>
<!-- DD Bibliotheken -->
<Component Id="BasicLibs" Guid="37238CB0-6DC3-4B1B-9438-52FA7D478897">
<File Id="OfficeLib" Name="Office.dll" Source="C:\Windows\assembly\GAC_MSIL\Office\15.0.0.0__71e9bce111e9429c\Office.dll" KeyPath="yes" />
<File Id="Microsoft.Office.Interop.Outlook" Name="Microsoft.Office.Interop.Outlook.dll" Source="C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll" KeyPath="no" />
<File Id="Microsoft.Office.Interop.Word" Name="Microsoft.Office.Interop.Word.dll" Source="D:\Programme\Sprachen\Microsoft Visual Studio 12.0\Visual Studio Tools for Office\PIA\Office15\Microsoft.Office.Interop.Word.dll" KeyPath="no" />
</Component>
<!-- MAIL.NET Bibliothek --> <!-- MAIL.NET Bibliothek -->
<Component Id="IndependentsoftLibs" Guid="C3B3BB48-DB41-4419-A4B8-0E4DC5E8856B"> <Component Id="IndependentsoftLibs" Guid="C3B3BB48-DB41-4419-A4B8-0E4DC5E8856B">
@@ -207,6 +213,7 @@
<ComponentRef Id="RecordOrganizer.Locales.en_gb" /> <ComponentRef Id="RecordOrganizer.Locales.en_gb" />
<ComponentRef Id="RecordOrganizer.Locales.en_us" /> <ComponentRef Id="RecordOrganizer.Locales.en_us" />
<ComponentRef Id="DevExpressLibs" /> <ComponentRef Id="DevExpressLibs" />
<ComponentRef Id="BasicLibs" />
<ComponentRef Id="ProgramMenuDir"/> <ComponentRef Id="ProgramMenuDir"/>
<!--<ComponentRef Id="RegistryEntries"/>--> <!--<ComponentRef Id="RegistryEntries"/>-->
<ComponentRef Id="Oracle" /> <ComponentRef Id="Oracle" />