From 939b50e0c59b067a2b7ad9def67b1ab46d1be457 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 7 Dec 2020 11:17:55 +0100 Subject: [PATCH] remove hotkey module --- Global_Indexer/ClassHotkey_Windream.vb | 341 - Global_Indexer/Global_Indexer.vbproj | 22 - Global_Indexer/MyDataset.Designer.vb | 17917 +++++----------- Global_Indexer/MyDataset.xsc | 75 - Global_Indexer/MyDataset.xsd | 858 +- Global_Indexer/MyDataset.xss | 216 +- Global_Indexer/frmAdministration.Designer.vb | 5 - Global_Indexer/frmConnections.Designer.vb | 5 - Global_Indexer/frmEmailIndexing.Designer.vb | 5 - Global_Indexer/frmHistory.Designer.vb | 5 - Global_Indexer/frmHotKey_Add.Designer.vb | 2023 -- Global_Indexer/frmHotKey_Add.resx | 6768 ------ Global_Indexer/frmHotKey_Add.vb | 825 - Global_Indexer/frmHotkey_User.Designer.vb | 343 - Global_Indexer/frmHotkey_User.en-US.resx | 330 - Global_Indexer/frmHotkey_User.resx | 1037 - Global_Indexer/frmHotkey_User.vb | 111 - Global_Indexer/frmIndex.designer.vb | 5 - Global_Indexer/frmIndexFileList.Designer.vb | 5 - Global_Indexer/frmNamenkonvention.designer.vb | 5 - .../frmSQLConfigAutoIndex.Designer.vb | 5 - Global_Indexer/frmSQLSuggestion.Designer.vb | 5 - Global_Indexer/frmStart.Designer.vb | 42 +- Global_Indexer/frmStart.resx | 134 +- Global_Indexer/frmStart.vb | 149 +- 25 files changed, 5650 insertions(+), 25586 deletions(-) delete mode 100644 Global_Indexer/ClassHotkey_Windream.vb delete mode 100644 Global_Indexer/frmHotKey_Add.Designer.vb delete mode 100644 Global_Indexer/frmHotKey_Add.resx delete mode 100644 Global_Indexer/frmHotKey_Add.vb delete mode 100644 Global_Indexer/frmHotkey_User.Designer.vb delete mode 100644 Global_Indexer/frmHotkey_User.en-US.resx delete mode 100644 Global_Indexer/frmHotkey_User.resx delete mode 100644 Global_Indexer/frmHotkey_User.vb diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb deleted file mode 100644 index ff31166..0000000 --- a/Global_Indexer/ClassHotkey_Windream.vb +++ /dev/null @@ -1,341 +0,0 @@ -Imports System.IO -Imports System.Text - -Public Class ClassHotkey_Windream - Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr - Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer - - Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer - Private Declare Function SetForeGroundWindow Lib "user32" (ByVal Hwnd As IntPtr) As Integer - - Private makel As String - Public Shared Function GetCaption() As String - Dim Caption As New System.Text.StringBuilder(256) - Dim hWnd As IntPtr = GetForegroundWindow() - GetWindowText(hWnd, Caption, Caption.Capacity) - Return Caption.ToString() - End Function - - Private Shared fileContents As String - Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String) - Try - Dim Control_Sequence As Integer = 0 - Dim enumerator1 As New ClassWindowAPI - 'Jedes Formularwindow durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() - LOGGER.Info(" ... top-window Name: " & top.MainWindowTitle) - If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then - Control_Sequence = 0 - For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) - - If vControl.MainWindowTitle <> "" Then - If Control_Sequence = myControlNo Then - If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then - Return True - Else - LOGGER.Info(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.") - Return False - End If - End If - End If - Control_Sequence += 1 - Next vControl - Return False - End If - Next top - Catch ex As Exception - MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - LOGGER.Info(">> Error in IsRelevantWindow:" & ex.Message) - Return False - End Try - End Function - Private Shared Function Get_windowContent(windowname As String, myControlID As Integer) - Try - Dim Control_Sequence As Integer = 0 - Dim enumerator1 As New ClassWindowAPI - 'Jedes Formularwindow durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() - If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then - Control_Sequence = 0 - For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) - If vControl.MainWindowTitle <> "" Then - If Control_Sequence = myControlID Then - LOGGER.Info(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle) - Return vControl.MainWindowTitle.ToString - End If - End If - Control_Sequence += 1 - Next vControl - Return Nothing - End If - Next top - Catch ex As Exception - MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - LOGGER.Info(">> Error in Get_windowContent:" & ex.Message) - Return Nothing - End Try - End Function - 'Fenster position ermitteln/auslesen - Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer - Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32 - Private Structure RECT - Dim Left As Integer - Dim Top As Integer - Dim Right As Integer - Dim Bottom As Integer - End Structure - Private Shared Sub GetWindowClientSize(ByVal hWnd As Long) - Dim rc As RECT - GetWindowRect(hWnd, rc) - 'Left = rc.Right - rc.Left - 'Height = rc.Bottom - rc.Top - End Sub - Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer) - Try - LOGGER.Info(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'") - Dim DTWD As DataTable - Dim Objecttype As String - Dim windowname As String - Dim HKPROFILE_ID As Integer - Dim type As String - - - Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID - DTWD = ClassDatabase.Return_Datatable(_sql) - If DTWD.Rows.Count = 0 Then - LOGGER.Info(" ...KEINE USER_PROFILES hinterlegt") - Return "Uncexpected Error in Hotkey - Check Log for Hotkey" - End If - If DTWD.Rows.Count > 1 Then - LOGGER.Info("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!") - Return "Uncexpected Error in Hotkey - Check Log for Hotkey" - End If - If DTWD.Rows(0).Item(0) = "" Then - LOGGER.Info(">> KEINE Windream-Suche hinterlegt!") - Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey" - End If - Dim BaseSearch = DTWD.Rows(0).Item(0) - Dim extension = Path.GetExtension(BaseSearch) - HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID") - Dim windream_temp_search As String = "" - If IO.File.Exists(BaseSearch) = False Then - LOGGER.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!") - - If USER_LANGUAGE = "de-DE" Then - MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) - Else - MsgBox("Windream-Search does not exist or is not accessible", MsgBoxStyle.Critical) - End If - - Return Nothing - End If - windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True) - type = ClassDatabase.Execute_Scalar("SELECT OBJECTTYPE FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True) - fileContents = "" - - 'Eine tempfile generieren - Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() - 'Nur den Filenamen ohne Erweiterung - Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) - 'tempfile löschen - If My.Computer.FileSystem.FileExists(tempFilename1) Then - My.Computer.FileSystem.DeleteFile(tempFilename1) - End If - - Dim temppath = Path.GetTempPath - - Dim EncodingFormat As Encoding - Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True) - If WDUnicode = True Then - EncodingFormat = Encoding.GetEncoding(1252) '1252 - LOGGER.Info(" ...Unicode is used (Encoding.GetEncoding(1252))") - Else - LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))") - EncodingFormat = Encoding.GetEncoding(65001) - End If - - Dim DT_HOOKS As DataTable = ClassDatabase.Return_Datatable("select * from TBHOTKEY_WINDOW_HOOK where HKPROFILE_ID = " & HKPROFILE_ID, True) - If DT_HOOKS.Rows.Count > 0 Then - Dim RelevantWindow As Boolean = False - For Each row As DataRow In DT_HOOKS.Rows - RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE")) - If RelevantWindow = False Then - LOGGER.Info(" ...Not the relevant window") - Return "Not the Relevant window......" - End If - Next - End If - - - LOGGER.Info(" ...ReadAlltext: " & BaseSearch) - fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode - LOGGER.Info(" ...fileContents geladen") - fileContents = fileContents.Replace("Í", "Ö") - 'Das Array für die PAtterns anpassen - _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID - Dim DT_PATTERNS As DataTable = ClassDatabase.Return_Datatable(_sql, True) - If DT_PATTERNS.Rows.Count > 0 Then - Dim i As Integer = 0 - For Each row As DataRow In DT_PATTERNS.Rows - If type = "COPYPASTE" Then - _sql = "select window_control from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID - Dim copytype = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True) - Dim clipbrd - Dim theHandle As IntPtr = FindWindow(Nothing, CURRENT_FOCUSES_WINDOWNAME) - If theHandle <> IntPtr.Zero Then - Dim theForegroundWindow As Boolean = SetForeGroundWindow(theHandle) - If theForegroundWindow = True Then - Select Case copytype - Case "strgC" - ' SetForeGroundWindow(HWND) - SendKeys.Send("^{c}") 'for Ctrl-C - - Case "strA and strgC" - SendKeys.Send("^{A}") - 'AppActivate(CURRENT_FOCUSES_WINDOWNAME) - SendKeys.Send("^{c}") 'for Ctrl-C - End Select - End If - End If - - - - clipbrd = Clipboard.GetText - Console.WriteLine(clipbrd.ToString) - If Not clipbrd Is Nothing Then - If clipbrd <> "" Then - _sql = "select PATTERN_WDSEARCH from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID - Dim _pattern = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True) - fileContents = fileContents.Replace(_pattern, clipbrd.ToString) - End If - - End If - - Else - LOGGER.Info(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'") - Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString) - If Not IsNothing(foundresult) Then - 'Die Nachbearbeitungsschritte laden - Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID = " & row.Item("GUID") & " ORDER BY SEQUENCE") - If DTNB Is Nothing = False Then - If DTNB.Rows.Count > 0 Then - foundresult = ClassPostprocessing.Get_Nachbearbeitung_Wert(foundresult, DTNB) - End If - End If - End If - If Not IsNothing(foundresult) Then - If foundresult.ToString = "<" Or foundresult.ToString = ">" Then - LOGGER.Info(">> Hot Key received an irregular value.") - Return "Hotkey konnte nur einen irregulären Wert auswerten." - End If - LOGGER.Info(" ...fileContents.length: " & fileContents.Length) - LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'") - fileContents = fileContents.Replace(row.Item(2).ToString, foundresult) - LOGGER.Info(" ...fileContents.length: " & fileContents.Length) - Else - LOGGER.Info(">> Hot Key could not read any value.") - Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?" - End If - End If - - Next - End If - Try - 'Die windream File zusammensetzen - windream_temp_search = temppath & tempName & extension - Try - 'Die File schreiben - My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) - LOGGER.Info(" ...wrote Text to windream_temp_search: " & windream_temp_search) - ' XML-Datei öffnen und laden - Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) - Dim Reader As New System.Xml.XmlTextReader(Stream) - - ' XML-Datei initialisieren - Dim xml As New System.Xml.XmlDocument() - ' XML-Datei öffnen und laden - xml.Load(Reader) - Reader.Close() - xml.Save(windream_temp_search) - LOGGER.Info(" ...Xml Generiert: " & windream_temp_search) - Catch ex As Exception - LOGGER.Info("TempFile could not be created: " & ex.Message) - LOGGER.Error(ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:") - End Try - - CURRENT_WD_TEMPSEARCH = windream_temp_search - TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH) - Try - Dim myhWnd As IntPtr - Dim p As New Process() - p.StartInfo.FileName = windream_temp_search - - If CONFIG.Config.WindreamSearchMaximized Then - p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized - Else - p.StartInfo.WindowStyle = ProcessWindowStyle.Normal - End If - p.Start() - - myhWnd = p.MainWindowHandle - Threading.Thread.Sleep(1000) - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If LogErrorsOnly = False Then - LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString) - LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString) - LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString) - LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString) - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:") - LOGGER.Info("Unexpected error while executing search: " & ex.Message) - Return "Unexpected error while executing search" - End Try - Dim psList() As Process - Try - psList = Process.GetProcesses() - - For Each p As Process In psList - Console.WriteLine(p.Id.ToString() + " " + p.ProcessName) - If p.ProcessName.Contains("indream.Find") Then - AppActivate(p.Id) - If CONFIG.Config.WindreamSearchMaximized = False Then - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If rctMain.Left = 0 Or rctMain.Right = 0 Then - ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE - End If - End If - ' SetForeGroundWindow( p.MainWindowHandle) - End If - - Next p - - Catch ex As Exception - LOGGER.Info("Unexpected error while Setting foreground: " & ex.Message) - LOGGER.Error(ex.Message) - End Try - Return "" - Catch ex As Exception - LOGGER.Info("Unexpected error in Create Search: " & ex.Message) - LOGGER.Error(ex.Message) - MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unexpected error in Create Search" - End Try - - Catch ex As Exception - LOGGER.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message) - LOGGER.Error(ex.message) - MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" - End Try - - - End Function - - - - -End Class diff --git a/Global_Indexer/Global_Indexer.vbproj b/Global_Indexer/Global_Indexer.vbproj index d1b4654..64ad6e0 100644 --- a/Global_Indexer/Global_Indexer.vbproj +++ b/Global_Indexer/Global_Indexer.vbproj @@ -246,7 +246,6 @@ - @@ -289,18 +288,6 @@ Form - - frmHotKey_Add.vb - - - Form - - - frmHotkey_User.vb - - - Form - frmIndex.vb @@ -457,15 +444,6 @@ frmHistory.vb - - frmHotKey_Add.vb - - - frmHotkey_User.vb - - - frmHotkey_User.vb - frmIndex.vb diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index 04c2d7c..c633ef8 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -57,18 +57,6 @@ Partial Public Class MyDataset Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable - Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable - - Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable - - Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable - - Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable - - Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable - - Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable - Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable Private tableTBGI_HISTORY As TBGI_HISTORYDataTable @@ -95,20 +83,6 @@ Partial Public Class MyDataset Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation - Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_USER_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As Global.System.Data.DataRelation - Private relationFK_TBGI_REGEX_DOCTYPE_DTID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -188,24 +162,6 @@ Partial Public Class MyDataset If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION"))) End If - If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE"))) - End If - If (Not (ds.Tables("TBHOTKEY_PATTERNS")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PATTERNSDataTable(ds.Tables("TBHOTKEY_PATTERNS"))) - End If - If (Not (ds.Tables("TBMYHOTKEYS")) Is Nothing) Then - MyBase.Tables.Add(New TBMYHOTKEYSDataTable(ds.Tables("TBMYHOTKEYS"))) - End If - If (Not (ds.Tables("TBHOTKEY_USER_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_USER_PROFILEDataTable(ds.Tables("TBHOTKEY_USER_PROFILE"))) - End If - If (Not (ds.Tables("TBHOTKEY_PATTERNS_REWORK")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PATTERNS_REWORKDataTable(ds.Tables("TBHOTKEY_PATTERNS_REWORK"))) - End If - If (Not (ds.Tables("TBHOTKEY_WINDOW_HOOK")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_WINDOW_HOOKDataTable(ds.Tables("TBHOTKEY_WINDOW_HOOK"))) - End If If (Not (ds.Tables("TBGI_FILES_USER")) Is Nothing) Then MyBase.Tables.Add(New TBGI_FILES_USERDataTable(ds.Tables("TBGI_FILES_USER"))) End If @@ -401,66 +357,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable - Get - Return Me.tableTBHOTKEY_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable - Get - Return Me.tableTBHOTKEY_PATTERNS - End Get - End Property - - _ - Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable - Get - Return Me.tableTBMYHOTKEYS - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable - Get - Return Me.tableTBHOTKEY_USER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable - Get - Return Me.tableTBHOTKEY_PATTERNS_REWORK - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable - Get - Return Me.tableTBHOTKEY_WINDOW_HOOK - End Get - End Property - _ - Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBMYHOTKEYS() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBGI_FILES_USER() As Boolean @@ -1259,24 +1032,6 @@ Partial Public Class MyDataset _ Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent) - _ - Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent) - - _ - Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent) - _ Public Delegate Sub TBGI_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_FILES_USERRowChangeEvent) @@ -7978,38 +7733,30 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBHOTKEY_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PROFILERow) + Partial Public Class TBGI_FILES_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_FILES_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn - - Private columnOBJECTTYPE As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnHOTKEY1 As Global.System.Data.DataColumn - - Private columnHOTKEY2 As Global.System.Data.DataColumn + Private columnFILENAME2WORK As Global.System.Data.DataColumn - Private columnWINDOW_NAME As Global.System.Data.DataColumn + Private _columnUSER_WORK As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnWORKED As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnHANDLE_TYPE As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnDelete As Global.System.Data.DataColumn - Private columnString As Global.System.Data.DataColumn + Private columnFILENAME_ONLY As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBHOTKEY_PROFILE" + Me.TableName = "TBGI_FILES_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -8050,57 +7797,25 @@ Partial Public Class MyDataset _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnOBJECTTYPE - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY1 - End Get - End Property - - _ - Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn + Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn Get - Return Me.columnHOTKEY2 + Return Me.columnFILENAME2WORK End Get End Property _ - Public ReadOnly Property WINDOW_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property _USER_WORKColumn() As Global.System.Data.DataColumn Get - Return Me.columnWINDOW_NAME + Return Me._columnUSER_WORK End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnWORKED End Get End Property @@ -8114,25 +7829,25 @@ Partial Public Class MyDataset _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnHANDLE_TYPE End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DeleteColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnDelete End Get End Property _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FILENAME_ONLYColumn() As Global.System.Data.DataColumn Get - Return Me.columnString + Return Me.columnFILENAME_ONLY End Get End Property @@ -8147,50 +7862,50 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PROFILERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_FILES_USERRow Get - Return CType(Me.Rows(index),TBHOTKEY_PROFILERow) + Return CType(Me.Rows(index),TBGI_FILES_USERRow) End Get End Property _ - Public Event TBHOTKEY_PROFILERowChanging As TBHOTKEY_PROFILERowChangeEventHandler + Public Event TBGI_FILES_USERRowChanging As TBGI_FILES_USERRowChangeEventHandler _ - Public Event TBHOTKEY_PROFILERowChanged As TBHOTKEY_PROFILERowChangeEventHandler + Public Event TBGI_FILES_USERRowChanged As TBGI_FILES_USERRowChangeEventHandler _ - Public Event TBHOTKEY_PROFILERowDeleting As TBHOTKEY_PROFILERowChangeEventHandler + Public Event TBGI_FILES_USERRowDeleting As TBGI_FILES_USERRowChangeEventHandler _ - Public Event TBHOTKEY_PROFILERowDeleted As TBHOTKEY_PROFILERowChangeEventHandler + Public Event TBGI_FILES_USERRowDeleted As TBGI_FILES_USERRowChangeEventHandler _ - Public Overloads Sub AddTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) + Public Overloads Sub AddTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBHOTKEY_PROFILERow(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _String As String) As TBHOTKEY_PROFILERow - Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow,TBHOTKEY_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _String} - rowTBHOTKEY_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PROFILERow) - Return rowTBHOTKEY_PROFILERow + Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow + Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY} + rowTBGI_FILES_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_FILES_USERRow) + Return rowTBGI_FILES_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PROFILERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_FILES_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_FILES_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_PROFILEDataTable) + Dim cln As TBGI_FILES_USERDataTable = CType(MyBase.Clone,TBGI_FILES_USERDataTable) cln.InitVars Return cln End Function @@ -8198,24 +7913,20 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PROFILEDataTable() + Return New TBGI_FILES_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") - Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") - Me.columnWINDOW_NAME = MyBase.Columns("WINDOW_NAME") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") + Me._columnUSER_WORK = MyBase.Columns("USER@WORK") + Me.columnWORKED = MyBase.Columns("WORKED") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnString = MyBase.Columns("String") + Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") + Me.columnDelete = MyBase.Columns("Delete") + Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY") End Sub _ - Public Function NewTBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_PROFILERow) + Public Function NewTBGI_FILES_USERRow() As TBGI_FILES_USERRow + Return CType(Me.NewRow,TBGI_FILES_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PROFILERow(builder) + Return New TBGI_FILES_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PROFILERow) + Return GetType(TBGI_FILES_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanged(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + If (Not (Me.TBGI_FILES_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_FILES_USERRowChanged(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) End If End Sub @@ -8305,8 +8000,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanging(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + If (Not (Me.TBGI_FILES_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_FILES_USERRowChanging(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) End If End Sub @@ -8314,8 +8009,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleted(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + If (Not (Me.TBGI_FILES_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_FILES_USERRowDeleted(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) End If End Sub @@ -8323,14 +8018,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleting(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + If (Not (Me.TBGI_FILES_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_FILES_USERRowDeleting(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) + Public Sub RemoveTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) Me.Rows.Remove(row) End Sub @@ -8357,7 +8052,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 = "TBHOTKEY_PROFILEDataTable" + attribute2.FixedValue = "TBGI_FILES_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8406,32 +8101,22 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBHOTKEY_PATTERNSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNSRow) + Partial Public Class TBGI_HISTORYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_HISTORYRow) Private columnGUID As Global.System.Data.DataColumn - Private columnHKPROFILE_ID As Global.System.Data.DataColumn - - Private columnPATTERN_WDSEARCH As Global.System.Data.DataColumn - - Private columnWINDOW_CONTROL As Global.System.Data.DataColumn + Private columnFILENAME_ORIGINAL As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnFILENAME_NEW As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBHOTKEY_PATTERNS" + Me.TableName = "TBGI_HISTORY" Me.BeginInit Me.InitClass Me.EndInit @@ -8472,33 +8157,17 @@ Partial Public Class MyDataset _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property PATTERN_WDSEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPATTERN_WDSEARCH - End Get - End Property - - _ - Public ReadOnly Property WINDOW_CONTROLColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FILENAME_ORIGINALColumn() As Global.System.Data.DataColumn Get - Return Me.columnWINDOW_CONTROL + Return Me.columnFILENAME_ORIGINAL End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FILENAME_NEWColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnFILENAME_NEW End Get End Property @@ -8510,30 +8179,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE_NUMBER - End Get - End Property - _ @@ -8545,53 +8190,50 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_HISTORYRow Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNSRow) + Return CType(Me.Rows(index),TBGI_HISTORYRow) End Get End Property _ - Public Event TBHOTKEY_PATTERNSRowChanging As TBHOTKEY_PATTERNSRowChangeEventHandler + Public Event TBGI_HISTORYRowChanging As TBGI_HISTORYRowChangeEventHandler _ - Public Event TBHOTKEY_PATTERNSRowChanged As TBHOTKEY_PATTERNSRowChangeEventHandler + Public Event TBGI_HISTORYRowChanged As TBGI_HISTORYRowChangeEventHandler _ - Public Event TBHOTKEY_PATTERNSRowDeleting As TBHOTKEY_PATTERNSRowChangeEventHandler + Public Event TBGI_HISTORYRowDeleting As TBGI_HISTORYRowChangeEventHandler _ - Public Event TBHOTKEY_PATTERNSRowDeleted As TBHOTKEY_PATTERNSRowChangeEventHandler + Public Event TBGI_HISTORYRowDeleted As TBGI_HISTORYRowChangeEventHandler _ - Public Overloads Sub AddTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) + Public Overloads Sub AddTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBHOTKEY_PATTERNSRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SEQUENCE_NUMBER As Integer) As TBHOTKEY_PATTERNSRow - Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow,TBHOTKEY_PATTERNSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID(0) - End If - rowTBHOTKEY_PATTERNSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PATTERNSRow) - Return rowTBHOTKEY_PATTERNSRow + Public Overloads Function AddTBGI_HISTORYRow(ByVal FILENAME_ORIGINAL As String, ByVal FILENAME_NEW As String, ByVal ADDED_WHEN As Date) As TBGI_HISTORYRow + Dim rowTBGI_HISTORYRow As TBGI_HISTORYRow = CType(Me.NewRow,TBGI_HISTORYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN} + rowTBGI_HISTORYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_HISTORYRow) + Return rowTBGI_HISTORYRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_HISTORYRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_HISTORYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNSDataTable) + Dim cln As TBGI_HISTORYDataTable = CType(MyBase.Clone,TBGI_HISTORYDataTable) cln.InitVars Return cln End Function @@ -8599,21 +8241,16 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PATTERNSDataTable() + Return New TBGI_HISTORYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnPATTERN_WDSEARCH = MyBase.Columns("PATTERN_WDSEARCH") - Me.columnWINDOW_CONTROL = MyBase.Columns("WINDOW_CONTROL") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnFILENAME_ORIGINAL = MyBase.Columns("FILENAME_ORIGINAL") + Me.columnFILENAME_NEW = MyBase.Columns("FILENAME_NEW") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") End Sub _ - Public Function NewTBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNSRow) + Public Function NewTBGI_HISTORYRow() As TBGI_HISTORYRow + Return CType(Me.NewRow,TBGI_HISTORYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PATTERNSRow(builder) + Return New TBGI_HISTORYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PATTERNSRow) + Return GetType(TBGI_HISTORYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PATTERNSRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanged(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + If (Not (Me.TBGI_HISTORYRowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_HISTORYRowChanged(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) End If End Sub @@ -8686,8 +8307,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PATTERNSRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanging(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + If (Not (Me.TBGI_HISTORYRowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_HISTORYRowChanging(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) End If End Sub @@ -8695,8 +8316,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PATTERNSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleted(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + If (Not (Me.TBGI_HISTORYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_HISTORYRowDeleted(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) End If End Sub @@ -8704,14 +8325,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PATTERNSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleting(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + If (Not (Me.TBGI_HISTORYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_HISTORYRowDeleting(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) + Public Sub RemoveTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) Me.Rows.Remove(row) End Sub @@ -8738,7 +8359,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 = "TBHOTKEY_PATTERNSDataTable" + attribute2.FixedValue = "TBGI_HISTORYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8787,18 +8408,28 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBMYHOTKEYSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBMYHOTKEYSRow) + Partial Public Class TBGI_REGEX_DOCTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_REGEX_DOCTYPERow) Private columnGUID As Global.System.Data.DataColumn - Private columnString As Global.System.Data.DataColumn + Private columnREGEX As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBMYHOTKEYS" + Me.TableName = "TBGI_REGEX_DOCTYPE" Me.BeginInit Me.InitClass Me.EndInit @@ -8839,9 +8470,49 @@ Partial Public Class MyDataset _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnString + Return Me.columnCHANGED_WHEN End Get End Property @@ -8856,50 +8527,53 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBMYHOTKEYSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_REGEX_DOCTYPERow Get - Return CType(Me.Rows(index),TBMYHOTKEYSRow) + Return CType(Me.Rows(index),TBGI_REGEX_DOCTYPERow) End Get End Property _ - Public Event TBMYHOTKEYSRowChanging As TBMYHOTKEYSRowChangeEventHandler + Public Event TBGI_REGEX_DOCTYPERowChanging As TBGI_REGEX_DOCTYPERowChangeEventHandler _ - Public Event TBMYHOTKEYSRowChanged As TBMYHOTKEYSRowChangeEventHandler + Public Event TBGI_REGEX_DOCTYPERowChanged As TBGI_REGEX_DOCTYPERowChangeEventHandler _ - Public Event TBMYHOTKEYSRowDeleting As TBMYHOTKEYSRowChangeEventHandler + Public Event TBGI_REGEX_DOCTYPERowDeleting As TBGI_REGEX_DOCTYPERowChangeEventHandler _ - Public Event TBMYHOTKEYSRowDeleted As TBMYHOTKEYSRowChangeEventHandler + Public Event TBGI_REGEX_DOCTYPERowDeleted As TBGI_REGEX_DOCTYPERowChangeEventHandler _ - Public Overloads Sub AddTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) + Public Overloads Sub AddTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBMYHOTKEYSRow(ByVal _String As String) As TBMYHOTKEYSRow - Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow,TBMYHOTKEYSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, _String} - rowTBMYHOTKEYSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBMYHOTKEYSRow) - Return rowTBMYHOTKEYSRow + Public Overloads Function AddTBGI_REGEX_DOCTYPERow(ByVal REGEX As String, ByVal parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID As TBDD_DOKUMENTARTRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_REGEX_DOCTYPERow + Dim rowTBGI_REGEX_DOCTYPERow As TBGI_REGEX_DOCTYPERow = CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, REGEX, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID(0) + End If + rowTBGI_REGEX_DOCTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_REGEX_DOCTYPERow) + Return rowTBGI_REGEX_DOCTYPERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBMYHOTKEYSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMYHOTKEYSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_REGEX_DOCTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_REGEX_DOCTYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMYHOTKEYSDataTable = CType(MyBase.Clone,TBMYHOTKEYSDataTable) + Dim cln As TBGI_REGEX_DOCTYPEDataTable = CType(MyBase.Clone,TBGI_REGEX_DOCTYPEDataTable) cln.InitVars Return cln End Function @@ -8907,14 +8581,19 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBMYHOTKEYSDataTable() + Return New TBGI_REGEX_DOCTYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnString = MyBase.Columns("String") + Me.columnREGEX = MyBase.Columns("REGEX") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBMYHOTKEYSRow() As TBMYHOTKEYSRow - Return CType(Me.NewRow,TBMYHOTKEYSRow) + Public Function NewTBGI_REGEX_DOCTYPERow() As TBGI_REGEX_DOCTYPERow + Return CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBMYHOTKEYSRow(builder) + Return New TBGI_REGEX_DOCTYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBMYHOTKEYSRow) + Return GetType(TBGI_REGEX_DOCTYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBMYHOTKEYSRowChangedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanged(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + If (Not (Me.TBGI_REGEX_DOCTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowChanged(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub @@ -8969,8 +8659,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBMYHOTKEYSRowChangingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanging(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + If (Not (Me.TBGI_REGEX_DOCTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowChanging(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub @@ -8978,8 +8668,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBMYHOTKEYSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleted(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + If (Not (Me.TBGI_REGEX_DOCTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowDeleted(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub @@ -8987,14 +8677,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBMYHOTKEYSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleting(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + If (Not (Me.TBGI_REGEX_DOCTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_REGEX_DOCTYPERowDeleting(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) End If End Sub _ - Public Sub RemoveTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) + Public Sub RemoveTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) Me.Rows.Remove(row) End Sub @@ -9021,7 +8711,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 = "TBMYHOTKEYSDataTable" + attribute2.FixedValue = "TBGI_REGEX_DOCTYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9070,34 +8760,18 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBHOTKEY_USER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_USER_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPROFILE_ID As Global.System.Data.DataColumn + Partial Public Class TBTempFiles2IndexDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTempFiles2IndexRow) - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnFilestring As Global.System.Data.DataColumn - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnHOTKEY1 As Global.System.Data.DataColumn - - Private columnHOTKEY2 As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnWorked As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBHOTKEY_USER_PROFILE" + Me.TableName = "TBTempFiles2Index" Me.BeginInit Me.InitClass Me.EndInit @@ -9130,81 +8804,17 @@ Partial Public Class MyDataset _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSER_ID - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY1 - End Get - End Property - - _ - Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY2 - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FilestringColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnFilestring End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WorkedColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnWorked End Get End Property @@ -9219,56 +8829,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_USER_PROFILERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTempFiles2IndexRow Get - Return CType(Me.Rows(index),TBHOTKEY_USER_PROFILERow) + Return CType(Me.Rows(index),TBTempFiles2IndexRow) End Get End Property _ - Public Event TBHOTKEY_USER_PROFILERowChanging As TBHOTKEY_USER_PROFILERowChangeEventHandler + Public Event TBTempFiles2IndexRowChanging As TBTempFiles2IndexRowChangeEventHandler _ - Public Event TBHOTKEY_USER_PROFILERowChanged As TBHOTKEY_USER_PROFILERowChangeEventHandler + Public Event TBTempFiles2IndexRowChanged As TBTempFiles2IndexRowChangeEventHandler _ - Public Event TBHOTKEY_USER_PROFILERowDeleting As TBHOTKEY_USER_PROFILERowChangeEventHandler + Public Event TBTempFiles2IndexRowDeleting As TBTempFiles2IndexRowChangeEventHandler _ - Public Event TBHOTKEY_USER_PROFILERowDeleted As TBHOTKEY_USER_PROFILERowChangeEventHandler + Public Event TBTempFiles2IndexRowDeleted As TBTempFiles2IndexRowChangeEventHandler _ - Public Overloads Sub AddTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) + Public Overloads Sub AddTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBHOTKEY_USER_PROFILERow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID As TBDD_USERRow, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_USER_PROFILERow - Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID(0) - End If - If (Not (parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID(0) - End If - rowTBHOTKEY_USER_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_USER_PROFILERow) - Return rowTBHOTKEY_USER_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_USER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_USER_PROFILERow) + Public Overloads Function AddTBTempFiles2IndexRow(ByVal Filestring As String, ByVal Worked As Boolean) As TBTempFiles2IndexRow + Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow,TBTempFiles2IndexRow) + Dim columnValuesArray() As Object = New Object() {Filestring, Worked} + rowTBTempFiles2IndexRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTempFiles2IndexRow) + Return rowTBTempFiles2IndexRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_USER_PROFILEDataTable) + Dim cln As TBTempFiles2IndexDataTable = CType(MyBase.Clone,TBTempFiles2IndexDataTable) cln.InitVars Return cln End Function @@ -9276,92 +8874,50 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_USER_PROFILEDataTable() + Return New TBTempFiles2IndexDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") - Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnFilestring = MyBase.Columns("Filestring") + Me.columnWorked = MyBase.Columns("Worked") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPROFILE_ID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_SEARCH) - Me.columnHOTKEY1 = New Global.System.Data.DataColumn("HOTKEY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY1) - Me.columnHOTKEY2 = New Global.System.Data.DataColumn("HOTKEY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY2) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnUSER_ID.AllowDBNull = false - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.DefaultValue = CType("",String) - Me.columnWD_SEARCH.MaxLength = 250 - Me.columnHOTKEY1.AllowDBNull = false - Me.columnHOTKEY1.DefaultValue = CType("",String) - Me.columnHOTKEY1.MaxLength = 10 - Me.columnHOTKEY2.AllowDBNull = false - Me.columnHOTKEY2.DefaultValue = CType("",String) - Me.columnHOTKEY2.MaxLength = 5 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnFilestring = New Global.System.Data.DataColumn("Filestring", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFilestring) + Me.columnWorked = New Global.System.Data.DataColumn("Worked", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWorked) + Me.columnWorked.DefaultValue = CType(false,Boolean) End Sub _ - Public Function NewTBHOTKEY_USER_PROFILERow() As TBHOTKEY_USER_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) + Public Function NewTBTempFiles2IndexRow() As TBTempFiles2IndexRow + Return CType(Me.NewRow,TBTempFiles2IndexRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_USER_PROFILERow(builder) + Return New TBTempFiles2IndexRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_USER_PROFILERow) + Return GetType(TBTempFiles2IndexRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanged(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + If (Not (Me.TBTempFiles2IndexRowChangedEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowChanged(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) End If End Sub @@ -9369,8 +8925,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanging(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + If (Not (Me.TBTempFiles2IndexRowChangingEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowChanging(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) End If End Sub @@ -9378,8 +8934,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleted(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + If (Not (Me.TBTempFiles2IndexRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowDeleted(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) End If End Sub @@ -9387,14 +8943,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleting(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + If (Not (Me.TBTempFiles2IndexRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowDeleting(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) End If End Sub _ - Public Sub RemoveTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) + Public Sub RemoveTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) Me.Rows.Remove(row) End Sub @@ -9421,7 +8977,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 = "TBHOTKEY_USER_PROFILEDataTable" + attribute2.FixedValue = "TBTempFiles2IndexDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9470,38 +9026,20 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBHOTKEY_PATTERNS_REWORKDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNS_REWORKRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPATTERN_ID As Global.System.Data.DataColumn - - Private columnTYPE As Global.System.Data.DataColumn - - Private columnFUNCTION1 As Global.System.Data.DataColumn - - Private columnFUNCTION2 As Global.System.Data.DataColumn - - Private columnTEXT1 As Global.System.Data.DataColumn - - Private columnTEXT2 As Global.System.Data.DataColumn - - Private columnSEQUENCE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn + Partial Public Class TBTEMP_INDEXRESULTSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnIndexname As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnValue As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnDokumentart As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBHOTKEY_PATTERNS_REWORK" + Me.TableName = "TBTEMP_INDEXRESULTS" Me.BeginInit Me.InitClass Me.EndInit @@ -9534,257 +9072,130 @@ Partial Public Class MyDataset _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnIndexname End Get End Property _ - Public ReadOnly Property HKPATTERN_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn Get - Return Me.columnHKPATTERN_ID + Return Me.columnValue End Get End Property _ - Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn Get - Return Me.columnTYPE + Return Me.columnDokumentart End Get End Property _ - Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnFUNCTION1 + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow Get - Return Me.columnFUNCTION2 + Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) End Get End Property + _ + Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler + _ - Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn - Get - Return Me.columnTEXT1 - End Get - End Property + Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn - Get - Return Me.columnTEXT2 - End Get - End Property + Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow + Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} + rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) + Return rowTBTEMP_INDEXRESULTSRow + End Function _ - Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBTEMP_INDEXRESULTSDataTable() + End Function _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNS_REWORKRow - Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNS_REWORKRow) - End Get - End Property - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowChanging As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowChanged As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowDeleting As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowDeleted As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_PATTERNS_REWORKRow(ByVal parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As TBHOTKEY_PATTERNSRow, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_PATTERNS_REWORKRow - Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID(0) - End If - rowTBHOTKEY_PATTERNS_REWORKRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PATTERNS_REWORKRow) - Return rowTBHOTKEY_PATTERNS_REWORKRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNS_REWORKRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNS_REWORKDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PATTERNS_REWORKDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPATTERN_ID = MyBase.Columns("HKPATTERN_ID") - Me.columnTYPE = MyBase.Columns("TYPE") - Me.columnFUNCTION1 = MyBase.Columns("FUNCTION1") - Me.columnFUNCTION2 = MyBase.Columns("FUNCTION2") - Me.columnTEXT1 = MyBase.Columns("TEXT1") - Me.columnTEXT2 = MyBase.Columns("TEXT2") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub + Friend Sub InitVars() + Me.columnIndexname = MyBase.Columns("Indexname") + Me.columnValue = MyBase.Columns("Value") + Me.columnDokumentart = MyBase.Columns("Dokumentart") + End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPATTERN_ID = New Global.System.Data.DataColumn("HKPATTERN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPATTERN_ID) - Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYPE) - Me.columnFUNCTION1 = New Global.System.Data.DataColumn("FUNCTION1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION1) - Me.columnFUNCTION2 = New Global.System.Data.DataColumn("FUNCTION2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION2) - Me.columnTEXT1 = New Global.System.Data.DataColumn("TEXT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTEXT1) - Me.columnTEXT2 = New Global.System.Data.DataColumn("TEXT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTEXT2) - Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPATTERN_ID.AllowDBNull = false - Me.columnTYPE.AllowDBNull = false - Me.columnTYPE.MaxLength = 30 - Me.columnFUNCTION1.MaxLength = 250 - Me.columnFUNCTION2.MaxLength = 250 - Me.columnTEXT1.MaxLength = 100 - Me.columnTEXT2.MaxLength = 100 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnSEQUENCE.DefaultValue = CType(1,Integer) - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexname) + Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnValue) + Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokumentart) End Sub _ - Public Function NewTBHOTKEY_PATTERNS_REWORKRow() As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) + Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow + Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PATTERNS_REWORKRow(builder) + Return New TBTEMP_INDEXRESULTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PATTERNS_REWORKRow) + Return GetType(TBTEMP_INDEXRESULTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanged(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub @@ -9792,8 +9203,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanging(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub @@ -9801,8 +9212,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleted(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub @@ -9810,14 +9221,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleting(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) + Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) Me.Rows.Remove(row) End Sub @@ -9844,7 +9255,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 = "TBHOTKEY_PATTERNS_REWORKDataTable" + attribute2.FixedValue = "TBTEMP_INDEXRESULTSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9893,30 +9304,26 @@ Partial Public Class MyDataset ''' _ - Partial Public Class TBHOTKEY_WINDOW_HOOKDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_WINDOW_HOOKRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPROFILE_ID As Global.System.Data.DataColumn + Partial Public Class TBAD_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) - Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn + Private columnSelect As Global.System.Data.DataColumn - Private columnCONTROL_VALUE As Global.System.Data.DataColumn + Private columnUsername As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnPrename As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnSurname As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnEmail As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBHOTKEY_WINDOW_HOOK" + Me.TableName = "TBAD_Users" Me.BeginInit Me.InitClass Me.EndInit @@ -9949,65 +9356,49 @@ Partial Public Class MyDataset _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get - Return Me.columnSEQUENCE_NUMBER + Return Me.columnSelect End Get End Property _ - Public ReadOnly Property CONTROL_VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONTROL_VALUE + Return Me.columnUsername End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnPrename End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnSurname End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnEmail End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnID End Get End Property @@ -10022,53 +9413,44 @@ Partial Public Class MyDataset _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_WINDOW_HOOKRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get - Return CType(Me.Rows(index),TBHOTKEY_WINDOW_HOOKRow) + Return CType(Me.Rows(index),TBAD_UsersRow) End Get End Property _ - Public Event TBHOTKEY_WINDOW_HOOKRowChanging As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler _ - Public Event TBHOTKEY_WINDOW_HOOKRowChanged As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler _ - Public Event TBHOTKEY_WINDOW_HOOKRowDeleting As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler _ - Public Event TBHOTKEY_WINDOW_HOOKRowDeleted As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ - Public Overloads Sub AddTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBHOTKEY_WINDOW_HOOKRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_WINDOW_HOOKRow - Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID(0) - End If - rowTBHOTKEY_WINDOW_HOOKRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_WINDOW_HOOKRow) - Return rowTBHOTKEY_WINDOW_HOOKRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_WINDOW_HOOKRow) + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} + rowTBAD_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBAD_UsersRow) + Return rowTBAD_UsersRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone,TBHOTKEY_WINDOW_HOOKDataTable) + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) cln.InitVars Return cln End Function @@ -10076,90 +9458,74 @@ Partial Public Class MyDataset _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_WINDOW_HOOKDataTable() + Return New TBAD_UsersDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") - Me.columnCONTROL_VALUE = MyBase.Columns("CONTROL_VALUE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPROFILE_ID) - Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) - Me.columnCONTROL_VALUE = New Global.System.Data.DataColumn("CONTROL_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONTROL_VALUE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnSEQUENCE_NUMBER.AllowDBNull = false - Me.columnCONTROL_VALUE.AllowDBNull = false - Me.columnCONTROL_VALUE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub _ - Public Function NewTBHOTKEY_WINDOW_HOOKRow() As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) + Public Function NewTBAD_UsersRow() As TBAD_UsersRow + Return CType(Me.NewRow,TBAD_UsersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_WINDOW_HOOKRow(builder) + Return New TBAD_UsersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_WINDOW_HOOKRow) + Return GetType(TBAD_UsersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanged(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) - End If + If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) + End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanging(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -10167,8 +9533,8 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleted(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub @@ -10176,14 +9542,14 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleting(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ - Public Sub RemoveTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Remove(row) End Sub @@ -10210,7 +9576,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 = "TBHOTKEY_WINDOW_HOOKDataTable" + attribute2.FixedValue = "TBAD_UsersDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -10255,11129 +9621,5720 @@ Partial Public Class MyDataset End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBGI_FILES_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBGI_FILES_USERRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnFILENAME2WORK As Global.System.Data.DataColumn - - Private _columnUSER_WORK As Global.System.Data.DataColumn - - Private columnWORKED As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnHANDLE_TYPE As Global.System.Data.DataColumn - - Private columnDelete As Global.System.Data.DataColumn - - Private columnFILENAME_ONLY As Global.System.Data.DataColumn + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow - _ - Public Sub New() - MyBase.New - Me.TableName = "TBGI_FILES_USER" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Private tableTBDD_USER As TBDD_USERDataTable _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set + End Property _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public Property PRENAME() As String Get - Return Me.columnGUID + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set End Property _ - Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn + Public Property NAME() As String Get - Return Me.columnFILENAME2WORK + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set End Property _ - Public ReadOnly Property _USER_WORKColumn() As Global.System.Data.DataColumn + Public Property USERNAME() As String Get - Return Me._columnUSER_WORK + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set End Property _ - Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn + Public Property EMAIL() As String Get - Return Me.columnWORKED + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public Property ADDED_WHO() As String Get - Return Me.columnADDED_WHEN + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set End Property _ - Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn + Public Property ADDED_WHEN() As Date Get - Return Me.columnHANDLE_TYPE + Try + Return CType(Me(Me.tableTBDD_USER.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 ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set End Property _ - Public ReadOnly Property DeleteColumn() As Global.System.Data.DataColumn + Public Property CHANGED_WHO() As String Get - Return Me.columnDelete + Try + Return CType(Me(Me.tableTBDD_USER.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 ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set End Property _ - Public ReadOnly Property FILENAME_ONLYColumn() As Global.System.Data.DataColumn + Public Property CHANGED_WHEN() As Date Get - Return Me.columnFILENAME_ONLY + Try + Return CType(Me(Me.tableTBDD_USER.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 ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property SHORTNAME() As String Get - Return Me.Rows.Count + Try + Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_FILES_USERRow + Public Property LANGUAGE() As String Get - Return CType(Me.Rows(index),TBGI_FILES_USERRow) + Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) End Get + Set + Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + End Set End Property - _ - Public Event TBGI_FILES_USERRowChanging As TBGI_FILES_USERRowChangeEventHandler - - _ - Public Event TBGI_FILES_USERRowChanged As TBGI_FILES_USERRowChangeEventHandler + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function - _ - Public Event TBGI_FILES_USERRowDeleting As TBGI_FILES_USERRowChangeEventHandler + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub - _ - Public Event TBGI_FILES_USERRowDeleted As TBGI_FILES_USERRowChangeEventHandler + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function _ - Public Overloads Sub AddTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) - Me.Rows.Add(row) + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Overloads Function AddTBGI_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal _USER_WORK As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal HANDLE_TYPE As String, ByVal Delete As Boolean, ByVal FILENAME_ONLY As String) As TBGI_FILES_USERRow - Dim rowTBGI_FILES_USERRow As TBGI_FILES_USERRow = CType(Me.NewRow,TBGI_FILES_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, _USER_WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, Delete, FILENAME_ONLY} - rowTBGI_FILES_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBGI_FILES_USERRow) - Return rowTBGI_FILES_USERRow + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBGI_FILES_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_FILES_USERRow) + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_FILES_USERDataTable = CType(MyBase.Clone,TBGI_FILES_USERDataTable) - cln.InitVars - Return cln + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBGI_FILES_USERDataTable() + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") - Me._columnUSER_WORK = MyBase.Columns("USER@WORK") - Me.columnWORKED = MyBase.Columns("WORKED") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") - Me.columnDelete = MyBase.Columns("Delete") - Me.columnFILENAME_ONLY = MyBase.Columns("FILENAME_ONLY") + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnFILENAME2WORK = New Global.System.Data.DataColumn("FILENAME2WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME2WORK) - Me._columnUSER_WORK = New Global.System.Data.DataColumn("USER@WORK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me._columnUSER_WORK.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnUSER_WORK") - Me._columnUSER_WORK.ExtendedProperties.Add("Generator_UserColumnName", "USER@WORK") - MyBase.Columns.Add(Me._columnUSER_WORK) - Me.columnWORKED = New Global.System.Data.DataColumn("WORKED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKED) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnHANDLE_TYPE = New Global.System.Data.DataColumn("HANDLE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHANDLE_TYPE) - Me.columnDelete = New Global.System.Data.DataColumn("Delete", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDelete) - Me.columnFILENAME_ONLY = New Global.System.Data.DataColumn("FILENAME_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME_ONLY) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnFILENAME2WORK.AllowDBNull = false - Me.columnFILENAME2WORK.MaxLength = 500 - Me._columnUSER_WORK.AllowDBNull = false - Me._columnUSER_WORK.MaxLength = 50 - Me.columnWORKED.AllowDBNull = false - Me.columnADDED_WHEN.AllowDBNull = false - Me.columnHANDLE_TYPE.MaxLength = 50 - Me.columnDelete.DefaultValue = CType(false,Boolean) - Me.columnFILENAME_ONLY.AllowDBNull = false - Me.columnFILENAME_ONLY.MaxLength = 250 - End Sub - - _ - Public Function NewTBGI_FILES_USERRow() As TBGI_FILES_USERRow - Return CType(Me.NewRow,TBGI_FILES_USERRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBGI_FILES_USERRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBGI_FILES_USERRow) + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBGI_FILES_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowChanged(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBGI_FILES_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowChanging(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBGI_FILES_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowDeleted(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBGI_FILES_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_FILES_USERRowDeleting(Me, New TBGI_FILES_USERRowChangeEvent(CType(e.Row,TBGI_FILES_USERRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBGI_FILES_USERRow(ByVal row As TBGI_FILES_USERRow) - Me.Rows.Remove(row) + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBGI_FILES_USERDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) End If - xs.Add(dsSchema) - Return type End Function End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBGI_HISTORYDataTable - Inherits Global.System.Data.TypedTableBase(Of TBGI_HISTORYRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnFILENAME_ORIGINAL As Global.System.Data.DataColumn - - Private columnFILENAME_NEW As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBGI_HISTORY" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) End Sub _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public Property GUID() As Integer Get - Return Me.columnGUID + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property FILENAME_ORIGINALColumn() As Global.System.Data.DataColumn + Public Property BEZEICHNUNG() As String Get - Return Me.columnFILENAME_ORIGINAL + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set End Property _ - Public ReadOnly Property FILENAME_NEWColumn() As Global.System.Data.DataColumn + Public Property EINGANGSART_ID() As Byte Get - Return Me.columnFILENAME_NEW + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public Property KURZNAME() As String Get - Return Me.columnADDED_WHEN + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property ZIEL_PFAD() As String Get - Return Me.Rows.Count + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_HISTORYRow + Public Property BESCHREIBUNG() As String Get - Return CType(Me.Rows(index),TBGI_HISTORYRow) + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set End Property - _ - Public Event TBGI_HISTORYRowChanging As TBGI_HISTORYRowChangeEventHandler + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property - _ - Public Event TBGI_HISTORYRowChanged As TBGI_HISTORYRowChangeEventHandler + _ + Public Property NAMENKONVENTION() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property - _ - Public Event TBGI_HISTORYRowDeleting As TBGI_HISTORYRowChangeEventHandler + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property - _ - Public Event TBGI_HISTORYRowDeleted As TBGI_HISTORYRowChangeEventHandler + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property _ - Public Overloads Sub AddTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) - Me.Rows.Add(row) - End Sub + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property _ - Public Overloads Function AddTBGI_HISTORYRow(ByVal FILENAME_ORIGINAL As String, ByVal FILENAME_NEW As String, ByVal ADDED_WHEN As Date) As TBGI_HISTORYRow - Dim rowTBGI_HISTORYRow As TBGI_HISTORYRow = CType(Me.NewRow,TBGI_HISTORYRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN} - rowTBGI_HISTORYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBGI_HISTORYRow) - Return rowTBGI_HISTORYRow - End Function + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property _ - Public Function FindByGUID(ByVal GUID As Integer) As TBGI_HISTORYRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_HISTORYRow) - End Function + Public Property OBJEKTTYP() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_HISTORYDataTable = CType(MyBase.Clone,TBGI_HISTORYDataTable) - cln.InitVars - Return cln - End Function + Public Property WINDREAM_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + End Set + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBGI_HISTORYDataTable() - End Function + Public Property FOLDER_FOR_INDEX() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + End Set + End Property _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnFILENAME_ORIGINAL = MyBase.Columns("FILENAME_ORIGINAL") - Me.columnFILENAME_NEW = MyBase.Columns("FILENAME_NEW") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - End Sub + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + End Set + End Property _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnFILENAME_ORIGINAL = New Global.System.Data.DataColumn("FILENAME_ORIGINAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME_ORIGINAL) - Me.columnFILENAME_NEW = New Global.System.Data.DataColumn("FILENAME_NEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILENAME_NEW) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnFILENAME_ORIGINAL.MaxLength = 250 - Me.columnFILENAME_NEW.MaxLength = 250 - Me.columnADDED_WHEN.AllowDBNull = false - End Sub + Public Property DUPLICATE_HANDLING() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value + End Set + End Property _ - Public Function NewTBGI_HISTORYRow() As TBGI_HISTORYRow - Return CType(Me.NewRow,TBGI_HISTORYRow) - End Function + Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + End Set + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBGI_HISTORYRow(builder) + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) End Function _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBGI_HISTORYRow) + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) End Function _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBGI_HISTORYRowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowChanged(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) - End If + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBGI_HISTORYRowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowChanging(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) - End If + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBGI_HISTORYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowDeleted(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) - End If + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBGI_HISTORYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_HISTORYRowDeleting(Me, New TBGI_HISTORYRowChangeEvent(CType(e.Row,TBGI_HISTORYRow), e.Action)) + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) End If - End Sub + End Function _ - Public Sub RemoveTBGI_HISTORYRow(ByVal row As TBGI_HISTORYRow) - Me.Rows.Remove(row) - End Sub + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) + End If + End Function _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBGI_HISTORYDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try + Public Function GetTBGI_REGEX_DOCTYPERows() As TBGI_REGEX_DOCTYPERow() + If (Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID") Is Nothing) Then + Return New TBGI_REGEX_DOCTYPERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBGI_REGEX_DOCTYPERow()) End If - xs.Add(dsSchema) - Return type End Function End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBGI_REGEX_DOCTYPEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBGI_REGEX_DOCTYPERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnREGEX As Global.System.Data.DataColumn - - Private columnDOCTYPE_ID As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBGI_REGEX_DOCTYPE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Partial Public Class TBDD_EINGANGSARTENRow + Inherits Global.System.Data.DataRow - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) End Sub _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public Property GUID() As Byte Get - Return Me.columnGUID + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn + Public Property BEZEICHNUNG() As String Get - Return Me.columnREGEX + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + End Set End Property _ - Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Public Property BESCHREIBUNG() As String Get - Return Me.columnDOCTYPE_ID + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public Property ERSTELLTWER() As String Get - Return Me.columnADDED_WHO + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + End Set End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public Property ERSTELLTWANN() As Date Get - Return Me.columnADDED_WHEN + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + End Set End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public Property GEANDERTWER() As String Get - Return Me.columnCHANGED_WHO + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + End Set End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer + Public Property GEAENDERTWANN() As Date Get - Return Me.Rows.Count + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_REGEX_DOCTYPERow - Get - Return CType(Me.Rows(index),TBGI_REGEX_DOCTYPERow) - End Get - End Property - - _ - Public Event TBGI_REGEX_DOCTYPERowChanging As TBGI_REGEX_DOCTYPERowChangeEventHandler - - _ - Public Event TBGI_REGEX_DOCTYPERowChanged As TBGI_REGEX_DOCTYPERowChangeEventHandler - - _ - Public Event TBGI_REGEX_DOCTYPERowDeleting As TBGI_REGEX_DOCTYPERowChangeEventHandler - - _ - Public Event TBGI_REGEX_DOCTYPERowDeleted As TBGI_REGEX_DOCTYPERowChangeEventHandler + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) + End Function _ - Public Overloads Sub AddTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) - Me.Rows.Add(row) + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Overloads Function AddTBGI_REGEX_DOCTYPERow(ByVal REGEX As String, ByVal parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID As TBDD_DOKUMENTARTRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_REGEX_DOCTYPERow - Dim rowTBGI_REGEX_DOCTYPERow As TBGI_REGEX_DOCTYPERow = CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) - Dim columnValuesArray() As Object = New Object() {Nothing, REGEX, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_DOKUMENTARTRowByFK_TBGI_REGEX_DOCTYPE_DTID(0) - End If - rowTBGI_REGEX_DOCTYPERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBGI_REGEX_DOCTYPERow) - Return rowTBGI_REGEX_DOCTYPERow + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBGI_REGEX_DOCTYPERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_REGEX_DOCTYPERow) - End Function + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBGI_REGEX_DOCTYPEDataTable = CType(MyBase.Clone,TBGI_REGEX_DOCTYPEDataTable) - cln.InitVars - Return cln + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) End Function _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBGI_REGEX_DOCTYPEDataTable() + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) End Function _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnREGEX = MyBase.Columns("REGEX") - Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnREGEX) - Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDOCTYPE_ID) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnDOCTYPE_ID}, false)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = 1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnREGEX.AllowDBNull = false - Me.columnREGEX.MaxLength = 500 - Me.columnDOCTYPE_ID.Unique = true - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() + If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then + Return New TBDD_DOKUMENTARTRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKART_MODULERow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKART_MODULE = CType(Me.Table,TBDD_DOKART_MODULEDataTable) End Sub _ - Public Function NewTBGI_REGEX_DOCTYPERow() As TBGI_REGEX_DOCTYPERow - Return CType(Me.NewRow,TBGI_REGEX_DOCTYPERow) - End Function + Public Property ID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKART_MODULE.IDColumn) = value + End Set + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBGI_REGEX_DOCTYPERow(builder) - End Function + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_DOKART_MODULE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = value + End Set + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBGI_REGEX_DOCTYPERow) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKART_MODULE.NAMEColumn) End Function _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBGI_REGEX_DOCTYPERowChangedEvent) Is Nothing) Then - RaiseEvent TBGI_REGEX_DOCTYPERowChanged(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) - End If + Public Sub SetNAMENull() + Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_MODULESRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_MODULES As TBDD_MODULESDataTable _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBGI_REGEX_DOCTYPERowChangingEvent) Is Nothing) Then - RaiseEvent TBGI_REGEX_DOCTYPERowChanging(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) - End If + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) End Sub _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBGI_REGEX_DOCTYPERowDeletedEvent) Is Nothing) Then - RaiseEvent TBGI_REGEX_DOCTYPERowDeleted(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) - End If - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_MODULES.GUIDColumn) = value + End Set + End Property _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBGI_REGEX_DOCTYPERowDeletingEvent) Is Nothing) Then - RaiseEvent TBGI_REGEX_DOCTYPERowDeleting(Me, New TBGI_REGEX_DOCTYPERowChangeEvent(CType(e.Row,TBGI_REGEX_DOCTYPERow), e.Action)) - End If - End Sub + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_MODULES.NAMEColumn) = value + End Set + End Property _ - Public Sub RemoveTBGI_REGEX_DOCTYPERow(ByVal row As TBGI_REGEX_DOCTYPERow) - Me.Rows.Remove(row) - End Sub + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) + End Function _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBGI_REGEX_DOCTYPEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function + Public Sub SetNAMENull() + Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBTempFiles2IndexDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTempFiles2IndexRow) - - Private columnFilestring As Global.System.Data.DataColumn - - Private columnWorked As Global.System.Data.DataColumn + Partial Public Class TBDD_INDEX_MANRow + Inherits Global.System.Data.DataRow - _ - Public Sub New() - MyBase.New - Me.TableName = "TBTempFiles2Index" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) End Sub _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value + End Set + End Property _ - Public ReadOnly Property FilestringColumn() As Global.System.Data.DataColumn + Public Property DOK_ID() As Integer Get - Return Me.columnFilestring + Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + End Set End Property _ - Public ReadOnly Property WorkedColumn() As Global.System.Data.DataColumn + Public Property NAME() As String Get - Return Me.columnWorked + Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) End Get + Set + Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property WD_INDEX() As String Get - Return Me.Rows.Count + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTempFiles2IndexRow + Public Property COMMENT() As String Get - Return CType(Me.Rows(index),TBTempFiles2IndexRow) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value + End Set End Property - _ - Public Event TBTempFiles2IndexRowChanging As TBTempFiles2IndexRowChangeEventHandler - - _ - Public Event TBTempFiles2IndexRowChanged As TBTempFiles2IndexRowChangeEventHandler - - _ - Public Event TBTempFiles2IndexRowDeleting As TBTempFiles2IndexRowChangeEventHandler - - _ - Public Event TBTempFiles2IndexRowDeleted As TBTempFiles2IndexRowChangeEventHandler - _ - Public Overloads Sub AddTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) - Me.Rows.Add(row) - End Sub + Public Property DATATYPE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value + End Set + End Property _ - Public Overloads Function AddTBTempFiles2IndexRow(ByVal Filestring As String, ByVal Worked As Boolean) As TBTempFiles2IndexRow - Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow,TBTempFiles2IndexRow) - Dim columnValuesArray() As Object = New Object() {Filestring, Worked} - rowTBTempFiles2IndexRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTempFiles2IndexRow) - Return rowTBTempFiles2IndexRow - End Function + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTempFiles2IndexDataTable = CType(MyBase.Clone,TBTempFiles2IndexDataTable) - cln.InitVars - Return cln - End Function + Public Property DEFAULT_VALUE() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + End Set + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTempFiles2IndexDataTable() - End Function + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value + End Set + End Property _ - Friend Sub InitVars() - Me.columnFilestring = MyBase.Columns("Filestring") - Me.columnWorked = MyBase.Columns("Worked") - End Sub + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value + End Set + End Property _ - Private Sub InitClass() - Me.columnFilestring = New Global.System.Data.DataColumn("Filestring", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFilestring) - Me.columnWorked = New Global.System.Data.DataColumn("Worked", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWorked) - Me.columnWorked.DefaultValue = CType(false,Boolean) - End Sub + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property _ - Public Function NewTBTempFiles2IndexRow() As TBTempFiles2IndexRow - Return CType(Me.NewRow,TBTempFiles2IndexRow) - End Function + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTempFiles2IndexRow(builder) - End Function + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value + End Set + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTempFiles2IndexRow) - End Function + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + End Set + End Property _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBTempFiles2IndexRowChangedEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowChanged(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) - End If - End Sub + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value + End Set + End Property _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBTempFiles2IndexRowChangingEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowChanging(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) - End If - End Sub + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value + End Set + End Property _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBTempFiles2IndexRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowDeleted(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) - End If - End Sub + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value + End Set + End Property _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBTempFiles2IndexRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTempFiles2IndexRowDeleting(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) - End If - End Sub + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + End Set + End Property _ - Public Sub RemoveTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) - Me.Rows.Remove(row) - End Sub + Public Property SAVE_VALUE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value + End Set + End Property _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTempFiles2IndexDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Public Property MULTISELECT() As Boolean + Get Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If + Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MULTISELECT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBTEMP_INDEXRESULTSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) - - Private columnIndexname As Global.System.Data.DataColumn - - Private columnValue As Global.System.Data.DataColumn - - Private columnDokumentart As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBTEMP_INDEXRESULTS" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn - Get - Return Me.columnIndexname End Get + Set + Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value + End Set End Property _ - Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn + Public Property VKT_ADD_ITEM() As Boolean Get - Return Me.columnValue + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean) End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value + End Set End Property _ - Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get - Return Me.columnDokumentart + Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) End Get + Set + Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Get - Return Me.Rows.Count + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_CONNECTIONRow) End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")) + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get - Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) + End Set End Property - _ - Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler - - _ - Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler - - _ - Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler - - _ - Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler - _ - Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) - Me.Rows.Add(row) - End Sub + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) + End Function _ - Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow - Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) - Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} - rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) - Return rowTBTEMP_INDEXRESULTSRow - End Function + Public Sub SetWD_INDEXNull() + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + End Sub _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) - cln.InitVars - Return cln + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) End Function _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTEMP_INDEXRESULTSDataTable() - End Function + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + End Sub _ - Friend Sub InitVars() - Me.columnIndexname = MyBase.Columns("Indexname") - Me.columnValue = MyBase.Columns("Value") - Me.columnDokumentart = MyBase.Columns("Dokumentart") - End Sub + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) + End Function _ - Private Sub InitClass() - Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnIndexname) - Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnValue) - Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDokumentart) + Public Sub SetDATATYPENull() + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow - Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) End Function _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTEMP_INDEXRESULTSRow(builder) - End Function + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTEMP_INDEXRESULTSRow) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) End Function _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) - End If + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) - End If - End Sub + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) + End Function _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) - End If + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) - End If - End Sub + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) + End Function _ - Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) - Me.Rows.Remove(row) + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTEMP_INDEXRESULTSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try + Public Function IsMULTISELECTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) + End Function + + _ + Public Sub SetMULTISELECTNull() + Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() + If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") Is Nothing) Then + Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) End If - xs.Add(dsSchema) - Return type End Function End Class ''' - '''Represents the strongly named DataTable class. + '''Represents strongly named DataRow class. ''' - _ - Partial Public Class TBAD_UsersDataTable - Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) - - Private columnSelect As Global.System.Data.DataColumn - - Private columnUsername As Global.System.Data.DataColumn - - Private columnPrename As Global.System.Data.DataColumn - - Private columnSurname As Global.System.Data.DataColumn - - Private columnEmail As Global.System.Data.DataColumn + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow - Private columnID As Global.System.Data.DataColumn + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ - Public Sub New() - MyBase.New - Me.TableName = "TBAD_Users" - Me.BeginInit - Me.InitClass - Me.EndInit + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + End Set + End Property _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + End Set + End Property _ - Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Public Property SQL_PROVIDER() As String Get - Return Me.columnSelect + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + End Set End Property _ - Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Public Property SERVER() As String Get - Return Me.columnUsername + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + End Set End Property _ - Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Public Property DATENBANK() As String Get - Return Me.columnPrename + Try + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + End Set End Property _ - Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Public Property USERNAME() As String Get - Return Me.columnSurname + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + End Set End Property _ - Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Public Property PASSWORD() As String Get - Return Me.columnEmail + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + End Set End Property _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public Property BEMERKUNG() As String Get - Return Me.columnID + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + End Set End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property AKTIV() As Boolean Get - Return Me.Rows.Count + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + Public Property ERSTELLTWER() As String Get - Return CType(Me.Rows(index),TBAD_UsersRow) + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set End Property - _ - Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler - - _ - Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler - - _ - Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler - - _ - Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler - _ - Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) - Me.Rows.Add(row) - End Sub + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property _ - Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) - Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} - rowTBAD_UsersRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBAD_UsersRow) - Return rowTBAD_UsersRow - End Function + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) - cln.InitVars - Return cln + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBAD_UsersDataTable() + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ - Friend Sub InitVars() - Me.columnSelect = MyBase.Columns("Select") - Me.columnUsername = MyBase.Columns("Username") - Me.columnPrename = MyBase.Columns("Prename") - Me.columnSurname = MyBase.Columns("Surname") - Me.columnEmail = MyBase.Columns("Email") - Me.columnID = MyBase.Columns("ID") + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ - Private Sub InitClass() - Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") - Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") - Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") - MyBase.Columns.Add(Me.columnSelect) - Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUsername) - Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPrename) - Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSurname) - Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEmail) - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function NewTBAD_UsersRow() As TBAD_UsersRow - Return CType(Me.NewRow,TBAD_UsersRow) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBAD_UsersRow(builder) + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBAD_UsersRow) + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) - End If + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) - End If + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) - End If + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then - RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) - End If + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ - Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) - Me.Rows.Remove(row) + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBAD_UsersDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_INDEX_MANRow()) End If - xs.Add(dsSchema) - Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USERRow + Partial Public Class VWDDINDEX_MANRow Inherits Global.System.Data.DataRow - Private tableTBDD_USER As TBDD_USERDataTable + Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Me.tableVWDDINDEX_MAN = CType(Me.Table,VWDDINDEX_MANDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_MAN.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.GUIDColumn) = value + Me(Me.tableVWDDINDEX_MAN.GUIDColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property INDEXNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBDD_USER.PRENAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property WD_INDEX() As String Get Try - Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.NAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property DATATYPE() As String Get Try - Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.EMAILColumn) = value + Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property DOK_ID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property DOKUMENTART() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short Get Try - Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property CONNECTION() As String Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property SQL_PROVIDER() As String Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property SHORTNAME() As String + Public Property SERVER() As String Get Try - Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_MAN.SERVERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_MAN ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = value End Set End Property _ - Public Property LANGUAGE() As String + Public Property DATENBANK() As String Get - Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = value End Set End Property _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) - End Function + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = value + End Set + End Property _ - Public Sub SetPRENAMENull() - Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = value + End Set + End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) - End Function + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) - End Function + Public Property Indexiert() As Boolean + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexiertColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = value + End Set + End Property _ - Public Sub SetEMAILNull() - Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub + Public Property Indexwert() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexwertColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = value + End Set + End Property _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) - End Function + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn) = value + End Set + End Property _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public Property Indexwert_File() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert_File in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = value + End Set + End Property _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + Public Property SAVE_VALUE() As Boolean + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn),Boolean) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn) = value + End Set + End Property + + _ + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetWD_INDEXNull() + Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.COMMENTColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATATYPEColumn) End Function _ - Public Sub SetSHORTNAMENull() - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetDATATYPENull() + Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() - If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then - Return New TBDD_GROUPS_USERRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) - End If + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) End Function _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBHOTKEY_USER_PROFILERow()) - End If - End Function - End Class - - ''' + Public Sub SetCONNECTION_IDNull() + Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTIONNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) + End Function + + _ + Public Sub SetCONNECTIONNull() + Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexiertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexiertColumn) + End Function + + _ + Public Sub SetIndexiertNull() + Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexwertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexwertColumn) + End Function + + _ + Public Sub SetIndexwertNull() + Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexwert_FileNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) + End Function + + _ + Public Sub SetIndexwert_FileNull() + Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_DOKUMENTARTRow + Partial Public Class VWDDINDEX_AUTOMRow Inherits Global.System.Data.DataRow - Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + Me.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = value End Set End Property _ - Public Property EINGANGSART_ID() As Byte + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = value End Set End Property _ - Public Property KURZNAME() As String + Public Property DOCTYPE_ID() As Integer Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = value End Set End Property _ - Public Property ZIEL_PFAD() As String + Public Property DOKUMENTART() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = value End Set End Property _ - Public Property BESCHREIBUNG() As String + Public Property KURZNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = value End Set End Property _ - Public Property AKTIV() As Boolean + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) End Get Set - Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = value End Set End Property _ - Public Property NAMENKONVENTION() As String + Public Property CONNECTION() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property SQL_PROVIDER() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property SERVER() As String Get Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property DATENBANK() As String Get Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property USERNAME() As String Get Try - Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = value End Set End Property _ - Public Property OBJEKTTYP() As String + Public Property PASSWORD() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = value End Set End Property _ - Public Property WINDREAM_DIRECT() As Boolean + Public Property SQL_RESULT() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) End Get Set - Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = value End Set End Property _ - Public Property FOLDER_FOR_INDEX() As String + Public Property Indexiert() As Boolean Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = value End Set End Property _ - Public Property SEQUENCE() As Integer + Public Property Indexwert() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = value End Set End Property _ - Public Property DUPLICATE_HANDLING() As String + Public Property VALUE() As String Get - Return CType(Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn),String) + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_DOKUMENTART.DUPLICATE_HANDLINGColumn) = value + Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = value End Set End Property _ - Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Public Property SQL_ACTIVE() As Boolean Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn),Boolean) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn) = value End Set End Property _ - Public Function IsBESCHREIBUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) End Function _ - Public Sub SetBESCHREIBUNGNull() - Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + Public Function IsCONNECTIONNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetCONNECTIONNull() + Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SERVERColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetSERVERNull() + Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() - If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then - Return New TBDD_INDEX_AUTOMRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) - End If + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) End Function _ - Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() - If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then - Return New TBDD_INDEX_MANRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) - End If + Public Sub SetDATENBANKNull() + Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) End Function _ - Public Function GetTBGI_REGEX_DOCTYPERows() As TBGI_REGEX_DOCTYPERow() - If (Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID") Is Nothing) Then - Return New TBGI_REGEX_DOCTYPERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBGI_REGEX_DOCTYPERow()) - End If + Public Sub SetUSERNAMENull() + Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexiertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) + End Function + + _ + Public Sub SetIndexiertNull() + Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexwertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) + End Function + + _ + Public Sub SetIndexwertNull() + Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_EINGANGSARTENRow + Partial Public Class TBDD_INDEX_AUTOMRow Inherits Global.System.Data.DataRow - Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) End Sub _ - Public Property GUID() As Byte + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property DOCTYPE_ID() As Integer Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value End Set End Property _ - Public Property BESCHREIBUNG() As String + Public Property INDEXNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property VALUE() As String Get - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property CONNECTION_ID() As Short Get Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value End Set End Property _ - Public Function IsBESCHREIBUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) - End Function + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property _ - Public Sub SetBESCHREIBUNGNull() - Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.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_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) - End Function + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.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_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull - End Sub + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.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_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) - End Function + Public Property SQL_RESULT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + End Set + End Property _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value + End Set + End Property _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() - If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then - Return New TBDD_DOKUMENTARTRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) - End If + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_DOKART_MODULERow - Inherits Global.System.Data.DataRow - - Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_DOKART_MODULE = CType(Me.Table,TBDD_DOKART_MODULEDataTable) + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull End Sub _ - Public Property ID() As Integer - Get - Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_DOKART_MODULE.IDColumn) = value - End Set - End Property + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_DOKART_MODULE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = value - End Set - End Property + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_DOKART_MODULE.NAMEColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_MODULESRow - Inherits Global.System.Data.DataRow - Private tableTBDD_MODULES As TBDD_MODULESDataTable + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_MODULES.GUIDColumn) = value - End Set - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_MODULES.NAMEColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) + Public Function IsSQL_RESULTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_RESULTNull() + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_INDEX_MANRow + Partial Public Class TBGI_CONFIGURATIONRow Inherits Global.System.Data.DataRow - Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) + Me.tableTBGI_CONFIGURATION = CType(Me.Table,TBGI_CONFIGURATIONDataTable) End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value - End Set - End Property - - _ - Public Property DOK_ID() As Integer + Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) + Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn),Byte) End Get Set - Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + Me(Me.tableTBGI_CONFIGURATION.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property IDX_EMAIL_ID() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn) = value End Set End Property _ - Public Property WD_INDEX() As String + Public Property IDX_EMAIL_FROM() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property IDX_EMAIL_TO() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn) = value End Set End Property _ - Public Property DATATYPE() As String + Public Property IDX_EMAIL_SUBJECT() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn) = value End Set End Property _ - Public Property SUGGESTION() As Boolean + Public Property IDX_EMAIL_DATE_IN() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn) = value End Set End Property _ - Public Property DEFAULT_VALUE() As String + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) + Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_CONFIGURATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_CONFIGURATION ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = value End Set End Property _ - Public Property SEQUENCE() As Integer - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value - End Set - End Property + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) + End Function _ - Public Property SQL_RESULT() As String - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SQL_CHECK() As String - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value - End Set - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) + End Function _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRow + Inherits Global.System.Data.DataRow + + Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable _ - Public Property ADDED_WHO() As String + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property OBJECTTYPE() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property IDX_EMAIL_ID() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property IDX_EMAIL_FROM() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.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_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn) = value End Set End Property _ - Public Property _OPTIONAL() As Boolean + Public Property IDX_EMAIL_TO() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn) = value End Set End Property _ - Public Property SAVE_VALUE() As Boolean + Public Property IDX_EMAIL_SUBJECT() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn),Boolean) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.SAVE_VALUEColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn) = value End Set End Property _ - Public Property MULTISELECT() As Boolean + Public Property IDX_EMAIL_DATE_IN() As String Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MULTISELECT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn) = value End Set End Property _ - Public Property VKT_ADD_ITEM() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn),Boolean) + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_INDEX_MAN.VKT_ADD_ITEMColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn) = value End Set End Property _ - Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull."& _ + "", e) + End Try End Get Set - Me(Me.tableTBDD_INDEX_MAN.VKT_PREVENT_MULTIPLE_VALUESColumn) = value + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = value End Set End Property _ - Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Public Property CHANGED_WHO() As String Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_CONNECTIONRow) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull"& _ + ".", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")) + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = value End Set End Property _ - Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Public Property CHANGED_WHEN() As Date Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNul"& _ + "l.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsWD_INDEXNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) - End Function - - _ - Public Sub SetWD_INDEXNull() - Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDATATYPENull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) - End Function - - _ - Public Sub SetDATATYPENull() - Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) - End Function - - _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub + Public Property IDX_CHECK_ATTACHMENT() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn) = value + End Set + End Property _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsMULTISELECTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) - End Function - - _ - Public Sub SetMULTISELECTNull() - Me(Me.tableTBDD_INDEX_MAN.MULTISELECTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() - If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") Is Nothing) Then - Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) - End If - End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_CONNECTIONRow + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGRow Inherits Global.System.Data.DataRow - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(Me.Table,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) End Sub _ - Public Property GUID() As Short + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property IDXMAN_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property TYPE() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property FUNCTION1() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = value End Set End Property _ - Public Property USERNAME() As String + Public Property FUNCTION2() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property TEXT1() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property TEXT2() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = value End Set End Property _ - Public Property AKTIV() As Boolean + Public Property TEXT3() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT3 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property SEQUENCE() As Integer Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn),Integer) End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBN"& _ + "ull.", e) End Try End Get Set - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) - End Function + Public Property _VARIANT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn) = value + End Set + End Property _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property TBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MANRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")) + End Set + End Property _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + Public Property TBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBWHDD_INDEX_MANRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) End Function _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + Public Function IsTYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) End Function _ - Public Sub SetSERVERNull() - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + Public Sub SetTYPENull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + Public Function IsFUNCTION1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) End Function _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + Public Sub SetFUNCTION1Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + Public Function IsFUNCTION2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) End Function _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetFUNCTION2Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + Public Function IsTEXT1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) End Function _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + Public Sub SetTEXT1Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + Public Function IsTEXT2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) End Function _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + Public Sub SetTEXT2Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + Public Function IsTEXT3Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetTEXT3Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() - If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID") Is Nothing) Then - Return New TBDD_INDEX_MANRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_INDEX_MANRow()) - End If + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWDDINDEX_MANRow + Partial Public Class TBWHDD_INDEX_MANRow Inherits Global.System.Data.DataRow - Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable + Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWDDINDEX_MAN = CType(Me.Table,VWDDINDEX_MANDataTable) + Me.tableTBWHDD_INDEX_MAN = CType(Me.Table,TBWHDD_INDEX_MANDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.GUIDColumn) = value + Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn) = value End Set End Property _ - Public Property INDEXNAME() As String + Public Property NAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn),String) + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn),String) End Get Set - Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn) = value + Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn) = value End Set End Property _ - Public Property WD_INDEX() As String - Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = value - End Set - End Property + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() + If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") Is Nothing) Then + Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPS_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ - Public Property COMMENT() As String + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value End Set End Property _ - Public Property DATATYPE() As String - Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = value - End Set - End Property - - _ - Public Property DOK_ID() As Integer + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value End Set End Property _ - Public Property DOKUMENTART() As String + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value End Set End Property _ - Public Property KURZNAME() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value End Set End Property _ - Public Property SUGGESTION() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) End Get Set - Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle VWDDINDEX_MAN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value End Set End Property _ - Public Property CONNECTION() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_MAN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property TBDD_USERRow() As TBDD_USERRow Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) End Set End Property _ - Public Property SERVER() As String - Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.SERVERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = value - End Set - End Property + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + End Function _ - Public Property DATENBANK() As String - Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = value - End Set - End Property + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property USERNAME() As String + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGI_USER_GROUPS_RELATIONRow + Inherits Global.System.Data.DataRow + + Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table,VWGI_USER_GROUPS_RELATIONDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property USER_ID() As Integer Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn) = value End Set End Property _ - Public Property SQL_RESULT() As String + Public Property USERNAME() As String Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn),String) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn),String) End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn) = value End Set End Property _ - Public Property SQL_CHECK() As String + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn),String) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn) = value End Set End Property _ - Public Property Indexiert() As Boolean + Public Property NAME() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_MAN.IndexiertColumn),Boolean) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_MAN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = value End Set End Property _ - Public Property Indexwert() As String + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_MAN.IndexwertColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_MAN ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn),String) End Get Set - Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn) = value End Set End Property _ - Public Property _OPTIONAL() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn),Boolean) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = value End Set End Property _ - Public Property Indexwert_File() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn),String) + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert_File in Tabelle VWDDINDEX_MAN ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = value End Set End Property _ - Public Property SAVE_VALUE() As Boolean + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn),Boolean) + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull."& _ + "", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_MAN.SAVE_VALUEColumn) = value + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsWD_INDEXNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) End Function _ - Public Sub SetWD_INDEXNull() - Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.COMMENTColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsDATATYPENull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATATYPEColumn) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) End Function _ - Public Sub SetDATATYPENull() - Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCONNECTIONNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) - End Function - - _ - Public Sub SetCONNECTIONNull() - Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) - End Function - - _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_FILES_USERRow + Inherits Global.System.Data.DataRow - _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.SERVERColumn) - End Function + Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable _ - Public Sub SetSERVERNull() - Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_FILES_USER = CType(Me.Table,TBGI_FILES_USERDataTable) End Sub _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATENBANKColumn) - End Function + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGI_FILES_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGI_FILES_USER.GUIDColumn) = value + End Set + End Property _ - Public Sub SetDATENBANKNull() - Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub + Public Property FILENAME2WORK() As String + Get + Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn),String) + End Get + Set + Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn) = value + End Set + End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.USERNAMEColumn) - End Function + Public Property _USER_WORK() As String + Get + Return CType(Me(Me.tableTBGI_FILES_USER._USER_WORKColumn),String) + End Get + Set + Me(Me.tableTBGI_FILES_USER._USER_WORKColumn) = value + End Set + End Property _ - Public Sub SetUSERNAMENull() - Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property WORKED() As Boolean + Get + Return CType(Me(Me.tableTBGI_FILES_USER.WORKEDColumn),Boolean) + End Get + Set + Me(Me.tableTBGI_FILES_USER.WORKEDColumn) = value + End Set + End Property _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.PASSWORDColumn) - End Function + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn) = value + End Set + End Property _ - Public Sub SetPASSWORDNull() - Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub + Public Property HANDLE_TYPE() As String + Get + Try + Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value + End Set + End Property _ - Public Function IsIndexiertNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexiertColumn) - End Function + Public Property Delete() As Boolean + Get + Try + Return CType(Me(Me.tableTBGI_FILES_USER.DeleteColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Delete in Tabelle TBGI_FILES_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_FILES_USER.DeleteColumn) = value + End Set + End Property _ - Public Sub SetIndexiertNull() - Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Global.System.Convert.DBNull - End Sub + Public Property FILENAME_ONLY() As String + Get + Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn),String) + End Get + Set + Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn) = value + End Set + End Property _ - Public Function IsIndexwertNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexwertColumn) + Public Function IsHANDLE_TYPENull() As Boolean + Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) End Function _ - Public Sub SetIndexwertNull() - Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Global.System.Convert.DBNull + Public Sub SetHANDLE_TYPENull() + Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsIndexwert_FileNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) + Public Function IsDeleteNull() As Boolean + Return Me.IsNull(Me.tableTBGI_FILES_USER.DeleteColumn) End Function _ - Public Sub SetIndexwert_FileNull() - Me(Me.tableVWDDINDEX_MAN.Indexwert_FileColumn) = Global.System.Convert.DBNull + Public Sub SetDeleteNull() + Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWDDINDEX_AUTOMRow + Partial Public Class TBGI_HISTORYRow Inherits Global.System.Data.DataRow - Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable + Private tableTBGI_HISTORY As TBGI_HISTORYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) + Me.tableTBGI_HISTORY = CType(Me.Table,TBGI_HISTORYDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) + Return CType(Me(Me.tableTBGI_HISTORY.GUIDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = value + Me(Me.tableTBGI_HISTORY.GUIDColumn) = value End Set End Property _ - Public Property INDEXNAME() As String + Public Property FILENAME_ORIGINAL() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) + Try + Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_ORIGINAL in Tabelle TBGI_HISTORY ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = value + Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property FILENAME_NEW() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn),String) + Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_NEW in Tabelle TBGI_HISTORY ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = value + Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = value End Set End Property _ - Public Property DOCTYPE_ID() As Integer + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) + Return CType(Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = value + Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn) = value End Set End Property _ - Public Property DOKUMENTART() As String + Public Function IsFILENAME_ORIGINALNull() As Boolean + Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) + End Function + + _ + Public Sub SetFILENAME_ORIGINALNull() + Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFILENAME_NEWNull() As Boolean + Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) + End Function + + _ + Public Sub SetFILENAME_NEWNull() + Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_REGEX_DOCTYPERow + Inherits Global.System.Data.DataRow + + Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_REGEX_DOCTYPE = CType(Me.Table,TBGI_REGEX_DOCTYPEDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn),Integer) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn) = value End Set End Property _ - Public Property KURZNAME() As String + Public Property REGEX() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn),String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property DOCTYPE_ID() As Integer Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) + Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOCTYPE_ID in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = value End Set End Property _ - Public Property CONNECTION() As String + Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn),String) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn),String) + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn),String) + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn),String) + Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = value + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBDD_DOKUMENTARTRow) End Get Set - Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")) End Set End Property _ - Public Property PASSWORD() As String - Get - Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = value - End Set - End Property + Public Function IsDOCTYPE_IDNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) + End Function _ - Public Property SQL_RESULT() As String + Public Sub SetDOCTYPE_IDNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTempFiles2IndexRow + Inherits Global.System.Data.DataRow + + Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTempFiles2Index = CType(Me.Table,TBTempFiles2IndexDataTable) + End Sub + + _ + Public Property Filestring() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) + Try + Return CType(Me(Me.tableTBTempFiles2Index.FilestringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filestring in Tabelle TBTempFiles2Index ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = value + Me(Me.tableTBTempFiles2Index.FilestringColumn) = value End Set End Property _ - Public Property Indexiert() As Boolean + Public Property Worked() As Boolean Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn),Boolean) + Return CType(Me(Me.tableTBTempFiles2Index.WorkedColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Worked in Tabelle TBTempFiles2Index ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = value + Me(Me.tableTBTempFiles2Index.WorkedColumn) = value End Set End Property _ - Public Property Indexwert() As String + Public Function IsFilestringNull() As Boolean + Return Me.IsNull(Me.tableTBTempFiles2Index.FilestringColumn) + End Function + + _ + Public Sub SetFilestringNull() + Me(Me.tableTBTempFiles2Index.FilestringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWorkedNull() As Boolean + Return Me.IsNull(Me.tableTBTempFiles2Index.WorkedColumn) + End Function + + _ + Public Sub SetWorkedNull() + Me(Me.tableTBTempFiles2Index.WorkedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTEMP_INDEXRESULTSRow + Inherits Global.System.Data.DataRow + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) + End Sub + + _ + Public Property Indexname() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn),String) + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = value + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value End Set End Property _ - Public Property VALUE() As String + Public Property Value() As String Get Try - Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn),String) + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = value + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value End Set End Property _ - Public Property SQL_ACTIVE() As Boolean + Public Property Dokumentart() As String Get - Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try End Get Set - Me(Me.tableVWDDINDEX_AUTOM.SQL_ACTIVEColumn) = value + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) + Public Function IsIndexnameNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetIndexnameNull() + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTIONNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) + Public Function IsValueNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) End Function _ - Public Sub SetCONNECTIONNull() - Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Global.System.Convert.DBNull + Public Sub SetValueNull() + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) + Public Function IsDokumentartNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) End Function _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + Public Sub SetDokumentartNull() + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBAD_UsersRow + Inherits Global.System.Data.DataRow - _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SERVERColumn) - End Function + Private tableTBAD_Users As TBAD_UsersDataTable _ - Public Sub SetSERVERNull() - Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) End Sub _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) - End Function - - _ - Public Sub SetDATENBANKNull() - Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub + Public Property _Select() As Boolean + Get + Try + Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBAD_Users.SelectColumn) = value + End Set + End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) - End Function - - _ - Public Sub SetPASSWORDNull() - Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsIndexiertNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) - End Function - - _ - Public Sub SetIndexiertNull() - Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsIndexwertNull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) - End Function - - _ - Public Sub SetIndexwertNull() - Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsVALUENull() As Boolean - Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) - End Function - - _ - Public Sub SetVALUENull() - Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_INDEX_AUTOMRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value - End Set - End Property - - _ - Public Property DOCTYPE_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value - End Set - End Property - - _ - Public Property INDEXNAME() As String - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value - End Set - End Property - - _ - Public Property VALUE() As String - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value - End Set - End Property - - _ - Public Property CONNECTION_ID() As Short - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String + Public Property Username() As String Get Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + Me(Me.tableTBAD_Users.UsernameColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property Prename() As String Get Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + Me(Me.tableTBAD_Users.PrenameColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property Surname() As String Get Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + Me(Me.tableTBAD_Users.SurnameColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property Email() As String Get Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + Me(Me.tableTBAD_Users.EmailColumn) = value End Set End Property _ - Public Property SQL_RESULT() As String + Public Property ID() As Short Get Try - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + Me(Me.tableTBAD_Users.IDColumn) = value End Set End Property _ - Public Property SQL_ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value - End Set - End Property + Public Function Is_SelectNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) + End Function _ - Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) - End Set - End Property + Public Sub Set_SelectNull() + Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsVALUENull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function _ - Public Sub SetVALUENull() - Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + Public Sub SetUsernameNull() + Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull + Public Sub SetPrenameNull() + Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetSurnameNull() + Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetEmailNull() + Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetIDNull() + Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) - End Function + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsSQL_RESULTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) - End Function + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetSQL_RESULTNull() - Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBGI_CONFIGURATIONRow - Inherits Global.System.Data.DataRow + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBGI_CONFIGURATION = CType(Me.Table,TBGI_CONFIGURATIONDataTable) + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Byte + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn),Byte) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_CONFIGURATION.GUIDColumn) = value - End Set End Property _ - Public Property IDX_EMAIL_ID() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EINGANGSARTENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EINGANGSARTENRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property IDX_EMAIL_FROM() As String - Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn),String) - End Get - Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property IDX_EMAIL_TO() As String + Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn),String) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn) = value - End Set End Property _ - Public Property IDX_EMAIL_SUBJECT() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKART_MODULERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKART_MODULERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property IDX_EMAIL_DATE_IN() As String - Get - Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn),String) - End Get - Set - Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property Row() As TBDD_DOKART_MODULERow Get - Try - Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_CONFIGURATION ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_CONFIGURATION ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_MODULESRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) - End Function + Private eventRow As TBDD_MODULESRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBDD_MODULESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBDD_MODULESRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRow - Inherits Global.System.Data.DataRow + _ + Public Class TBDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Private eventRow As TBDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Integer + Public ReadOnly Property Row() As TBDD_INDEX_MANRow Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn) = value - End Set End Property _ - Public Property OBJECTTYPE() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property IDX_EMAIL_ID() As String + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn),String) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn) = value - End Set End Property _ - Public Property IDX_EMAIL_FROM() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWDDINDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWDDINDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property IDX_EMAIL_TO() As String - Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn),String) - End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn) = value - End Set - End Property + Public Sub New(ByVal row As VWDDINDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property IDX_EMAIL_SUBJECT() As String + Public ReadOnly Property Row() As VWDDINDEX_MANRow Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn),String) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn) = value - End Set End Property _ - Public Property IDX_EMAIL_DATE_IN() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWDDINDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWDDINDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn) = value - End Set - End Property + Public Sub New(ByVal row As VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property Row() As VWDDINDEX_AUTOMRow Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull."& _ - "", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull"& _ - ".", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property IDX_CHECK_ATTACHMENT() As String + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow Get - Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn),String) + Return Me.eventRow End Get - Set - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn) = value - End Set End Property _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) - End Function + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_CONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Private eventRow As TBGI_CONFIGURATIONRow - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBGI_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBGI_CONFIGURATIONRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGRow - Inherits Global.System.Data.DataRow + _ + Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable + Private eventRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(Me.Table,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + Public Sub New(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Integer + Public ReadOnly Property Row() As TBGI_OBJECTTYPE_EMAIL_INDEXRow Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn) = value - End Set End Property _ - Public Property IDXMAN_ID() As Integer + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn),Integer) + Return Me.eventAction End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_MAN_POSTPROCESSINGRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property TYPE() As String + Public ReadOnly Property Row() As TBDD_INDEX_MAN_POSTPROCESSINGRow Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = value - End Set End Property _ - Public Property FUNCTION1() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ - ".", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWHDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWHDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property FUNCTION2() As String - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ - ".", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = value - End Set - End Property + Public Sub New(ByVal row As TBWHDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property TEXT1() As String + Public ReadOnly Property Row() As TBWHDD_INDEX_MANRow Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = value - End Set End Property _ - Public Property TEXT2() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPS_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPS_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property TEXT3() As String - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT3 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = value - End Set - End Property + Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property SEQUENCE() As Integer + Public ReadOnly Property Row() As TBDD_GROUPS_USERRow Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGI_USER_GROUPS_RELATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGI_USER_GROUPS_RELATIONRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_INDEX_MAN_POSTPROCESSING ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = value - End Set - End Property + Public Sub New(ByVal row As VWGI_USER_GROUPS_RELATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property Row() As VWGI_USER_GROUPS_RELATIONRow Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_INDEX_MAN_POSTPROCESSING ist DBNu"& _ - "ll.", e) - End Try + Return Me.eventRow End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Try - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.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_INDEX_MAN_POSTPROCESSING ist DBN"& _ - "ull.", e) - End Try + Return Me.eventAction End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = value - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_FILES_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGI_FILES_USERRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Property _VARIANT() As String - Get - Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn),String) - End Get - Set - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.VARIANTColumn) = value - End Set - End Property + Public Sub New(ByVal row As TBGI_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Property TBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Public ReadOnly Property Row() As TBGI_FILES_USERRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MANRow) + Return Me.eventRow End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")) - End Set End Property _ - Public Property TBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBWHDD_INDEX_MANRow) + Return Me.eventAction End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")) - End Set End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_HISTORYRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) - End Function + Private eventRow As TBGI_HISTORYRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBGI_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsTYPENull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) - End Function + Public ReadOnly Property Row() As TBGI_HISTORYRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetTYPENull() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_REGEX_DOCTYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGI_REGEX_DOCTYPERow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Function IsFUNCTION1Null() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) - End Function + Public Sub New(ByVal row As TBGI_REGEX_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub _ - Public Sub SetFUNCTION1Null() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFUNCTION2Null() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) - End Function - - _ - Public Sub SetFUNCTION2Null() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Row() As TBGI_REGEX_DOCTYPERow + Get + Return Me.eventRow + End Get + End Property _ - Public Function IsTEXT1Null() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) - End Function + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTempFiles2IndexRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Sub SetTEXT1Null() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Global.System.Convert.DBNull - End Sub + Private eventRow As TBTempFiles2IndexRow - _ - Public Function IsTEXT2Null() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetTEXT2Null() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBTempFiles2IndexRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsTEXT3Null() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) - End Function - - _ - Public Sub SetTEXT3Null() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Row() As TBTempFiles2IndexRow + Get + Return Me.eventRow + End Get + End Property _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) - End Function + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTEMP_INDEXRESULTSRowChangeEvent + Inherits Global.System.EventArgs - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Private eventRow As TBTEMP_INDEXRESULTSRow - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) - End Function + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) - End Function + Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow + Get + Return Me.eventRow + End Get + End Property _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class TBWHDD_INDEX_MANRow - Inherits Global.System.Data.DataRow + _ + Public Class TBAD_UsersRowChangeEvent + Inherits Global.System.EventArgs - Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable + Private eventRow As TBAD_UsersRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWHDD_INDEX_MAN = CType(Me.Table,TBWHDD_INDEX_MANDataTable) + Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property GUID() As Integer + Public ReadOnly Property Row() As TBAD_UsersRow Get - Return CType(Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn),Integer) + Return Me.eventRow End Get - Set - Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn) = value - End Set End Property _ - Public Property NAME() As String + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get - Return CType(Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn),String) + Return Me.eventAction End Get - Set - Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn) = value - End Set End Property - - _ - Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() - If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") Is Nothing) Then - Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) - End If - End Function End Class +End Class + +Namespace MyDatasetTableAdapters ''' - '''Represents strongly named DataRow class. + '''Represents the connection and commands used to retrieve and save data. ''' - Partial Public Class TBDD_GROUPS_USERRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBDD_USERTableAdapter + Inherits Global.System.ComponentModel.Component - Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true End Sub _ - Public Property GUID() As Integer + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter End Get - Set - Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value - End Set End Property _ - Public Property USER_ID() As Integer + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection End Get Set - Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop End Set End Property _ - Public Property GROUP_ID() As Integer + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + Return Me._transaction End Get Set - Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If End Set End Property _ - Public Property ADDED_WHEN() As Date + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) - End Try + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection End Get - Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public Property ClearBeforeFill() As Boolean Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + Return Me._clearBeforeFill End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + Me._clearBeforeFill = value End Set End Property _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value - End Set - End Property + Private Sub InitAdapter() + 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" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ + "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ + "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ + "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ + "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ + "D [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_W"& _ + "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS N"& _ + "ULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ([LANGUAGE] = @Original_LANGUAG"& _ + "E))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "ADDED_WHO, LANGUAGE, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,"& _ + "@ADDED_WHO,@LANGUAGE,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMA"& _ + "IL, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WH"& _ + "ERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUA"& _ + "GE, SHORTNAME = @SHORTNAME"&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 GU"& _ + "ID, PRENAME, NAME, USERNAME, EMAIL, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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, "", "", "")) + End Sub _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.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_GROUPS_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value - End Set - End Property + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub _ - Public Property TBDD_USERRow() As TBDD_USERRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) - End Set - End Property + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN, LANGUAGE, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByAll() As MyDataset.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWGI_USER_GROUPS_RELATIONRow - Inherits Global.System.Data.DataRow - - Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table,VWGI_USER_GROUPS_RELATIONDataTable) - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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") + End Function _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn) = value - End Set - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn),Integer) - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn),String) - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property GROUP_ID() As Integer - Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn),Integer) - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PROFILE = CType(Me.Table,TBHOTKEY_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Property OBJECTTYPE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property HOTKEY1() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column) = value - End Set - End Property - - _ - Public Property HOTKEY2() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column) = value - End Set - End Property - - _ - Public Property WINDOW_NAME() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property _String() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.StringColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Is_StringNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.StringColumn) - End Function - - _ - Public Sub Set_StringNull() - Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_PATTERNSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PATTERNSRow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_USER_PROFILERow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_WINDOW_HOOKRows() As TBHOTKEY_WINDOW_HOOKRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_WINDOW_HOOKRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_WINDOW_HOOKRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PATTERNSRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS = CType(Me.Table,TBHOTKEY_PATTERNSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property PATTERN_WDSEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn) = value - End Set - End Property - - _ - Public Property WINDOW_CONTROL() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE_NUMBER() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")) - End Set - End Property - - _ - Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBMYHOTKEYSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNS_REWORKRows() As TBHOTKEY_PATTERNS_REWORKRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Is Nothing) Then - Return New TBHOTKEY_PATTERNS_REWORKRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNS_REWORKRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBMYHOTKEYSRow - Inherits Global.System.Data.DataRow - - Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBMYHOTKEYS = CType(Me.Table,TBMYHOTKEYSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBMYHOTKEYS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBMYHOTKEYS.GUIDColumn) = value - End Set - End Property - - _ - Public Property _String() As String - Get - Try - Return CType(Me(Me.tableTBMYHOTKEYS.StringColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBMYHOTKEYS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBMYHOTKEYS.StringColumn) = value - End Set - End Property - - _ - Public Function Is_StringNull() As Boolean - Return Me.IsNull(Me.tableTBMYHOTKEYS.StringColumn) - End Function - - _ - Public Sub Set_StringNull() - Me(Me.tableTBMYHOTKEYS.StringColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") Is Nothing) Then - Return New TBHOTKEY_PATTERNSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBHOTKEY_PATTERNSRow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBHOTKEY_USER_PROFILERow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_USER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_USER_PROFILE = CType(Me.Table,TBHOTKEY_USER_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property HOTKEY1() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column) = value - End Set - End Property - - _ - Public Property HOTKEY2() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")) - End Set - End Property - - _ - Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBMYHOTKEYSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")) - End Set - End Property - - _ - Public Property TBDD_USERRow() As TBDD_USERRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBDD_USERRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PATTERNS_REWORKRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table,TBHOTKEY_PATTERNS_REWORKDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPATTERN_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn) = value - End Set - End Property - - _ - Public Property TYPE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn) = value - End Set - End Property - - _ - Public Property FUNCTION1() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = value - End Set - End Property - - _ - Public Property FUNCTION2() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = value - End Set - End Property - - _ - Public Property TEXT1() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = value - End Set - End Property - - _ - Public Property TEXT2() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = value - End Set - End Property - - _ - Public Property SEQUENCE() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")) - End Set - End Property - - _ - Public Function IsFUNCTION1Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) - End Function - - _ - Public Sub SetFUNCTION1Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFUNCTION2Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) - End Function - - _ - Public Sub SetFUNCTION2Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTEXT1Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) - End Function - - _ - Public Sub SetTEXT1Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTEXT2Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) - End Function - - _ - Public Sub SetTEXT2Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_WINDOW_HOOKRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table,TBHOTKEY_WINDOW_HOOKDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE_NUMBER() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn) = value - End Set - End Property - - _ - Public Property CONTROL_VALUE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBGI_FILES_USERRow - Inherits Global.System.Data.DataRow - - Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBGI_FILES_USER = CType(Me.Table,TBGI_FILES_USERDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBGI_FILES_USER.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBGI_FILES_USER.GUIDColumn) = value - End Set - End Property - - _ - Public Property FILENAME2WORK() As String - Get - Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn),String) - End Get - Set - Me(Me.tableTBGI_FILES_USER.FILENAME2WORKColumn) = value - End Set - End Property - - _ - Public Property _USER_WORK() As String - Get - Return CType(Me(Me.tableTBGI_FILES_USER._USER_WORKColumn),String) - End Get - Set - Me(Me.tableTBGI_FILES_USER._USER_WORKColumn) = value - End Set - End Property - - _ - Public Property WORKED() As Boolean - Get - Return CType(Me(Me.tableTBGI_FILES_USER.WORKEDColumn),Boolean) - End Get - Set - Me(Me.tableTBGI_FILES_USER.WORKEDColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBGI_FILES_USER.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property HANDLE_TYPE() As String - Get - Try - Return CType(Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte HANDLE_TYPE in Tabelle TBGI_FILES_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = value - End Set - End Property - - _ - Public Property Delete() As Boolean - Get - Try - Return CType(Me(Me.tableTBGI_FILES_USER.DeleteColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Delete in Tabelle TBGI_FILES_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_FILES_USER.DeleteColumn) = value - End Set - End Property - - _ - Public Property FILENAME_ONLY() As String - Get - Return CType(Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn),String) - End Get - Set - Me(Me.tableTBGI_FILES_USER.FILENAME_ONLYColumn) = value - End Set - End Property - - _ - Public Function IsHANDLE_TYPENull() As Boolean - Return Me.IsNull(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) - End Function - - _ - Public Sub SetHANDLE_TYPENull() - Me(Me.tableTBGI_FILES_USER.HANDLE_TYPEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDeleteNull() As Boolean - Return Me.IsNull(Me.tableTBGI_FILES_USER.DeleteColumn) - End Function - - _ - Public Sub SetDeleteNull() - Me(Me.tableTBGI_FILES_USER.DeleteColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBGI_HISTORYRow - Inherits Global.System.Data.DataRow - - Private tableTBGI_HISTORY As TBGI_HISTORYDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBGI_HISTORY = CType(Me.Table,TBGI_HISTORYDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBGI_HISTORY.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBGI_HISTORY.GUIDColumn) = value - End Set - End Property - - _ - Public Property FILENAME_ORIGINAL() As String - Get - Try - Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_ORIGINAL in Tabelle TBGI_HISTORY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = value - End Set - End Property - - _ - Public Property FILENAME_NEW() As String - Get - Try - Return CType(Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FILENAME_NEW in Tabelle TBGI_HISTORY ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableTBGI_HISTORY.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsFILENAME_ORIGINALNull() As Boolean - Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) - End Function - - _ - Public Sub SetFILENAME_ORIGINALNull() - Me(Me.tableTBGI_HISTORY.FILENAME_ORIGINALColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFILENAME_NEWNull() As Boolean - Return Me.IsNull(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) - End Function - - _ - Public Sub SetFILENAME_NEWNull() - Me(Me.tableTBGI_HISTORY.FILENAME_NEWColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBGI_REGEX_DOCTYPERow - Inherits Global.System.Data.DataRow - - Private tableTBGI_REGEX_DOCTYPE As TBGI_REGEX_DOCTYPEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBGI_REGEX_DOCTYPE = CType(Me.Table,TBGI_REGEX_DOCTYPEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.GUIDColumn) = value - End Set - End Property - - _ - Public Property REGEX() As String - Get - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn),String) - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.REGEXColumn) = value - End Set - End Property - - _ - Public Property DOCTYPE_ID() As Integer - Get - Try - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DOCTYPE_ID in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_REGEX_DOCTYPE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")),TBDD_DOKUMENTARTRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBGI_REGEX_DOCTYPE_DTID")) - End Set - End Property - - _ - Public Function IsDOCTYPE_IDNull() As Boolean - Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) - End Function - - _ - Public Sub SetDOCTYPE_IDNull() - Me(Me.tableTBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBGI_REGEX_DOCTYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBGI_REGEX_DOCTYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBTempFiles2IndexRow - Inherits Global.System.Data.DataRow - - Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBTempFiles2Index = CType(Me.Table,TBTempFiles2IndexDataTable) - End Sub - - _ - Public Property Filestring() As String - Get - Try - Return CType(Me(Me.tableTBTempFiles2Index.FilestringColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filestring in Tabelle TBTempFiles2Index ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBTempFiles2Index.FilestringColumn) = value - End Set - End Property - - _ - Public Property Worked() As Boolean - Get - Try - Return CType(Me(Me.tableTBTempFiles2Index.WorkedColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Worked in Tabelle TBTempFiles2Index ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBTempFiles2Index.WorkedColumn) = value - End Set - End Property - - _ - Public Function IsFilestringNull() As Boolean - Return Me.IsNull(Me.tableTBTempFiles2Index.FilestringColumn) - End Function - - _ - Public Sub SetFilestringNull() - Me(Me.tableTBTempFiles2Index.FilestringColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsWorkedNull() As Boolean - Return Me.IsNull(Me.tableTBTempFiles2Index.WorkedColumn) - End Function - - _ - Public Sub SetWorkedNull() - Me(Me.tableTBTempFiles2Index.WorkedColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBTEMP_INDEXRESULTSRow - Inherits Global.System.Data.DataRow - - Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) - End Sub - - _ - Public Property Indexname() As String - Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value - End Set - End Property - - _ - Public Property Value() As String - Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value - End Set - End Property - - _ - Public Property Dokumentart() As String - Get - Try - Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value - End Set - End Property - - _ - Public Function IsIndexnameNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) - End Function - - _ - Public Sub SetIndexnameNull() - Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsValueNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) - End Function - - _ - Public Sub SetValueNull() - Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDokumentartNull() As Boolean - Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) - End Function - - _ - Public Sub SetDokumentartNull() - Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBAD_UsersRow - Inherits Global.System.Data.DataRow - - Private tableTBAD_Users As TBAD_UsersDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) - End Sub - - _ - Public Property _Select() As Boolean - Get - Try - Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.SelectColumn) = value - End Set - End Property - - _ - Public Property Username() As String - Get - Try - Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.UsernameColumn) = value - End Set - End Property - - _ - Public Property Prename() As String - Get - Try - Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.PrenameColumn) = value - End Set - End Property - - _ - Public Property Surname() As String - Get - Try - Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.SurnameColumn) = value - End Set - End Property - - _ - Public Property Email() As String - Get - Try - Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.EmailColumn) = value - End Set - End Property - - _ - Public Property ID() As Short - Get - Try - Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBAD_Users.IDColumn) = value - End Set - End Property - - _ - Public Function Is_SelectNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) - End Function - - _ - Public Sub Set_SelectNull() - Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUsernameNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) - End Function - - _ - Public Sub SetUsernameNull() - Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsPrenameNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) - End Function - - _ - Public Sub SetPrenameNull() - Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSurnameNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) - End Function - - _ - Public Sub SetSurnameNull() - Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEmailNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) - End Function - - _ - Public Sub SetEmailNull() - Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsIDNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.IDColumn) - End Function - - _ - Public Sub SetIDNull() - Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_USERRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_DOKUMENTARTRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_DOKUMENTARTRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_EINGANGSARTENRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_EINGANGSARTENRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_DOKART_MODULERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_DOKART_MODULERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_DOKART_MODULERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_MODULESRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_MODULESRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_MODULESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_MODULESRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_INDEX_MANRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_INDEX_MANRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_INDEX_MANRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_CONNECTIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWDDINDEX_MANRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWDDINDEX_MANRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWDDINDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWDDINDEX_MANRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWDDINDEX_AUTOMRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWDDINDEX_AUTOMRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWDDINDEX_AUTOMRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_INDEX_AUTOMRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_INDEX_AUTOMRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBGI_CONFIGURATIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBGI_CONFIGURATIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBGI_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBGI_CONFIGURATIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBGI_OBJECTTYPE_EMAIL_INDEXRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_INDEX_MAN_POSTPROCESSINGRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_INDEX_MAN_POSTPROCESSINGRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBWHDD_INDEX_MANRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBWHDD_INDEX_MANRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBWHDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBWHDD_INDEX_MANRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_GROUPS_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_GROUPS_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBDD_GROUPS_USERRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWGI_USER_GROUPS_RELATIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWGI_USER_GROUPS_RELATIONRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWGI_USER_GROUPS_RELATIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWGI_USER_GROUPS_RELATIONRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PATTERNSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PATTERNSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PATTERNSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PATTERNSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBMYHOTKEYSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBMYHOTKEYSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBMYHOTKEYSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBMYHOTKEYSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_USER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_USER_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_USER_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PATTERNS_REWORKRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PATTERNS_REWORKRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PATTERNS_REWORKRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PATTERNS_REWORKRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_WINDOW_HOOKRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_WINDOW_HOOKRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_WINDOW_HOOKRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_WINDOW_HOOKRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBGI_FILES_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBGI_FILES_USERRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBGI_FILES_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBGI_FILES_USERRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBGI_HISTORYRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBGI_HISTORYRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBGI_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBGI_HISTORYRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBGI_REGEX_DOCTYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBGI_REGEX_DOCTYPERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBGI_REGEX_DOCTYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBGI_REGEX_DOCTYPERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBTempFiles2IndexRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBTempFiles2IndexRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBTempFiles2IndexRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBTempFiles2IndexRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBTEMP_INDEXRESULTSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBTEMP_INDEXRESULTSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBAD_UsersRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBAD_UsersRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBAD_UsersRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class -End Class - -Namespace MyDatasetTableAdapters - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_USERTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ - "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ - "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ - "l_USERNAME) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original"& _ - "_EMAIL)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _ - "D [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_W"& _ - "HEN] = @Original_CHANGED_WHEN)) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS N"& _ - "ULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ([LANGUAGE] = @Original_LANGUAG"& _ - "E))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "ADDED_WHO, LANGUAGE, SHORTNAME)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,"& _ - "@ADDED_WHO,@LANGUAGE,@SHORTNAME); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMA"& _ - "IL, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WH"& _ - "ERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, CHANGED_WHO = @CHANGED_WHO, LANGUAGE = @LANGUA"& _ - "GE, SHORTNAME = @SHORTNAME"&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 GU"& _ - "ID, PRENAME, NAME, USERNAME, EMAIL, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", 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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, SHORTNAME, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN, LANGUAGE, SHORTNAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByAll() As MyDataset.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SHORTNAME As String, ByVal Original_LANGUAGE As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_PRENAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) - End If - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) - End If - If (Original_USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USERNAME") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) - End If - If (Original_EMAIL Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SHORTNAME,String) - End If - If (Original_LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LANGUAGE") - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_LANGUAGE,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_DOKUMENTARTTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_DOKUMENTART" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") - tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") - tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") - tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") - tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") - tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ - "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ - "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" D"& _ - "UPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_"& _ - "PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIR"& _ - "ECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ - "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ - " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKU"& _ - "MENTART WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ - "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ - "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ - "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ - "NDREAM_DIRECT = @WINDREAM_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _ - "@FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _ - "G"&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, BEZEICHNUNG, EINGAN"& _ - "GSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER"& _ - ", ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHER"& _ - "E (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ - "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ - "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BE"& _ - "ZEICHNUNG" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, FOL"& _ - "DER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ - "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ - "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ - "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_MODULES AS T1 ON T.MODULE_ID = "& _ - "T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _ - ")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_DOKUMENTARTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) - If (KURZNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("KURZNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) - End If - If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) - If (NAMENKONVENTION Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) - End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) - End If - If (OBJEKTTYP Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) - End If - Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) - If (FOLDER_FOR_INDEX Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) - End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) - If (DUPLICATE_HANDLING Is Nothing) Then - Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) - If (KURZNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("KURZNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) - End If - If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) - If (NAMENKONVENTION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) - End If - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) - End If - If (OBJEKTTYP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) - If (FOLDER_FOR_INDEX Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) - If (DUPLICATE_HANDLING Is Nothing) Then - Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(14).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (GEANDERTWER Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(GEANDERTWER,String) - End If - If (FOLDER_FOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") - Else - command.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) - End If - command.Parameters(2).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_EINGANGSARTENTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_EINGANGSARTEN" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ - "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ - "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, B"& _ - "ESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ - "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWA"& _ - "NN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_EINGANGSARTEN.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_EINGANGSARTENDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_EINGANGSARTENDataTable = New MyDataset.TBDD_EINGANGSARTENDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) - End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) - End If - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GEANDERTWER,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Byte) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Byte) - 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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_DOKART_MODULETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_DOKART_MODULE" - tableMapping.ColumnMappings.Add("ID", "ID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T.GUID AS ID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART_MODULE AS T"& _ - " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUI"& _ - "D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.DOKART_ID = @DOKARTID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKARTID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKA"& _ - "RT_ID,@MODUL_EID,@WHO)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODUL_EID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) - Dim dataTable As MyDataset.TBDD_DOKART_MODULEDataTable = New MyDataset.TBDD_DOKART_MODULEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(DOKART_ID,Integer) - command.Parameters(1).Value = CType(MODUL_EID,Integer) - If (WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("WHO") - Else - command.Parameters(2).Value = CType(WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_MODULESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_MODULES" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_MODULESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_MODULESDataTable = New MyDataset.TBDD_MODULESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_INDEX_MANTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_INDEX_MAN" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") - tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") - tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") - tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") - tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") - tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") - tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") - tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ - "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ - "SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE, VKT_ADD_ITEM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " VKT_PREVENT_MULTIPLE_VALUES, MULTISELECT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _ - "NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _ - "UENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE,@MULTISELE"& _ - "CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, W"& _ - "D_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, "& _ - "SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ - " OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", 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_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ - "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _ - "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ - "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ - "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, OPTIONAL = @OPTIONAL, "& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SAVE_VALUE = @SAVE_VALUE, MULTISELECT = @MULTISELECT,"& _ - " VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _ - "LE_VALUES"&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, DOK_ID, NAME,"& _ - " WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE"& _ - ", SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ - "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _ - "D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL, SAVE_VAL"& _ - "UE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _ - "_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - Dim dataTable As MyDataset.TBDD_INDEX_MANDataTable = New MyDataset.TBDD_INDEX_MANDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal DOK_ID As Integer, _ - ByVal NAME As String, _ - ByVal WD_INDEX As String, _ - ByVal COMMENT As String, _ - ByVal DATATYPE As String, _ - ByVal SUGGESTION As Boolean, _ - ByVal DEFAULT_VALUE As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_RESULT As String, _ - ByVal SQL_CHECK As String, _ - ByVal ACTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal _OPTIONAL As Boolean, _ - ByVal SAVE_VALUE As Boolean, _ - ByVal MULTISELECT As Boolean, _ - ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Global.System.Nullable(Of Boolean)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (WD_INDEX Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (DATATYPE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) - If (DEFAULT_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) - If (SQL_RESULT Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RESULT") - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) - End If - If (SQL_CHECK Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_CHECK") - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String) - End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ACTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) - Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) - Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) - If (VKT_PREVENT_MULTIPLE_VALUES.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES.Value,Boolean) - Else - Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal DOK_ID As Integer, _ - ByVal NAME As String, _ - ByVal WD_INDEX As String, _ - ByVal COMMENT As String, _ - ByVal DATATYPE As String, _ - ByVal SUGGESTION As Boolean, _ - ByVal DEFAULT_VALUE As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_RESULT As String, _ - ByVal SQL_CHECK As String, _ - ByVal ACTIVE As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal _OPTIONAL As Boolean, _ - ByVal SAVE_VALUE As Boolean, _ - ByVal MULTISELECT As Global.System.Nullable(Of Boolean), _ - ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (WD_INDEX Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) - End If - If (DATATYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) - If (DEFAULT_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) - If (SQL_RESULT Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RESULT") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) - End If - If (SQL_CHECK Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_CHECK") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) - If (MULTISELECT.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT.Value,Boolean) - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(19).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_CONNECTIONTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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_CONNECTION" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ - "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ - "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ - "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ - "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ - "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ - "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ - "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ - "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ - "OM TBDD_CONNECTION WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PRENAME As String, ByVal Original_NAME As String, ByVal Original_USERNAME As String, ByVal Original_EMAIL As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_SHORTNAME As String, ByVal Original_LANGUAGE As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_PRENAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) + End If + If (Original_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_NAME,String) + End If + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) + End If + If (Original_EMAIL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_EMAIL,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_SHORTNAME,String) + End If + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_LANGUAGE,String) + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -21397,47 +15354,41 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer - If (BEZEICHNUNG Is Nothing) Then + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String) As Integer + If (PRENAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) End If - If (SQL_PROVIDER Is Nothing) Then + If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If - If (SERVER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) End If - If (DATENBANK Is Nothing) Then + If (EMAIL Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) End If - If (USERNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If - If (PASSWORD Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) End If - If (BEMERKUNG Is Nothing) Then + If (SHORTNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SHORTNAME,String) 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) _ @@ -21458,261 +15409,57 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer - If (BEZEICHNUNG Is Nothing) Then + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) End If - If (SQL_PROVIDER Is Nothing) Then + If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If - If (SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) End If - If (DATENBANK Is Nothing) Then + If (EMAIL Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) End If - If (USERNAME Is Nothing) Then + If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) - End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) - 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 - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWDDINDEX_MANTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - 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 = "VWDDINDEX_MAN" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") - tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") - tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") - tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") - tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") - tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") - tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") - tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _ - "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _ - ", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _ - ", SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_MANDataTable, ByVal DokID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal DokID As Integer) As MyDataset.VWDDINDEX_MANDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - Dim dataTable As MyDataset.VWDDINDEX_MANDataTable = New MyDataset.VWDDINDEX_MANDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SHORTNAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function End Class @@ -21725,7 +15472,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 VWDDINDEX_AUTOMTableAdapter + Partial Public Class TBDD_DOKUMENTARTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -21842,24 +15589,83 @@ 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 = "VWDDINDEX_AUTOM" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") + tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("DUPLICATE_HANDLING", "DUPLICATE_HANDLING") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ + "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" D"& _ + "UPLICATE_HANDLING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_"& _ + "PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIR"& _ + "ECT,@FOLDER_FOR_INDEX,@SEQUENCE,@DUPLICATE_HANDLING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICH"& _ + "NUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION,"& _ + " ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKU"& _ + "MENTART WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ + "NDREAM_DIRECT = @WINDREAM_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _ + "@FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE, DUPLICATE_HANDLING = @DUPLICATE_HANDLIN"& _ + "G"&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, BEZEICHNUNG, EINGAN"& _ + "GSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER"& _ + ", ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHER"& _ + "E (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DUPLICATE_HANDLING", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "DUPLICATE_HANDLING", 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, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ - "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ - "SULT, VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _ - "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)" + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ + "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ + "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BE"& _ + "ZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, FOL"& _ + "DER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ + "ER, GEAENDERTWANN, OBJEKTTYP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX, SEQUE"& _ + "NCE, DUPLICATE_HANDLING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT T.DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES AS T1 ON T.MODULE_ID = "& _ + "T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (T1.NAME = 'Global-Indexer'"& _ + ")))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + 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) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function GetData(ByVal DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) - Dim dataTable As MyDataset.VWDDINDEX_AUTOMDataTable = New MyDataset.VWDDINDEX_AUTOMDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal DUPLICATE_HANDLING As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + If (DUPLICATE_HANDLING Is Nothing) Then + Throw New Global.System.ArgumentNullException("DUPLICATE_HANDLING") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(DUPLICATE_HANDLING,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (GEANDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(GEANDERTWER,String) + End If + If (FOLDER_FOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLDER_FOR_INDEX") + Else + command.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue End Function End Class @@ -21919,7 +15988,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_INDEX_AUTOMTableAdapter + Partial Public Class TBDD_EINGANGSARTENTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -22036,65 +16105,42 @@ 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_INDEX_AUTOM" + tableMapping.DataSetTable = "TBDD_EINGANGSARTEN" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") - tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ - "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ - ",@SQL_RESULT,@SQL_ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _ - "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _ - "ESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ + "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ - "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ - "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ - "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _ - "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _ - "NDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, B"& _ + "ESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWA"& _ + "NN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", 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("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -22135,10 +16177,9 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBDD_EINGANGSARTENDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - Dim dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable = New MyDataset.TBDD_INDEX_AUTOMDataTable() + Dim dataTable As MyDataset.TBDD_EINGANGSARTENDataTable = New MyDataset.TBDD_EINGANGSARTENDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -22146,7 +16187,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -22154,7 +16195,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_INDEX_AUTOM") + Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -22196,40 +16237,22 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (VALUE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) End If - If (SQL_RESULT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -22249,42 +16272,24 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) - End If - If (VALUE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) - End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) End If - If (SQL_RESULT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GEANDERTWER,String) End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Byte) 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 @@ -22310,7 +16315,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 TBGI_CONFIGURATIONTableAdapter + Partial Public Class TBDD_DOKART_MODULETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -22427,32 +16432,10 @@ 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 = "TBGI_CONFIGURATION" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") - tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") - tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") - tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") - tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.DataSetTable = "TBDD_DOKART_MODULE" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, IDX_EMAIL_ID = "& _ - "@IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, I"& _ - "DX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_EMAIL_DATE"& _ - "_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX"& _ - "_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = "& _ - "@GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT"& _ - ", IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_CONFIGURATI"& _ - "ON"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(0).CommandText = "SELECT T.GUID AS ID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART_MODULE AS T"& _ + " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUI"& _ + "D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.DOKART_ID = @DOKARTID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKARTID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKA"& _ + "RT_ID,@MODUL_EID,@WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODUL_EID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -22491,90 +16484,41 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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.TBGI_CONFIGURATIONDataTable + Public Overloads Overridable Function GetData(ByVal DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBGI_CONFIGURATIONDataTable = New MyDataset.TBGI_CONFIGURATIONDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) + Dim dataTable As MyDataset.TBDD_DOKART_MODULEDataTable = New MyDataset.TBDD_DOKART_MODULEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBGI_CONFIGURATION") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - _ - Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Byte) - If (IDX_EMAIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) - End If - If (IDX_EMAIL_FROM Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) - End If - If (IDX_EMAIL_TO Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) - End If - If (IDX_EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) - End If - If (IDX_EMAIL_DATE_IN Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(DOKART_ID,Integer) + command.Parameters(1).Value = CType(MODUL_EID,Integer) + If (WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("WHO") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + command.Parameters(2).Value = CType(WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function End Class @@ -22587,7 +16531,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 TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + Partial Public Class TBDD_MODULESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -22696,74 +16640,18 @@ Namespace MyDatasetTableAdapters Set Me._clearBeforeFill = value End Set - End Property - - _ - Private Sub InitAdapter() - 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 = "TBGI_OBJECTTYPE_EMAIL_INDEX" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") - tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") - tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") - tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") - tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") - tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("IDX_CHECK_ATTACHMENT", "IDX_CHECK_ATTACHMENT") + End Property + + _ + Private Sub InitAdapter() + 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_MODULES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECTTYPE, ID"& _ - "X_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, "& _ - "ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECTTYPE,@IDX_E"& _ - "MAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADD"& _ - "ED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECTTYPE, IDX_E"& _ - "MAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADD"& _ - "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX W"& _ - "HERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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 TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECTTYPE = @OBJECT"& _ - "TYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_"& _ - "TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_C"& _ - "HECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT"&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, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMA"& _ - "IL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Objecttype Is Nothing) Then - Throw New Global.System.ArgumentNullException("Objecttype") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) - End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -22809,192 +16688,11 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBDD_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Objecttype Is Nothing) Then - Throw New Global.System.ArgumentNullException("Objecttype") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) - End If - Dim dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = New MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() + Dim dataTable As MyDataset.TBDD_MODULESDataTable = New MyDataset.TBDD_MODULESDataTable() Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBGI_OBJECTTYPE_EMAIL_INDEX") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECTTYPE,String) - End If - If (IDX_EMAIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) - End If - If (IDX_EMAIL_FROM Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) - End If - If (IDX_EMAIL_TO Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) - End If - If (IDX_EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) - End If - If (IDX_EMAIL_DATE_IN Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (IDX_CHECK_ATTACHMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(IDX_CHECK_ATTACHMENT,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECTTYPE,String) - End If - If (IDX_EMAIL_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) - End If - If (IDX_EMAIL_FROM Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) - End If - If (IDX_EMAIL_TO Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) - End If - If (IDX_EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) - End If - If (IDX_EMAIL_DATE_IN Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - If (IDX_CHECK_ATTACHMENT Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IDX_CHECK_ATTACHMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Return dataTable End Function End Class @@ -23007,7 +16705,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_INDEX_MAN_POSTPROCESSINGTableAdapter + Partial Public Class TBDD_INDEX_MANTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -23124,78 +16822,98 @@ 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_INDEX_MAN_POSTPROCESSING" + tableMapping.DataSetTable = "TBDD_INDEX_MAN" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("IDXMAN_ID", "IDXMAN_ID") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("TYPE", "TYPE") - tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") - tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") - tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") - tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") - tableMapping.ColumnMappings.Add("TEXT3", "TEXT3") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("VARIANT", "VARIANT") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") + tableMapping.ColumnMappings.Add("MULTISELECT", "MULTISELECT") + tableMapping.ColumnMappings.Add("VKT_ADD_ITEM", "VKT_ADD_ITEM") + tableMapping.ColumnMappings.Add("VKT_PREVENT_MULTIPLE_VALUES", "VKT_PREVENT_MULTIPLE_VALUES") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_INDEX_MAN_POSTPROCESSING] ([IDXMAN_ID], [VARIANT], [COMMENT], ["& _ - "TYPE], [FUNCTION1], [FUNCTION2], [TEXT1], [TEXT2], [TEXT3], [SEQUENCE], [ADDED_W"& _ - "HO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@IDXMAN_ID, @VARIANT, "& _ - "@COMMENT, @TYPE, @FUNCTION1, @FUNCTION2, @TEXT1, @TEXT2, @TEXT3, @SEQUENCE, @ADD"& _ - "ED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDXMAN_ID, VARI"& _ - "ANT, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_W"& _ - "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHE"& _ - "RE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ + "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ + "SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL, SAVE_VALUE, VKT_ADD_ITEM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " VKT_PREVENT_MULTIPLE_VALUES, MULTISELECT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@"& _ + "NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQ"& _ + "UENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL,@SAVE_VALUE,@MULTISELE"& _ + "CT,@VKT_ADD_ITEM,@VKT_PREVENT_MULTIPLE_VALUES); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, W"& _ + "D_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, "& _ + "SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN,"& _ + " OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", 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_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IDXMAN_ID = @IDXMA"& _ - "N_ID, VARIANT = @VARIANT, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTIO"& _ - "N1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN "& _ - "= @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&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, IDXMAN_ID, VARIANT, COMMENT, TYPE,"& _ - " FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA"& _ - "NGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ + "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _ + "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ + "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ + "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, OPTIONAL = @OPTIONAL, "& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SAVE_VALUE = @SAVE_VALUE, MULTISELECT = @MULTISELECT,"& _ + " VKT_ADD_ITEM = @VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES = @VKT_PREVENT_MULTIP"& _ + "LE_VALUES"&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, DOK_ID, NAME,"& _ + " WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE"& _ + ", SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SAVE_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SAVE_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MULTISELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "MULTISELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_ADD_ITEM", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_ADD_ITEM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VKT_PREVENT_MULTIPLE_VALUES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VKT_PREVENT_MULTIPLE_VALUES", 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, "", "", "")) End Sub @@ -23213,17 +16931,20 @@ Namespace MyDatasetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE IDXMAN_ID IN (SELECT GUID FRO"& _ - "M TBDD_INDEX_MAN WHERE DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ + "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _ + "D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL, SAVE_VAL"& _ + "UE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD"& _ + "_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (Me.ClearBeforeFill = true) Then @@ -23237,10 +16958,10 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - Dim dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable = New MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable() + Dim dataTable As MyDataset.TBDD_INDEX_MANDataTable = New MyDataset.TBDD_INDEX_MANDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -23248,7 +16969,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -23256,7 +16977,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_INDEX_MAN_POSTPROCESSING") + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") End Function _ - Public Overloads Overridable Function Insert(ByVal IDXMAN_ID As Integer, ByVal _VARIANT As String, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer) - If (_VARIANT Is Nothing) Then - Throw New Global.System.ArgumentNullException("_VARIANT") + Public Overloads Overridable Function Insert( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Global.System.Nullable(Of Boolean)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(_VARIANT,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If - If (COMMENT Is Nothing) Then + If (WD_INDEX Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) End If - If (TYPE Is Nothing) Then + If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(TYPE,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If - If (FUNCTION1 Is Nothing) Then + If (DATATYPE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(FUNCTION1,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(FUNCTION2,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) End If - If (TEXT1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(TEXT2,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) End If - If (TEXT3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(TEXT3,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String) End If - Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(MULTISELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) + If (VKT_PREVENT_MULTIPLE_VALUES.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES.Value,Boolean) Else - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value 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) _ @@ -23381,86 +17116,86 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal IDXMAN_ID As Integer, _ - ByVal _VARIANT As String, _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ ByVal COMMENT As String, _ - ByVal TYPE As String, _ - ByVal FUNCTION1 As String, _ - ByVal FUNCTION2 As String, _ - ByVal TEXT1 As String, _ - ByVal TEXT2 As String, _ - ByVal TEXT3 As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ ByVal SEQUENCE As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal ACTIVE As Boolean, _ ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal _OPTIONAL As Boolean, _ + ByVal SAVE_VALUE As Boolean, _ + ByVal MULTISELECT As Global.System.Nullable(Of Boolean), _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer) - If (_VARIANT Is Nothing) Then - Throw New Global.System.ArgumentNullException("_VARIANT") + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_VARIANT,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If - If (COMMENT Is Nothing) Then + If (WD_INDEX Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) End If - If (TYPE Is Nothing) Then + If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TYPE,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If - If (FUNCTION1 Is Nothing) Then + If (DATATYPE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(FUNCTION1,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FUNCTION2,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) End If - If (TEXT1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TEXT2,String) - End If - If (TEXT3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TEXT3,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String) End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SAVE_VALUE,Boolean) + If (MULTISELECT.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(MULTISELECT.Value,Boolean) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(VKT_ADD_ITEM,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(VKT_PREVENT_MULTIPLE_VALUES,Boolean) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(19).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 @@ -23486,7 +17221,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 TBWHDD_INDEX_MANTableAdapter + Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -23603,10 +17338,65 @@ 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 = "TBWHDD_INDEX_MAN" + tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ + "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ + "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ + "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ + "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ + "OM TBDD_CONNECTION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -23645,13 +17432,185 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) - Dim dataTable As MyDataset.TBWHDD_INDEX_MANDataTable = New MyDataset.TBWHDD_INDEX_MANDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + 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) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) + 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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function End Class @@ -23664,7 +17623,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_GROUPS_USERTableAdapter + Partial Public Class VWDDINDEX_MANTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -23781,229 +17740,75 @@ 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_GROUPS_USER" + tableMapping.DataSetTable = "VWDDINDEX_MAN" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + tableMapping.ColumnMappings.Add("SAVE_VALUE", "SAVE_VALUE") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ - "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GRO"& _ - "UP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WH"& _ - "ERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, 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_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ - "@GROUP_ID, CHANGED_WHO = @CHANGED_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)&"S"& _ - "ELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString End Sub _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGE"& _ - "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ - "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - Dim dataTable As MyDataset.TBDD_GROUPS_USERDataTable = New MyDataset.TBDD_GROUPS_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _ + "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _ + ", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _ + ", SAVE_VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_MANDataTable, ByVal DokID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(USER_ID,Integer) - command.Parameters(1).Value = CType(GROUP_ID,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - command.Parameters(2).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal DokID As Integer) As MyDataset.VWDDINDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Dim dataTable As MyDataset.VWDDINDEX_MANDataTable = New MyDataset.VWDDINDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -24016,7 +17821,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 VWGI_USER_GROUPS_RELATIONTableAdapter + Partial Public Class VWDDINDEX_AUTOMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -24133,16 +17938,23 @@ 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 = "VWGI_USER_GROUPS_RELATION" + tableMapping.DataSetTable = "VWDDINDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -24159,19 +17971,21 @@ Namespace MyDatasetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT VWGI_USER_GROUPS_RELATION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_USER_GROUPS_RELAT"& _ - "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ + "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ + "SULT, VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _ + "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -24183,10 +17997,10 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable + Public Overloads Overridable Function GetData(ByVal DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - Dim dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable = New MyDataset.VWGI_USER_GROUPS_RELATIONDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) + Dim dataTable As MyDataset.VWDDINDEX_AUTOMDataTable = New MyDataset.VWDDINDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -24201,7 +18015,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 TBHOTKEY_PROFILETableAdapter + Partial Public Class TBDD_INDEX_AUTOMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -24318,103 +18132,65 @@ 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 = "TBHOTKEY_PROFILE" + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") - tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") - tableMapping.ColumnMappings.Add("WINDOW_NAME", "WINDOW_NAME") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("String", "String") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Or"& _ - "iginal_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Origi"& _ - "nal_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HO"& _ - "TKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_"& _ - "ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHE"& _ - "N] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ - "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ - "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, OBJECTTYPE, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@OBJECTTYPE,"& _ - "@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME"& _ - " + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HO"& _ - "TKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ - "OM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ + ",@SQL_RESULT,@SQL_ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _ + "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _ + "ESULT FROM TBDD_INDEX_AUTOM 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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", 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 [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEA"& _ - "RCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @"& _ - "WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO]"& _ - " = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID)"& _ - " AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([W"& _ - "D_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKE"& _ - "Y2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED"& _ - "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ - "LL) 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_CHA"& _ - "NGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY"& _ - "2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, AD"& _ - "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ + "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _ + "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _ + "NDEX_AUTOM WHERE (GUID = @GUID)" 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, 0, 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("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", 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("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", 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, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PROFILE" + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, OBJECTTYPE = @OBJ"& _ - "ECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_"& _ - "NAME = @WINDOW_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ - "E (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PROFILE where GUID = @HK_ID" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -24477,35 +18231,10 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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.TBHOTKEY_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Dim dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable = New MyDataset.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -24513,7 +18242,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -24521,7 +18250,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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, "TBHOTKEY_PROFILE") + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) - End If - If (Original_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OBJECTTYPE,String) - End If - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HOTKEY2,String) - End If - If (Original_WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_WINDOW_NAME,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value - End If + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -24619,42 +18292,40 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If + If (SQL_RESULT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -24674,137 +18345,42 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME,String) - End If - If (Original_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OBJECTTYPE,String) - End If - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HOTKEY2,String) - End If - If (Original_WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_WINDOW_NAME,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (SQL_RESULT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String) End If - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).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 @@ -24819,93 +18395,6 @@ Namespace MyDatasetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_OBJECTTYPE, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_WINDOW_NAME, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - command.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - command.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - command.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - command.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - command.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") - Else - command.Parameters(5).Value = CType(WINDOW_NAME,String) - End If - If (CHANGED_WHO Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value - Else - command.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - command.Parameters(7).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function End Class ''' @@ -24917,7 +18406,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 TBHOTKEY_PATTERNSTableAdapter + Partial Public Class TBGI_CONFIGURATIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -25034,54 +18523,32 @@ 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 = "TBHOTKEY_PATTERNS" + tableMapping.DataSetTable = "TBGI_CONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("PATTERN_WDSEARCH", "PATTERN_WDSEARCH") - tableMapping.ColumnMappings.Add("WINDOW_CONTROL", "WINDOW_CONTROL") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") + tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") + tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") + tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, PATTERN_WD"& _ - "SEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_I"& _ - "D,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED"& _ - "_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_ID, "& _ - "PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WH"& _ - "O = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO"& _ - " = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ - "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_"& _ - "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = "& _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, IDX_EMAIL_ID = "& _ + "@IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, I"& _ + "DX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_EMAIL_DATE"& _ + "_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX"& _ + "_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = "& _ "@GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -25122,10 +18587,9 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable + Public Overloads Overridable Function GetData() As MyDataset.TBGI_CONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable = New MyDataset.TBHOTKEY_PATTERNSDataTable() + Dim dataTable As MyDataset.TBGI_CONFIGURATIONDataTable = New MyDataset.TBGI_CONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -25133,7 +18597,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -25141,7 +18605,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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, "TBHOTKEY_PATTERNS") + Return Me.Adapter.Update(dataSet, "TBGI_CONFIGURATION") End Function _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - If (PATTERN_WDSEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) - End If - If (WINDOW_CONTROL Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE_NUMBER,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - If (PATTERN_WDSEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") + Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Byte) + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) End If - If (WINDOW_CONTROL Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE_NUMBER,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 @@ -25275,7 +18683,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 TBMYHOTKEYSTableAdapter + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -25392,10 +18800,66 @@ 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 = "TBMYHOTKEYS" + tableMapping.DataSetTable = "TBGI_OBJECTTYPE_EMAIL_INDEX" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("String", "String") + tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") + tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") + tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") + tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") + tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IDX_CHECK_ATTACHMENT", "IDX_CHECK_ATTACHMENT") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECTTYPE, ID"& _ + "X_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, "& _ + "ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECTTYPE,@IDX_E"& _ + "MAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADD"& _ + "ED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECTTYPE, IDX_E"& _ + "MAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX W"& _ + "HERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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 TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECTTYPE = @OBJECT"& _ + "TYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_"& _ + "TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_C"& _ + "HECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT"&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, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMA"& _ + "IL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", 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("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", 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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) + If (Objecttype Is Nothing) Then + Throw New Global.System.ArgumentNullException("Objecttype") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) - Dim dataTable As MyDataset.TBMYHOTKEYSDataTable = New MyDataset.TBMYHOTKEYSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Objecttype Is Nothing) Then + Throw New Global.System.ArgumentNullException("Objecttype") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + End If + Dim dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = New MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBGI_OBJECTTYPE_EMAIL_INDEX") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + End If + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + End If + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + End If + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + End If + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (IDX_CHECK_ATTACHMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(IDX_CHECK_ATTACHMENT,String) + 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) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + End If + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + End If + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + End If + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + End If + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (IDX_CHECK_ATTACHMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IDX_CHECK_ATTACHMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function End Class @@ -25457,7 +19103,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 TBHOTKEY_USER_PROFILETableAdapter + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -25574,80 +19220,80 @@ 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 = "TBHOTKEY_USER_PROFILE" + tableMapping.DataSetTable = "TBDD_INDEX_MAN_POSTPROCESSING" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") - tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") + tableMapping.ColumnMappings.Add("IDXMAN_ID", "IDXMAN_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("TYPE", "TYPE") + tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") + tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") + tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") + tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") + tableMapping.ColumnMappings.Add("TEXT3", "TEXT3") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("VARIANT", "VARIANT") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOT"& _ - "KEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALU"& _ - "ES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_"& _ - "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHO"& _ - "TKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_INDEX_MAN_POSTPROCESSING] ([IDXMAN_ID], [VARIANT], [COMMENT], ["& _ + "TYPE], [FUNCTION1], [FUNCTION2], [TEXT1], [TEXT2], [TEXT3], [SEQUENCE], [ADDED_W"& _ + "HO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@IDXMAN_ID, @VARIANT, "& _ + "@COMMENT, @TYPE, @FUNCTION1, @FUNCTION2, @TEXT1, @TEXT2, @TEXT3, @SEQUENCE, @ADD"& _ + "ED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDXMAN_ID, VARI"& _ + "ANT, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_W"& _ + "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHE"& _ + "RE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @U"& _ - "SER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [A"& _ - "DDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO"& _ - ", [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFIL"& _ - "E_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEA"& _ - "RCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] ="& _ - " @Original_HOTKEY2) 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] = @Origi"& _ - "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ - "([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID"& _ - ", WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IDXMAN_ID = @IDXMA"& _ + "N_ID, VARIANT = @VARIANT, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTIO"& _ + "N1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN "& _ + "= @ADDED_WHEN, CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN"&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, IDXMAN_ID, VARIANT, COMMENT, TYPE,"& _ + " FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHA"& _ + "NGED_WHO, CHANGED_WHEN FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VARIANT", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "VARIANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID)" + Me._commandCollection(0).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE IDXMAN_ID IN (SELECT GUID FRO"& _ + "M TBDD_INDEX_MAN WHERE DOK_ID = @DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TBHOTKEY_USER_PROFILE_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, USER_I"& _ - "D, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, @USER_ID AS Expr"& _ - "1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHO"& _ - "TKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTK"& _ - "EY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @US"& _ - "ER_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -25704,36 +19333,10 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Dim dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable = New MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -25741,7 +19344,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -25749,7 +19352,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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, "TBHOTKEY_USER_PROFILE") + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN_POSTPROCESSING") End Function _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") + Public Overloads Overridable Function Insert(ByVal IDXMAN_ID As Integer, ByVal _VARIANT As String, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer) + If (_VARIANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("_VARIANT") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(_VARIANT,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (TYPE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TYPE,String) + End If + If (FUNCTION1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(FUNCTION1,String) + End If + If (FUNCTION2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(FUNCTION2,String) + End If + If (TEXT1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TEXT1,String) End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") + If (TEXT2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TEXT2,String) End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") + If (TEXT3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(TEXT3,String) End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SEQUENCE,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value 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) _ @@ -25849,108 +19477,86 @@ Namespace MyDatasetTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ + ByVal IDXMAN_ID As Integer, _ + ByVal _VARIANT As String, _ + ByVal COMMENT As String, _ + ByVal TYPE As String, _ + ByVal FUNCTION1 As String, _ + ByVal FUNCTION2 As String, _ + ByVal TEXT1 As String, _ + ByVal TEXT2 As String, _ + ByVal TEXT3 As String, _ + ByVal SEQUENCE As Integer, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(IDXMAN_ID,Integer) + If (_VARIANT Is Nothing) Then + Throw New Global.System.ArgumentNullException("_VARIANT") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(_VARIANT,String) End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") + If (TYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TYPE,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (FUNCTION1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(FUNCTION1,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + If (FUNCTION2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(FUNCTION2,String) + End If + If (TEXT1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TEXT1,String) End If - If (CHANGED_WHO Is Nothing) Then + If (TEXT2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TEXT2,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) - Else + If (TEXT3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_USER_ID,Integer) - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY2,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TEXT3,String) End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADDED_WHO,String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(15).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 @@ -25965,61 +19571,6 @@ Namespace MyDatasetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_HKPROFILE_ID, Original_USER_ID, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (USER_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_ID") - Else - command.Parameters(0).Value = CType(USER_ID,String) - End If - command.Parameters(1).Value = CType(PROFILE_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function End Class ''' @@ -26031,7 +19582,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 TBHOTKEY_PATTERNS_REWORKTableAdapter + Partial Public Class TBWHDD_INDEX_MANTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -26148,89 +19699,10 @@ 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 = "TBHOTKEY_PATTERNS_REWORK" + tableMapping.DataSetTable = "TBWHDD_INDEX_MAN" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPATTERN_ID", "HKPATTERN_ID") - tableMapping.ColumnMappings.Add("TYPE", "TYPE") - tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") - tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") - tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") - tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKP"& _ - "ATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull"& _ - "_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) "& _ - "AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original"& _ - "_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Origina"& _ - "l_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_T"& _ - "EXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) 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) O"& _ - "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ - "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPATTERN_ID, TYP"& _ - "E, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKP"& _ - "ATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDE"& _ - "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE"& _ - " (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPATTERN_ID = @HKPATTE"& _ - "RN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TE"& _ - "XT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ - "O = @CHANGED_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, HKPATTERN"& _ - "_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", 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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -26269,230 +19740,14 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function GetData(ByVal HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable = New MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS_REWORK") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HKPATTERN_ID,Integer) - If (Original_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TYPE,String) - End If - If (Original_FUNCTION1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FUNCTION1,String) - End If - If (Original_FUNCTION2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FUNCTION2,String) - End If - If (Original_TEXT1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_TEXT1,String) - End If - If (Original_TEXT2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TEXT2,String) - End If - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TYPE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE,String) - End If - If (FUNCTION1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FUNCTION1,String) - End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(FUNCTION2,String) - End If - If (TEXT1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TEXT2,String) - End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) - 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) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE,String) - End If - If (FUNCTION1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FUNCTION1,String) - End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FUNCTION2,String) - End If - If (TEXT1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TEXT2,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Dim dataTable As MyDataset.TBWHDD_INDEX_MANDataTable = New MyDataset.TBWHDD_INDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -26505,7 +19760,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 TBHOTKEY_WINDOW_HOOKTableAdapter + Partial Public Class TBDD_GROUPS_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -26622,44 +19877,39 @@ 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 = "TBHOTKEY_WINDOW_HOOK" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") - tableMapping.ColumnMappings.Add("CONTROL_VALUE", "CONTROL_VALUE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, SEQUENC"& _ - "E_NUMBER, CONTROL_VALUE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_ID,@SEQUENCE_NUMB"& _ - "ER,@CONTROL_VALUE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CON"& _ - "TROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDO"& _ - "W_HOOK WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ + "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GRO"& _ + "UP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WH"& _ + "ERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, 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 TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_I"& _ - "D, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_W"& _ - "HO = @CHANGED_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, HKPROFIL"& _ - "E_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ + "@GROUP_ID, CHANGED_WHO = @CHANGED_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)&"S"& _ + "ELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) @@ -26675,23 +19925,30 @@ Namespace MyDatasetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDE"& _ - "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (HKPROFILE_ID = @ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGE"& _ + "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ + "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).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, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -26703,10 +19960,10 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable + Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable = New MyDataset.TBHOTKEY_WINDOW_HOOKDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As MyDataset.TBDD_GROUPS_USERDataTable = New MyDataset.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -26714,7 +19971,7 @@ Namespace MyDatasetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -26722,7 +19979,7 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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, "TBHOTKEY_WINDOW_HOOK") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) - If (CONTROL_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_VALUE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) - End If + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) 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) _ @@ -26796,21 +20048,16 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) - If (CONTROL_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_VALUE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) - End If + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -26825,6 +20072,220 @@ Namespace MyDatasetTableAdapters End If End Try End Function + + _ + Public Overloads Overridable Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(USER_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGI_USER_GROUPS_RELATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + 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 = "VWGI_USER_GROUPS_RELATION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VWGI_USER_GROUPS_RELATION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_USER_GROUPS_RELAT"& _ + "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) ORDER BY NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable = New MyDataset.VWGI_USER_GROUPS_RELATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function End Class ''' @@ -27657,16 +21118,6 @@ Namespace MyDatasetTableAdapters Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter - Private _tBHOTKEY_PROFILETableAdapter As TBHOTKEY_PROFILETableAdapter - - Private _tBHOTKEY_PATTERNSTableAdapter As TBHOTKEY_PATTERNSTableAdapter - - Private _tBHOTKEY_USER_PROFILETableAdapter As TBHOTKEY_USER_PROFILETableAdapter - - Private _tBHOTKEY_PATTERNS_REWORKTableAdapter As TBHOTKEY_PATTERNS_REWORKTableAdapter - - Private _tBHOTKEY_WINDOW_HOOKTableAdapter As TBHOTKEY_WINDOW_HOOKTableAdapter - Private _tBGI_REGEX_DOCTYPETableAdapter As TBGI_REGEX_DOCTYPETableAdapter Private _backupDataSetBeforeUpdate As Boolean @@ -27824,76 +21275,6 @@ Namespace MyDatasetTableAdapters End Set End Property - _ - Public Property TBHOTKEY_PROFILETableAdapter() As TBHOTKEY_PROFILETableAdapter - Get - Return Me._tBHOTKEY_PROFILETableAdapter - End Get - Set - Me._tBHOTKEY_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNSTableAdapter() As TBHOTKEY_PATTERNSTableAdapter - Get - Return Me._tBHOTKEY_PATTERNSTableAdapter - End Get - Set - Me._tBHOTKEY_PATTERNSTableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_USER_PROFILETableAdapter() As TBHOTKEY_USER_PROFILETableAdapter - Get - Return Me._tBHOTKEY_USER_PROFILETableAdapter - End Get - Set - Me._tBHOTKEY_USER_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNS_REWORKTableAdapter() As TBHOTKEY_PATTERNS_REWORKTableAdapter - Get - Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter - End Get - Set - Me._tBHOTKEY_PATTERNS_REWORKTableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_WINDOW_HOOKTableAdapter() As TBHOTKEY_WINDOW_HOOKTableAdapter - Get - Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter - End Get - Set - Me._tBHOTKEY_WINDOW_HOOKTableAdapter = value - End Set - End Property - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index 00b8cd1..e0cf5b5 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -1052,510 +1052,6 @@ WHERE (USER_ID = @USER_ID) ORDER BY NAME - - - - - - DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_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))) - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_PROFILE - (NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO) -VALUES (@NAME,@OBJECTTYPE,@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); -SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN -FROM TBHOTKEY_PROFILE - - - - - - UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_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))); -SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - UPDATE TBHOTKEY_PROFILE -SET NAME = @NAME, OBJECTTYPE = @OBJECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_NAME = @WINDOW_NAME, - CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN -FROM TBHOTKEY_PROFILE where GUID = @HK_ID - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_PATTERNS -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBHOTKEY_PATTERNS - (HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER) -VALUES (@HKPROFILE_ID,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); -SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER -FROM TBHOTKEY_PATTERNS -WHERE (HKPROFILE_ID = @ID) - - - - - - - - UPDATE TBHOTKEY_PATTERNS -SET HKPROFILE_ID = @HKPROFILE_ID, PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, - CHANGED_WHO = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS String -FROM TBHOTKEY_PROFILE AS T INNER JOIN - TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID -WHERE (T.GUID IN - (SELECT HKPROFILE_ID - FROM TBHOTKEY_USER_PROFILE - WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID) - - - - - - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_USER_PROFILE -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOTKEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); -SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_USER_PROFILE -WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID) - - - - - - - - UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @USER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFILE_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) 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))); -SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_USER_PROFILE - (HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO) -SELECT GUID, @USER_ID AS Expr1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2 -FROM TBHOTKEY_PROFILE -WHERE (GUID = @PROFILE_ID) - - - - - - - - - - - SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTKEY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @USER_ID) - - - - - - - - - - - - - - DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKPATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Original_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_TEXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) 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))) - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_PATTERNS_REWORK - (HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO) -VALUES (@HKPATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); -SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_PATTERNS_REWORK -WHERE (HKPATTERN_ID = @HKPATTERN_ID) - - - - - - - - UPDATE TBHOTKEY_PATTERNS_REWORK -SET HKPATTERN_ID = @HKPATTERN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, - CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_WINDOW_HOOK -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBHOTKEY_WINDOW_HOOK - (HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO) -VALUES (@HKPROFILE_ID,@SEQUENCE_NUMBER,@CONTROL_VALUE,@ADDED_WHO); -SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_WINDOW_HOOK -WHERE (HKPROFILE_ID = @ID) - - - - - - - - UPDATE TBHOTKEY_WINDOW_HOOK -SET HKPROFILE_ID = @HKPROFILE_ID, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - @@ -1694,7 +1190,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1759,7 +1255,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1842,7 +1338,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1879,7 +1375,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1893,7 +1389,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1907,7 +1403,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1989,7 +1485,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2062,7 +1558,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2175,7 +1671,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2271,7 +1767,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2326,7 +1822,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2334,7 +1830,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2384,7 +1880,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2456,7 +1952,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2537,7 +2033,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2551,7 +2047,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2560,7 +2056,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2585,7 +2081,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2624,270 +2120,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -2925,7 +2158,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2947,7 +2180,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2959,7 +2192,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -3056,30 +2289,6 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - - - - - - - - - - @@ -3099,21 +2308,14 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index fafc93c..c891b00 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,39 +4,33 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - - - - - + + + + + - + 431 @@ -48,7 +42,7 @@ - + 535 @@ -60,7 +54,7 @@ - + 397 @@ -72,7 +66,7 @@ - + 597 @@ -80,43 +74,39 @@ 597 - 148 + 104 - 743 - 148 + 719 + 104 - + - 959 - 682 + 293 + 72 - 959 - 374 + 719 + 72 - + - 951 - 247 + 978 + 273 - 951 - 211 - - - 1014 - 211 + 1040 + 273 - + 397 @@ -128,131 +118,7 @@ - - - - 129 - 311 - - - 129 - 86 - - - 221 - 86 - - - - - - - 183 - 25 - - - 221 - 25 - - - - - - - 88 - 311 - - - 88 - -22 - - - 88 - -30 - - - 88 - 178 - - - - - - - 117 - -1 - - - 117 - -22 - - - 117 - -30 - - - 117 - 178 - - - - - - - 765 - 285 - - - 240 - 285 - - - 240 - 268 - - - - - - - 409 - -36 - - - 409 - -66 - - - 425 - -66 - - - 425 - -3 - - - - - - - 38 - 0 - - - 38 - -30 - - - 38 - -30 - - - 38 - 0 - - - - + 380 diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index dc45f4b..e060d1c 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -2342,11 +2342,6 @@ Partial Class frmAdministration Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_EINGANGSARTENTableAdapter diff --git a/Global_Indexer/frmConnections.Designer.vb b/Global_Indexer/frmConnections.Designer.vb index de93d08..7819e5f 100644 --- a/Global_Indexer/frmConnections.Designer.vb +++ b/Global_Indexer/frmConnections.Designer.vb @@ -150,11 +150,6 @@ Partial Class frmConnections Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'BEZEICHNUNGTextBox diff --git a/Global_Indexer/frmEmailIndexing.Designer.vb b/Global_Indexer/frmEmailIndexing.Designer.vb index 29f514d..ba7f279 100644 --- a/Global_Indexer/frmEmailIndexing.Designer.vb +++ b/Global_Indexer/frmEmailIndexing.Designer.vb @@ -502,11 +502,6 @@ Partial Class frmEmailIndexing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_DOKUMENTARTTableAdapter diff --git a/Global_Indexer/frmHistory.Designer.vb b/Global_Indexer/frmHistory.Designer.vb index 1697d55..697120a 100644 --- a/Global_Indexer/frmHistory.Designer.vb +++ b/Global_Indexer/frmHistory.Designer.vb @@ -167,11 +167,6 @@ Partial Class frmHistory Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'GridControl1 diff --git a/Global_Indexer/frmHotKey_Add.Designer.vb b/Global_Indexer/frmHotKey_Add.Designer.vb deleted file mode 100644 index bb0c575..0000000 --- a/Global_Indexer/frmHotKey_Add.Designer.vb +++ /dev/null @@ -1,2023 +0,0 @@ - _ -Partial Class frmHotKey_Add - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim GUIDLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotKey_Add)) - Dim NAMELabel As System.Windows.Forms.Label - Dim WD_SEARCHLabel As System.Windows.Forms.Label - Dim HOTKEY1Label As System.Windows.Forms.Label - Dim HOTKEY2Label As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim GUIDLabel1 As System.Windows.Forms.Label - Dim TYPELabel As System.Windows.Forms.Label - Dim SEQUENCELabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label - Dim ADDED_WHENLabel1 As System.Windows.Forms.Label - Dim GUIDLabel2 As System.Windows.Forms.Label - Dim WINDOW_NAMELabel As System.Windows.Forms.Label - Dim SEQUENCE_NUMBERLabel As System.Windows.Forms.Label - Dim PATTERN_WDSEARCHLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label - Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label - Dim ADDED_WHOLabel1 As System.Windows.Forms.Label - Dim Label15 As System.Windows.Forms.Label - Dim GUIDLabel3 As System.Windows.Forms.Label - Dim SEQUENCE_NUMBERLabel1 As System.Windows.Forms.Label - Dim CONTROL_VALUELabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel2 As System.Windows.Forms.Label - Dim ADDED_WHENLabel2 As System.Windows.Forms.Label - Dim Label17 As System.Windows.Forms.Label - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tslbl_Hotkeywindow = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslbl_HotkeySequence = New System.Windows.Forms.ToolStripStatusLabel() - Me.ListBox_FormTitles = New System.Windows.Forms.ListBox() - Me.GroupBoxMainWindow = New System.Windows.Forms.GroupBox() - Me.chkboxshowfilledControlsOnly = New System.Windows.Forms.CheckBox() - Me.btnpnlStart_weiter = New System.Windows.Forms.Button() - Me.GroupBox2_Controls = New System.Windows.Forms.GroupBox() - Me.lblMatchadd = New System.Windows.Forms.Label() - Me.btnadd_WindowMatch = New System.Windows.Forms.Button() - Me.txtValueMatch = New System.Windows.Forms.TextBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.txtControl_Match = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.ListViewControls = New System.Windows.Forms.ListView() - Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ControlID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ControlValue = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.lblLinkadd = New System.Windows.Forms.Label() - Me.btnadd_Pattern = New System.Windows.Forms.Button() - Me.Label8 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.txtPattern = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtControl = New System.Windows.Forms.TextBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnnewProfile = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.lblSaveHotkey = New System.Windows.Forms.Label() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtKey = New System.Windows.Forms.TextBox() - Me.cmbFunktionstaste = New System.Windows.Forms.ComboBox() - Me.txtWDSearch = New System.Windows.Forms.TextBox() - Me.cmbObjekttyp = New System.Windows.Forms.ComboBox() - Me.txtProfilname = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.btnGB1 = New System.Windows.Forms.Button() - Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() - Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() - Me.TBHOTKEY_PATTERNSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter() - Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.TabControlMain = New System.Windows.Forms.TabControl() - Me.TabPageUebersicht = New System.Windows.Forms.TabPage() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colString = New DevExpress.XtraGrid.Columns.GridColumn() - Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() - Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.TBHOTKEY_WINDOW_HOOKBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TabControlDetails = New System.Windows.Forms.TabControl() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.lblSavePAttern = New System.Windows.Forms.Label() - Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.PATTERN_WDSEARCHTextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCE_NUMBERTextBox = New System.Windows.Forms.TextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnsave_pattern = New System.Windows.Forms.ToolStripButton() - Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.lblHinweisRework1 = New System.Windows.Forms.Label() - Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.TBHOTKEY_PATTERNS_REWORKBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.Text2Label = New System.Windows.Forms.Label() - Me.Text1Label = New System.Windows.Forms.Label() - Me.Function2Label = New System.Windows.Forms.Label() - Me.Function1Label = New System.Windows.Forms.Label() - Me.lblsavePatternsRework = New System.Windows.Forms.Label() - Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() - Me.TEXT2TextBox = New System.Windows.Forms.TextBox() - Me.TEXT1TextBox = New System.Windows.Forms.TextBox() - Me.FUNCTION2TextBox = New System.Windows.Forms.TextBox() - Me.FUNCTION1TextBox = New System.Windows.Forms.TextBox() - Me.TYPEComboBox = New System.Windows.Forms.ComboBox() - Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.btnRegexTest = New System.Windows.Forms.Button() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.CONTROL_VALUETextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCE_NUMBERTextBox1 = New System.Windows.Forms.TextBox() - Me.GUIDTextBox3 = New System.Windows.Forms.TextBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.BindingNavigator3 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() - Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.ListBoxPatterns = New System.Windows.Forms.ListBox() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox() - Me.Button2 = New System.Windows.Forms.Button() - Me.lblSave = New System.Windows.Forms.Label() - Me.btnsave = New System.Windows.Forms.Button() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.chklbUser = New System.Windows.Forms.CheckedListBox() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.AlleAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.KeineAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.btnUserAdd_Profile = New System.Windows.Forms.Button() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.btndeleteUserProfile = New System.Windows.Forms.Button() - Me.chklbUserProfile = New System.Windows.Forms.CheckedListBox() - Me.btndelete = New System.Windows.Forms.Button() - Me.Label9 = New System.Windows.Forms.Label() - Me.TabPage_Designer = New System.Windows.Forms.TabPage() - Me.TabControl2 = New System.Windows.Forms.TabControl() - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.Label20 = New System.Windows.Forms.Label() - Me.lblLinkCopyPaste = New System.Windows.Forms.Label() - Me.btnAddCopypasteConfig = New System.Windows.Forms.Button() - Me.txtcopypastePatter = New System.Windows.Forms.TextBox() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label18 = New System.Windows.Forms.Label() - Me.cmbCopyPasteFunction = New System.Windows.Forms.ComboBox() - Me.TabPageTest = New System.Windows.Forms.TabPage() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.chkboxshowfilledControlsOnly_Test = New System.Windows.Forms.CheckBox() - Me.ListViewControls_Test = New System.Windows.Forms.ListView() - Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.ListBox_MainWindows_Test = New System.Windows.Forms.ListBox() - Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter() - Me.TBHOTKEY_WINDOW_HOOKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter() - Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) - GUIDLabel = New System.Windows.Forms.Label() - NAMELabel = New System.Windows.Forms.Label() - WD_SEARCHLabel = New System.Windows.Forms.Label() - HOTKEY1Label = New System.Windows.Forms.Label() - HOTKEY2Label = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - GUIDLabel1 = New System.Windows.Forms.Label() - TYPELabel = New System.Windows.Forms.Label() - SEQUENCELabel = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel1 = New System.Windows.Forms.Label() - CHANGED_WHENLabel1 = New System.Windows.Forms.Label() - ADDED_WHENLabel1 = New System.Windows.Forms.Label() - GUIDLabel2 = New System.Windows.Forms.Label() - WINDOW_NAMELabel = New System.Windows.Forms.Label() - SEQUENCE_NUMBERLabel = New System.Windows.Forms.Label() - PATTERN_WDSEARCHLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel2 = New System.Windows.Forms.Label() - CHANGED_WHOLabel2 = New System.Windows.Forms.Label() - ADDED_WHOLabel1 = New System.Windows.Forms.Label() - Label15 = New System.Windows.Forms.Label() - GUIDLabel3 = New System.Windows.Forms.Label() - SEQUENCE_NUMBERLabel1 = New System.Windows.Forms.Label() - CONTROL_VALUELabel = New System.Windows.Forms.Label() - ADDED_WHOLabel2 = New System.Windows.Forms.Label() - ADDED_WHENLabel2 = New System.Windows.Forms.Label() - Label17 = New System.Windows.Forms.Label() - Me.StatusStrip1.SuspendLayout() - Me.GroupBoxMainWindow.SuspendLayout() - Me.GroupBox2_Controls.SuspendLayout() - Me.GroupBox1.SuspendLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabControlMain.SuspendLayout() - Me.TabPageUebersicht.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBoxPatterns.SuspendLayout() - CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabControlDetails.SuspendLayout() - Me.TabPage6.SuspendLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator2.SuspendLayout() - Me.TabPage4.SuspendLayout() - CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator1.SuspendLayout() - Me.TabPage5.SuspendLayout() - CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator3.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.TabPage3.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.ContextMenuStrip1.SuspendLayout() - Me.TabPage2.SuspendLayout() - Me.TabPage_Designer.SuspendLayout() - Me.TabControl2.SuspendLayout() - Me.TabPage7.SuspendLayout() - Me.TabPage8.SuspendLayout() - Me.TabPageTest.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.GroupBox2.SuspendLayout() - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' - 'NAMELabel - ' - resources.ApplyResources(NAMELabel, "NAMELabel") - NAMELabel.Name = "NAMELabel" - ' - 'WD_SEARCHLabel - ' - resources.ApplyResources(WD_SEARCHLabel, "WD_SEARCHLabel") - WD_SEARCHLabel.Name = "WD_SEARCHLabel" - ' - 'HOTKEY1Label - ' - resources.ApplyResources(HOTKEY1Label, "HOTKEY1Label") - HOTKEY1Label.Name = "HOTKEY1Label" - ' - 'HOTKEY2Label - ' - resources.ApplyResources(HOTKEY2Label, "HOTKEY2Label") - HOTKEY2Label.Name = "HOTKEY2Label" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'GUIDLabel1 - ' - resources.ApplyResources(GUIDLabel1, "GUIDLabel1") - GUIDLabel1.Name = "GUIDLabel1" - ' - 'TYPELabel - ' - resources.ApplyResources(TYPELabel, "TYPELabel") - TYPELabel.Name = "TYPELabel" - ' - 'SEQUENCELabel - ' - resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel") - SEQUENCELabel.Name = "SEQUENCELabel" - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel1 - ' - resources.ApplyResources(CHANGED_WHOLabel1, "CHANGED_WHOLabel1") - CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" - ' - 'CHANGED_WHENLabel1 - ' - resources.ApplyResources(CHANGED_WHENLabel1, "CHANGED_WHENLabel1") - CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" - ' - 'ADDED_WHENLabel1 - ' - resources.ApplyResources(ADDED_WHENLabel1, "ADDED_WHENLabel1") - ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" - ' - 'GUIDLabel2 - ' - resources.ApplyResources(GUIDLabel2, "GUIDLabel2") - GUIDLabel2.Name = "GUIDLabel2" - ' - 'WINDOW_NAMELabel - ' - resources.ApplyResources(WINDOW_NAMELabel, "WINDOW_NAMELabel") - WINDOW_NAMELabel.ForeColor = System.Drawing.Color.Firebrick - WINDOW_NAMELabel.Name = "WINDOW_NAMELabel" - ' - 'SEQUENCE_NUMBERLabel - ' - resources.ApplyResources(SEQUENCE_NUMBERLabel, "SEQUENCE_NUMBERLabel") - SEQUENCE_NUMBERLabel.Name = "SEQUENCE_NUMBERLabel" - ' - 'PATTERN_WDSEARCHLabel - ' - resources.ApplyResources(PATTERN_WDSEARCHLabel, "PATTERN_WDSEARCHLabel") - PATTERN_WDSEARCHLabel.Name = "PATTERN_WDSEARCHLabel" - ' - 'CHANGED_WHENLabel2 - ' - resources.ApplyResources(CHANGED_WHENLabel2, "CHANGED_WHENLabel2") - CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" - ' - 'CHANGED_WHOLabel2 - ' - resources.ApplyResources(CHANGED_WHOLabel2, "CHANGED_WHOLabel2") - CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" - ' - 'ADDED_WHOLabel1 - ' - resources.ApplyResources(ADDED_WHOLabel1, "ADDED_WHOLabel1") - ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" - ' - 'Label15 - ' - resources.ApplyResources(Label15, "Label15") - Label15.Name = "Label15" - ' - 'GUIDLabel3 - ' - resources.ApplyResources(GUIDLabel3, "GUIDLabel3") - GUIDLabel3.Name = "GUIDLabel3" - ' - 'SEQUENCE_NUMBERLabel1 - ' - resources.ApplyResources(SEQUENCE_NUMBERLabel1, "SEQUENCE_NUMBERLabel1") - SEQUENCE_NUMBERLabel1.Name = "SEQUENCE_NUMBERLabel1" - ' - 'CONTROL_VALUELabel - ' - resources.ApplyResources(CONTROL_VALUELabel, "CONTROL_VALUELabel") - CONTROL_VALUELabel.Name = "CONTROL_VALUELabel" - ' - 'ADDED_WHOLabel2 - ' - resources.ApplyResources(ADDED_WHOLabel2, "ADDED_WHOLabel2") - ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" - ' - 'ADDED_WHENLabel2 - ' - resources.ApplyResources(ADDED_WHENLabel2, "ADDED_WHENLabel2") - ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" - ' - 'Label17 - ' - resources.ApplyResources(Label17, "Label17") - Label17.Name = "Label17" - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbl_Hotkeywindow, Me.tslbl_HotkeySequence}) - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'tslbl_Hotkeywindow - ' - Me.tslbl_Hotkeywindow.Image = Global.Global_Indexer.My.Resources.Resources.WindowsForm_817_12x - Me.tslbl_Hotkeywindow.Name = "tslbl_Hotkeywindow" - resources.ApplyResources(Me.tslbl_Hotkeywindow, "tslbl_Hotkeywindow") - ' - 'tslbl_HotkeySequence - ' - Me.tslbl_HotkeySequence.Image = Global.Global_Indexer.My.Resources.Resources.KeyDown_8461_12x - Me.tslbl_HotkeySequence.Name = "tslbl_HotkeySequence" - resources.ApplyResources(Me.tslbl_HotkeySequence, "tslbl_HotkeySequence") - ' - 'ListBox_FormTitles - ' - resources.ApplyResources(Me.ListBox_FormTitles, "ListBox_FormTitles") - Me.ListBox_FormTitles.FormattingEnabled = True - Me.ListBox_FormTitles.Name = "ListBox_FormTitles" - ' - 'GroupBoxMainWindow - ' - Me.GroupBoxMainWindow.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.GroupBoxMainWindow.Controls.Add(Me.chkboxshowfilledControlsOnly) - Me.GroupBoxMainWindow.Controls.Add(Me.btnpnlStart_weiter) - Me.GroupBoxMainWindow.Controls.Add(Me.ListBox_FormTitles) - resources.ApplyResources(Me.GroupBoxMainWindow, "GroupBoxMainWindow") - Me.GroupBoxMainWindow.Name = "GroupBoxMainWindow" - Me.GroupBoxMainWindow.TabStop = False - ' - 'chkboxshowfilledControlsOnly - ' - resources.ApplyResources(Me.chkboxshowfilledControlsOnly, "chkboxshowfilledControlsOnly") - Me.chkboxshowfilledControlsOnly.ForeColor = System.Drawing.Color.DarkSlateGray - Me.chkboxshowfilledControlsOnly.Name = "chkboxshowfilledControlsOnly" - Me.chkboxshowfilledControlsOnly.UseVisualStyleBackColor = True - ' - 'btnpnlStart_weiter - ' - resources.ApplyResources(Me.btnpnlStart_weiter, "btnpnlStart_weiter") - Me.btnpnlStart_weiter.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnpnlStart_weiter.Name = "btnpnlStart_weiter" - Me.btnpnlStart_weiter.UseVisualStyleBackColor = True - ' - 'GroupBox2_Controls - ' - Me.GroupBox2_Controls.BackColor = System.Drawing.SystemColors.ControlLight - Me.GroupBox2_Controls.Controls.Add(Me.lblMatchadd) - Me.GroupBox2_Controls.Controls.Add(Me.btnadd_WindowMatch) - Me.GroupBox2_Controls.Controls.Add(Me.txtValueMatch) - Me.GroupBox2_Controls.Controls.Add(Me.Label13) - Me.GroupBox2_Controls.Controls.Add(Me.Label11) - Me.GroupBox2_Controls.Controls.Add(Me.Label12) - Me.GroupBox2_Controls.Controls.Add(Me.txtControl_Match) - Me.GroupBox2_Controls.Controls.Add(Me.Label10) - Me.GroupBox2_Controls.Controls.Add(Me.ListViewControls) - Me.GroupBox2_Controls.Controls.Add(Me.lblLinkadd) - Me.GroupBox2_Controls.Controls.Add(Me.btnadd_Pattern) - Me.GroupBox2_Controls.Controls.Add(Me.Label8) - Me.GroupBox2_Controls.Controls.Add(Me.Label7) - Me.GroupBox2_Controls.Controls.Add(Me.txtPattern) - Me.GroupBox2_Controls.Controls.Add(Me.Label1) - Me.GroupBox2_Controls.Controls.Add(Me.txtControl) - resources.ApplyResources(Me.GroupBox2_Controls, "GroupBox2_Controls") - Me.GroupBox2_Controls.Name = "GroupBox2_Controls" - Me.GroupBox2_Controls.TabStop = False - ' - 'lblMatchadd - ' - resources.ApplyResources(Me.lblMatchadd, "lblMatchadd") - Me.lblMatchadd.BackColor = System.Drawing.Color.Yellow - Me.lblMatchadd.Name = "lblMatchadd" - ' - 'btnadd_WindowMatch - ' - resources.ApplyResources(Me.btnadd_WindowMatch, "btnadd_WindowMatch") - Me.btnadd_WindowMatch.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnadd_WindowMatch.Name = "btnadd_WindowMatch" - Me.btnadd_WindowMatch.UseVisualStyleBackColor = True - ' - 'txtValueMatch - ' - resources.ApplyResources(Me.txtValueMatch, "txtValueMatch") - Me.txtValueMatch.Name = "txtValueMatch" - Me.txtValueMatch.ReadOnly = True - ' - 'Label13 - ' - resources.ApplyResources(Me.Label13, "Label13") - Me.Label13.Name = "Label13" - ' - 'Label11 - ' - resources.ApplyResources(Me.Label11, "Label11") - Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label11.Name = "Label11" - ' - 'Label12 - ' - resources.ApplyResources(Me.Label12, "Label12") - Me.Label12.Name = "Label12" - ' - 'txtControl_Match - ' - resources.ApplyResources(Me.txtControl_Match, "txtControl_Match") - Me.txtControl_Match.ForeColor = System.Drawing.Color.Maroon - Me.txtControl_Match.Name = "txtControl_Match" - Me.txtControl_Match.ReadOnly = True - ' - 'Label10 - ' - resources.ApplyResources(Me.Label10, "Label10") - Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label10.Name = "Label10" - ' - 'ListViewControls - ' - resources.ApplyResources(Me.ListViewControls, "ListViewControls") - Me.ListViewControls.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3, Me.ControlID, Me.ControlValue}) - Me.ListViewControls.FullRowSelect = True - Me.ListViewControls.Name = "ListViewControls" - Me.ListViewControls.UseCompatibleStateImageBehavior = False - Me.ListViewControls.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader3 - ' - resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3") - ' - 'ControlID - ' - resources.ApplyResources(Me.ControlID, "ControlID") - ' - 'ControlValue - ' - resources.ApplyResources(Me.ControlValue, "ControlValue") - ' - 'lblLinkadd - ' - resources.ApplyResources(Me.lblLinkadd, "lblLinkadd") - Me.lblLinkadd.BackColor = System.Drawing.Color.Yellow - Me.lblLinkadd.Name = "lblLinkadd" - ' - 'btnadd_Pattern - ' - resources.ApplyResources(Me.btnadd_Pattern, "btnadd_Pattern") - Me.btnadd_Pattern.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnadd_Pattern.Name = "btnadd_Pattern" - Me.btnadd_Pattern.UseVisualStyleBackColor = True - ' - 'Label8 - ' - resources.ApplyResources(Me.Label8, "Label8") - Me.Label8.Name = "Label8" - ' - 'Label7 - ' - resources.ApplyResources(Me.Label7, "Label7") - Me.Label7.Name = "Label7" - ' - 'txtPattern - ' - resources.ApplyResources(Me.txtPattern, "txtPattern") - Me.txtPattern.Name = "txtPattern" - ' - 'Label1 - ' - resources.ApplyResources(Me.Label1, "Label1") - Me.Label1.Name = "Label1" - ' - 'txtControl - ' - resources.ApplyResources(Me.txtControl, "txtControl") - Me.txtControl.ForeColor = System.Drawing.Color.Maroon - Me.txtControl.Name = "txtControl" - Me.txtControl.ReadOnly = True - ' - 'GroupBox1 - ' - Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption - Me.GroupBox1.Controls.Add(Me.btnnewProfile) - Me.GroupBox1.Controls.Add(Me.Button1) - Me.GroupBox1.Controls.Add(Me.lblSaveHotkey) - Me.GroupBox1.Controls.Add(Me.Label6) - Me.GroupBox1.Controls.Add(Me.Label5) - Me.GroupBox1.Controls.Add(Me.txtKey) - Me.GroupBox1.Controls.Add(Me.cmbFunktionstaste) - Me.GroupBox1.Controls.Add(Me.txtWDSearch) - Me.GroupBox1.Controls.Add(Me.cmbObjekttyp) - Me.GroupBox1.Controls.Add(Me.txtProfilname) - Me.GroupBox1.Controls.Add(Me.Label4) - Me.GroupBox1.Controls.Add(Me.Label3) - Me.GroupBox1.Controls.Add(Me.Label2) - Me.GroupBox1.Controls.Add(Me.btnGB1) - resources.ApplyResources(Me.GroupBox1, "GroupBox1") - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.TabStop = False - ' - 'btnnewProfile - ' - resources.ApplyResources(Me.btnnewProfile, "btnnewProfile") - Me.btnnewProfile.Image = Global.Global_Indexer.My.Resources.Resources.action_add_16xLG - Me.btnnewProfile.Name = "btnnewProfile" - Me.btnnewProfile.UseVisualStyleBackColor = True - ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'lblSaveHotkey - ' - resources.ApplyResources(Me.lblSaveHotkey, "lblSaveHotkey") - Me.lblSaveHotkey.BackColor = System.Drawing.Color.Yellow - Me.lblSaveHotkey.Name = "lblSaveHotkey" - ' - 'Label6 - ' - resources.ApplyResources(Me.Label6, "Label6") - Me.Label6.Name = "Label6" - ' - 'Label5 - ' - resources.ApplyResources(Me.Label5, "Label5") - Me.Label5.Name = "Label5" - ' - 'txtKey - ' - resources.ApplyResources(Me.txtKey, "txtKey") - Me.txtKey.Name = "txtKey" - ' - 'cmbFunktionstaste - ' - resources.ApplyResources(Me.cmbFunktionstaste, "cmbFunktionstaste") - Me.cmbFunktionstaste.FormattingEnabled = True - Me.cmbFunktionstaste.Items.AddRange(New Object() {resources.GetString("cmbFunktionstaste.Items"), resources.GetString("cmbFunktionstaste.Items1"), resources.GetString("cmbFunktionstaste.Items2"), resources.GetString("cmbFunktionstaste.Items3")}) - Me.cmbFunktionstaste.Name = "cmbFunktionstaste" - ' - 'txtWDSearch - ' - resources.ApplyResources(Me.txtWDSearch, "txtWDSearch") - Me.txtWDSearch.Name = "txtWDSearch" - ' - 'cmbObjekttyp - ' - resources.ApplyResources(Me.cmbObjekttyp, "cmbObjekttyp") - Me.cmbObjekttyp.FormattingEnabled = True - Me.cmbObjekttyp.Name = "cmbObjekttyp" - ' - 'txtProfilname - ' - resources.ApplyResources(Me.txtProfilname, "txtProfilname") - Me.txtProfilname.Name = "txtProfilname" - ' - 'Label4 - ' - resources.ApplyResources(Me.Label4, "Label4") - Me.Label4.Name = "Label4" - ' - 'Label3 - ' - resources.ApplyResources(Me.Label3, "Label3") - Me.Label3.Name = "Label3" - ' - 'Label2 - ' - resources.ApplyResources(Me.Label2, "Label2") - Me.Label2.Name = "Label2" - ' - 'btnGB1 - ' - resources.ApplyResources(Me.btnGB1, "btnGB1") - Me.btnGB1.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnGB1.Name = "btnGB1" - Me.btnGB1.UseVisualStyleBackColor = True - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBHOTKEY_PROFILEBindingSource - ' - Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" - Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_PROFILETableAdapter - ' - Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing - Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Me.TBHOTKEY_PATTERNSTableAdapter - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBHOTKEY_PATTERNSTableAdapter - ' - Me.TBHOTKEY_PATTERNSTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_PATTERNSBindingSource - ' - Me.TBHOTKEY_PATTERNSBindingSource.DataMember = "TBHOTKEY_PATTERNS" - Me.TBHOTKEY_PATTERNSBindingSource.DataSource = Me.MyDataset - ' - 'OFDWindreamsuche - ' - resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche") - Me.OFDWindreamsuche.RestoreDirectory = True - ' - 'TabControlMain - ' - Me.TabControlMain.Controls.Add(Me.TabPageUebersicht) - Me.TabControlMain.Controls.Add(Me.TabPage_Designer) - Me.TabControlMain.Controls.Add(Me.TabPageTest) - resources.ApplyResources(Me.TabControlMain, "TabControlMain") - Me.TabControlMain.Name = "TabControlMain" - Me.TabControlMain.SelectedIndex = 0 - ' - 'TabPageUebersicht - ' - resources.ApplyResources(Me.TabPageUebersicht, "TabPageUebersicht") - Me.TabPageUebersicht.Controls.Add(Me.GridControl1) - Me.TabPageUebersicht.Controls.Add(Me.ToolStrip1) - Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns) - Me.TabPageUebersicht.Controls.Add(Me.TabControl1) - Me.TabPageUebersicht.Controls.Add(Me.btndelete) - Me.TabPageUebersicht.Controls.Add(Me.Label9) - Me.TabPageUebersicht.Name = "TabPageUebersicht" - Me.TabPageUebersicht.UseVisualStyleBackColor = True - ' - 'GridControl1 - ' - Me.GridControl1.DataSource = Me.TBHOTKEY_PROFILEBindingSource - resources.ApplyResources(Me.GridControl1, "GridControl1") - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colString}) - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsBehavior.Editable = False - Me.GridView1.OptionsBehavior.ReadOnly = True - Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridView1.OptionsSelection.EnableAppearanceFocusedRow = False - Me.GridView1.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridView1.OptionsSelection.MultiSelect = True - Me.GridView1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridView1.OptionsView.ColumnAutoWidth = False - Me.GridView1.OptionsView.EnableAppearanceEvenRow = True - Me.GridView1.OptionsView.ShowAutoFilterRow = True - Me.GridView1.OptionsView.ShowDetailButtons = False - Me.GridView1.OptionsView.ShowGroupPanel = False - Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - ' - 'colGUID - ' - resources.ApplyResources(Me.colGUID, "colGUID") - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - ' - 'colString - ' - resources.ApplyResources(Me.colString, "colString") - Me.colString.FieldName = "String" - Me.colString.Name = "colString" - ' - 'ToolStrip1 - ' - resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") - Me.ToolStrip1.Name = "ToolStrip1" - ' - 'GroupBoxPatterns - ' - Me.GroupBoxPatterns.Controls.Add(Label17) - Me.GroupBoxPatterns.Controls.Add(Me.ListBox1) - Me.GroupBoxPatterns.Controls.Add(Label15) - Me.GroupBoxPatterns.Controls.Add(Me.TabControlDetails) - Me.GroupBoxPatterns.Controls.Add(Me.ListBoxPatterns) - resources.ApplyResources(Me.GroupBoxPatterns, "GroupBoxPatterns") - Me.GroupBoxPatterns.Name = "GroupBoxPatterns" - Me.GroupBoxPatterns.TabStop = False - ' - 'ListBox1 - ' - Me.ListBox1.DataSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource - Me.ListBox1.DisplayMember = "CONTROL_VALUE" - Me.ListBox1.FormattingEnabled = True - resources.ApplyResources(Me.ListBox1, "ListBox1") - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.ValueMember = "GUID" - ' - 'TBHOTKEY_WINDOW_HOOKBindingSource - ' - Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK" - Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataSource = Me.MyDataset - ' - 'TabControlDetails - ' - resources.ApplyResources(Me.TabControlDetails, "TabControlDetails") - Me.TabControlDetails.Controls.Add(Me.TabPage6) - Me.TabControlDetails.Controls.Add(Me.TabPage4) - Me.TabControlDetails.Controls.Add(Me.TabPage5) - Me.TabControlDetails.Name = "TabControlDetails" - Me.TabControlDetails.SelectedIndex = 0 - ' - 'TabPage6 - ' - Me.TabPage6.Controls.Add(Me.lblSavePAttern) - Me.TabPage6.Controls.Add(ADDED_WHOLabel1) - Me.TabPage6.Controls.Add(Me.ADDED_WHOTextBox1) - Me.TabPage6.Controls.Add(CHANGED_WHOLabel2) - Me.TabPage6.Controls.Add(Me.CHANGED_WHOTextBox2) - Me.TabPage6.Controls.Add(CHANGED_WHENLabel2) - Me.TabPage6.Controls.Add(Me.CHANGED_WHENTextBox2) - Me.TabPage6.Controls.Add(Me.ADDED_WHENTextBox1) - Me.TabPage6.Controls.Add(ADDED_WHENLabel1) - Me.TabPage6.Controls.Add(PATTERN_WDSEARCHLabel) - Me.TabPage6.Controls.Add(Me.PATTERN_WDSEARCHTextBox) - Me.TabPage6.Controls.Add(Me.SEQUENCE_NUMBERTextBox) - Me.TabPage6.Controls.Add(Me.Label14) - Me.TabPage6.Controls.Add(SEQUENCE_NUMBERLabel) - Me.TabPage6.Controls.Add(Me.BindingNavigator2) - Me.TabPage6.Controls.Add(GUIDLabel2) - Me.TabPage6.Controls.Add(Me.GUIDTextBox2) - resources.ApplyResources(Me.TabPage6, "TabPage6") - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.UseVisualStyleBackColor = True - ' - 'lblSavePAttern - ' - resources.ApplyResources(Me.lblSavePAttern, "lblSavePAttern") - Me.lblSavePAttern.BackColor = System.Drawing.Color.Yellow - Me.lblSavePAttern.Name = "lblSavePAttern" - ' - 'ADDED_WHOTextBox1 - ' - Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1") - Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" - Me.ADDED_WHOTextBox1.ReadOnly = True - Me.ADDED_WHOTextBox1.TabStop = False - ' - 'CHANGED_WHOTextBox2 - ' - Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2") - Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" - Me.CHANGED_WHOTextBox2.ReadOnly = True - Me.CHANGED_WHOTextBox2.TabStop = False - ' - 'CHANGED_WHENTextBox2 - ' - Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2") - Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" - Me.CHANGED_WHENTextBox2.ReadOnly = True - Me.CHANGED_WHENTextBox2.TabStop = False - ' - 'ADDED_WHENTextBox1 - ' - Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1") - Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" - Me.ADDED_WHENTextBox1.ReadOnly = True - Me.ADDED_WHENTextBox1.TabStop = False - ' - 'PATTERN_WDSEARCHTextBox - ' - Me.PATTERN_WDSEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "PATTERN_WDSEARCH", True)) - resources.ApplyResources(Me.PATTERN_WDSEARCHTextBox, "PATTERN_WDSEARCHTextBox") - Me.PATTERN_WDSEARCHTextBox.Name = "PATTERN_WDSEARCHTextBox" - ' - 'SEQUENCE_NUMBERTextBox - ' - Me.SEQUENCE_NUMBERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "SEQUENCE_NUMBER", True)) - resources.ApplyResources(Me.SEQUENCE_NUMBERTextBox, "SEQUENCE_NUMBERTextBox") - Me.SEQUENCE_NUMBERTextBox.Name = "SEQUENCE_NUMBERTextBox" - ' - 'Label14 - ' - resources.ApplyResources(Me.Label14, "Label14") - Me.Label14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label14.Name = "Label14" - ' - 'BindingNavigator2 - ' - Me.BindingNavigator2.AddNewItem = Nothing - Me.BindingNavigator2.BindingSource = Me.TBHOTKEY_PATTERNSBindingSource - Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem1 - Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorDeleteItem1, Me.tsbtnsave_pattern}) - resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") - Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 - Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem1 - Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem1 - Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 - Me.BindingNavigator2.Name = "BindingNavigator2" - Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem1 - ' - 'BindingNavigatorCountItem1 - ' - Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1") - ' - 'BindingNavigatorDeleteItem1 - ' - Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem1, "BindingNavigatorDeleteItem1") - Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" - ' - 'BindingNavigatorMoveFirstItem1 - ' - Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem1, "BindingNavigatorMoveFirstItem1") - Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" - ' - 'BindingNavigatorMovePreviousItem1 - ' - Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem1, "BindingNavigatorMovePreviousItem1") - Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" - ' - 'BindingNavigatorSeparator3 - ' - Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" - resources.ApplyResources(Me.BindingNavigatorSeparator3, "BindingNavigatorSeparator3") - ' - 'BindingNavigatorPositionItem1 - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem1, "BindingNavigatorPositionItem1") - Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" - ' - 'BindingNavigatorSeparator4 - ' - Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" - resources.ApplyResources(Me.BindingNavigatorSeparator4, "BindingNavigatorSeparator4") - ' - 'BindingNavigatorMoveNextItem1 - ' - Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem1, "BindingNavigatorMoveNextItem1") - Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" - ' - 'BindingNavigatorMoveLastItem1 - ' - Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem1, "BindingNavigatorMoveLastItem1") - Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" - ' - 'BindingNavigatorSeparator5 - ' - Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" - resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5") - ' - 'tsbtnsave_pattern - ' - Me.tsbtnsave_pattern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnsave_pattern.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.tsbtnsave_pattern, "tsbtnsave_pattern") - Me.tsbtnsave_pattern.Name = "tsbtnsave_pattern" - ' - 'GUIDTextBox2 - ' - Me.GUIDTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox2, "GUIDTextBox2") - Me.GUIDTextBox2.Name = "GUIDTextBox2" - Me.GUIDTextBox2.ReadOnly = True - Me.GUIDTextBox2.TabStop = False - ' - 'TabPage4 - ' - resources.ApplyResources(Me.TabPage4, "TabPage4") - Me.TabPage4.Controls.Add(Me.lblHinweisRework1) - Me.TabPage4.Controls.Add(Me.CHANGED_WHENTextBox1) - Me.TabPage4.Controls.Add(Me.Text2Label) - Me.TabPage4.Controls.Add(Me.Text1Label) - Me.TabPage4.Controls.Add(Me.Function2Label) - Me.TabPage4.Controls.Add(Me.Function1Label) - Me.TabPage4.Controls.Add(Me.lblsavePatternsRework) - Me.TabPage4.Controls.Add(CHANGED_WHENLabel1) - Me.TabPage4.Controls.Add(CHANGED_WHOLabel1) - Me.TabPage4.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.TabPage4.Controls.Add(ADDED_WHENLabel) - Me.TabPage4.Controls.Add(Me.ADDED_WHENTextBox) - Me.TabPage4.Controls.Add(ADDED_WHOLabel) - Me.TabPage4.Controls.Add(Me.ADDED_WHOTextBox) - Me.TabPage4.Controls.Add(SEQUENCELabel) - Me.TabPage4.Controls.Add(Me.SEQUENCETextBox) - Me.TabPage4.Controls.Add(Me.TEXT2TextBox) - Me.TabPage4.Controls.Add(Me.TEXT1TextBox) - Me.TabPage4.Controls.Add(Me.FUNCTION2TextBox) - Me.TabPage4.Controls.Add(Me.FUNCTION1TextBox) - Me.TabPage4.Controls.Add(TYPELabel) - Me.TabPage4.Controls.Add(Me.TYPEComboBox) - Me.TabPage4.Controls.Add(GUIDLabel1) - Me.TabPage4.Controls.Add(Me.GUIDTextBox1) - Me.TabPage4.Controls.Add(Me.BindingNavigator1) - Me.TabPage4.Controls.Add(Me.btnRegexTest) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.UseVisualStyleBackColor = True - ' - 'lblHinweisRework1 - ' - resources.ApplyResources(Me.lblHinweisRework1, "lblHinweisRework1") - Me.lblHinweisRework1.Name = "lblHinweisRework1" - ' - 'CHANGED_WHENTextBox1 - ' - Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1") - Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" - Me.CHANGED_WHENTextBox1.ReadOnly = True - ' - 'TBHOTKEY_PATTERNS_REWORKBindingSource - ' - Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataMember = "TBHOTKEY_PATTERNS_REWORK" - Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataSource = Me.MyDataset - ' - 'Text2Label - ' - resources.ApplyResources(Me.Text2Label, "Text2Label") - Me.Text2Label.Name = "Text2Label" - ' - 'Text1Label - ' - resources.ApplyResources(Me.Text1Label, "Text1Label") - Me.Text1Label.Name = "Text1Label" - ' - 'Function2Label - ' - resources.ApplyResources(Me.Function2Label, "Function2Label") - Me.Function2Label.Name = "Function2Label" - ' - 'Function1Label - ' - resources.ApplyResources(Me.Function1Label, "Function1Label") - Me.Function1Label.Name = "Function1Label" - ' - 'lblsavePatternsRework - ' - resources.ApplyResources(Me.lblsavePatternsRework, "lblsavePatternsRework") - Me.lblsavePatternsRework.BackColor = System.Drawing.Color.Yellow - Me.lblsavePatternsRework.Name = "lblsavePatternsRework" - ' - 'CHANGED_WHOTextBox1 - ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1") - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.ReadOnly = True - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - ' - 'SEQUENCETextBox - ' - Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "SEQUENCE", True)) - resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox") - Me.SEQUENCETextBox.Name = "SEQUENCETextBox" - ' - 'TEXT2TextBox - ' - Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT2", True)) - resources.ApplyResources(Me.TEXT2TextBox, "TEXT2TextBox") - Me.TEXT2TextBox.Name = "TEXT2TextBox" - ' - 'TEXT1TextBox - ' - Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT1", True)) - resources.ApplyResources(Me.TEXT1TextBox, "TEXT1TextBox") - Me.TEXT1TextBox.Name = "TEXT1TextBox" - ' - 'FUNCTION2TextBox - ' - Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION2", True)) - resources.ApplyResources(Me.FUNCTION2TextBox, "FUNCTION2TextBox") - Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox" - ' - 'FUNCTION1TextBox - ' - Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION1", True)) - resources.ApplyResources(Me.FUNCTION1TextBox, "FUNCTION1TextBox") - Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox" - ' - 'TYPEComboBox - ' - Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TYPE", True)) - Me.TYPEComboBox.FormattingEnabled = True - Me.TYPEComboBox.Items.AddRange(New Object() {resources.GetString("TYPEComboBox.Items"), resources.GetString("TYPEComboBox.Items1"), resources.GetString("TYPEComboBox.Items2")}) - resources.ApplyResources(Me.TYPEComboBox, "TYPEComboBox") - Me.TYPEComboBox.Name = "TYPEComboBox" - ' - 'GUIDTextBox1 - ' - Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") - Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.ReadOnly = True - ' - 'BindingNavigator1 - ' - Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem - Me.BindingNavigator1.BindingSource = Me.TBHOTKEY_PATTERNS_REWORKBindingSource - Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem - Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem - Me.BindingNavigator1.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.ToolStripButton1}) - resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") - Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem - Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem - Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem - Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem - Me.BindingNavigator1.Name = "BindingNavigator1" - Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem - ' - 'BindingNavigatorAddNewItem - ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" - ' - 'BindingNavigatorCountItem - ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" - resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") - ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - ' - 'BindingNavigatorMoveFirstItem - ' - Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") - Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" - ' - 'BindingNavigatorMovePreviousItem - ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") - Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" - ' - 'BindingNavigatorSeparator - ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" - resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") - ' - 'BindingNavigatorPositionItem - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem") - Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" - ' - 'BindingNavigatorSeparator1 - ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" - resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") - ' - 'BindingNavigatorMoveNextItem - ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") - Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" - ' - 'BindingNavigatorMoveLastItem - ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") - Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" - ' - 'BindingNavigatorSeparator2 - ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" - resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") - ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'btnRegexTest - ' - Me.btnRegexTest.Image = Global.Global_Indexer.My.Resources.Resources.bell_go - resources.ApplyResources(Me.btnRegexTest, "btnRegexTest") - Me.btnRegexTest.Name = "btnRegexTest" - Me.btnRegexTest.UseVisualStyleBackColor = True - ' - 'TabPage5 - ' - Me.TabPage5.Controls.Add(ADDED_WHENLabel2) - Me.TabPage5.Controls.Add(Me.ADDED_WHENTextBox2) - Me.TabPage5.Controls.Add(ADDED_WHOLabel2) - Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox2) - Me.TabPage5.Controls.Add(CONTROL_VALUELabel) - Me.TabPage5.Controls.Add(Me.CONTROL_VALUETextBox) - Me.TabPage5.Controls.Add(SEQUENCE_NUMBERLabel1) - Me.TabPage5.Controls.Add(Me.SEQUENCE_NUMBERTextBox1) - Me.TabPage5.Controls.Add(GUIDLabel3) - Me.TabPage5.Controls.Add(Me.GUIDTextBox3) - Me.TabPage5.Controls.Add(Me.Label16) - Me.TabPage5.Controls.Add(Me.BindingNavigator3) - resources.ApplyResources(Me.TabPage5, "TabPage5") - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.UseVisualStyleBackColor = True - ' - 'ADDED_WHENTextBox2 - ' - Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2") - Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" - Me.ADDED_WHENTextBox2.ReadOnly = True - Me.ADDED_WHENTextBox2.TabStop = False - ' - 'ADDED_WHOTextBox2 - ' - Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2") - Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" - Me.ADDED_WHOTextBox2.ReadOnly = True - Me.ADDED_WHOTextBox2.TabStop = False - ' - 'CONTROL_VALUETextBox - ' - Me.CONTROL_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "CONTROL_VALUE", True)) - resources.ApplyResources(Me.CONTROL_VALUETextBox, "CONTROL_VALUETextBox") - Me.CONTROL_VALUETextBox.Name = "CONTROL_VALUETextBox" - ' - 'SEQUENCE_NUMBERTextBox1 - ' - Me.SEQUENCE_NUMBERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "SEQUENCE_NUMBER", True)) - resources.ApplyResources(Me.SEQUENCE_NUMBERTextBox1, "SEQUENCE_NUMBERTextBox1") - Me.SEQUENCE_NUMBERTextBox1.Name = "SEQUENCE_NUMBERTextBox1" - ' - 'GUIDTextBox3 - ' - Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox3, "GUIDTextBox3") - Me.GUIDTextBox3.Name = "GUIDTextBox3" - Me.GUIDTextBox3.ReadOnly = True - Me.GUIDTextBox3.TabStop = False - ' - 'Label16 - ' - resources.ApplyResources(Me.Label16, "Label16") - Me.Label16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label16.Name = "Label16" - ' - 'BindingNavigator3 - ' - Me.BindingNavigator3.AddNewItem = Nothing - Me.BindingNavigator3.BindingSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource - Me.BindingNavigator3.CountItem = Me.ToolStripLabel1 - Me.BindingNavigator3.CountItemFormat = "von {0} Control-Matches" - Me.BindingNavigator3.DeleteItem = Me.ToolStripButton2 - Me.BindingNavigator3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton2}) - resources.ApplyResources(Me.BindingNavigator3, "BindingNavigator3") - Me.BindingNavigator3.MoveFirstItem = Me.ToolStripButton3 - Me.BindingNavigator3.MoveLastItem = Me.ToolStripButton6 - Me.BindingNavigator3.MoveNextItem = Me.ToolStripButton5 - Me.BindingNavigator3.MovePreviousItem = Me.ToolStripButton4 - Me.BindingNavigator3.Name = "BindingNavigator3" - Me.BindingNavigator3.PositionItem = Me.ToolStripTextBox1 - ' - 'ToolStripLabel1 - ' - Me.ToolStripLabel1.Name = "ToolStripLabel1" - resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" - ' - 'ToolStripButton3 - ' - Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") - Me.ToolStripButton3.Name = "ToolStripButton3" - ' - 'ToolStripButton4 - ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") - Me.ToolStripButton4.Name = "ToolStripButton4" - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") - ' - 'ToolStripTextBox1 - ' - resources.ApplyResources(Me.ToolStripTextBox1, "ToolStripTextBox1") - Me.ToolStripTextBox1.Name = "ToolStripTextBox1" - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") - ' - 'ToolStripButton5 - ' - Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") - Me.ToolStripButton5.Name = "ToolStripButton5" - ' - 'ToolStripButton6 - ' - Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6") - Me.ToolStripButton6.Name = "ToolStripButton6" - ' - 'ToolStripSeparator3 - ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") - ' - 'ListBoxPatterns - ' - Me.ListBoxPatterns.DataSource = Me.TBHOTKEY_PATTERNSBindingSource - Me.ListBoxPatterns.DisplayMember = "PATTERN_WDSEARCH" - Me.ListBoxPatterns.FormattingEnabled = True - resources.ApplyResources(Me.ListBoxPatterns, "ListBoxPatterns") - Me.ListBoxPatterns.Name = "ListBoxPatterns" - Me.ListBoxPatterns.ValueMember = "GUID" - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage3) - Me.TabControl1.Controls.Add(Me.TabPage1) - Me.TabControl1.Controls.Add(Me.TabPage2) - resources.ApplyResources(Me.TabControl1, "TabControl1") - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - ' - 'TabPage3 - ' - resources.ApplyResources(Me.TabPage3, "TabPage3") - Me.TabPage3.Controls.Add(WINDOW_NAMELabel) - Me.TabPage3.Controls.Add(Me.WINDOW_NAMETextBox) - Me.TabPage3.Controls.Add(Me.Button2) - Me.TabPage3.Controls.Add(Me.lblSave) - Me.TabPage3.Controls.Add(Me.btnsave) - Me.TabPage3.Controls.Add(CHANGED_WHENLabel) - Me.TabPage3.Controls.Add(Me.CHANGED_WHENTextBox) - Me.TabPage3.Controls.Add(CHANGED_WHOLabel) - Me.TabPage3.Controls.Add(Me.CHANGED_WHOTextBox) - Me.TabPage3.Controls.Add(HOTKEY2Label) - Me.TabPage3.Controls.Add(Me.HOTKEY2TextBox) - Me.TabPage3.Controls.Add(HOTKEY1Label) - Me.TabPage3.Controls.Add(Me.HOTKEY1ComboBox) - Me.TabPage3.Controls.Add(WD_SEARCHLabel) - Me.TabPage3.Controls.Add(Me.WD_SEARCHTextBox) - Me.TabPage3.Controls.Add(NAMELabel) - Me.TabPage3.Controls.Add(Me.NAMETextBox) - Me.TabPage3.Controls.Add(GUIDLabel) - Me.TabPage3.Controls.Add(Me.GUIDTextBox) - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'WINDOW_NAMETextBox - ' - Me.WINDOW_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WINDOW_NAME", True)) - resources.ApplyResources(Me.WINDOW_NAMETextBox, "WINDOW_NAMETextBox") - Me.WINDOW_NAMETextBox.ForeColor = System.Drawing.Color.Firebrick - Me.WINDOW_NAMETextBox.Name = "WINDOW_NAMETextBox" - Me.WINDOW_NAMETextBox.TabStop = False - ' - 'Button2 - ' - resources.ApplyResources(Me.Button2, "Button2") - Me.Button2.Name = "Button2" - Me.Button2.UseVisualStyleBackColor = True - ' - 'lblSave - ' - resources.ApplyResources(Me.lblSave, "lblSave") - Me.lblSave.BackColor = System.Drawing.Color.Yellow - Me.lblSave.Name = "lblSave" - ' - 'btnsave - ' - Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.btnsave, "btnsave") - Me.btnsave.Name = "btnsave" - Me.btnsave.UseVisualStyleBackColor = True - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - ' - 'HOTKEY2TextBox - ' - Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY2", True)) - resources.ApplyResources(Me.HOTKEY2TextBox, "HOTKEY2TextBox") - Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" - ' - 'HOTKEY1ComboBox - ' - Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY1", True)) - Me.HOTKEY1ComboBox.FormattingEnabled = True - Me.HOTKEY1ComboBox.Items.AddRange(New Object() {resources.GetString("HOTKEY1ComboBox.Items"), resources.GetString("HOTKEY1ComboBox.Items1"), resources.GetString("HOTKEY1ComboBox.Items2"), resources.GetString("HOTKEY1ComboBox.Items3")}) - resources.ApplyResources(Me.HOTKEY1ComboBox, "HOTKEY1ComboBox") - Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" - ' - 'WD_SEARCHTextBox - ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WD_SEARCH", True)) - resources.ApplyResources(Me.WD_SEARCHTextBox, "WD_SEARCHTextBox") - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - ' - 'NAMETextBox - ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "NAME", True)) - resources.ApplyResources(Me.NAMETextBox, "NAMETextBox") - Me.NAMETextBox.Name = "NAMETextBox" - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.chklbUser) - Me.TabPage1.Controls.Add(Me.btnUserAdd_Profile) - resources.ApplyResources(Me.TabPage1, "TabPage1") - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'chklbUser - ' - resources.ApplyResources(Me.chklbUser, "chklbUser") - Me.chklbUser.ContextMenuStrip = Me.ContextMenuStrip1 - Me.chklbUser.FormattingEnabled = True - Me.chklbUser.Name = "chklbUser" - ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleAuswählenToolStripMenuItem, Me.KeineAuswählenToolStripMenuItem}) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1") - ' - 'AlleAuswählenToolStripMenuItem - ' - Me.AlleAuswählenToolStripMenuItem.Name = "AlleAuswählenToolStripMenuItem" - resources.ApplyResources(Me.AlleAuswählenToolStripMenuItem, "AlleAuswählenToolStripMenuItem") - ' - 'KeineAuswählenToolStripMenuItem - ' - Me.KeineAuswählenToolStripMenuItem.Name = "KeineAuswählenToolStripMenuItem" - resources.ApplyResources(Me.KeineAuswählenToolStripMenuItem, "KeineAuswählenToolStripMenuItem") - ' - 'btnUserAdd_Profile - ' - resources.ApplyResources(Me.btnUserAdd_Profile, "btnUserAdd_Profile") - Me.btnUserAdd_Profile.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnUserAdd_Profile.Name = "btnUserAdd_Profile" - Me.btnUserAdd_Profile.UseVisualStyleBackColor = True - ' - 'TabPage2 - ' - Me.TabPage2.Controls.Add(Me.btndeleteUserProfile) - Me.TabPage2.Controls.Add(Me.chklbUserProfile) - resources.ApplyResources(Me.TabPage2, "TabPage2") - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.UseVisualStyleBackColor = True - ' - 'btndeleteUserProfile - ' - Me.btndeleteUserProfile.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.btndeleteUserProfile, "btndeleteUserProfile") - Me.btndeleteUserProfile.Name = "btndeleteUserProfile" - Me.btndeleteUserProfile.UseVisualStyleBackColor = True - ' - 'chklbUserProfile - ' - resources.ApplyResources(Me.chklbUserProfile, "chklbUserProfile") - Me.chklbUserProfile.ContextMenuStrip = Me.ContextMenuStrip1 - Me.chklbUserProfile.FormattingEnabled = True - Me.chklbUserProfile.Name = "chklbUserProfile" - ' - 'btndelete - ' - Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.btndelete, "btndelete") - Me.btndelete.Name = "btndelete" - Me.btndelete.UseVisualStyleBackColor = True - ' - 'Label9 - ' - resources.ApplyResources(Me.Label9, "Label9") - Me.Label9.Name = "Label9" - ' - 'TabPage_Designer - ' - resources.ApplyResources(Me.TabPage_Designer, "TabPage_Designer") - Me.TabPage_Designer.Controls.Add(Me.TabControl2) - Me.TabPage_Designer.Controls.Add(Me.GroupBox1) - Me.TabPage_Designer.Controls.Add(Me.GroupBoxMainWindow) - Me.TabPage_Designer.Name = "TabPage_Designer" - Me.TabPage_Designer.UseVisualStyleBackColor = True - ' - 'TabControl2 - ' - resources.ApplyResources(Me.TabControl2, "TabControl2") - Me.TabControl2.Controls.Add(Me.TabPage7) - Me.TabControl2.Controls.Add(Me.TabPage8) - Me.TabControl2.Name = "TabControl2" - Me.TabControl2.SelectedIndex = 0 - ' - 'TabPage7 - ' - Me.TabPage7.Controls.Add(Me.GroupBox2_Controls) - resources.ApplyResources(Me.TabPage7, "TabPage7") - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.UseVisualStyleBackColor = True - ' - 'TabPage8 - ' - Me.TabPage8.Controls.Add(Me.Label20) - Me.TabPage8.Controls.Add(Me.lblLinkCopyPaste) - Me.TabPage8.Controls.Add(Me.btnAddCopypasteConfig) - Me.TabPage8.Controls.Add(Me.txtcopypastePatter) - Me.TabPage8.Controls.Add(Me.Label19) - Me.TabPage8.Controls.Add(Me.Label18) - Me.TabPage8.Controls.Add(Me.cmbCopyPasteFunction) - resources.ApplyResources(Me.TabPage8, "TabPage8") - Me.TabPage8.Name = "TabPage8" - Me.TabPage8.UseVisualStyleBackColor = True - ' - 'Label20 - ' - resources.ApplyResources(Me.Label20, "Label20") - Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label20.Name = "Label20" - ' - 'lblLinkCopyPaste - ' - resources.ApplyResources(Me.lblLinkCopyPaste, "lblLinkCopyPaste") - Me.lblLinkCopyPaste.BackColor = System.Drawing.Color.Yellow - Me.lblLinkCopyPaste.Name = "lblLinkCopyPaste" - ' - 'btnAddCopypasteConfig - ' - resources.ApplyResources(Me.btnAddCopypasteConfig, "btnAddCopypasteConfig") - Me.btnAddCopypasteConfig.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnAddCopypasteConfig.Name = "btnAddCopypasteConfig" - Me.btnAddCopypasteConfig.UseVisualStyleBackColor = True - ' - 'txtcopypastePatter - ' - resources.ApplyResources(Me.txtcopypastePatter, "txtcopypastePatter") - Me.txtcopypastePatter.Name = "txtcopypastePatter" - ' - 'Label19 - ' - resources.ApplyResources(Me.Label19, "Label19") - Me.Label19.Name = "Label19" - ' - 'Label18 - ' - resources.ApplyResources(Me.Label18, "Label18") - Me.Label18.Name = "Label18" - ' - 'cmbCopyPasteFunction - ' - Me.cmbCopyPasteFunction.FormattingEnabled = True - Me.cmbCopyPasteFunction.Items.AddRange(New Object() {resources.GetString("cmbCopyPasteFunction.Items"), resources.GetString("cmbCopyPasteFunction.Items1")}) - resources.ApplyResources(Me.cmbCopyPasteFunction, "cmbCopyPasteFunction") - Me.cmbCopyPasteFunction.Name = "cmbCopyPasteFunction" - ' - 'TabPageTest - ' - Me.TabPageTest.Controls.Add(Me.GroupBox3) - Me.TabPageTest.Controls.Add(Me.GroupBox2) - resources.ApplyResources(Me.TabPageTest, "TabPageTest") - Me.TabPageTest.Name = "TabPageTest" - Me.TabPageTest.UseVisualStyleBackColor = True - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.chkboxshowfilledControlsOnly_Test) - Me.GroupBox3.Controls.Add(Me.ListViewControls_Test) - resources.ApplyResources(Me.GroupBox3, "GroupBox3") - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.TabStop = False - ' - 'chkboxshowfilledControlsOnly_Test - ' - resources.ApplyResources(Me.chkboxshowfilledControlsOnly_Test, "chkboxshowfilledControlsOnly_Test") - Me.chkboxshowfilledControlsOnly_Test.ForeColor = System.Drawing.Color.DarkSlateGray - Me.chkboxshowfilledControlsOnly_Test.Name = "chkboxshowfilledControlsOnly_Test" - Me.chkboxshowfilledControlsOnly_Test.UseVisualStyleBackColor = True - ' - 'ListViewControls_Test - ' - resources.ApplyResources(Me.ListViewControls_Test, "ListViewControls_Test") - Me.ListViewControls_Test.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4, Me.ColumnHeader1, Me.ColumnHeader2}) - Me.ListViewControls_Test.FullRowSelect = True - Me.ListViewControls_Test.Name = "ListViewControls_Test" - Me.ListViewControls_Test.UseCompatibleStateImageBehavior = False - Me.ListViewControls_Test.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader4 - ' - resources.ApplyResources(Me.ColumnHeader4, "ColumnHeader4") - ' - 'ColumnHeader1 - ' - resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1") - ' - 'ColumnHeader2 - ' - resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2") - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Button3) - Me.GroupBox2.Controls.Add(Me.ListBox_MainWindows_Test) - resources.ApplyResources(Me.GroupBox2, "GroupBox2") - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.TabStop = False - ' - 'Button3 - ' - resources.ApplyResources(Me.Button3, "Button3") - Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xMD - Me.Button3.Name = "Button3" - Me.Button3.UseVisualStyleBackColor = True - ' - 'ListBox_MainWindows_Test - ' - resources.ApplyResources(Me.ListBox_MainWindows_Test, "ListBox_MainWindows_Test") - Me.ListBox_MainWindows_Test.FormattingEnabled = True - Me.ListBox_MainWindows_Test.Name = "ListBox_MainWindows_Test" - ' - 'TBDD_USERBindingSource - ' - Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" - Me.TBDD_USERBindingSource.DataSource = Me.MyDataset - ' - 'TBDD_USERTableAdapter - ' - Me.TBDD_USERTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_USER_PROFILEBindingSource - ' - Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" - Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_PATTERNS_REWORKTableAdapter - ' - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_WINDOW_HOOKTableAdapter - ' - Me.TBHOTKEY_WINDOW_HOOKTableAdapter.ClearBeforeFill = True - ' - 'frmHotKey_Add - ' - resources.ApplyResources(Me, "$this") - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.TabControlMain) - Me.Controls.Add(Me.StatusStrip1) - Me.Name = "frmHotKey_Add" - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() - Me.GroupBoxMainWindow.ResumeLayout(False) - Me.GroupBoxMainWindow.PerformLayout() - Me.GroupBox2_Controls.ResumeLayout(False) - Me.GroupBox2_Controls.PerformLayout() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabControlMain.ResumeLayout(False) - Me.TabPageUebersicht.ResumeLayout(False) - Me.TabPageUebersicht.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBoxPatterns.ResumeLayout(False) - Me.GroupBoxPatterns.PerformLayout() - CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabControlDetails.ResumeLayout(False) - Me.TabPage6.ResumeLayout(False) - Me.TabPage6.PerformLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator2.ResumeLayout(False) - Me.BindingNavigator2.PerformLayout() - Me.TabPage4.ResumeLayout(False) - Me.TabPage4.PerformLayout() - CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator1.ResumeLayout(False) - Me.BindingNavigator1.PerformLayout() - Me.TabPage5.ResumeLayout(False) - Me.TabPage5.PerformLayout() - CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator3.ResumeLayout(False) - Me.BindingNavigator3.PerformLayout() - Me.TabControl1.ResumeLayout(False) - Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() - Me.TabPage1.ResumeLayout(False) - Me.ContextMenuStrip1.ResumeLayout(False) - Me.TabPage2.ResumeLayout(False) - Me.TabPage_Designer.ResumeLayout(False) - Me.TabControl2.ResumeLayout(False) - Me.TabPage7.ResumeLayout(False) - Me.TabPage8.ResumeLayout(False) - Me.TabPage8.PerformLayout() - Me.TabPageTest.ResumeLayout(False) - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() - Me.GroupBox2.ResumeLayout(False) - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents btnpnlStart_weiter As System.Windows.Forms.Button - Friend WithEvents ListBox_FormTitles As System.Windows.Forms.ListBox - Friend WithEvents GroupBoxMainWindow As System.Windows.Forms.GroupBox - Friend WithEvents GroupBox2_Controls As System.Windows.Forms.GroupBox - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents txtControl As System.Windows.Forms.TextBox - Friend WithEvents txtPattern As System.Windows.Forms.TextBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents btnGB1 As System.Windows.Forms.Button - Friend WithEvents txtKey As System.Windows.Forms.TextBox - Friend WithEvents cmbFunktionstaste As System.Windows.Forms.ComboBox - Friend WithEvents txtWDSearch As System.Windows.Forms.TextBox - Friend WithEvents cmbObjekttyp As System.Windows.Forms.ComboBox - Friend WithEvents txtProfilname As System.Windows.Forms.TextBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents btnadd_Pattern As System.Windows.Forms.Button - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents MyDataset As Global_Indexer.MyDataset - Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter - Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents TBHOTKEY_PATTERNSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter - Friend WithEvents TBHOTKEY_PATTERNSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents lblSaveHotkey As System.Windows.Forms.Label - Friend WithEvents lblLinkadd As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents TabControlMain As System.Windows.Forms.TabControl - Friend WithEvents TabPage_Designer As System.Windows.Forms.TabPage - Friend WithEvents TabPageTest As System.Windows.Forms.TabPage - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents ListBox_MainWindows_Test As System.Windows.Forms.ListBox - Friend WithEvents TabPageUebersicht As System.Windows.Forms.TabPage - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents btndelete As System.Windows.Forms.Button - Friend WithEvents btnUserAdd_Profile As System.Windows.Forms.Button - Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter - Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter - Friend WithEvents chklbUser As System.Windows.Forms.CheckedListBox - Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip - Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents KeineAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents TabControl1 As System.Windows.Forms.TabControl - Friend WithEvents TabPage1 As System.Windows.Forms.TabPage - Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents chklbUserProfile As System.Windows.Forms.CheckedListBox - Friend WithEvents btndeleteUserProfile As System.Windows.Forms.Button - Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox - Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox - Friend WithEvents btnsave As System.Windows.Forms.Button - Friend WithEvents lblSave As System.Windows.Forms.Label - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox - Friend WithEvents ListBoxPatterns As System.Windows.Forms.ListBox - Friend WithEvents TabControlDetails As System.Windows.Forms.TabControl - Friend WithEvents TabPage4 As System.Windows.Forms.TabPage - Friend WithEvents TabPage5 As System.Windows.Forms.TabPage - Friend WithEvents TBHOTKEY_PATTERNS_REWORKBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PATTERNS_REWORKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter - Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents TYPEComboBox As System.Windows.Forms.ComboBox - Friend WithEvents FUNCTION1TextBox As System.Windows.Forms.TextBox - Friend WithEvents FUNCTION2TextBox As System.Windows.Forms.TextBox - Friend WithEvents TEXT1TextBox As System.Windows.Forms.TextBox - Friend WithEvents TEXT2TextBox As System.Windows.Forms.TextBox - Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton - Friend WithEvents lblsavePatternsRework As System.Windows.Forms.Label - Friend WithEvents Function2Label As System.Windows.Forms.Label - Friend WithEvents Function1Label As System.Windows.Forms.Label - Friend WithEvents Text2Label As System.Windows.Forms.Label - Friend WithEvents Text1Label As System.Windows.Forms.Label - Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents lblHinweisRework1 As System.Windows.Forms.Label - Friend WithEvents btnRegexTest As System.Windows.Forms.Button - Friend WithEvents ListViewControls As System.Windows.Forms.ListView - Friend WithEvents ControlID As System.Windows.Forms.ColumnHeader - Friend WithEvents ControlValue As System.Windows.Forms.ColumnHeader - Friend WithEvents ListViewControls_Test As System.Windows.Forms.ListView - Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader - Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader - Friend WithEvents chkboxshowfilledControlsOnly_Test As System.Windows.Forms.CheckBox - Friend WithEvents chkboxshowfilledControlsOnly As System.Windows.Forms.CheckBox - Friend WithEvents WINDOW_NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader - Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader - Friend WithEvents SEQUENCE_NUMBERTextBox As System.Windows.Forms.TextBox - Friend WithEvents tslbl_Hotkeywindow As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tslbl_HotkeySequence As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents txtValueMatch As System.Windows.Forms.TextBox - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents Label11 As System.Windows.Forms.Label - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents txtControl_Match As System.Windows.Forms.TextBox - Friend WithEvents btnadd_WindowMatch As System.Windows.Forms.Button - Friend WithEvents TBHOTKEY_WINDOW_HOOKBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_WINDOW_HOOKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter - Friend WithEvents lblMatchadd As System.Windows.Forms.Label - Friend WithEvents TabPage6 As System.Windows.Forms.TabPage - Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents PATTERN_WDSEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents tsbtnsave_pattern As System.Windows.Forms.ToolStripButton - Friend WithEvents lblSavePAttern As System.Windows.Forms.Label - Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CONTROL_VALUETextBox As System.Windows.Forms.TextBox - Friend WithEvents SEQUENCE_NUMBERTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox3 As System.Windows.Forms.TextBox - Friend WithEvents Label16 As System.Windows.Forms.Label - Friend WithEvents BindingNavigator3 As System.Windows.Forms.BindingNavigator - Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox - Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox - Friend WithEvents btnnewProfile As System.Windows.Forms.Button - Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip - Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController - Friend WithEvents TabControl2 As System.Windows.Forms.TabControl - Friend WithEvents TabPage7 As System.Windows.Forms.TabPage - Friend WithEvents TabPage8 As System.Windows.Forms.TabPage - Friend WithEvents btnAddCopypasteConfig As System.Windows.Forms.Button - Friend WithEvents txtcopypastePatter As System.Windows.Forms.TextBox - Friend WithEvents Label19 As System.Windows.Forms.Label - Friend WithEvents Label18 As System.Windows.Forms.Label - Friend WithEvents cmbCopyPasteFunction As System.Windows.Forms.ComboBox - Friend WithEvents lblLinkCopyPaste As System.Windows.Forms.Label - Friend WithEvents Label20 As System.Windows.Forms.Label - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colString As DevExpress.XtraGrid.Columns.GridColumn -End Class diff --git a/Global_Indexer/frmHotKey_Add.resx b/Global_Indexer/frmHotKey_Add.resx deleted file mode 100644 index e51e4b2..0000000 --- a/Global_Indexer/frmHotKey_Add.resx +++ /dev/null @@ -1,6768 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - False - - - - True - - - - 6, 12 - - - 21, 13 - - - 0 - - - ID: - - - GUIDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 17 - - - False - - - True - - - 64, 12 - - - 65, 13 - - - 2 - - - Profilname: - - - NAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 15 - - - False - - - True - - - 6, 53 - - - 96, 13 - - - 4 - - - windream-Suche: - - - WD_SEARCHLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 13 - - - False - - - True - - - 6, 140 - - - 87, 13 - - - 6 - - - Funktionstaste: - - - HOTKEY1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - False - - - True - - - 99, 140 - - - 55, 13 - - - 8 - - - Hotkey 2: - - - HOTKEY2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - False - - - True - - - 171, 140 - - - 80, 13 - - - 10 - - - Geändert wer: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - False - - - True - - - 310, 140 - - - 90, 13 - - - 12 - - - Geändert wann: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - False - - - True - - - 6, 28 - - - 21, 13 - - - 1 - - - ID: - - - GUIDLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 22 - - - False - - - True - - - 49, 28 - - - 27, 13 - - - 3 - - - Typ: - - - TYPELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 20 - - - False - - - True - - - 437, 28 - - - 73, 13 - - - 13 - - - Reihenfolge: - - - SEQUENCELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 14 - - - False - - - True - - - 6, 120 - - - 67, 13 - - - 15 - - - Erstellt wer: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 12 - - - False - - - True - - - 115, 120 - - - 77, 13 - - - 17 - - - Erstellt wann: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 10 - - - False - - - True - - - 225, 120 - - - 80, 13 - - - 19 - - - Geändert wer: - - - CHANGED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 8 - - - False - - - True - - - 336, 120 - - - 90, 13 - - - 21 - - - Geändert wann: - - - CHANGED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 7 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 108 - - - 70, 13 - - - 4 - - - Erstellt wann: - - - ADDED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 8 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 67 - - - 21, 13 - - - 6 - - - ID: - - - GUIDLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 15 - - - False - - - True - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 6, 94 - - - 93, 15 - - - 81 - - - Window-Name: - - - WINDOW_NAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 67 - - - 154, 13 - - - 8 - - - Control-Sequence/-Reihenfolge: - - - SEQUENCE_NUMBERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 13 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 67 - - - 198, 13 - - - 83 - - - Zu ersetzendes Pattern Windream-Suche: - - - PATTERN_WDSEARCHLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 9 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 108 - - - 82, 13 - - - 85 - - - Geändert wann: - - - CHANGED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 5 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 149 - - - 73, 13 - - - 86 - - - Geändert wer: - - - CHANGED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 3 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 149 - - - 61, 13 - - - 87 - - - Erstellt wer: - - - ADDED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 1 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 21 - - - 74, 13 - - - 7 - - - Suchpattern: - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 2 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 6, 74 - - - 20, 13 - - - 86 - - - ID: - - - GUIDLabel3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 8 - - - False - - - True - - - 64, 74 - - - 73, 13 - - - 87 - - - Reihenfolge: - - - SEQUENCE_NUMBERLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 6 - - - False - - - True - - - 209, 74 - - - 83, 13 - - - 88 - - - Control-Inhalt: - - - CONTROL_VALUELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 115 - - - 61, 13 - - - 89 - - - Erstellt wer: - - - ADDED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 209, 115 - - - 70, 13 - - - 90 - - - Erstellt wann: - - - ADDED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 158 - - - 95, 13 - - - 9 - - - Control-Matches: - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 0 - - - 17, 17 - - - 0, 613 - - - 972, 22 - - - 0 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - - - 97, 17 - - - Windowname - - - 74, 17 - - - Sequence - - - Segoe UI, 9pt, style=Italic - - - 15 - - - 6, 21 - - - 542, 214 - - - 8 - - - ListBox_FormTitles - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 2 - - - chkboxshowfilledControlsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 0 - - - btnpnlStart_weiter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 1 - - - Segoe UI, 8.25pt, style=Bold - - - 403, 6 - - - 558, 274 - - - 15 - - - Schritt 2 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte - - - False - - - GroupBoxMainWindow - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 2 - - - - Bottom, Left - - - True - - - Segoe UI, 9pt, style=Bold, Italic - - - 6, 247 - - - 185, 19 - - - 11 - - - Nur gefüllte Felder anzeigen - - - chkboxshowfilledControlsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 0 - - - Segoe UI, 9pt - - - MiddleRight - - - 473, 243 - - - 75, 25 - - - 0 - - - weiter - - - MiddleLeft - - - btnpnlStart_weiter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 1 - - - lblMatchadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 0 - - - btnadd_WindowMatch - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 1 - - - txtValueMatch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 2 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 3 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 4 - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 5 - - - txtControl_Match - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 6 - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 7 - - - ListViewControls - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 8 - - - lblLinkadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 9 - - - btnadd_Pattern - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 10 - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 11 - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 12 - - - txtPattern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 13 - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 14 - - - txtControl - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 15 - - - Fill - - - Segoe UI, 8.25pt, style=Bold - - - 3, 3 - - - 936, 262 - - - 9 - - - Schritt 2 -Wählen Sie das Control mit dem zu übergebenden Wert - - - GroupBox2_Controls - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage7 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 488, 265 - - - 238, 13 - - - 89 - - - Match Control-Window erfolgreich angelegt - - - False - - - lblMatchadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 0 - - - Segoe UI, 8.25pt - - - MiddleRight - - - 833, 237 - - - 96, 24 - - - 88 - - - Hinzufügen - - - MiddleLeft - - - btnadd_WindowMatch - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 1 - - - Segoe UI, 8.25pt - - - 694, 240 - - - 133, 22 - - - 87 - - - txtValueMatch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 2 - - - True - - - Segoe UI, 8.25pt - - - 615, 243 - - - 79, 13 - - - 86 - - - enthält Value: - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 3 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 491, 161 - - - 418, 54 - - - 85 - - - Bei Nicht-Eindeutigkeit des MainWindow --Namens und der Control # muss -zusätzlich eine Abhängigkeit zwischen Control-Inhalt und dem Windownamen -geschaffen werden. - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 4 - - - True - - - Segoe UI, 8.25pt - - - 488, 224 - - - 125, 13 - - - 84 - - - Reihenfolge # Control: - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 5 - - - Segoe UI, 8.25pt - - - 491, 240 - - - 118, 22 - - - 83 - - - txtControl_Match - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 6 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 491, 19 - - - 436, 54 - - - 82 - - - Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' -gespeichert. -Während der Laufzeit wird der Suchpattern der windream-Suche dann mit -dem gelesenen Wert ersetzt. - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 7 - - - Top, Bottom, Left, Right - - - Segoe UI Semibold, 8.25pt, style=Bold, Italic - - - 6, 19 - - - 476, 237 - - - 81 - - - ListViewControls - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 8 - - - # - - - Control-ID: - - - 100 - - - Gelesener Wert - - - 305 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 491, 121 - - - 179, 13 - - - 80 - - - Pattern-Link erfolgreich angelegt - - - False - - - lblLinkadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 9 - - - Segoe UI, 8.25pt - - - MiddleRight - - - 835, 93 - - - 96, 24 - - - 14 - - - Hinzufügen - - - MiddleLeft - - - btnadd_Pattern - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 10 - - - True - - - Segoe UI, 8.25pt - - - 693, 80 - - - 138, 13 - - - 13 - - - Windream-Suche Pattern: - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 11 - - - True - - - Segoe UI, 8.25pt - - - 491, 80 - - - 125, 13 - - - 12 - - - Reihenfolge # Control: - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 12 - - - Segoe UI, 8.25pt - - - 694, 96 - - - 135, 22 - - - 11 - - - txtPattern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 13 - - - True - - - Segoe UI, 8.25pt - - - 615, 99 - - - 73, 13 - - - 10 - - - verlinken mit - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 14 - - - Segoe UI, 8.25pt - - - 491, 96 - - - 118, 22 - - - 9 - - - txtControl - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 15 - - - btnnewProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - lblSaveHotkey - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - txtKey - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - cmbFunktionstaste - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 6 - - - txtWDSearch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 7 - - - cmbObjekttyp - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 8 - - - txtProfilname - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 9 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 10 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 11 - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 12 - - - btnGB1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 13 - - - Segoe UI, 8.25pt, style=Bold - - - 6, 6 - - - 391, 275 - - - 16 - - - Schritt 1 - Grundangaben - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 1 - - - Segoe UI, 9.75pt, style=Bold, Italic - - - MiddleLeft - - - 215, 12 - - - 170, 34 - - - 81 - - - Neues Profil erzeugen - - - MiddleRight - - - btnnewProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Segoe UI, 8.25pt - - - 360, 113 - - - 25, 23 - - - 80 - - - ... - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 15, 192 - - - 198, 13 - - - 79 - - - Hotkey-Profil erfolgreich gespeichert - - - - False - - - lblSaveHotkey - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - True - - - Segoe UI, 9pt - - - 124, 139 - - - 109, 15 - - - 11 - - - Kombinationstaste: - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - True - - - Segoe UI, 9pt - - - 15, 139 - - - 87, 15 - - - 10 - - - Funktionstaste: - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - Segoe UI, 9pt - - - 127, 157 - - - 53, 23 - - - 9 - - - txtKey - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - Segoe UI, 8.25pt - - - Strg - - - Shift - - - Alt - - - Win - - - 18, 157 - - - 64, 21 - - - 8 - - - cmbFunktionstaste - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 6 - - - Segoe UI, 9pt - - - 18, 113 - - - 336, 23 - - - 7 - - - txtWDSearch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 7 - - - Segoe UI, 8.25pt - - - 18, 248 - - - 113, 21 - - - 6 - - - False - - - cmbObjekttyp - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 8 - - - Segoe UI, 9pt - - - 18, 69 - - - 367, 23 - - - 5 - - - txtProfilname - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 9 - - - True - - - Segoe UI, 9pt - - - 15, 95 - - - 102, 15 - - - 3 - - - Windream-Suche: - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 10 - - - True - - - Segoe UI, 8.25pt - - - 137, 251 - - - 61, 13 - - - 2 - - - Objekttyp: - - - False - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 11 - - - True - - - Segoe UI, 9pt - - - 15, 51 - - - 68, 15 - - - 1 - - - Profilname: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 12 - - - Segoe UI, 9pt - - - MiddleRight - - - 316, 244 - - - 69, 25 - - - 0 - - - weiter - - - MiddleLeft - - - btnGB1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 13 - - - 134, 17 - - - 244, 17 - - - 483, 17 - - - 716, 17 - - - 1140, 17 - - - 889, 17 - - - 1386, 17 - - - windream-Suche|*.wdf|Alle Dateien|*.* - - - windream-Suche wählen - - - True - - - 17, 31 - - - Aqua - - - ID - - - True - - - 0 - - - 33 - - - Profilname - - - True - - - 1 - - - 195 - - - 246, 246 - - - 39 - - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPageUebersicht - - - 0 - - - 1348, 95 - - - 3, 3 - - - 958, 25 - - - 38 - - - ToolStrip1 - - - ToolStrip1 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 1 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 1 - - - TabControlDetails - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 3 - - - ListBoxPatterns - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 4 - - - 8, 283 - - - 920, 298 - - - 37 - - - Suchpatterns und Control-Matches: - - - GroupBoxPatterns - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 2 - - - True - - - WINDOW_NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - lblSave - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - btnsave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - HOTKEY1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - WD_SEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 18 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 2 - - - Eigenschaften Hotkey-Profil: - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - chklbUser - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - btnUserAdd_Profile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 0 - - - User zu Profil zuordnen - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - MiddleLeft - - - 303, 6 - - - 197, 36 - - - 37 - - - Userprofile löschen - - - MiddleRight - - - btndeleteUserProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - Top, Bottom, Left - - - 941, 56 - - - 163, 48 - - - ContextMenuStrip1 - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 6, 6 - - - 291, 174 - - - 36 - - - chklbUserProfile - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 1 - - - Usern Profile entziehen - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - 269, 62 - - - 639, 215 - - - 36 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 3 - - - MiddleLeft - - - 269, 30 - - - 197, 26 - - - 20 - - - Profil löschen (Global und User) - - - MiddleRight - - - btndelete - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 4 - - - True - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 5, 12 - - - 142, 15 - - - 3 - - - Aktuelle globale Hotkeys: - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 5 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 2 - - - Übersicht Hot Key-Profile - - - TabPageUebersicht - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 0 - - - True - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 0 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 0 - - - Hotkey-Profil definieren - - - TabPage_Designer - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 1 - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 0 - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 1 - - - Test - Auswerten Window-Handle - - - TabPageTest - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 2 - - - Fill - - - 0, 0 - - - 972, 613 - - - 17 - - - TabControlMain - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 1 - - - 471, 95 - - - 9, 174 - - - 246, 108 - - - 8 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 1 - - - 471, 95 - - - Top, Bottom, Left - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 0 - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 1 - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 2 - - - 261, 21 - - - 639, 271 - - - 1 - - - TabControlDetails - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 3 - - - 1040, 95 - - - lblSavePAttern - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - ADDED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 2 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 6 - - - ADDED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - PATTERN_WDSEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 10 - - - SEQUENCE_NUMBERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 11 - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 12 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 14 - - - GUIDTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 16 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 2 - - - Suchpatterns - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 0 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 446, 127 - - - 164, 13 - - - 89 - - - Daten erfolgreich gespeichert! - - - False - - - lblSavePAttern - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 164 - - - 126, 22 - - - 88 - - - ADDED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 2 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 164 - - - 141, 22 - - - 87 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 124 - - - 141, 22 - - - 86 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 6 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 124 - - - 126, 22 - - - 5 - - - ADDED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 83 - - - 195, 22 - - - 84 - - - PATTERN_WDSEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 10 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 83 - - - 67, 22 - - - 9 - - - SEQUENCE_NUMBERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 11 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 30 - - - 548, 28 - - - 83 - - - Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' gespeichert. -Während der Laufzeit wird der Suchpattern der windream-Suche dann mit dem gelesenen Wert ersetzt. - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 12 - - - 1040, 95 - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - Magenta - - - 23, 22 - - - ToolStripButton2 - - - 3, 3 - - - 625, 25 - - - 0 - - - BindingNavigator2 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 14 - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 9, 83 - - - 43, 22 - - - 7 - - - GUIDTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 16 - - - 317, 95 - - - True - - - lblHinweisRework1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - CHANGED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - Text2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 2 - - - Text1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 3 - - - Function2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 4 - - - Function1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 5 - - - lblsavePatternsRework - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 6 - - - CHANGED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 9 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 11 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 13 - - - SEQUENCETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 15 - - - TEXT2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 16 - - - TEXT1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 17 - - - FUNCTION2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 18 - - - FUNCTION1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 19 - - - TYPEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 21 - - - GUIDTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 23 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 24 - - - btnRegexTest - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 25 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 0 - - - Nachbearbeitungs-Schritte für Suchpattern - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 1 - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 189, 89 - - - 44, 13 - - - 87 - - - Label10 - - - False - - - lblHinweisRework1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - 1098, 56 - - - 339, 136 - - - 129, 22 - - - 86 - - - CHANGED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - 1098, 56 - - - True - - - 142, 70 - - - 40, 13 - - - 85 - - - Label4 - - - Text2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 2 - - - True - - - 6, 70 - - - 40, 13 - - - 84 - - - Label4 - - - Text1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 3 - - - True - - - 306, 28 - - - 12, 13 - - - 83 - - - v - - - Function2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 4 - - - True - - - 189, 28 - - - 12, 13 - - - 82 - - - v - - - Function1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 5 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 225, 161 - - - 164, 13 - - - 81 - - - Daten erfolgreich gespeichert! - - - False - - - lblsavePatternsRework - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 6 - - - 228, 136 - - - 100, 22 - - - 20 - - - CHANGED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 9 - - - 118, 136 - - - 100, 22 - - - 18 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 11 - - - 9, 136 - - - 100, 22 - - - 16 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 13 - - - 440, 44 - - - 46, 22 - - - 14 - - - SEQUENCETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 15 - - - 145, 86 - - - 37, 22 - - - 12 - - - TEXT2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 16 - - - 9, 86 - - - 55, 22 - - - 10 - - - TEXT1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 17 - - - 309, 44 - - - 67, 22 - - - 8 - - - FUNCTION2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 18 - - - 192, 44 - - - 111, 22 - - - 6 - - - FUNCTION1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 19 - - - VBREPLACE - - - VBSPLIT - - - Regular Expression - - - 52, 44 - - - 130, 21 - - - 4 - - - TYPEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 21 - - - 9, 44 - - - 34, 22 - - - 2 - - - GUIDTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 23 - - - 317, 95 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - Magenta - - - 23, 22 - - - Speichern - - - 3, 3 - - - 625, 25 - - - 0 - - - BindingNavigator1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 24 - - - MiddleLeft - - - 338, 42 - - - 96, 23 - - - 88 - - - Teste RegEx - - - MiddleRight - - - False - - - btnRegexTest - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 25 - - - 1194, 95 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - CONTROL_VALUETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 5 - - - SEQUENCE_NUMBERTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - GUIDTextBox3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 10 - - - BindingNavigator3 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 11 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 1 - - - Control-Match für Window - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 2 - - - Segoe UI, 8.25pt, style=Italic - - - 212, 131 - - - 152, 22 - - - 91 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 131 - - - 136, 22 - - - 90 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - 212, 90 - - - 346, 22 - - - 89 - - - CONTROL_VALUETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 5 - - - 67, 90 - - - 46, 22 - - - 88 - - - SEQUENCE_NUMBERTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - Segoe UI, 8.25pt, style=Italic - - - 9, 90 - - - 49, 22 - - - 87 - - - GUIDTextBox3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 9, 37 - - - 550, 28 - - - 86 - - - Bei Nicht-Eindeutigkeit des MainWindow-Namens und der Control-Sequence/-Reihenfolge muss -zusätzlich eine Abhängigkeit zwischen dem Control-Inhalt und dem Windownamen geschaffen werden. - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 10 - - - 1194, 95 - - - 137, 22 - - - von {0} Control-Matches - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - 3, 3 - - - 625, 25 - - - 1 - - - BindingNavigator3 - - - BindingNavigator3 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 11 - - - 9, 37 - - - 246, 108 - - - 0 - - - ListBoxPatterns - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 4 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 9, 110 - - - 431, 24 - - - 82 - - - WINDOW_NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - 479, 67 - - - 31, 23 - - - 81 - - - ... - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 446, 114 - - - 164, 13 - - - 80 - - - Daten erfolgreich gespeichert! - - - False - - - lblSave - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - BottomCenter - - - 525, 12 - - - 85, 38 - - - 21 - - - Speichern - - - TopCenter - - - btnsave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - 313, 156 - - - 158, 22 - - - 13 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - 174, 156 - - - 130, 22 - - - 11 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - 102, 156 - - - 52, 22 - - - 9 - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - Strg - - - Shift - - - Alt - - - Win - - - 9, 156 - - - 77, 21 - - - 7 - - - HOTKEY1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - 9, 69 - - - 462, 22 - - - 5 - - - WD_SEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - 67, 28 - - - 404, 22 - - - 3 - - - NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - 9, 28 - - - 49, 22 - - - 1 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 18 - - - Top, Bottom, Left - - - 3, 6 - - - 290, 174 - - - 35 - - - chklbUser - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - 162, 22 - - - Alle auswählen - - - 162, 22 - - - Keine auswählen - - - Segoe UI, 8.25pt - - - MiddleRight - - - 299, 6 - - - 200, 36 - - - 34 - - - Gewählten Usern Profil zuweisen - - - MiddleLeft - - - btnUserAdd_Profile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - Bottom, Left, Right - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - 6, 287 - - - 950, 294 - - - 17 - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 0 - - - 4, 22 - - - 3, 3, 3, 3 - - - 942, 268 - - - 0 - - - Control-abhängige Konfiguration - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 0 - - - lblLinkCopyPaste - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 1 - - - btnAddCopypasteConfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 2 - - - txtcopypastePatter - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 3 - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 4 - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 5 - - - cmbCopyPasteFunction - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 6 - - - 4, 22 - - - 3, 3, 3, 3 - - - 942, 268 - - - 1 - - - ODER 'Copy and Paste' - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - NoControl - - - 126, 18 - - - 491, 28 - - - 83 - - - strgC Ein bereits markierter Text wird kopiert und an das Pattern übegeben -strA and strgC Zuerst wird der gesamte Text markiert und dann an das pattern übergeben. - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - NoControl - - - 266, 73 - - - 179, 13 - - - 81 - - - Pattern-Link erfolgreich angelegt - - - False - - - lblLinkCopyPaste - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 1 - - - Segoe UI, 8.25pt - - - MiddleRight - - - NoControl - - - 150, 67 - - - 96, 24 - - - 15 - - - Hinzufügen - - - MiddleLeft - - - btnAddCopypasteConfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 2 - - - 9, 70 - - - 135, 22 - - - 3 - - - txtcopypastePatter - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 3 - - - True - - - 6, 54 - - - 138, 13 - - - 2 - - - Windream-Suche Pattern: - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 4 - - - True - - - 6, 9 - - - 114, 13 - - - 1 - - - Grundfunktionalität: - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 5 - - - strgC - - - strA and strgC - - - 9, 25 - - - 111, 21 - - - 0 - - - cmbCopyPasteFunction - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 6 - - - chkboxshowfilledControlsOnly_Test - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - ListViewControls_Test - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Fill - - - Segoe UI, 8.25pt, style=Bold - - - 538, 3 - - - 423, 581 - - - 17 - - - Auslesbare Controls für gewähltes 'MainWindow' - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 0 - - - Bottom, Left - - - True - - - Segoe UI, 9pt, style=Bold, Italic - - - 6, 555 - - - 185, 19 - - - 10 - - - Nur gefüllte Felder anzeigen - - - chkboxshowfilledControlsOnly_Test - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Top, Bottom, Left, Right - - - Segoe UI, 8.25pt, style=Italic - - - 6, 27 - - - 414, 514 - - - 82 - - - ListViewControls_Test - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - # - - - Control-ID: - - - 80 - - - Gelesener Wert - - - 350 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - ListBox_MainWindows_Test - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - Left - - - Segoe UI, 8.25pt, style=Bold - - - 3, 3 - - - 535, 581 - - - 16 - - - Schritt 1 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 1 - - - Bottom, Left - - - Segoe UI, 8.25pt - - - MiddleLeft - - - 6, 552 - - - 75, 23 - - - 9 - - - Refresh - - - MiddleRight - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - Top, Bottom, Left, Right - - - Segoe UI, 9pt, style=Italic - - - 15 - - - 6, 27 - - - 514, 514 - - - 8 - - - ListBox_MainWindows_Test - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - 17, 56 - - - 212, 56 - - - 401, 56 - - - 674, 56 - - - 17, 95 - - - 758, 95 - - - 17, 134 - - - True - - - 173 - - - 6, 13 - - - 972, 635 - - - Segoe UI, 8.25pt - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - HotKey - Administration - - - tslbl_Hotkeywindow - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslbl_HotkeySequence - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader3 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ControlID - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ControlValue - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - MyDataset - - - Global_Indexer.MyDataset, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TableAdapterManager - - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNSTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNSBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - OFDWindreamsuche - - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GridView1 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colGUID - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colString - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TBHOTKEY_WINDOW_HOOKBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem1 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorDeleteItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem1 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator4 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator5 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtnsave_pattern - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_PATTERNS_REWORKBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorAddNewItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorDeleteItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripLabel1 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton2 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton3 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripTextBox1 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton5 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton6 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - AlleAuswählenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - KeineAuswählenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader4 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader1 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader2 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBDD_USERBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBDD_USERTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_USER_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNS_REWORKTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_WINDOW_HOOKTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - ToolTipController1 - - - DevExpress.Utils.ToolTipController, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - frmHotKey_Add - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/Global_Indexer/frmHotKey_Add.vb b/Global_Indexer/frmHotKey_Add.vb deleted file mode 100644 index b840d4f..0000000 --- a/Global_Indexer/frmHotKey_Add.vb +++ /dev/null @@ -1,825 +0,0 @@ -Public Class frmHotKey_Add - Dim Form_loaded As Boolean = False - Private Control_Sequence As Integer - Private Sub ObjektTypenEintragen() - Try - ' Combobox leeren - Me.cmbObjekttyp.Items.Clear() - ' alle Objekttypen durchlaufen - For Each otype As String In WINDREAM.ObjectTypes - ' und in die Combobox eintragen - Me.cmbObjekttyp.Items.Add(otype) - Next - - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen") - End Try - - End Sub - Private Sub btnpnlStart_weiter_Click(sender As Object, e As EventArgs) Handles btnpnlStart_weiter.Click - If ListBox_FormTitles.SelectedIndex <> -1 Then - GroupBox2_Controls.Visible = True - List_Controls(ListBox_FormTitles.SelectedItem, 1) - Else - GroupBox2_Controls.Visible = False - End If - End Sub - - Private Sub frmHotKey_Add_Load(sender As Object, e As EventArgs) Handles Me.Load - - Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PATTERNSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString - TabControlDetails.SelectedIndex = 0 - TabControl1.SelectedIndex = 0 - Load_Profiles() - load_users() - GroupBox1.Visible = True - GroupBox2_Controls.Visible = False - GroupBoxMainWindow.Visible = False - If IDB_ACTIVE = False Then - ObjektTypenEintragen() - End If - - - End Sub - Sub load_users() - Try - Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER) - chklbUser.Items.Clear() - For Each row As DataRow In MyDataset.TBDD_USER.Rows - chklbUser.Items.Add(row.Item("USERNAME")) - Next - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Users:") - End Try - End Sub - Sub Load_Profiles() - Try - Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE) - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profiles:") - End Try - End Sub - Sub List_FormTitles(Tabindex As Integer) - - Try - Select Case Tabindex - Case 1 - ListBox_FormTitles.Items.Clear() - Case 2 - ListBox_MainWindows_Test.Items.Clear() - ListViewControls_Test.Items.Clear() - End Select - Dim enumerator As New ClassWindowAPI - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then - Select Case Tabindex - Case 1 - ListBox_FormTitles.Items.Add(top.MainWindowTitle) - Case 2 - ListBox_MainWindows_Test.Items.Add(top.MainWindowTitle) - End Select - End If - Next top - - Catch ex As Exception - MsgBox("Error in List_FormTitles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Function CheckFormTitle_isOpen(windowname As String) - Dim isopen As Boolean = False - Try - Dim enumerator As New ClassWindowAPI - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then - If top.MainWindowTitle = windowname Then - Return True - End If - End If - Next top - Return False - Catch ex As Exception - MsgBox("Error in CheckFormTitle_isOpen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return False - End Try - End Function - - Sub List_Controls(Title As String, Tabindex As Integer) - ' Try - Select Case Tabindex - Case 1 - If GroupBox2_Controls.Visible = False Then - GroupBox2_Controls.Visible = True - End If - ListViewControls.Items.Clear() - txtControl.Text = "" - Case 2 - ListViewControls_Test.Items.Clear() - End Select - - Dim enumerator As New ClassWindowAPI - 'Jedes Fenster durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle.Contains(Title) Or top.MainWindowTitle.ToLower = Title.ToLower Then - Dim anz As Integer = 0 - Control_Sequence = 0 - 'Jedes Control durchlaufen - For Each child As ClassWindowAPI.ApiWindow In enumerator.GetChildWindows(top.hWnd) - Select Case Tabindex - Case 1 - If chkboxshowfilledControlsOnly.Checked Then - If child.MainWindowTitle <> "" Then - ListViewControls.Items.Add(Control_Sequence) - ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Else - ListViewControls.Items.Add(Control_Sequence) - ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Case 2 - If chkboxshowfilledControlsOnly_Test.Checked Then - If child.MainWindowTitle <> "" Then - ListViewControls_Test.Items.Add(Control_Sequence) - ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Else - ListViewControls_Test.Items.Add(Control_Sequence) - ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - 'ListBox_Controls_Test.Items.Add("ID: " & child.hWnd.ToString & " || Aktueller Wert: " & child.MainWindowTitle) - End Select - Control_Sequence += 1 - Next child - End If - Next top - 'Catch ex As Exception - ' MsgBox("Error in List_Controls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - 'End Try - End Sub - - Private Sub ListBox_FormTitles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_FormTitles.SelectedIndexChanged - If ListBox_FormTitles.SelectedIndex <> -1 And GroupBox2_Controls.Visible = True Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - End Sub - - Private Sub txtKey_KeyDown(sender As Object, e As KeyEventArgs) Handles txtKey.KeyDown - txtKey.Text = "" - End Sub - - Private Sub btnGB1_Click(sender As Object, e As EventArgs) Handles btnGB1.Click - If txtProfilname.Text <> "" And txtWDSearch.Text <> "" And txtKey.Text <> "" And cmbFunktionstaste.Text <> "" Then - Me.GroupBoxMainWindow.Visible = True - List_FormTitles(1) - Else - MsgBox("Eingabe fehlt!", MsgBoxStyle.Exclamation) - End If - End Sub - - Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBHOTKEY_PROFILEBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnadd_Pattern.Click - Try - lblLinkadd.Visible = False - If txtPattern.Text = "" Then - Exit Sub - End If - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopf) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtPattern.Text, Control_ID, Environment.UserName, txtControl.Text) - lblLinkadd.Text = "Pattern-Link " & txtControl.Text & " || " & txtPattern.Text & " erfolgreich angelegt" - lblLinkadd.Visible = True - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Pattern or Profile:") - End Try - - End Sub - - Private Sub txtPattern_TextChanged(sender As Object, e As EventArgs) Handles txtPattern.TextChanged - - End Sub - - - Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click - If Not Me.txtWDSearch.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.txtWDSearch.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged - Select Case TabControlMain.SelectedIndex - - Case 0 - TabControl1.SelectedIndex = 0 - TabControlDetails.SelectedIndex = 0 - Load_Profiles() - Case 1 - If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then - btnnewProfile.Visible = True - txtProfilname.Text = NAMETextBox.Text - txtWDSearch.Text = WD_SEARCHTextBox.Text - cmbFunktionstaste.SelectedIndex = cmbFunktionstaste.FindStringExact(HOTKEY1ComboBox.Text) - txtKey.Text = HOTKEY2TextBox.Text - Me.GroupBoxMainWindow.Visible = True - List_FormTitles(1) - ListBox_FormTitles.SelectedIndex = ListBox_FormTitles.FindStringExact(WINDOW_NAMETextBox.Text) - ListBox_FormTitles.SetSelected(ListBox_FormTitles.SelectedIndex, True) - GroupBox2_Controls.Visible = True - If Not IsNothing(ListBox_FormTitles.SelectedItem) Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - Else - btnnewProfile.Visible = False - Me.GroupBoxMainWindow.Visible = False - GroupBox2_Controls.Visible = False - txtProfilname.Text = "" - txtWDSearch.Text = "" - cmbFunktionstaste.SelectedIndex = -1 - txtKey.Text = "" - End If - Case 2 - List_FormTitles(2) - End Select - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click - List_FormTitles(2) - End Sub - - Private Sub ListBox_MainWindows_Test_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_MainWindows_Test.SelectedIndexChanged - If ListBox_MainWindows_Test.SelectedIndex <> -1 Then - List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) - End If - End Sub - - Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 Then - Dim result As MsgBoxResult - result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - If result = MsgBoxResult.Yes Then - Try - - Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID & ")" - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - LOGGER.Info(">> Hotkey-Profil: " & ID & " wurde gelöscht!") - Load_Profiles() - Load_UserForProfiles() - MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") - End If - End If - End If - End If - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Profiles: ") - End Try - End If - End If - End Sub - - Private Sub btnUserAdd_Profile_Click(sender As Object, e As EventArgs) Handles btnUserAdd_Profile.Click - Try - Dim added As Integer = 0 - Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 And items.Count > 0 Then - For Each item In items - Dim SQL - SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" - Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - - SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID - Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If exists = 0 Then - TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ID) - added += 1 - End If - - Next - - Else - MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") - Exit Sub - End If - - If added >= 1 Then - MsgBox(added & " neue Profil/User-Verknüpfungen angelegt!", MsgBoxStyle.Information) - Load_UserForProfiles() - Else - MsgBox("Keine Verknüpfungen angelegt!", MsgBoxStyle.Information) - End If - - Catch ex As Exception - MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click - If TabControl1.SelectedIndex = 1 Then - For i = 0 To chklbUser.Items.Count - 1 - chklbUser.SetItemChecked(i, True) - Next - ElseIf TabControl1.SelectedIndex = 2 Then - For i = 0 To chklbUserProfile.Items.Count - 1 - chklbUserProfile.SetItemChecked(i, True) - Next - End If - - End Sub - - Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click - If TabControl1.SelectedIndex = 1 Then - For i = 0 To chklbUser.Items.Count - 1 - chklbUser.SetItemChecked(i, False) - Next - ElseIf TabControl1.SelectedIndex = 2 Then - For i = 0 To chklbUserProfile.Items.Count - 1 - chklbUserProfile.SetItemChecked(i, False) - Next - End If - - End Sub - - Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged - GroupBoxPatterns.Visible = False - Select Case TabControl1.SelectedIndex - Case 0 - GroupBoxPatterns.Visible = True - Case 2 - Load_UserForProfiles() - End Select - End Sub - Sub Load_UserForProfiles() - Try - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 Then - chklbUserProfile.Items.Clear() - Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ID - Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True) - If Not IsNothing(DT) Then - For Each dr As DataRow In DT.Rows - chklbUserProfile.Items.Add(dr.Item(0)) - Next - End If - End If - Catch ex As Exception - MsgBox("Error in LoadUserForProfiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 0 Then - Select Case TabControl1.SelectedIndex - Case 1 - 'Try - ' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue) - 'Catch ex As Exception - ' MsgBox("Error in Fillby Profile-ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - 'End Try - Load_Patterns() - Load_MatchPatterns() - Case 2 - Load_UserForProfiles() - End Select - lblSave.Visible = False - End If - - - End Sub - Sub Load_Patterns() - Try - TBHOTKEY_PATTERNSTableAdapter.Fill(MyDataset.TBHOTKEY_PATTERNS, GUIDTextBox.Text) - tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text - tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text - Catch ex As Exception - MsgBox("Error in Fill Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Sub Load_MatchPatterns() - Try - TBHOTKEY_WINDOW_HOOKTableAdapter.Fill(MyDataset.TBHOTKEY_WINDOW_HOOK, GUIDTextBox.Text) - Catch ex As Exception - MsgBox("Error in Fill Match-Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Sub btndeleteUserProfile_Click(sender As Object, e As EventArgs) Handles btndeleteUserProfile.Click - Try - Dim deleted As Integer = 0 - Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 And items.Count > 0 Then - For Each item In items - Dim SQL - SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" - Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If IsNothing(userid) Then - MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation) - Exit Sub - End If - SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID - Dim ID1 = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If ID1 > 0 Then - TBHOTKEY_USER_PROFILETableAdapter.Delete(ID1) - deleted += 1 - End If - Next - - Else - MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") - Exit Sub - End If - - If deleted >= 1 Then - MsgBox(deleted & " Profilbeziehungen wurden gelöscht!", MsgBoxStyle.Information) - Load_UserForProfiles() - End If - Catch ex As Exception - MsgBox("Error in Delete Profile for Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click - Try - TBHOTKEY_PROFILEBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PROFILE.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox.Text = Environment.UserName - TBHOTKEY_PROFILEBindingSource.EndEdit() - TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE) - Me.lblSave.Visible = True - Dim result As MsgBoxResult - If USER_LANGUAGE = "de-DE" Then - result = MessageBox.Show("Wollen Sie die Änderungen im Hotkey-Profil auch in den Userprofilen vornehmen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - Else - result = MessageBox.Show("Dow You want to update the userprofiles also with the changes in the profile?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - End If - If result = MsgBoxResult.Yes Then - Try - Dim update = "UPDATE TBHOTKEY_USER_PROFILE SET WD_SEARCH = '" & WD_SEARCHTextBox.Text & "', HOTKEY1 = '" & HOTKEY1ComboBox.Text & "', HOTKEY2 = '" & HOTKEY2TextBox.Text & "' WHERE HKPROFILE_ID = " & GUIDTextBox.Text - If ClassDatabase.Execute_non_Query(update, True) Then - If USER_LANGUAGE = "de-DE" Then - MsgBox("User-Profile erfolgreich aktualisiert!", MsgBoxStyle.Information) - Else - MsgBox("Userprofiles successfull updated!", MsgBoxStyle.Information) - End If - End If - Catch ex As Exception - MsgBox("Error in Refresh Userprofiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End If - Else - Me.lblSave.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - If Not Me.WD_SEARCHTextBox.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - - Private Sub Fill_Rework(PATT_ID As Integer) - Try - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Fill(Me.MyDataset.TBHOTKEY_PATTERNS_REWORK, PATT_ID) - Catch ex As System.Exception - MsgBox("Error in Load Rework-Step:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - - Private Sub ListBoxPatterns_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxPatterns.SelectedIndexChanged - If ListBoxPatterns.SelectedIndex <> -1 Then - Fill_Rework(ListBoxPatterns.SelectedValue) - tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text - tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text - End If - End Sub - - - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click - Try - TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PATTERNS_REWORK.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox1.Text = Environment.UserName - TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() - TBHOTKEY_PATTERNS_REWORKTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS_REWORK) - Me.lblsavePatternsRework.Visible = True - Else - Me.lblsavePatternsRework.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save Reowrk Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub TBHOTKEY_PATTERNSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNSBindingSource.AddingNew - MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName - End Sub - Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged - If TYPEComboBox.SelectedIndex <> -1 Then - Me.TEXT1TextBox.Visible = True - Me.Text1Label.Visible = True - Me.TEXT2TextBox.Visible = True - Me.Text2Label.Visible = True - Me.btnRegexTest.Visible = False - - TEXT1TextBox.Size = New Size(50, 22) - lblHinweisRework1.Visible = False - - Me.FUNCTION1TextBox.Visible = False - Me.FUNCTION2TextBox.Visible = False - Me.Function1Label.Visible = False - Me.Function2Label.Visible = False - FUNCTION1TextBox.Size = New Size(111, 22) - - Select Case TYPEComboBox.Text - Case "VBREPLACE" - Me.Text1Label.Text = "Old Value:" - Me.Text2Label.Text = "New Value:" - - Case "VBSPLIT" - Me.Text1Label.Text = "Split-Zeichen:" - lblHinweisRework1.Text = "(Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'" - lblHinweisRework1.Visible = True - Me.Text2Label.Text = "Vorkommen:" - Case "Regular Expression" - Me.Text1Label.Text = "Regular Expression:" - TEXT1TextBox.Size = New Size(400, 22) - Me.Text2Label.Visible = False - Me.TEXT2TextBox.Visible = False - - Me.Function1Label.Text = "Test-String Regex:" - Me.FUNCTION1TextBox.Text = "" - FUNCTION1TextBox.Size = New Size(138, 22) - Me.FUNCTION1TextBox.Visible = True - Me.Function1Label.Visible = True - Me.btnRegexTest.Visible = True - End Select - End If - End Sub - Private Sub TBHOTKEY_PATTERNS_REWORKBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNS_REWORKBindingSource.AddingNew - If ListBoxPatterns.SelectedIndex <> -1 Then - MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName - MyDataset.TBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn.DefaultValue = ListBoxPatterns.SelectedValue - End If - - End Sub - - Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged - If GUIDTextBox.Text <> "" Then - Load_Patterns() - Load_MatchPatterns() - End If - End Sub - - Private Sub GUIDTextBox2_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox2.TextChanged - If GUIDTextBox2.Text <> "" Then - Fill_Rework(GUIDTextBox2.Text) - End If - End Sub - - Private Sub btnRegexTest_Click(sender As Object, e As EventArgs) Handles btnRegexTest.Click - If Me.TEXT1TextBox.Text <> "" And FUNCTION1TextBox.Text <> "" Then - Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) - Dim Regex As New System.Text.RegularExpressions.Regex(Me.TEXT1TextBox.Text, System.Text.RegularExpressions.RegexOptions.IgnoreCase) - - RegexList.Add(Regex) - - ' Email Absender und Empfänger - Dim result = ClassPostprocessing.extractFromStringviaRE(FUNCTION1TextBox.Text, RegexList) - If Not IsNothing(result) Then - MsgBox("Das Ergebnis der Regular-Expression: '" & result.ToString & "'!", MsgBoxStyle.Information) - Else - MsgBox("Es konnte kein Ergebnis ermittelt werden!", MsgBoxStyle.Exclamation) - End If - - End If - - - End Sub - Dim Control_ID As String - Private Sub ListViewControls_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewControls.SelectedIndexChanged - If Me.ListViewControls.SelectedItems.Count > 0 Then - Control_ID = Me.ListViewControls.SelectedItems(0).SubItems(1).Text - txtControl.Text = ListViewControls.SelectedItems(0).Text - txtControl_Match.Text = ListViewControls.SelectedItems(0).Text - txtValueMatch.Text = Me.ListViewControls.SelectedItems(0).SubItems(2).Text - txtPattern.Text = "" - If lblLinkadd.Visible Then - ListBox_FormTitles.Enabled = False - End If - End If - End Sub - - Private Sub chkboxshowfilledControlsOnly_Test_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly_Test.CheckedChanged - If ListBox_MainWindows_Test.SelectedIndex <> -1 Then - List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) - End If - End Sub - - Private Sub chkboxshowfilledControlsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly.CheckedChanged - If ListBox_FormTitles.SelectedIndex <> -1 Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - End Sub - - Private Sub btnadd_WindowMatch_Click(sender As Object, e As EventArgs) Handles btnadd_WindowMatch.Click - Try - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopf) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_WINDOW_HOOKTableAdapter.Insert(id, txtControl_Match.Text, txtValueMatch.Text, Environment.UserName) - lblMatchadd.Text = "Control-Matching " & txtControl_Match.Text & " || " & txtValueMatch.Text & " erfolgreich angelegt" - lblMatchadd.Visible = True - lblLinkadd.Visible = False - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Control-Match:") - End Try - End Sub - - Private Sub tsbtnsave_pattern_Click(sender As Object, e As EventArgs) Handles tsbtnsave_pattern.Click - Try - TBHOTKEY_PATTERNSBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PATTERNS.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox2.Text = Environment.UserName - TBHOTKEY_PATTERNSBindingSource.EndEdit() - TBHOTKEY_PATTERNSTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS) - Me.lblSavePAttern.Visible = True - Else - Me.lblSavePAttern.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click - Dim result As MsgBoxResult - result = MessageBox.Show("Sind Sie sicher dass Sie diesen Control-Match löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - If result = MsgBoxResult.Yes Then - Try - TBHOTKEY_WINDOW_HOOKTableAdapter.Delete(GUIDTextBox3.Text) - Load_MatchPatterns() - Catch ex As Exception - MsgBox("Error in Delete Control-Match: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End If - End Sub - - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnnewProfile.Click - txtProfilname.Text = "" - txtWDSearch.Text = "" - cmbFunktionstaste.SelectedIndex = -1 - txtKey.Text = "" - GroupBoxMainWindow.Visible = False - GroupBox2_Controls.Visible = False - ListBox_FormTitles.Enabled = True - btnAddCopypasteConfig.Enabled = True - End Sub - - Private Sub TEXT1TextBox_TextChanged(sender As Object, e As EventArgs) Handles TEXT1TextBox.TextChanged - If TEXT1TextBox.Text = " " Then - TEXT1TextBox.SelectAll() - TEXT1TextBox.BackColor = Color.DarkOrange - TEXT1TextBox.ForeColor = Color.White - Else - TEXT1TextBox.BackColor = Color.White - TEXT1TextBox.ForeColor = Color.Black - End If - End Sub - - Private Sub frmHotKey_Add_Shown(sender As Object, e As EventArgs) Handles Me.Shown - Form_loaded = True - If GUIDTextBox.Text <> String.Empty Then - GroupBoxPatterns.Visible = True - End If - - End Sub - - Private Sub chklbUser_MouseEnter(sender As Object, e As EventArgs) Handles chklbUser.MouseEnter - ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter) - End Sub - Private Sub chklbUser_MouseLeave(sender As Object, e As EventArgs) Handles chklbUser.MouseLeave - ToolTipController1.HideHint() - End Sub - - Private Sub btnAddCopypasteConfig_Click(sender As Object, e As EventArgs) Handles btnAddCopypasteConfig.Click - Try - lblLinkCopyPaste.Visible = False - If txtcopypastePatter.Text = "" Then - Exit Sub - End If - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopfid = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopfid) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopfid) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtcopypastePatter.Text, cmbCopyPasteFunction.Text, Environment.UserName, txtControl.Text) - lblLinkCopyPaste.Text = "Pattern-Link " & cmbCopyPasteFunction.Text & " || " & txtcopypastePatter.Text & " erfolgreich angelegt" - lblLinkCopyPaste.Visible = True - btnAddCopypasteConfig.Enabled = False - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in CopyPaste Add Pattern or Profile:") - End Try - End Sub - - Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged - - End Sub - - Private Sub chklbUserProfile_MouseEnter(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseEnter - ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter) - End Sub - - Private Sub chklbUserProfile_MouseLeave(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseLeave - ToolTipController1.HideHint() - End Sub -End Class \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.Designer.vb b/Global_Indexer/frmHotkey_User.Designer.vb deleted file mode 100644 index 31e6adf..0000000 --- a/Global_Indexer/frmHotkey_User.Designer.vb +++ /dev/null @@ -1,343 +0,0 @@ - _ -Partial Class frmHotkey_User - Inherits System.Windows.Forms.Form - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Dim WD_SEARCHLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotkey_User)) - Dim HOTKEY2Label As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim HOTKEY1Label As System.Windows.Forms.Label - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.Label1 = New System.Windows.Forms.Label() - Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() - Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.ListBoxMyHK = New System.Windows.Forms.ListBox() - Me.TBMYHOTKEYSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.lblmeinehotkeys = New System.Windows.Forms.Label() - Me.TBMYHOTKEYSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter() - Me.btnAddtomyHK = New System.Windows.Forms.Button() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.chkbxMaximizeWS = New System.Windows.Forms.CheckBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.lblSave = New System.Windows.Forms.Label() - Me.btnsave = New System.Windows.Forms.Button() - Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() - Me.btndelete = New System.Windows.Forms.Button() - Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - WD_SEARCHLabel = New System.Windows.Forms.Label() - HOTKEY2Label = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - HOTKEY1Label = New System.Windows.Forms.Label() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox1.SuspendLayout() - Me.SuspendLayout() - ' - 'WD_SEARCHLabel - ' - resources.ApplyResources(WD_SEARCHLabel, "WD_SEARCHLabel") - WD_SEARCHLabel.Name = "WD_SEARCHLabel" - ' - 'HOTKEY2Label - ' - resources.ApplyResources(HOTKEY2Label, "HOTKEY2Label") - HOTKEY2Label.Name = "HOTKEY2Label" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'HOTKEY1Label - ' - resources.ApplyResources(HOTKEY1Label, "HOTKEY1Label") - HOTKEY1Label.Name = "HOTKEY1Label" - ' - 'StatusStrip1 - ' - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'Label1 - ' - resources.ApplyResources(Me.Label1, "Label1") - Me.Label1.Name = "Label1" - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBHOTKEY_PROFILEBindingSource - ' - Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" - Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_PROFILETableAdapter - ' - Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing - Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'ListBox1 - ' - resources.ApplyResources(Me.ListBox1, "ListBox1") - Me.ListBox1.DataSource = Me.TBHOTKEY_PROFILEBindingSource - Me.ListBox1.DisplayMember = "String" - Me.ListBox1.FormattingEnabled = True - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.ValueMember = "GUID" - ' - 'ListBoxMyHK - ' - resources.ApplyResources(Me.ListBoxMyHK, "ListBoxMyHK") - Me.ListBoxMyHK.DataSource = Me.TBMYHOTKEYSBindingSource - Me.ListBoxMyHK.DisplayMember = "String" - Me.ListBoxMyHK.FormattingEnabled = True - Me.ListBoxMyHK.Name = "ListBoxMyHK" - Me.ListBoxMyHK.ValueMember = "GUID" - ' - 'TBMYHOTKEYSBindingSource - ' - Me.TBMYHOTKEYSBindingSource.DataMember = "TBMYHOTKEYS" - Me.TBMYHOTKEYSBindingSource.DataSource = Me.MyDataset - ' - 'lblmeinehotkeys - ' - resources.ApplyResources(Me.lblmeinehotkeys, "lblmeinehotkeys") - Me.lblmeinehotkeys.Name = "lblmeinehotkeys" - ' - 'TBMYHOTKEYSTableAdapter - ' - Me.TBMYHOTKEYSTableAdapter.ClearBeforeFill = True - ' - 'btnAddtomyHK - ' - resources.ApplyResources(Me.btnAddtomyHK, "btnAddtomyHK") - Me.btnAddtomyHK.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnAddtomyHK.Name = "btnAddtomyHK" - Me.btnAddtomyHK.UseVisualStyleBackColor = True - ' - 'TBHOTKEY_USER_PROFILEBindingSource - ' - Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" - Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' - 'WD_SEARCHTextBox - ' - resources.ApplyResources(Me.WD_SEARCHTextBox, "WD_SEARCHTextBox") - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "WD_SEARCH", True)) - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - ' - 'HOTKEY2TextBox - ' - resources.ApplyResources(Me.HOTKEY2TextBox, "HOTKEY2TextBox") - Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY2", True)) - Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" - ' - 'ADDED_WHENTextBox - ' - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - ' - 'CHANGED_WHOTextBox - ' - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - ' - 'CHANGED_WHENTextBox - ' - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - ' - 'GroupBox1 - ' - resources.ApplyResources(Me.GroupBox1, "GroupBox1") - Me.GroupBox1.Controls.Add(Me.chkbxMaximizeWS) - Me.GroupBox1.Controls.Add(Me.Button1) - Me.GroupBox1.Controls.Add(Me.lblSave) - Me.GroupBox1.Controls.Add(Me.btnsave) - Me.GroupBox1.Controls.Add(Me.HOTKEY1ComboBox) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) - Me.GroupBox1.Controls.Add(HOTKEY1Label) - Me.GroupBox1.Controls.Add(WD_SEARCHLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) - Me.GroupBox1.Controls.Add(HOTKEY2Label) - Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.HOTKEY2TextBox) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.TabStop = False - ' - 'chkbxMaximizeWS - ' - resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS") - Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked - Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS" - Me.chkbxMaximizeWS.UseVisualStyleBackColor = True - ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'lblSave - ' - resources.ApplyResources(Me.lblSave, "lblSave") - Me.lblSave.BackColor = System.Drawing.Color.Yellow - Me.lblSave.Name = "lblSave" - ' - 'btnsave - ' - resources.ApplyResources(Me.btnsave, "btnsave") - Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - Me.btnsave.Name = "btnsave" - Me.btnsave.UseVisualStyleBackColor = True - ' - 'HOTKEY1ComboBox - ' - resources.ApplyResources(Me.HOTKEY1ComboBox, "HOTKEY1ComboBox") - Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY1", True)) - Me.HOTKEY1ComboBox.FormattingEnabled = True - Me.HOTKEY1ComboBox.Items.AddRange(New Object() {resources.GetString("HOTKEY1ComboBox.Items"), resources.GetString("HOTKEY1ComboBox.Items1"), resources.GetString("HOTKEY1ComboBox.Items2"), resources.GetString("HOTKEY1ComboBox.Items3")}) - Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" - ' - 'btndelete - ' - resources.ApplyResources(Me.btndelete, "btndelete") - Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - Me.btndelete.Name = "btndelete" - Me.btndelete.UseVisualStyleBackColor = True - ' - 'OFDWindreamsuche - ' - resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche") - Me.OFDWindreamsuche.RestoreDirectory = True - ' - 'frmHotkey_User - ' - resources.ApplyResources(Me, "$this") - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.btndelete) - Me.Controls.Add(Me.GroupBox1) - Me.Controls.Add(Me.btnAddtomyHK) - Me.Controls.Add(Me.lblmeinehotkeys) - Me.Controls.Add(Me.ListBoxMyHK) - Me.Controls.Add(Me.ListBox1) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.StatusStrip1) - Me.Name = "frmHotkey_User" - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents MyDataset As Global_Indexer.MyDataset - Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter - Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox - Friend WithEvents ListBoxMyHK As System.Windows.Forms.ListBox - Friend WithEvents lblmeinehotkeys As System.Windows.Forms.Label - Friend WithEvents TBMYHOTKEYSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBMYHOTKEYSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter - Friend WithEvents btnAddtomyHK As System.Windows.Forms.Button - Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter - Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox - Friend WithEvents btnsave As System.Windows.Forms.Button - Friend WithEvents btndelete As System.Windows.Forms.Button - Friend WithEvents lblSave As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents chkbxMaximizeWS As System.Windows.Forms.CheckBox -End Class diff --git a/Global_Indexer/frmHotkey_User.en-US.resx b/Global_Indexer/frmHotkey_User.en-US.resx deleted file mode 100644 index 1b21eea..0000000 --- a/Global_Indexer/frmHotkey_User.en-US.resx +++ /dev/null @@ -1,330 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - 99, 13 - - - windream-Search: - - - 74, 13 - - - Modifier key: - - - 136, 15 - - - Current Global Hotkeys: - - - 69, 15 - - - My Hotkeys - - - Add - - - Edit Hotkey: - - - 195, 17 - - - Start windream-Suche maximized - - - 145, 13 - - - Hotkey successfully saved! - - - Save - - - Delete - - - windream-Search|*.wdf|All Files|*.* - - - Select windream-Search - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - My Hotkeys - - \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.resx b/Global_Indexer/frmHotkey_User.resx deleted file mode 100644 index 5c258e4..0000000 --- a/Global_Indexer/frmHotkey_User.resx +++ /dev/null @@ -1,1037 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - 131, 22 - - - 3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 13 - - - TBHOTKEY_USER_PROFILEBindingSource - - - - True - - - GroupBox1 - - - 15 - - - 13 - - - ListBoxMyHK - - - - Top, Right - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PROFILETableAdapter - - - GroupBox1 - - - 12 - - - 9, 143 - - - 292, 115 - - - True - - - Speichern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ADDED_WHENLabel - - - btnsave - - - 8 - - - GroupBox1 - - - 468, 118 - - - 14 - - - 3 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 46, 13 - - - 70, 21 - - - StatusStrip1 - - - TopCenter - - - 4 - - - Segoe UI, 8.25pt - - - Segoe UI Semibold, 8.25pt, style=Bold, Italic - - - lblmeinehotkeys - - - Meine Hotkeys - - - BottomCenter - - - 102, 75 - - - 7 - - - 18 - - - Funktionstaste: - - - $this - - - StatusStrip1 - - - GroupBox1 - - - 5 - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - 317, 115 - - - 338, 251 - - - 6 - - - 5 - - - 754, 22 - - - 123, 22 - - - Win - - - 6 - - - TBMYHOTKEYSTableAdapter - - - Hotkey: - - - Label1 - - - TopCenter - - - 17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 0, 520 - - - Changed who: - - - 623, 22 - - - GroupBox1 - - - 19 - - - Alt - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 12 - - - CHANGED_WHENLabel - - - 137, 22 - - - windream-Suche: - - - windream-Suche maximiert starten - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 11 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Bearbeitung Hotkey: - - - Shift - - - Meine Hotkeys - - - 6, 61 - - - GroupBox1 - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 6 - - - CHANGED_WHENTextBox - - - 0 - - - 4 - - - 15 - - - 640, 99 - - - 3 - - - MyDataset - - - 85, 38 - - - 15, 284 - - - TableAdapterManager - - - 81 - - - 7 - - - Daten erfolgreich gespeichert! - - - 85, 37 - - - WD_SEARCHTextBox - - - TBHOTKEY_PROFILEBindingSource - - - 19 - - - GroupBox1 - - - 317, 72 - - - 640, 36 - - - TBMYHOTKEYSBindingSource - - - 289, 99 - - - chkbxMaximizeWS - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 15, 27 - - - GroupBox1 - - - WD_SEARCHLabel - - - True - - - 85, 37 - - - True - - - 83, 13 - - - $this - - - 8 - - - $this - - - 298, 251 - - - 89, 13 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Button1 - - - HOTKEY2Label - - - Löschen - - - 10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 85, 15 - - - Hinzufügen - - - TopCenter - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - windream-Suche|*.wdf|Alle Dateien|*.* - - - 79 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - $this - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - btnAddtomyHK - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 1 - - - 7 - - - 9, 36 - - - 12, 9 - - - True - - - ADDED_WHENTextBox - - - GroupBox1 - - - 142, 15 - - - frmHotkey_User - - - $this - - - windream-Suche wählen - - - 9, 115 - - - 1 - - - 6, 99 - - - lblSave - - - Aktuelle globale Hotkeys: - - - 87, 13 - - - 99, 61 - - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Segoe UI, 8.25pt, style=Bold - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - GroupBox1 - - - 6, 20 - - - 20 - - - $this - - - Strg - - - 9 - - - Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 16 - - - 2 - - - BottomCenter - - - 31, 23 - - - 6, 13 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - True - - - $this - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 164, 13 - - - 149, 115 - - - True - - - btndelete - - - 1 - - - $this - - - 80 - - - 96, 13 - - - 52, 22 - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BottomCenter - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - OFDWindreamsuche - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - 754, 542 - - - 76, 13 - - - 731, 181 - - - 405, 9 - - - ListBox1 - - - 0 - - - 408, 27 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Changed when: - - - GroupBox1 - - - ... - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - CHANGED_WHOLabel - - - 203, 17 - - - 146, 99 - - - 5 - - - 2 - - - 9 - - - CHANGED_WHOTextBox - - - True - - - False - - - HOTKEY1Label - - - HOTKEY1ComboBox - - - Added when: - - - 2 - - - 18 - - - 9, 75 - - - GroupBox1 - - - 0 - - - Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - 134, 17 - - - False - - - False - - - 483, 17 - - - True - - - 17, 56 - - - False - - - 557, 56 - - - en-US - - - False - - - 1102, 17 - - - 290, 56 - - - 889, 17 - - - False - - - 716, 17 - - - 244, 17 - - - 17, 17 - - - False - - \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.vb b/Global_Indexer/frmHotkey_User.vb deleted file mode 100644 index 79084d7..0000000 --- a/Global_Indexer/frmHotkey_User.vb +++ /dev/null @@ -1,111 +0,0 @@ -Public Class frmHotkey_User - - Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBHOTKEY_PROFILEBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - - End Sub - - Private Sub frmHotkey_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBHOTKEY_USER_PROFILE". Sie können sie bei Bedarf verschieben oder entfernen. - - Try - Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBMYHOTKEYSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_PROFILE) - - If USER_LANGUAGE <> "de-DE" Then - Me.lblmeinehotkeys.Text = "My (" & Environment.UserName & ") Hotkeys:" - Else - Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:" - End If - - LoadMyHotkeys(USER_ID) - Catch ex As Exception - MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub LoadMyHotkeys(UserID As Integer) - Try - Me.TBMYHOTKEYSTableAdapter.Fill(Me.MyDataset.TBMYHOTKEYS, UserID) - Catch ex As System.Exception - MsgBox("Error in LoadMyHotkeys: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click - Try - If ListBox1.SelectedIndex <> -1 Then - 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) - End Try - - End Sub - Sub Load_MyProfile(HKPROFILE_ID As Integer) - Try - Me.TBHOTKEY_USER_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_USER_PROFILE, HKPROFILE_ID) - Catch ex As Exception - MsgBox("Error in Load_MyProfile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub ListBoxMyHK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxMyHK.SelectedIndexChanged - If ListBoxMyHK.SelectedIndex <> -1 Then - Console.WriteLine(ListBoxMyHK.SelectedValue) - Load_MyProfile(ListBoxMyHK.SelectedValue) - End If - End Sub - - 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(USER_ID) - Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear() - End If - End Sub - - Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click - Try - TBHOTKEY_USER_PROFILEBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_USER_PROFILE.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox.Text = Environment.UserName - TBHOTKEY_USER_PROFILEBindingSource.EndEdit() - TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE) - Me.lblSave.Visible = True - LoadMyHotkeys(USER_ID) - Else - Me.lblSave.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - If Not Me.WD_SEARCHTextBox.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - - Private Sub HOTKEY2TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles HOTKEY2TextBox.KeyDown - HOTKEY2TextBox.Text = "" - End Sub - - Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged - CONFIG.Config.WindreamSearchMaximized = chkbxMaximizeWS.Checked - CONFIG.Save() - End Sub -End Class \ No newline at end of file diff --git a/Global_Indexer/frmIndex.designer.vb b/Global_Indexer/frmIndex.designer.vb index 7bfb3a5..1cbfa85 100644 --- a/Global_Indexer/frmIndex.designer.vb +++ b/Global_Indexer/frmIndex.designer.vb @@ -322,11 +322,6 @@ Partial Class frmIndex Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'VWINDEX_AUTOMBindingSource1 diff --git a/Global_Indexer/frmIndexFileList.Designer.vb b/Global_Indexer/frmIndexFileList.Designer.vb index eac2d69..ee8839a 100644 --- a/Global_Indexer/frmIndexFileList.Designer.vb +++ b/Global_Indexer/frmIndexFileList.Designer.vb @@ -95,11 +95,6 @@ Partial Class frmIndexFileList Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button2 diff --git a/Global_Indexer/frmNamenkonvention.designer.vb b/Global_Indexer/frmNamenkonvention.designer.vb index b062cea..f57c60a 100644 --- a/Global_Indexer/frmNamenkonvention.designer.vb +++ b/Global_Indexer/frmNamenkonvention.designer.vb @@ -208,11 +208,6 @@ Partial Class frmNamenkonvention Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_INDEX_AUTOMTableAdapter diff --git a/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb index 4d3fd89..fdcfd74 100644 --- a/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb +++ b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb @@ -130,11 +130,6 @@ Partial Class SQLConfigAutoIndex Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button1 diff --git a/Global_Indexer/frmSQLSuggestion.Designer.vb b/Global_Indexer/frmSQLSuggestion.Designer.vb index b52fd5a..77f4d1f 100644 --- a/Global_Indexer/frmSQLSuggestion.Designer.vb +++ b/Global_Indexer/frmSQLSuggestion.Designer.vb @@ -137,11 +137,6 @@ Partial Class frmSQLSuggestion Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button1 diff --git a/Global_Indexer/frmStart.Designer.vb b/Global_Indexer/frmStart.Designer.vb index 2812369..2766c93 100644 --- a/Global_Indexer/frmStart.Designer.vb +++ b/Global_Indexer/frmStart.Designer.vb @@ -27,11 +27,8 @@ Partial Class frmStart Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.GlobalIndexerEinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.HotkeyEisntellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -48,14 +45,11 @@ Partial Class frmStart Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem() Me.RibbonMiniToolbar1 = New DevExpress.XtraBars.Ribbon.RibbonMiniToolbar(Me.components) Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.btnChoosefiles = New System.Windows.Forms.Button() Me.MenuStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'MenuStrip1 @@ -67,29 +61,17 @@ Partial Class frmStart 'KonfigurationToolStripMenuItem ' Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem}) + Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem}) Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" resources.ApplyResources(Me.KonfigurationToolStripMenuItem, "KonfigurationToolStripMenuItem") ' 'AdministrationToolStripMenuItem ' - Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem}) Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" resources.ApplyResources(Me.AdministrationToolStripMenuItem, "AdministrationToolStripMenuItem") ' - 'GlobalIndexerEinstellungenToolStripMenuItem - ' - Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem" - resources.ApplyResources(Me.GlobalIndexerEinstellungenToolStripMenuItem, "GlobalIndexerEinstellungenToolStripMenuItem") - ' - 'HotkeyEisntellungenToolStripMenuItem - ' - Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x - Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem" - resources.ApplyResources(Me.HotkeyEisntellungenToolStripMenuItem, "HotkeyEisntellungenToolStripMenuItem") - ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" @@ -100,12 +82,6 @@ Partial Class frmStart Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem" resources.ApplyResources(Me.GrundeinstellungenToolStripMenuItem, "GrundeinstellungenToolStripMenuItem") ' - 'FrmHotkeyAddToolStripMenuItem - ' - Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x - Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem" - resources.ApplyResources(Me.FrmHotkeyAddToolStripMenuItem, "FrmHotkeyAddToolStripMenuItem") - ' 'HistoryIndexierteDateienToolStripMenuItem ' Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem" @@ -189,13 +165,10 @@ Partial Class frmStart Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing @@ -207,11 +180,6 @@ Partial Class frmStart Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Me.TBHOTKEY_USER_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'btnChoosefiles @@ -230,6 +198,7 @@ Partial Class frmStart Me.Controls.Add(Me.LabelControl1) Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.MenuStrip1) + Me.KeyPreview = True Me.MaximizeBox = False Me.Name = "frmStart" Me.MenuStrip1.ResumeLayout(False) @@ -237,7 +206,6 @@ Partial Class frmStart Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -245,16 +213,12 @@ Partial Class frmStart Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents GlobalIndexerEinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents HotkeyEisntellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents MyDataset As Global_Indexer.MyDataset Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer diff --git a/Global_Indexer/frmStart.resx b/Global_Indexer/frmStart.resx index c9ddf22..5e65bff 100644 --- a/Global_Indexer/frmStart.resx +++ b/Global_Indexer/frmStart.resx @@ -121,55 +121,12 @@ 400, 17 - - 0, 0 - - - 294, 24 - - - - 5 - - - MenuStrip1 - - - MenuStrip1 - - - System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 3 - - - 108, 20 - - - Konfiguration - 221, 22 Administration - - 232, 22 - - - Global Indexer - Einstellungen - - - 232, 22 - - - Hotkey - Einstellungen - 218, 6 @@ -179,12 +136,6 @@ User Basis Einstellungen - - 221, 22 - - - Hotkeys User - 221, 22 @@ -197,9 +148,49 @@ Info + + 108, 20 + + + Konfiguration + + + 0, 0 + + + 294, 24 + + + + 5 + + + MenuStrip1 + + + MenuStrip1 + + + System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + 515, 17 + + 133, 17 + + + FolderWatch ist aktiv + + + False + 0, 139 @@ -224,15 +215,6 @@ 2 - - 133, 17 - - - FolderWatch ist aktiv - - - False - 1072, 17 @@ -595,12 +577,6 @@ auf dieses Fenster oder... 17, 17 - - 127, 17 - - - 632, 17 - 899, 17 @@ -927,18 +903,6 @@ auf dieses Fenster oder... System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GlobalIndexerEinstellungenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - HotkeyEisntellungenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolStripSeparator1 @@ -951,12 +915,6 @@ auf dieses Fenster oder... System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - FrmHotkeyAddToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - HistoryIndexierteDateienToolStripMenuItem @@ -1041,18 +999,6 @@ auf dieses Fenster oder... Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBHOTKEY_USER_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TableAdapterManager diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index 349f628..ef7adc3 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -136,60 +136,7 @@ Public Class frmStart TimerCheckDroppedFiles.Start() End If End Sub - Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed - Dim CapTxt As String = ClassHotkey_Windream.GetCaption() - CURRENT_FOCUSES_WINDOWNAME = CapTxt - If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub - LOGGER.Info(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'") - - Me.Cursor = Cursors.WaitCursor - Me.NotifyIcon1.Visible = True - NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) - Try - Dim _focusedWindowfound As Boolean = False - Dim HK1 As String - Dim HK2 As String - 'Die Hotkeys definieren - Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID - Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True) - If Not IsNothing(DTHOTKEYSTEMP) Then - 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 = " & USER_ID - Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) - Dim Result As String = "" - If Not IsNothing(DTHOTKEY_PROFILES) Then - - 'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist - For Each row As DataRow In DTHOTKEY_PROFILES.Rows - SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID") - 'Konfigurierte windows-String speichern - Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - 'Focuses window enthalten?? - If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then - 'Ja - also die windream-Suche ausführen - _focusedWindowfound = True - Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID")) - End If - Next - If _focusedWindowfound = False Then - Result = "Focused Window not configured in hotkey" - End If - End If - - If Result = "" Then - Me.NotifyIcon1.Visible = False - Else - NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning) - End If - End If - Catch ex As Exception - MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical) - End Try - Me.Cursor = Cursors.Default - End Sub Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter Drag_Enter(sender, e) End Sub @@ -288,9 +235,6 @@ Public Class frmStart Catch ex As Exception MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - If USER_ID > 0 Then - Unregister_Hotkeys() - End If 'TempDateien löschen Try For Each _file In TEMP_FILES @@ -365,8 +309,6 @@ Public Class frmStart AdministrationToolStripMenuItem.Visible = False End If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) - Unregister_Hotkeys() - Load_Hotkeys() TopMost = True @@ -472,76 +414,8 @@ Public Class frmStart End If End Sub - Sub Unregister_Hotkeys() - Try - 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] = " & USER_ID - ClassDatabase.Execute_non_Query(sql, True) - End If - Catch ex As Exception - MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - 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 = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True) - If DT.Rows.Count > 0 Then - LOGGER.Info(" >> " & DT.Rows.Count & " Hotkey-Profile") - 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") & "', " & USER_ID & ")" - ClassDatabase.Execute_non_Query(sql, True) - - Dim keyCode As Keys - Try - Dim kc As New KeysConverter - Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper) - keyCode = CType(obj, Keys) - Catch ex As Exception - MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Exit Sub - End Try - - Select Case row.Item("HOTKEY1") - Case "Strg" - LOGGER.Info(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID")) - Case "Shift" - LOGGER.Info(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID")) - Case "Alt" - LOGGER.Info(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID")) - Case "win" - LOGGER.Info(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID")) - End Select - Next - Else - LOGGER.Info(" >> Keine Hotkeys!") - End If - Catch ex As Exception - MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click - If ClassLicence.license_is_Valid = True Then - Me.Hide() - Unregister_Hotkeys() - frmHotKey_Add.ShowDialog() - Load_Hotkeys() - Me.Visible = True - End If - End Sub - - Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click + Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Try Me.Hide() frmAdministration.ShowDialog() @@ -568,16 +442,6 @@ Public Class frmStart Me.TopMost = True End Sub - Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click - If ClassLicence.license_is_Valid = True Then - Me.Hide() - Unregister_Hotkeys() - frmHotkey_User.ShowDialog() - Load_Hotkeys() - Me.Visible = True - End If - End Sub - Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick If ClassDatabase.DatabaseConnectionTimeout = True Then TimerFolderWatch.Enabled = False @@ -746,4 +610,15 @@ Public Class frmStart End If End If End Sub + + Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem.Click + Try + Me.Hide() + frmAdministration.ShowDialog() + Me.Show() + Catch ex As Exception + MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text) + LOGGER.Error(ex) + End Try + End Sub End Class \ No newline at end of file