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

MS DDGroups

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Global_Indexer/ClassFormFunctions.vb
View File

@ -6,8 +6,9 @@ Public Class ClassFormFunctions
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Case "MS-SQLServer".ToUpper
Dim CSType = DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
Select Case CSType
Case "MS-SQL".ToUpper
If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
Else
@ -16,7 +17,7 @@ Public Class ClassFormFunctions
Case "Oracle".ToUpper
If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Else
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"

109
Global_Indexer/ClassInit.vb
View File

@ -59,9 +59,9 @@ Public Class ClassInit
Public Sub Init_Folderwatch()
Try
'Die FolderWatch starten
Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID
Dim sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & USER_ID
Dim folderwatch = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID
sql1 = "SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_ID
Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
If Not folderwatch Is Nothing Then
CURRENT_FOLDERWATCH = folderwatch
@ -94,9 +94,9 @@ Public Class ClassInit
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
CURRENT_USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
Try
Dim USERID = CInt(CURRENT_USER_ID)
Dim USERID = CInt(USER_ID)
Catch ex As Exception
ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
@ -106,25 +106,35 @@ Public Class ClassInit
Exit Sub
End Try
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID
CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then
CURRENT_USER_SHORT = ""
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & USER_ID
USER_SHORT_NAME = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If IsNothing(USER_SHORT_NAME) Or IsDBNull(USER_SHORT_NAME) Then
USER_SHORT_NAME = ""
End If
Check_User_Exists_in_GIGroups()
If USER_IN_MODULE = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
'Check_User_Exists_in_GIGroups()
sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
ClassLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
START_INCOMPLETE = True
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
'Me.Close()
Else
'Am System anmelden
ERROR_STATE = "NO USER"
MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
If USER_IN_MODULE = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
START_INCOMPLETE = True
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
Exit Sub
End If
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
ClassLicence.Refresh_Licence()
Dim sql1 = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
DOCTYPE_COUNT_ACTUAL = ClassDatabase.Execute_Scalar(sql1, MyConnectionString, True)
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
@ -134,25 +144,12 @@ Public Class ClassInit
MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
End If
End If
Try
USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & CURRENT_USER_ID, MyConnectionString, True)
Catch ex As Exception
ClassLogger.Add("LANGUAGE COULD NOT BE READ - " & ex.Message, True)
USER_LANGUAGE = "de-DE"
End Try
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@LogInOut", 1)
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
ClassDatabase.Execute_non_Query(sql, True)
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USER_ID & ",'Global-Indexer')"
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
ClassDatabase.Execute_non_Query(sql)
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
@ -160,9 +157,9 @@ Public Class ClassInit
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!", False)
If CURRENT_USER_IS_ADMIN = False Then
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_IS_ADMIN & " AND MODULE= 'Global-Indexer'"
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True)
ClassLogger.Add(" - Wieder abgemeldet", False)
START_INCOMPLETE = True
@ -173,6 +170,7 @@ Public Class ClassInit
'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
MsgBox(ex.Message, MsgBoxStyle.Critical)
@ -180,42 +178,5 @@ Public Class ClassInit
End Try
End Sub
Private Function Check_User_Exists_in_GIGroups()
Try
Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_USER'", CURRENT_USER_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_USER-Group....", False)
USER_IN_MODULE = True
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_USER-Group...." & sel, False)
sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 2", CURRENT_USER_ID)
DT = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False)
USER_IN_MODULE = True
CURRENT_USER_IS_ADMIN = DT.Rows(0).Item("IS_ADMIN")
End If
End If
End If
End If
sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'GLOBIX_ADMINS'", CURRENT_USER_ID)
DT = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False)
CURRENT_USER_IS_ADMIN = True
USER_IN_MODULE = True
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_ADMINS-Group...." & sel, False)
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_PMGroups:")
End Try
End Function
End Class

6
Global_Indexer/ModuleCURRENT.vb
View File

@ -21,10 +21,10 @@
Public CURRENT_MESSAGESUBJECT As String
Public CURRENT_ISATTACHMENT As Boolean = False
Public CURRENT_USER_ID
Public USER_ID
Public USER_IN_MODULE As Boolean = False
Public CURRENT_USER_IS_ADMIN As Boolean = False
Public CURRENT_USER_SHORT
Public USER_IS_ADMIN As Boolean = False
Public USER_SHORT_NAME
Public UserLoggedin As Integer = 0
Public USER_LANGUAGE As String = "DE"

311
Global_Indexer/MyDataset.Designer.vb generated
View File

@ -53,7 +53,7 @@ Partial Public Class MyDataset
Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable
Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable
@ -184,8 +184,8 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
End If
If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
@ -390,9 +390,9 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable
Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable
Get
Return Me.tableTBDD_USER_GROUPS
Return Me.tableTBDD_GROUPS
End Get
End Property
@ -645,8 +645,8 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
End If
If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
@ -806,10 +806,10 @@ Partial Public Class MyDataset
Me.tableTBWHDD_INDEX_MAN.InitVars
End If
End If
Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable)
Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then
Me.tableTBDD_USER_GROUPS.InitVars
If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then
Me.tableTBDD_GROUPS.InitVars
End If
End If
Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable)
@ -949,8 +949,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN_POSTPROCESSING)
Me.tableTBWHDD_INDEX_MAN = New TBWHDD_INDEX_MANDataTable()
MyBase.Tables.Add(Me.tableTBWHDD_INDEX_MAN)
Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS)
Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS)
Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER)
Me.tableVWGI_USER_GROUPS_RELATION = New VWGI_USER_GROUPS_RELATIONDataTable()
@ -989,7 +989,7 @@ Partial Public Class MyDataset
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID)
Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false)
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1)
Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID)
Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID)
@ -1097,7 +1097,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean
Private Function ShouldSerializeTBDD_GROUPS() As Boolean
Return false
End Function
@ -1286,7 +1286,7 @@ Partial Public Class MyDataset
Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent)
Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent)
@ -7298,8 +7298,8 @@ Partial Public Class MyDataset
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBDD_USER_GROUPSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow)
Partial Public Class TBDD_GROUPSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow)
Private columnGUID As Global.System.Data.DataColumn
@ -7317,7 +7317,7 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_USER_GROUPS"
Me.TableName = "TBDD_GROUPS"
Me.BeginInit
Me.InitClass
Me.EndInit
@ -7407,50 +7407,50 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow
Get
Return CType(Me.Rows(index),TBDD_USER_GROUPSRow)
Return CType(Me.Rows(index),TBDD_GROUPSRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow)
Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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
Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow)
Public Overloads Function AddTBDD_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_GROUPSRow
Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USER_GROUPSRow)
Return rowTBDD_USER_GROUPSRow
rowTBDD_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_GROUPSRow)
Return rowTBDD_GROUPSRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow)
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable)
Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable)
cln.InitVars
Return cln
End Function
@ -7458,7 +7458,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_USER_GROUPSDataTable()
Return New TBDD_GROUPSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -7493,35 +7493,34 @@ Partial Public Class MyDataset
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME.MaxLength = 50
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
Return CType(Me.NewRow,TBDD_USER_GROUPSRow)
Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow
Return CType(Me.NewRow,TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_USER_GROUPSRow(builder)
Return New TBDD_GROUPSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_USER_GROUPSRow)
Return GetType(TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@ -7529,8 +7528,8 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@ -7538,8 +7537,8 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@ -7547,14 +7546,14 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow)
Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Remove(row)
End Sub
@ -7581,7 +7580,7 @@ Partial Public Class MyDataset
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBDD_USER_GROUPSDataTable"
attribute2.FixedValue = "TBDD_GROUPSDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
@ -7775,14 +7774,14 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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_WHEN As Date, ByVal ADDED_WHO As String, 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_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As 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_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN}
If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then
columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0)
End If
If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then
columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0)
If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then
columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0)
End If
rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_GROUPS_USERRow)
@ -16050,26 +16049,26 @@ Partial Public Class MyDataset
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBDD_USER_GROUPSRow
Partial Public Class TBDD_GROUPSRow
Inherits Global.System.Data.DataRow
Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable)
Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer)
Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value
Me(Me.tableTBDD_GROUPS.GUIDColumn) = value
End Set
End Property
@ -16078,13 +16077,13 @@ Partial Public Class MyDataset
Public Property NAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String)
Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value
Me(Me.tableTBDD_GROUPS.NAMEColumn) = value
End Set
End Property
@ -16092,10 +16091,14 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String)
Try
Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value
Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value
End Set
End Property
@ -16104,13 +16107,13 @@ Partial Public Class MyDataset
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date)
Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value
Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value
End Set
End Property
@ -16119,13 +16122,13 @@ Partial Public Class MyDataset
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String)
Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value
Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value
End Set
End Property
@ -16134,62 +16137,74 @@ Partial Public Class MyDataset
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date)
Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value
Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -16309,9 +16324,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
Public Property TBDD_USER_GROUPSRow() As TBDD_GROUPSRow
Get
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow)
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPSRow)
End Get
Set
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID"))
@ -18931,16 +18946,16 @@ Partial Public Class MyDataset
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBDD_USER_GROUPSRowChangeEvent
Public Class TBDD_GROUPSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBDD_USER_GROUPSRow
Private eventRow As TBDD_GROUPSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction)
Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
@ -18948,7 +18963,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBDD_USER_GROUPSRow
Public ReadOnly Property Row() As TBDD_GROUPSRow
Get
Return Me.eventRow
End Get
@ -23933,7 +23948,7 @@ Namespace MyDatasetTableAdapters
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class TBDD_USER_GROUPSTableAdapter
Partial Public Class TBDD_GROUPSTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
@ -24050,7 +24065,7 @@ Namespace MyDatasetTableAdapters
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "TBDD_USER_GROUPS"
tableMapping.DataSetTable = "TBDD_GROUPS"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("NAME", "NAME")
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
@ -24080,22 +24095,22 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
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 "& _
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _
"HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())"
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_"& _
"WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())"
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("@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("@NAME", Global.System.Data.SqlDbType.[Variant], 1024, 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.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
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"& _
"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,"& _
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _
")"
"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"& _
", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUI"& _
"D)"
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("@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("@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("@NAME", Global.System.Data.SqlDbType.[Variant], 1024, 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.[Variant], 1024, 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.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -24112,7 +24127,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBDD_USER_GROUPS"
" TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (INTERNAL = 0)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@ -24120,7 +24135,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPSDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
@ -24133,9 +24148,9 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
Public Overloads Overridable Function GetData() As MyDataset.TBDD_USER_GROUPSDataTable
Public Overloads Overridable Function GetData() As MyDataset.TBDD_GROUPSDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As MyDataset.TBDD_USER_GROUPSDataTable = New MyDataset.TBDD_USER_GROUPSDataTable()
Dim dataTable As MyDataset.TBDD_GROUPSDataTable = New MyDataset.TBDD_GROUPSDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
@ -24143,7 +24158,7 @@ Namespace MyDatasetTableAdapters
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
@ -24151,7 +24166,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS")
Return Me.Adapter.Update(dataSet, "TBDD_GROUPS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -24226,16 +24241,16 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.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 Object, ByVal ADDED_WHO As Object) As Integer
If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("NAME")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String)
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,Object)
End If
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,Object)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
@ -24256,19 +24271,27 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.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 Object, ByVal CHANGED_WHO As Object, ByVal Original_GUID As Object, ByVal GUID As Object) As Integer
If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("NAME")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String)
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,Object)
End If
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("CHANGED_WHO")
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String)
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,Object)
End If
If (Original_GUID Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_GUID")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Object)
End If
If (GUID Is Nothing) Then
Throw New Global.System.ArgumentNullException("GUID")
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Object)
End If
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@ -28159,7 +28182,7 @@ Namespace MyDatasetTableAdapters
Private _tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter
Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter
Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter
Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter
@ -28319,12 +28342,12 @@ Namespace MyDatasetTableAdapters
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter
Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter
Get
Return Me._tBDD_USER_GROUPSTableAdapter
Return Me._tBDD_GROUPSTableAdapter
End Get
Set
Me._tBDD_USER_GROUPSTableAdapter = value
Me._tBDD_GROUPSTableAdapter = value
End Set
End Property
@ -28467,9 +28490,9 @@ Namespace MyDatasetTableAdapters
AndAlso (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection
End If
If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_USER_GROUPSTableAdapter.Connection
If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_GROUPSTableAdapter.Connection
End If
If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then
@ -28535,7 +28558,7 @@ Namespace MyDatasetTableAdapters
If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
@ -28621,12 +28644,12 @@ Namespace MyDatasetTableAdapters
allChangedRows.AddRange(updatedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
If ((Not (updatedRows) Is Nothing) _
AndAlso (0 < updatedRows.Length)) Then
result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
@ -28769,11 +28792,11 @@ Namespace MyDatasetTableAdapters
allAddedRows.AddRange(addedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
@ -28931,11 +28954,11 @@ Namespace MyDatasetTableAdapters
allChangedRows.AddRange(deletedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then
result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
@ -29073,8 +29096,8 @@ Namespace MyDatasetTableAdapters
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then
If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
@ -29223,13 +29246,13 @@ Namespace MyDatasetTableAdapters
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Adapter)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection)
Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection)
Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter)
End If
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
@ -29382,9 +29405,9 @@ Namespace MyDatasetTableAdapters
Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_GROUPSTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection)

2
Global_Indexer/MyDataset.xsc
View File

@ -243,7 +243,7 @@
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_USER_GROUPS">
<TableUISetting Name="TBDD_GROUPS">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">

39
Global_Indexer/MyDataset.xsd
View File

@ -921,9 +921,9 @@ ORDER BY NAME</CommandText>
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_USER_GROUPSTableAdapter" GeneratorDataComponentClassName="TBDD_USER_GROUPSTableAdapter" Name="TBDD_USER_GROUPS" UserDataComponentName="TBDD_USER_GROUPSTableAdapter">
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBDD_GROUPSTableAdapter" GeneratorDataComponentClassName="TBDD_GROUPSTableAdapter" Name="TBDD_GROUPS" UserDataComponentName="TBDD_GROUPSTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (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_ECMConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBDD_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>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) 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>
@ -942,35 +942,36 @@ ORDER BY NAME</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBDD_USER_GROUPS
(NAME, ADDED_WHO)
VALUES (@NAME,@ADDED_WHO);
VALUES (@NAME,@ADDED_WHO);
SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<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="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="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@NAME" Precision="0" Scale="0" Size="1024" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" Scale="0" Size="1024" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN
FROM TBDD_USER_GROUPS</CommandText>
FROM TBDD_GROUPS
WHERE (INTERNAL = 0)</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBDD_USER_GROUPS
SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO
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>
<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="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="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="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@NAME" Precision="0" Scale="0" Size="1024" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" Scale="0" Size="1024" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@Original_GUID" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="unknown" DbType="Object" Direction="Input" ParameterName="@GUID" Precision="0" Scale="0" Size="1024" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -2595,7 +2596,7 @@ ORDER BY GUID DESC</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBDD_USER_GROUPS" msprop:Generator_TableClassName="TBDD_USER_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_USER_GROUPS" msprop:Generator_TablePropName="TBDD_USER_GROUPS" msprop:Generator_RowDeletingName="TBDD_USER_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_USER_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_USER_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_USER_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_USER_GROUPS" msprop:Generator_RowChangedName="TBDD_USER_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_USER_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_USER_GROUPSRow">
<xs:element name="TBDD_GROUPS" msprop:Generator_TableClassName="TBDD_GROUPSDataTable" msprop:Generator_TableVarName="tableTBDD_GROUPS" msprop:Generator_TablePropName="TBDD_GROUPS" msprop:Generator_RowDeletingName="TBDD_GROUPSRowDeleting" msprop:Generator_RowChangingName="TBDD_GROUPSRowChanging" msprop:Generator_RowEvHandlerName="TBDD_GROUPSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_GROUPSRowDeleted" msprop:Generator_UserTableName="TBDD_GROUPS" msprop:Generator_RowChangedName="TBDD_GROUPSRowChanged" msprop:Generator_RowEvArgName="TBDD_GROUPSRowChangeEvent" msprop:Generator_RowClassName="TBDD_GROUPSRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2606,7 +2607,7 @@ ORDER BY GUID DESC</CommandText>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO">
<xs:element name="ADDED_WHO" msprop:Generator_ColumnVarNameInTable="columnADDED_WHO" msprop:Generator_ColumnPropNameInRow="ADDED_WHO" msprop:Generator_ColumnPropNameInTable="ADDED_WHOColumn" msprop:Generator_UserColumnName="ADDED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
@ -3114,8 +3115,8 @@ ORDER BY GUID DESC</CommandText>
<xs:selector xpath=".//mstns:TBWHDD_INDEX_MAN" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBDD_USER_GROUPS_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_USER_GROUPS" />
<xs:unique name="TBDD_GROUPS_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_GROUPS" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBDD_GROUPS_USER_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
@ -3170,7 +3171,7 @@ ORDER BY GUID DESC</CommandText>
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" />
<msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msdata:parent="TBDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_ParentPropName="TBDD_INDEX_MANRow" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" msprop:Generator_UserParentTable="TBDD_INDEX_MAN" />
<msdata:Relationship name="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msdata:parent="TBWHDD_INDEX_MAN" msdata:child="TBDD_INDEX_MAN_POSTPROCESSING" msdata:parentkey="GUID" msdata:childkey="IDXMAN_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN_POSTPROCESSING" msprop:Generator_ChildPropName="GetTBDD_INDEX_MAN_POSTPROCESSINGRows" msprop:Generator_UserRelationName="FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_ParentPropName="TBWHDD_INDEX_MANRow" msprop:Generator_RelationVarName="relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" msprop:Generator_UserParentTable="TBWHDD_INDEX_MAN" />
<msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_USER_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_USER_GROUPS" />
<msdata:Relationship name="FK_TBDD_GROUPS_USER_GROUP_ID" msdata:parent="TBDD_GROUPS" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="GROUP_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_ParentPropName="TBDD_USER_GROUPSRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_GROUP_ID" msprop:Generator_UserParentTable="TBDD_GROUPS" />
<msdata:Relationship name="FK_TBDD_GROUPS_USER_USER_ID" msdata:parent="TBDD_USER" msdata:child="TBDD_GROUPS_USER" msdata:parentkey="GUID" msdata:childkey="USER_ID" msprop:Generator_UserChildTable="TBDD_GROUPS_USER" msprop:Generator_ChildPropName="GetTBDD_GROUPS_USERRows" msprop:Generator_UserRelationName="FK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_ParentPropName="TBDD_USERRow" msprop:Generator_RelationVarName="relationFK_TBDD_GROUPS_USER_USER_ID" msprop:Generator_UserParentTable="TBDD_USER" />
<msdata:Relationship name="FK_TBDD_INDEX_MAN_DAID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_MAN" msdata:parentkey="GUID" msdata:childkey="DOK_ID" msprop:Generator_UserChildTable="TBDD_INDEX_MAN" msprop:Generator_ChildPropName="GetTBDD_INDEX_MANRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_MAN_DAID" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_MAN_DAID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" />
<msdata:Relationship name="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msdata:parent="TBHOTKEY_PROFILE" msdata:child="TBHOTKEY_PATTERNS" msdata:parentkey="GUID" msdata:childkey="HKPROFILE_ID" msprop:Generator_UserChildTable="TBHOTKEY_PATTERNS" msprop:Generator_ChildPropName="GetTBHOTKEY_PATTERNSRows" msprop:Generator_UserRelationName="FK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_ParentPropName="TBHOTKEY_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBHOTKEY_PATTERNS_PROFILE_ID" msprop:Generator_UserParentTable="TBHOTKEY_PROFILE" />

66
Global_Indexer/MyDataset.xss
View File

@ -4,37 +4,37 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="378" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBDD_USER" ZOrder="21" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="1" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="23" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="2" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="4" X="119" Y="308" Height="381" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="275" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="25" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="43" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="42" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="35" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="41" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="4" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="7" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="39" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="22" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="24" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="36" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="24" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="26" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="33" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="31" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="29" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="28" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="25" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="2" X="322" Y="196" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="10" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="9" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="13" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="14" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="12" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="8" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="7" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="5" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS" ZOrder="1" X="1127" Y="98" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="29" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="3" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="5" X="322" Y="196" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="13" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="12" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="16" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="17" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="15" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="11" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="10" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_HISTORY" ZOrder="8" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="37" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="30" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
<Shape ID="DesignTable:TBAD_Users" ZOrder="3" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
<Shape ID="DesignTable:TBAD_Users" ZOrder="6" X="1363" Y="639" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="86" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="44" LineWidth="11">
@ -101,15 +101,15 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="27" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="28" LineWidth="11">
<RoutePoints>
<Point>
<X>1193</X>
<Y>253</Y>
<X>1127</X>
<Y>251</Y>
</Point>
<Point>
<X>741</X>
<Y>253</Y>
<Y>251</Y>
</Point>
<Point>
<X>741</X>
@ -117,7 +117,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="26" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="27" LineWidth="11">
<RoutePoints>
<Point>
<X>871</X>
@ -129,7 +129,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="23" LineWidth="11">
<RoutePoints>
<Point>
<X>94</X>
@ -149,7 +149,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="19" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="22" LineWidth="11">
<RoutePoints>
<Point>
<X>129</X>
@ -165,7 +165,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="18" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>183</X>
@ -177,7 +177,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="17" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="20" LineWidth="11">
<RoutePoints>
<Point>
<X>88</X>
@ -197,7 +197,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="16" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="19" LineWidth="11">
<RoutePoints>
<Point>
<X>117</X>
@ -217,7 +217,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="15" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="18" LineWidth="11">
<RoutePoints>
<Point>
<X>765</X>
@ -233,7 +233,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="11" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>409</X>
@ -253,7 +253,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="6" LineWidth="11">
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>38</X>

44
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -222,7 +222,7 @@ Partial Class frmAdministration
Me.lblnewDokartZuordnung = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmbGroup2Dokart = New System.Windows.Forms.ComboBox()
Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.btnAddDokartGroupRelation = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.ListBoxDokartzuordnung = New System.Windows.Forms.ListBox()
@ -387,7 +387,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter()
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter()
Me.TBWHDD_INDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter()
Me.TBDD_USER_GROUPSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USER_GROUPSTableAdapter()
Me.TBDD_GROUPSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPSTableAdapter()
Me.VWGI_USER_GROUPS_RELATIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_USER_GROUPS_RELATIONTableAdapter()
Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter()
@ -487,7 +487,7 @@ Partial Class frmAdministration
Me.BindingNavigator2.SuspendLayout()
Me.XtraTabPage9.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPage10.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@ -1849,17 +1849,17 @@ Partial Class frmAdministration
'
'cmbGroup2Dokart
'
Me.cmbGroup2Dokart.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.cmbGroup2Dokart.DataSource = Me.TBDD_GROUPSBindingSource
Me.cmbGroup2Dokart.DisplayMember = "NAME"
resources.ApplyResources(Me.cmbGroup2Dokart, "cmbGroup2Dokart")
Me.cmbGroup2Dokart.FormattingEnabled = True
Me.cmbGroup2Dokart.Name = "cmbGroup2Dokart"
Me.cmbGroup2Dokart.ValueMember = "GUID"
'
'TBDD_USER_GROUPSBindingSource
'TBDD_GROUPSBindingSource
'
Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS"
Me.TBDD_USER_GROUPSBindingSource.DataSource = Me.MyDataset
Me.TBDD_GROUPSBindingSource.DataMember = "TBDD_GROUPS"
Me.TBDD_GROUPSBindingSource.DataSource = Me.MyDataset
'
'btnAddDokartGroupRelation
'
@ -2400,7 +2400,7 @@ Partial Class frmAdministration
'
'cmbGroup2User
'
Me.cmbGroup2User.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.cmbGroup2User.DataSource = Me.TBDD_GROUPSBindingSource
Me.cmbGroup2User.DisplayMember = "NAME"
resources.ApplyResources(Me.cmbGroup2User, "cmbGroup2User")
Me.cmbGroup2User.FormattingEnabled = True
@ -2455,7 +2455,7 @@ Partial Class frmAdministration
'
'ListBox4
'
Me.ListBox4.DataSource = Me.TBDD_USER_GROUPSBindingSource
Me.ListBox4.DataSource = Me.TBDD_GROUPSBindingSource
Me.ListBox4.DisplayMember = "NAME"
Me.ListBox4.FormattingEnabled = True
resources.ApplyResources(Me.ListBox4, "ListBox4")
@ -2470,44 +2470,44 @@ Partial Class frmAdministration
'
'GUIDTextBox5
'
Me.GUIDTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True))
Me.GUIDTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox5, "GUIDTextBox5")
Me.GUIDTextBox5.Name = "GUIDTextBox5"
'
'NAMETextBox2
'
Me.NAMETextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "NAME", True))
Me.NAMETextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "NAME", True))
resources.ApplyResources(Me.NAMETextBox2, "NAMETextBox2")
Me.NAMETextBox2.Name = "NAMETextBox2"
'
'ADDED_WHOTextBox5
'
Me.ADDED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "ADDED_WHO", True))
resources.ApplyResources(Me.ADDED_WHOTextBox5, "ADDED_WHOTextBox5")
Me.ADDED_WHOTextBox5.Name = "ADDED_WHOTextBox5"
'
'ADDED_WHENTextBox5
'
Me.ADDED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox5, "ADDED_WHENTextBox5")
Me.ADDED_WHENTextBox5.Name = "ADDED_WHENTextBox5"
'
'CHANGED_WHOTextBox5
'
Me.CHANGED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox5, "CHANGED_WHOTextBox5")
Me.CHANGED_WHOTextBox5.Name = "CHANGED_WHOTextBox5"
'
'CHANGED_WHENTextBox5
'
Me.CHANGED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox5, "CHANGED_WHENTextBox5")
Me.CHANGED_WHENTextBox5.Name = "CHANGED_WHENTextBox5"
'
'TBDD_USER_GROUPSBindingNavigator
'
Me.TBDD_USER_GROUPSBindingNavigator.AddNewItem = Me.ToolStripButton32
Me.TBDD_USER_GROUPSBindingNavigator.BindingSource = Me.TBDD_USER_GROUPSBindingSource
Me.TBDD_USER_GROUPSBindingNavigator.BindingSource = Me.TBDD_GROUPSBindingSource
Me.TBDD_USER_GROUPSBindingNavigator.CountItem = Me.ToolStripLabel5
Me.TBDD_USER_GROUPSBindingNavigator.CountItemFormat = "of {0} Groups"
Me.TBDD_USER_GROUPSBindingNavigator.DeleteItem = Me.ToolStripButton33
@ -2964,10 +2964,10 @@ Partial Class frmAdministration
Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter
Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
@ -3018,9 +3018,9 @@ Partial Class frmAdministration
'
Me.TBWHDD_INDEX_MANTableAdapter.ClearBeforeFill = True
'
'TBDD_USER_GROUPSTableAdapter
'TBDD_GROUPSTableAdapter
'
Me.TBDD_USER_GROUPSTableAdapter.ClearBeforeFill = True
Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True
'
'VWGI_USER_GROUPS_RELATIONTableAdapter
'
@ -3081,7 +3081,7 @@ Partial Class frmAdministration
Me.XtraTabPage9.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPage10.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
@ -3345,8 +3345,8 @@ Partial Class frmAdministration
Friend WithEvents ToolStripSeparator15 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton38 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton39 As System.Windows.Forms.ToolStripButton
Friend WithEvents TBDD_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_USER_GROUPSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USER_GROUPSTableAdapter
Friend WithEvents TBDD_GROUPSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBDD_GROUPSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPSTableAdapter
Friend WithEvents GUIDTextBox5 As System.Windows.Forms.TextBox
Friend WithEvents NAMETextBox2 As System.Windows.Forms.TextBox
Friend WithEvents ADDED_WHOTextBox5 As System.Windows.Forms.TextBox

4133
Global_Indexer/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

18
Global_Indexer/frmAdministration.vb
View File

@ -27,7 +27,7 @@ Public Class frmAdministration
Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
@ -789,12 +789,12 @@ Public Class frmAdministration
End Sub
Sub Save_UserGroups()
Try
TBDD_USER_GROUPSBindingSource.EndEdit()
If MyDataset.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then
Dim changes = MyDataset.TBDD_USER_GROUPS.GetChanges()
TBDD_GROUPSBindingSource.EndEdit()
If MyDataset.TBDD_GROUPS.GetChanges Is Nothing = False Then
Dim changes = MyDataset.TBDD_GROUPS.GetChanges()
' If a Group was selected and deleted, delete references in TBDD_USRGRP_DOCTYPE and TBDD_GROUPS_USER
If Not IsNothing(GroupToDelete) And MyDataset.TBDD_USER_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
If Not IsNothing(GroupToDelete) And MyDataset.TBDD_GROUPS.GetChanges(DataRowState.Deleted) Is Nothing = False Then
ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE GROUP_ID = {GroupToDelete}")
ClassDatabase.Execute_non_Query($"DELETE FROM TBDD_GROUPS_USER WHERE GROUP_ID = {GroupToDelete}")
GroupToDelete = Nothing
@ -802,7 +802,7 @@ Public Class frmAdministration
CHANGED_WHOTextBox5.Text = Environment.UserName
TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit()
Me.TBDD_USER_GROUPSTableAdapter.Update(MyDataset.TBDD_USER_GROUPS)
Me.TBDD_GROUPSTableAdapter.Update(MyDataset.TBDD_GROUPS)
lblsaveTBDD_USER_GROUPS.Visible = True
Else
lblsaveTBDD_USER_GROUPS.Visible = False
@ -813,7 +813,7 @@ Public Class frmAdministration
End Sub
Sub Load_UserGroups()
Try
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.MyDataset.TBDD_USER_GROUPS)
Me.TBDD_GROUPSTableAdapter.Fill(Me.MyDataset.TBDD_GROUPS)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Groups: ")
End Try
@ -828,8 +828,8 @@ Public Class frmAdministration
End Select
End Sub
Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USER_GROUPSBindingSource.AddingNew
Me.MyDataset.TBDD_USER_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GROUPSBindingSource.AddingNew
Me.MyDataset.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName
End Sub
Private Sub Load_UserRelation(UserID As Integer)

18
Global_Indexer/frmConfig_Basic.vb
View File

@ -66,8 +66,8 @@ Public Class frmConfig_Basic
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
CURRENT_USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(CURRENT_USER_ID) Then
USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(USER_ID) Then
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
ClassLogger.Add("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)", True)
End If
@ -188,12 +188,12 @@ Public Class frmConfig_Basic
Exit Sub
End If
reload = True
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USER_ID, MyConnectionString)
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & USER_ID, MyConnectionString)
If Not folderwatch Is Nothing Then
CURRENT_FOLDERWATCH = folderwatch
End If
Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USER_ID, MyConnectionString)
Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_ID, MyConnectionString)
If Not SCAN_folderwatch Is Nothing Then
CURRENT_SCAN_FOLDERWATCH = SCAN_folderwatch
End If
@ -268,7 +268,7 @@ Public Class frmConfig_Basic
Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
Try
If mypath = "" Then
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", True)
If FOLDER_TYPE = "SCAN" Then
CURRENT_SCAN_FOLDERWATCH = ""
SaveConfigValue("FWSCAN_started", "False")
@ -297,15 +297,15 @@ Public Class frmConfig_Basic
Exit Sub
End Try
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
Dim sql As String
If folderwatch Is Nothing Then
sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & CURRENT_USER_ID & ",'" & mypath & "','" & FOLDER_TYPE & "','" & Environment.UserName & "')"
sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & USER_ID & ",'" & mypath & "','" & FOLDER_TYPE & "','" & Environment.UserName & "')"
Else
sql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch
End If
If ClassDatabase.Execute_non_Query(sql) Then
folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & USER_ID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
If FOLDER_TYPE = "SCAN" Then
CURRENT_SCAN_FOLDERWATCH = folderwatch
@ -516,7 +516,7 @@ Public Class frmConfig_Basic
lang = "en-US"
End Select
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & lang & "' WHERE GUID = " & CURRENT_USER_ID
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & lang & "' WHERE GUID = " & USER_ID
USER_LANGUAGE = lang
If ClassDatabase.Execute_non_Query(update, True) = True Then

60
Global_Indexer/frmConnections.Designer.vb generated
View File

@ -149,10 +149,10 @@ Partial Class frmConnections
Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
@ -165,13 +165,13 @@ Partial Class frmConnections
'
'TBDD_CONNECTIONBindingNavigator
'
resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigator, "TBDD_CONNECTIONBindingNavigator")
Me.TBDD_CONNECTIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
Me.TBDD_CONNECTIONBindingNavigator.BindingSource = Me.TBDD_CONNECTIONBindingSource
Me.TBDD_CONNECTIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBDD_CONNECTIONBindingNavigator.CountItemFormat = "of {0}"
Me.TBDD_CONNECTIONBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
Me.TBDD_CONNECTIONBindingNavigator.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_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton1})
resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigator, "TBDD_CONNECTIONBindingNavigator")
Me.TBDD_CONNECTIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBDD_CONNECTIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.TBDD_CONNECTIONBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
@ -181,37 +181,37 @@ Partial Class frmConnections
'
'BindingNavigatorAddNewItem
'
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
'
'BindingNavigatorCountItem
'
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
'
'BindingNavigatorDeleteItem
'
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
'
'BindingNavigatorMoveFirstItem
'
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
'
'BindingNavigatorMovePreviousItem
'
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
'
'BindingNavigatorSeparator
'
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
'
'BindingNavigatorPositionItem
'
@ -220,129 +220,129 @@ Partial Class frmConnections
'
'BindingNavigatorSeparator1
'
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
'
'BindingNavigatorMoveNextItem
'
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
'
'BindingNavigatorMoveLastItem
'
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
'
'BindingNavigatorSeparator2
'
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
'
'TBDD_CONNECTIONBindingNavigatorSaveItem
'
resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigatorSaveItem, "TBDD_CONNECTIONBindingNavigatorSaveItem")
Me.TBDD_CONNECTIONBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.TBDD_CONNECTIONBindingNavigatorSaveItem, "TBDD_CONNECTIONBindingNavigatorSaveItem")
Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Name = "TBDD_CONNECTIONBindingNavigatorSaveItem"
'
'ToolStripButton1
'
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1"
'
'BEZEICHNUNGTextBox
'
resources.ApplyResources(Me.BEZEICHNUNGTextBox, "BEZEICHNUNGTextBox")
Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True))
resources.ApplyResources(Me.BEZEICHNUNGTextBox, "BEZEICHNUNGTextBox")
Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox"
'
'SERVERTextBox
'
resources.ApplyResources(Me.SERVERTextBox, "SERVERTextBox")
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
resources.ApplyResources(Me.SERVERTextBox, "SERVERTextBox")
Me.SERVERTextBox.Name = "SERVERTextBox"
'
'DATENBANKTextBox
'
resources.ApplyResources(Me.DATENBANKTextBox, "DATENBANKTextBox")
Me.DATENBANKTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
resources.ApplyResources(Me.DATENBANKTextBox, "DATENBANKTextBox")
Me.DATENBANKTextBox.Name = "DATENBANKTextBox"
'
'USERNAMETextBox
'
resources.ApplyResources(Me.USERNAMETextBox, "USERNAMETextBox")
Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "USERNAME", True))
resources.ApplyResources(Me.USERNAMETextBox, "USERNAMETextBox")
Me.USERNAMETextBox.Name = "USERNAMETextBox"
'
'PASSWORDTextBox
'
resources.ApplyResources(Me.PASSWORDTextBox, "PASSWORDTextBox")
Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True))
resources.ApplyResources(Me.PASSWORDTextBox, "PASSWORDTextBox")
Me.PASSWORDTextBox.Name = "PASSWORDTextBox"
Me.PASSWORDTextBox.UseSystemPasswordChar = True
'
'BEMERKUNGTextBox
'
resources.ApplyResources(Me.BEMERKUNGTextBox, "BEMERKUNGTextBox")
Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True))
resources.ApplyResources(Me.BEMERKUNGTextBox, "BEMERKUNGTextBox")
Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox"
'
'AKTIVCheckBox
'
resources.ApplyResources(Me.AKTIVCheckBox, "AKTIVCheckBox")
Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "AKTIV", True))
resources.ApplyResources(Me.AKTIVCheckBox, "AKTIVCheckBox")
Me.AKTIVCheckBox.Name = "AKTIVCheckBox"
Me.AKTIVCheckBox.UseVisualStyleBackColor = True
'
'ERSTELLTWERTextBox
'
resources.ApplyResources(Me.ERSTELLTWERTextBox, "ERSTELLTWERTextBox")
Me.ERSTELLTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWER", True))
resources.ApplyResources(Me.ERSTELLTWERTextBox, "ERSTELLTWERTextBox")
Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
Me.ERSTELLTWERTextBox.ReadOnly = True
'
'ERSTELLTWANNTextBox
'
resources.ApplyResources(Me.ERSTELLTWANNTextBox, "ERSTELLTWANNTextBox")
Me.ERSTELLTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWANN", True))
resources.ApplyResources(Me.ERSTELLTWANNTextBox, "ERSTELLTWANNTextBox")
Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox"
Me.ERSTELLTWANNTextBox.ReadOnly = True
'
'GEANDERTWERTextBox
'
resources.ApplyResources(Me.GEANDERTWERTextBox, "GEANDERTWERTextBox")
Me.GEANDERTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
resources.ApplyResources(Me.GEANDERTWERTextBox, "GEANDERTWERTextBox")
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
'
'GEAENDERTWANNTextBox
'
resources.ApplyResources(Me.GEAENDERTWANNTextBox, "GEAENDERTWANNTextBox")
Me.GEAENDERTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
resources.ApplyResources(Me.GEAENDERTWANNTextBox, "GEAENDERTWANNTextBox")
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
'
'SQL_PROVIDERComboBox
'
resources.ApplyResources(Me.SQL_PROVIDERComboBox, "SQL_PROVIDERComboBox")
Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SQL_PROVIDER", True))
Me.SQL_PROVIDERComboBox.FormattingEnabled = True
Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {resources.GetString("SQL_PROVIDERComboBox.Items"), resources.GetString("SQL_PROVIDERComboBox.Items1")})
resources.ApplyResources(Me.SQL_PROVIDERComboBox, "SQL_PROVIDERComboBox")
Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox"
'
'ListBox1
'
resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.ListBox1.DisplayMember = "BEZEICHNUNG"
Me.ListBox1.FormattingEnabled = True
resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.ValueMember = "GUID"
'
@ -373,9 +373,9 @@ Partial Class frmConnections
'
'cmbInitialCatalog
'
resources.ApplyResources(Me.cmbInitialCatalog, "cmbInitialCatalog")
Me.cmbInitialCatalog.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
Me.cmbInitialCatalog.FormattingEnabled = True
resources.ApplyResources(Me.cmbInitialCatalog, "cmbInitialCatalog")
Me.cmbInitialCatalog.Name = "cmbInitialCatalog"
'
'CheckBoxwin_aut
@ -386,8 +386,8 @@ Partial Class frmConnections
'
'btnCheck_Con
'
resources.ApplyResources(Me.btnCheck_Con, "btnCheck_Con")
Me.btnCheck_Con.Image = Global.Global_Indexer.My.Resources.Resources.database_refresh
resources.ApplyResources(Me.btnCheck_Con, "btnCheck_Con")
Me.btnCheck_Con.Name = "btnCheck_Con"
Me.btnCheck_Con.UseVisualStyleBackColor = True
'
@ -405,9 +405,9 @@ Partial Class frmConnections
'
'GUIDTextBox
'
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
'

3
Global_Indexer/frmConnections.en-US.resx
View File

@ -234,6 +234,9 @@
<data name="AKTIVCheckBox.Text" xml:space="preserve">
<value>Active</value>
</data>
<data name="SQL_PROVIDERComboBox.Items1" xml:space="preserve">
<value>MS-SQL</value>
</data>
<data name="CheckBoxwin_aut.Size" type="System.Drawing.Size, System.Drawing">
<value>156, 17</value>
</data>

1997
Global_Indexer/frmConnections.resx
View File

File diff suppressed because it is too large Load Diff

6
Global_Indexer/frmConnections.vb
View File

@ -39,7 +39,7 @@ Public Class frmConnections
chkOR_ohne_TNS.Visible = False
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
If USER_LANGUAGE = "de-DE" Then
Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
Me.lblInitialCatalog.Text = "Datenbank-Name:"
@ -128,7 +128,7 @@ Public Class frmConnections
Cursor = Cursors.WaitCursor
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
Dim con As String
If CheckBoxwin_aut.Checked Then
con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
@ -209,7 +209,7 @@ Public Class frmConnections
If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then
Select Case Me.SQL_PROVIDERComboBox.SelectedItem
Case "MS-SQLServer"
Case "MS-SQL"
Dim con As String
If CheckBoxwin_aut.Checked Then
con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"

2
Global_Indexer/frmHistory.Designer.vb generated
View File

@ -164,7 +164,7 @@ Partial Class frmHistory
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmHotKey_Add.Designer.vb generated
View File

@ -758,7 +758,7 @@ Partial Class frmHotKey_Add
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmHotkey_User.Designer.vb generated
View File

@ -134,7 +134,7 @@ Partial Class frmHotkey_User
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

10
Global_Indexer/frmHotkey_User.vb
View File

@ -22,7 +22,7 @@
Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:"
End If
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Catch ex As Exception
MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -41,8 +41,8 @@
Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click
Try
If ListBox1.SelectedIndex <> -1 Then
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(CURRENT_USER_ID, ListBox1.SelectedValue)
LoadMyHotkeys(CURRENT_USER_ID)
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(USER_ID, ListBox1.SelectedValue)
LoadMyHotkeys(USER_ID)
End If
Catch ex As Exception
MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -68,7 +68,7 @@
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
If ListBoxMyHK.SelectedIndex <> -1 Then
Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue)
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear()
End If
End Sub
@ -81,7 +81,7 @@
TBHOTKEY_USER_PROFILEBindingSource.EndEdit()
TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE)
Me.lblSave.Visible = True
LoadMyHotkeys(CURRENT_USER_ID)
LoadMyHotkeys(USER_ID)
Else
Me.lblSave.Visible = False
End If

2
Global_Indexer/frmIndex.designer.vb generated
View File

@ -502,7 +502,7 @@ Partial Class frmIndex
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

6
Global_Indexer/frmIndex.vb
View File

@ -1064,7 +1064,7 @@ Public Class frmIndex
Case "Username".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, Environment.UserName)
Case "Usercode".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, CURRENT_USER_SHORT)
DATEINAME = DATEINAME.Replace(element.Value, USER_SHORT_NAME)
Case ""
End Select
If datetemp <> "" Then
@ -2076,7 +2076,7 @@ Public Class frmIndex
Case "$Username"
result = Environment.UserName
Case "$Usercode"
result = CURRENT_USER_SHORT
result = USER_SHORT_NAME
End Select
Catch ex As Exception
result = "XXX"
@ -2151,7 +2151,7 @@ Public Class frmIndex
Case "$Username"
DEFAULTVALUE = Environment.UserName
Case "$Usercode"
DEFAULTVALUE = CURRENT_USER_SHORT
DEFAULTVALUE = USER_SHORT_NAME
End Select
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)

2
Global_Indexer/frmIndexFileList.Designer.vb generated
View File

@ -99,7 +99,7 @@ Partial Class frmIndexFileList
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmNamenkonvention.designer.vb generated
View File

@ -212,7 +212,7 @@ Partial Class frmNamenkonvention
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Me.TBDD_INDEX_MANTableAdapter
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmSQLConfigAutoIndex.Designer.vb generated
View File

@ -127,7 +127,7 @@ Partial Class SQLConfigAutoIndex
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmSQLSuggestion.Designer.vb generated
View File

@ -134,7 +134,7 @@ Partial Class frmSQLSuggestion
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

2
Global_Indexer/frmStart.Designer.vb generated
View File

@ -213,10 +213,10 @@ Partial Class frmStart
Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing

14
Global_Indexer/frmStart.en-US.resx
View File

@ -405,20 +405,6 @@
/+AAH/////////////////////////////////////////////8=
</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="LabelControl1.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="LabelControl1.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="LabelControl1.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="LabelControl1.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA

189
Global_Indexer/frmStart.resx
View File

@ -152,20 +152,23 @@
<data name="LabelControl1.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="&gt;&gt;HotkeyEisntellungenToolStripMenuItem.Name" xml:space="preserve">
<value>HotkeyEisntellungenToolStripMenuItem</value>
</data>
<data name="LabelMachine.Caption" xml:space="preserve">
<value>StatusMachine</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
</data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;MyDataset.Type" xml:space="preserve">
<value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>217, 6</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Global Indexer</value>
<data name="&gt;&gt;TimerCheckDroppedFiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RibbonMiniToolbar1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonMiniToolbar, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
@ -173,8 +176,11 @@
<data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
<data name="&gt;&gt;GrundeinstellungenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="btnChoosefiles.TabIndex" type="System.Int32, mscorlib">
@ -491,14 +497,8 @@
<data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
</data>
<data name="&gt;&gt;AdministrationToolStripMenuItem.Name" xml:space="preserve">
<value>AdministrationToolStripMenuItem</value>
</data>
<data name="&gt;&gt;LabelMachine.Name" xml:space="preserve">
<value>LabelMachine</value>
</data>
<data name="LabelControl1.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
<data name="&gt;&gt;OpenFileDialog1.Name" xml:space="preserve">
<value>OpenFileDialog1</value>
</data>
<data name="&gt;&gt;TBHOTKEY_USER_PROFILEBindingSource.Name" xml:space="preserve">
<value>TBHOTKEY_USER_PROFILEBindingSource</value>
@ -509,12 +509,15 @@
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="&gt;&gt;LabelMachine.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
<value>ToolStripSeparator1</value>
</data>
<data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Hotkey - Einstellungen</value>
</data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>335, 24</value>
</data>
@ -524,23 +527,26 @@
<data name="btnChoosefiles.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 126</value>
</data>
<data name="&gt;&gt;LabelUser.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TimerClose3Minutes.Name" xml:space="preserve">
<value>TimerClose3Minutes</value>
</data>
<data name="NotifyIcon1.Text" xml:space="preserve">
<value>GlobalIndexer</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>3</value>
<data name="LabelControl1.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="&gt;&gt;GrundeinstellungenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;TimerFolderWatch.Name" xml:space="preserve">
<value>TimerFolderWatch</value>
</data>
<data name="&gt;&gt;TimerClose3Minutes.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnChoosefiles.ZOrder" xml:space="preserve">
<value>0</value>
@ -551,12 +557,6 @@
<data name="LabelControl1.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;NotifyIcon1.Name" xml:space="preserve">
<value>NotifyIcon1</value>
</data>
<data name="&gt;&gt;GlobalIndexerEinstellungenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Comic Sans MS, 12pt</value>
</data>
@ -569,24 +569,24 @@
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value>
</data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="tslblFW.Text" xml:space="preserve">
<value>FolderWatch ist aktiv</value>
</data>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="LabelControl1.Text" xml:space="preserve">
<value>Ziehen Sie Dateien mit Drag and Drop
in diesen Bereich oder</value>
</data>
<data name="&gt;&gt;InfoToolStripMenuItem.Name" xml:space="preserve">
<value>InfoToolStripMenuItem</value>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GlobalIndexerEinstellungenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value>
@ -594,35 +594,38 @@ in diesen Bereich oder</value>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;NotifyIcon1.Type" xml:space="preserve">
<value>System.Windows.Forms.NotifyIcon, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 84</value>
</data>
<data name="&gt;&gt;FrmHotkeyAddToolStripMenuItem.Name" xml:space="preserve">
<value>FrmHotkeyAddToolStripMenuItem</value>
</data>
<data name="&gt;&gt;LabelVersion.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="GlobalIndexerEinstellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Global Indexer - Einstellungen</value>
</data>
<data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmStart</value>
</data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value>
</data>
<data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
<value>LabelControl1</value>
</data>
<data name="&gt;&gt;AdministrationToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;MyDataset.Type" xml:space="preserve">
<value>Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TimerCheckDroppedFiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="LabelControl1.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="LabelControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
@ -642,8 +645,8 @@ in diesen Bereich oder</value>
<data name="&gt;&gt;LabelUser.Name" xml:space="preserve">
<value>LabelUser</value>
</data>
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
<data name="&gt;&gt;AdministrationToolStripMenuItem.Name" xml:space="preserve">
<value>AdministrationToolStripMenuItem</value>
</data>
<data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
<value>StatusStrip1</value>
@ -657,9 +660,6 @@ in diesen Bereich oder</value>
<data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;OpenFileDialog1.Name" xml:space="preserve">
<value>OpenFileDialog1</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA
@ -1561,32 +1561,29 @@ in diesen Bereich oder</value>
<data name="&gt;&gt;HistoryIndexierteDateienToolStripMenuItem.Name" xml:space="preserve">
<value>HistoryIndexierteDateienToolStripMenuItem</value>
</data>
<data name="&gt;&gt;LabelMachine.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TBHOTKEY_USER_PROFILEBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="&gt;&gt;TimerFolderWatch.Name" xml:space="preserve">
<value>TimerFolderWatch</value>
</data>
<data name="&gt;&gt;TimerCheckDroppedFiles.Name" xml:space="preserve">
<value>TimerCheckDroppedFiles</value>
</data>
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 84</value>
<data name="$this.Text" xml:space="preserve">
<value>Global Indexer</value>
</data>
<data name="&gt;&gt;LabelVersion.Name" xml:space="preserve">
<value>LabelVersion</value>
</data>
<data name="btnChoosefiles.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="HotkeyEisntellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 22</value>
</data>
<data name="&gt;&gt;TBHOTKEY_USER_PROFILETableAdapter.Name" xml:space="preserve">
<value>TBHOTKEY_USER_PROFILETableAdapter</value>
</data>
<data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve">
<value>LabelLoggedIn</value>
<data name="LabelControl1.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="LabelUser.Caption" xml:space="preserve">
<value>StatusUser</value>
@ -1594,8 +1591,8 @@ in diesen Bereich oder</value>
<data name="FrmHotkeyAddToolStripMenuItem.Text" xml:space="preserve">
<value>Hotkeys User</value>
</data>
<data name="&gt;&gt;TimerClose3Minutes.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;LabelMachine.Name" xml:space="preserve">
<value>LabelMachine</value>
</data>
<data name="&gt;&gt;btnChoosefiles.Parent" xml:space="preserve">
<value>$this</value>
@ -1606,17 +1603,20 @@ in diesen Bereich oder</value>
<data name="&gt;&gt;btnChoosefiles.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
<data name="&gt;&gt;InfoToolStripMenuItem.Name" xml:space="preserve">
<value>InfoToolStripMenuItem</value>
</data>
<data name="&gt;&gt;OpenFileDialog1.Type" xml:space="preserve">
<value>System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
<data name="FrmHotkeyAddToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
</data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;AdministrationToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>280, 46</value>
@ -1624,29 +1624,29 @@ in diesen Bereich oder</value>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="&gt;&gt;tslblFW.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;LabelLoggedIn.Name" xml:space="preserve">
<value>LabelLoggedIn</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>335, 22</value>
</data>
<data name="GlobalIndexerEinstellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Global Indexer - Einstellungen</value>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 126</value>
</data>
<data name="InfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
<data name="&gt;&gt;NotifyIcon1.Name" xml:space="preserve">
<value>NotifyIcon1</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmStart</value>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Hotkey - Einstellungen</value>
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="&gt;&gt;LabelLoggedIn.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<data name="&gt;&gt;tslblFW.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnChoosefiles.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;btnChoosefiles.Name" xml:space="preserve">
<value>btnChoosefiles</value>
@ -1657,8 +1657,8 @@ in diesen Bereich oder</value>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="&gt;&gt;HotkeyEisntellungenToolStripMenuItem.Name" xml:space="preserve">
<value>HotkeyEisntellungenToolStripMenuItem</value>
<data name="&gt;&gt;TBHOTKEY_USER_PROFILETableAdapter.Name" xml:space="preserve">
<value>TBHOTKEY_USER_PROFILETableAdapter</value>
</data>
<metadata name="RibbonMiniToolbar1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
@ -1684,9 +1684,6 @@ in diesen Bereich oder</value>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>203</value>
</metadata>
<metadata name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>en-US</value>
</metadata>
<metadata name="TBHOTKEY_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>632, 17</value>
</metadata>

26
Global_Indexer/frmStart.vb
View File

@ -182,7 +182,7 @@ Public Class frmStart
HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1")
HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2")
'Alle Profile raussuchen die die Tastaturkombination enthalten
SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & CURRENT_USER_ID
SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID
Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim Result As String = ""
If Not IsNothing(DTHOTKEY_PROFILES) Then
@ -347,7 +347,7 @@ Public Class frmStart
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -375,7 +375,7 @@ Public Class frmStart
If START_INCOMPLETE = False Then
Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
End If
@ -386,7 +386,7 @@ Public Class frmStart
Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If CURRENT_USER_ID > 0 Then
If USER_ID > 0 Then
Unregister_Hotkeys()
End If
'TempDateien löschen
@ -424,7 +424,7 @@ Public Class frmStart
Try
'Dim sql = sql_UserID
'Dim splash As New frmSplash()
@ -432,7 +432,7 @@ Public Class frmStart
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < UserLoggedin Then
If CURRENT_USER_IS_ADMIN = True Then
If USER_IS_ADMIN = True Then
ClassLogger.Add(">> User is Admin - Timer will be started", False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
@ -447,7 +447,7 @@ Public Class frmStart
End If
End If
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
If CURRENT_USER_IS_ADMIN = True Then
If USER_IS_ADMIN = True Then
ClassLogger.Add(">> User is Admin - Timer will be started", False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
@ -462,7 +462,7 @@ Public Class frmStart
End If
End If
' SetLanguage()
If CURRENT_USER_IS_ADMIN = True Then
If USER_IS_ADMIN = True Then
ToolStripSeparator1.Visible = True
AdministrationToolStripMenuItem.Visible = True
Else
@ -556,13 +556,13 @@ Public Class frmStart
End Sub
Sub Unregister_Hotkeys()
Try
Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USER_ID
Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT) Then
For Each row As DataRow In DT.Rows
HotKey.RemoveHotKey(row.Item("HOTKEY_ID"))
Next
sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USER_ID
sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
ClassDatabase.Execute_non_Query(sql, True)
End If
@ -572,13 +572,13 @@ Public Class frmStart
End Sub
Sub Load_Hotkeys()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & CURRENT_USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True)
If DT.Rows.Count > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False)
Dim i As Integer = 0
For Each row As DataRow In DT.Rows
i += 1
Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & CURRENT_USER_ID & ")"
Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")"
ClassDatabase.Execute_non_Query(sql, True)
Dim keyCode As Keys
@ -645,7 +645,7 @@ Public Class frmStart
''Sprache anpassen
'SetLanguage()
'LANGUAGE_CHANGED = False
'If CURRENT_USER_IS_ADMIN = True Then
'If USER_IS_ADMIN = True Then
' ToolStripSeparator1.Visible = True
' AdministrationToolStripMenuItem.Visible = True
'Else