diff --git a/Controls.DocumentViewer/DocumentViewer.Designer.vb b/Controls.DocumentViewer/DocumentViewer.Designer.vb index 048e66ed..9e3aebd2 100644 --- a/Controls.DocumentViewer/DocumentViewer.Designer.vb +++ b/Controls.DocumentViewer/DocumentViewer.Designer.vb @@ -42,24 +42,25 @@ Partial Class DocumentViewer Me.buttonPrevPage = New DevExpress.XtraBars.BarButtonItem() Me.txtCurrentPage = New DevExpress.XtraBars.BarEditItem() Me.RepositoryItemTextEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.labelPageCount = New DevExpress.XtraBars.BarStaticItem() Me.buttonNextPage = New DevExpress.XtraBars.BarButtonItem() Me.buttonLastPage = New DevExpress.XtraBars.BarButtonItem() Me.buttonSettings = New DevExpress.XtraBars.BarButtonItem() - Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() - Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit() Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl() Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() Me.RepositoryItemTextEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemTextEdit() + Me.RepositoryItemColorEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemColorEdit() + Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.SpreadsheetControl1 = New DevExpress.XtraSpreadsheet.SpreadsheetControl() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GdViewer @@ -161,9 +162,9 @@ Partial Class DocumentViewer Me.BarManager1.DockControls.Add(Me.barDockControlLeft) Me.BarManager1.DockControls.Add(Me.barDockControlRight) Me.BarManager1.Form = Me - Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.buttonPrint, Me.buttonFitPage, Me.buttonFitWidth, Me.buttonZoomIn, Me.buttonZoomOut, Me.buttonRotateRight, Me.buttonRotateLeft, Me.buttonFlipX, Me.buttonFlipY, Me.buttonSettings, Me.buttonPrevPage, Me.buttonNextPage, Me.buttonFirstPage, Me.buttonLastPage, Me.txtCurrentPage, Me.BarStaticItem1}) + Me.BarManager1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.buttonPrint, Me.buttonFitPage, Me.buttonFitWidth, Me.buttonZoomIn, Me.buttonZoomOut, Me.buttonRotateRight, Me.buttonRotateLeft, Me.buttonFlipX, Me.buttonFlipY, Me.buttonSettings, Me.buttonPrevPage, Me.buttonNextPage, Me.buttonFirstPage, Me.buttonLastPage, Me.txtCurrentPage, Me.BarStaticItem1, Me.labelPageCount}) Me.BarManager1.MainMenu = Me.ToolbarDocumentViewer - Me.BarManager1.MaxItemId = 24 + Me.BarManager1.MaxItemId = 25 Me.BarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemTextEdit1, Me.RepositoryItemTextEdit2, Me.RepositoryItemColorEdit1, Me.RepositoryItemComboBox1}) ' 'ToolbarDocumentViewer @@ -172,7 +173,7 @@ Partial Class DocumentViewer Me.ToolbarDocumentViewer.DockCol = 0 Me.ToolbarDocumentViewer.DockRow = 0 Me.ToolbarDocumentViewer.DockStyle = DevExpress.XtraBars.BarDockStyle.Top - Me.ToolbarDocumentViewer.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitWidth), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomIn), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomOut), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateLeft), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateRight), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipX), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipY), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFirstPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrevPage), New DevExpress.XtraBars.LinkPersistInfo(Me.txtCurrentPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonNextPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonLastPage), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.buttonSettings, DevExpress.XtraBars.BarItemPaintStyle.Standard)}) + Me.ToolbarDocumentViewer.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrint), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitWidth), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFitPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomIn), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonZoomOut), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateLeft), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonRotateRight), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipX), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFlipY), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonFirstPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonPrevPage), New DevExpress.XtraBars.LinkPersistInfo(Me.txtCurrentPage), New DevExpress.XtraBars.LinkPersistInfo(Me.labelPageCount), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonNextPage), New DevExpress.XtraBars.LinkPersistInfo(Me.buttonLastPage), New DevExpress.XtraBars.LinkPersistInfo(DevExpress.XtraBars.BarLinkUserDefines.PaintStyle, Me.buttonSettings, DevExpress.XtraBars.BarItemPaintStyle.Standard)}) Me.ToolbarDocumentViewer.OptionsBar.AllowCollapse = True Me.ToolbarDocumentViewer.OptionsBar.AllowQuickCustomization = False Me.ToolbarDocumentViewer.OptionsBar.DrawDragBorder = False @@ -281,6 +282,12 @@ Partial Class DocumentViewer Me.RepositoryItemTextEdit2.EditFormat.FormatType = DevExpress.Utils.FormatType.Numeric Me.RepositoryItemTextEdit2.Name = "RepositoryItemTextEdit2" ' + 'labelPageCount + ' + Me.labelPageCount.Caption = "/ 0" + Me.labelPageCount.Id = 24 + Me.labelPageCount.Name = "labelPageCount" + ' 'buttonNextPage ' Me.buttonNextPage.Caption = "Vor" @@ -305,22 +312,6 @@ Partial Class DocumentViewer Me.buttonSettings.ImageOptions.SvgImageSize = New System.Drawing.Size(25, 25) Me.buttonSettings.Name = "buttonSettings" ' - 'RepositoryItemComboBox1 - ' - Me.RepositoryItemComboBox1.AutoHeight = False - Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemComboBox1.Items.AddRange(New Object() {"Arrow", "Text"}) - Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" - ' - 'RepositoryItemColorEdit1 - ' - Me.RepositoryItemColorEdit1.AutoHeight = False - Me.RepositoryItemColorEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemColorEdit1.Name = "RepositoryItemColorEdit1" - Me.RepositoryItemColorEdit1.ShowCustomColors = False - Me.RepositoryItemColorEdit1.ShowSystemColors = False - Me.RepositoryItemColorEdit1.ShowWebColors = False - ' 'barDockControlTop ' Me.barDockControlTop.CausesValidation = False @@ -364,6 +355,22 @@ Partial Class DocumentViewer Me.RepositoryItemTextEdit1.AutoHeight = False Me.RepositoryItemTextEdit1.Name = "RepositoryItemTextEdit1" ' + 'RepositoryItemColorEdit1 + ' + Me.RepositoryItemColorEdit1.AutoHeight = False + Me.RepositoryItemColorEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemColorEdit1.Name = "RepositoryItemColorEdit1" + Me.RepositoryItemColorEdit1.ShowCustomColors = False + Me.RepositoryItemColorEdit1.ShowSystemColors = False + Me.RepositoryItemColorEdit1.ShowWebColors = False + ' + 'RepositoryItemComboBox1 + ' + Me.RepositoryItemComboBox1.AutoHeight = False + Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.RepositoryItemComboBox1.Items.AddRange(New Object() {"Arrow", "Text"}) + Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" + ' 'SpreadsheetControl1 ' Me.SpreadsheetControl1.Location = New System.Drawing.Point(461, 377) @@ -390,9 +397,9 @@ Partial Class DocumentViewer Me.Size = New System.Drawing.Size(1015, 590) CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTextEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemColorEdit1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -429,4 +436,5 @@ Partial Class DocumentViewer Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem Friend WithEvents RepositoryItemColorEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemColorEdit Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox + Friend WithEvents labelPageCount As DevExpress.XtraBars.BarStaticItem End Class diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb index 5c07cacf..e1917602 100644 --- a/Controls.DocumentViewer/DocumentViewer.vb +++ b/Controls.DocumentViewer/DocumentViewer.vb @@ -8,6 +8,7 @@ Imports GdPicture14 Imports DevExpress Imports DevExpress.Office.Utils Imports System.IO +Imports DevExpress.XtraRichEdit.Commands Public Class DocumentViewer Private Enum ZoomMode @@ -21,6 +22,13 @@ Public Class DocumentViewer ZoomFitHeight End Enum + Private Enum ViewerMode + GDPicture + RichText + Excel + End Enum + + Private _ViewerMode As ViewerMode Private _currentSearchOccurence As Integer = 0 Private _toggleGamma As Boolean = True Private _licenseKey As String = String.Empty @@ -41,6 +49,7 @@ Public Class DocumentViewer UpdateMainUi() End Sub + Public Property FileLoaded As Boolean = False ''' @@ -76,16 +85,18 @@ Public Class DocumentViewer Exit Sub End If + If FilePath Is Nothing OrElse FilePath.Trim().Length = 0 Then + _logger.Warn("FilePath was not provided. File not loaded.") + Exit Sub + End If + _logger.Info("Loading File {0}", FilePath) - Dim oFileLoaded = DoLoadFile(FilePath) + FileLoaded = DoLoadFile(FilePath) _FilePath = FilePath _Fileinfo = New FileInfo(FilePath) - If oFileLoaded = True Then - FileLoaded = True - End If - + SetViewerMode(_Fileinfo.Extension) UpdateMainUi() End Sub @@ -101,12 +112,9 @@ Public Class DocumentViewer _logger.Info("Loading File [{0}]", FileName) - Dim ofileloaded = DoLoadFile(Stream, oExtension) - - If oFileLoaded = True Then - FileLoaded = True - End If + FileLoaded = DoLoadFile(Stream, oExtension) + SetViewerMode(oExtension) UpdateMainUi() End Sub @@ -125,20 +133,32 @@ Public Class DocumentViewer Next _TempFiles.Clear() End Sub + + Private Sub SetViewerMode(Extension As String) + Select Case Extension.ToUpper + Case ".MSG" + _ViewerMode = ViewerMode.RichText + Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" + _ViewerMode = ViewerMode.RichText + Case ".XLSX", ".XLS", "CSV" + _ViewerMode = ViewerMode.Excel + Case Else + _ViewerMode = ViewerMode.GDPicture + End Select + End Sub + + Private Sub FreeFile() Try If Len(_FilePath) OrElse _Fileinfo Is Nothing Then Exit Sub End If Dim oExtension As String = _Fileinfo.Extension.ToUpper - Select Case oExtension.ToUpper - Case ".MSG" + Select Case _ViewerMode + Case ViewerMode.RichText RichEditControl1.CreateNewDocument() - Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" - RichEditControl1.CreateNewDocument() - - Case ".XLSX", ".XLS", "CSV" + Case ViewerMode.Excel SpreadsheetControl1.CreateNewDocument() Case Else @@ -151,7 +171,7 @@ Public Class DocumentViewer End Sub Private Function DoLoadFile(FilePath As String) As Boolean Try - Dim oFileInfo = New IO.FileInfo(FilePath) + Dim oFileInfo = New FileInfo(FilePath) Dim oExtension As String = oFileInfo.Extension.ToUpper RichEditControl1.Visible = False @@ -160,7 +180,7 @@ Public Class DocumentViewer SpreadsheetControl1.Visible = False SpreadsheetControl1.Dock = DockStyle.None - ToolbarDocumentViewer.Visible = False + 'ToolbarDocumentViewer.Visible = False Select Case oExtension.ToUpper Case ".MSG" @@ -194,7 +214,7 @@ Public Class DocumentViewer SpreadsheetControl1.Dock = DockStyle.Fill Case Else - ToolbarDocumentViewer.Visible = True + 'ToolbarDocumentViewer.Visible = True GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter @@ -219,7 +239,7 @@ Public Class DocumentViewer SpreadsheetControl1.Visible = False SpreadsheetControl1.Dock = DockStyle.None - ToolbarDocumentViewer.Visible = False + ' ToolbarDocumentViewer.Visible = False Select Case Extension.ToUpper Case ".MSG" @@ -241,6 +261,7 @@ Public Class DocumentViewer Case ".EML", ".DOC", ".DOCX", ".ODT", ".RTF", ".TXT" RichEditControl1.LoadDocument(Stream, GetDocumentFormat(Extension)) + RichEditControl1.ActiveViewType = XtraRichEdit.RichEditViewType.PrintLayout RichEditControl1.Visible = True RichEditControl1.Dock = DockStyle.Fill @@ -254,7 +275,7 @@ Public Class DocumentViewer SpreadsheetControl1.Dock = DockStyle.Fill Case Else - ToolbarDocumentViewer.Visible = True + 'ToolbarDocumentViewer.Visible = True GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer GdViewer.DocumentAlignment = ViewerDocumentAlignment.DocumentAlignmentTopCenter @@ -348,6 +369,61 @@ Public Class DocumentViewer Private Sub UpdateMainUi() + Select Case _ViewerMode + Case ViewerMode.GDPicture + buttonPrint.Enabled = True + buttonFitWidth.Enabled = True + buttonFitPage.Enabled = True + buttonZoomIn.Enabled = True + buttonZoomOut.Enabled = True + buttonRotateLeft.Enabled = True + buttonRotateRight.Enabled = True + buttonFlipX.Enabled = True + buttonFlipY.Enabled = True + buttonFirstPage.Enabled = True + buttonPrevPage.Enabled = True + buttonNextPage.Enabled = True + buttonLastPage.Enabled = True + buttonSettings.Enabled = True + txtCurrentPage.Enabled = True + + Case ViewerMode.RichText + buttonFitPage.Enabled = True + buttonZoomIn.Enabled = True + buttonZoomOut.Enabled = True + buttonFitWidth.Enabled = True + buttonNextPage.Enabled = True + buttonPrevPage.Enabled = True + + buttonPrint.Enabled = False + buttonRotateLeft.Enabled = False + buttonRotateRight.Enabled = False + buttonFlipX.Enabled = False + buttonFlipY.Enabled = False + buttonFirstPage.Enabled = False + buttonLastPage.Enabled = False + buttonSettings.Enabled = False + txtCurrentPage.Enabled = False + + Case ViewerMode.Excel + buttonPrint.Enabled = False + buttonFitWidth.Enabled = False + buttonFitPage.Enabled = False + buttonZoomIn.Enabled = False + buttonZoomOut.Enabled = False + buttonRotateLeft.Enabled = False + buttonRotateRight.Enabled = False + buttonFlipX.Enabled = False + buttonFlipY.Enabled = False + buttonFirstPage.Enabled = False + buttonPrevPage.Enabled = False + buttonNextPage.Enabled = False + buttonLastPage.Enabled = False + buttonSettings.Enabled = False + txtCurrentPage.Enabled = False + + End Select + End Sub Private Sub btnFirstPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFirstPage.ItemClick @@ -355,11 +431,21 @@ Public Class DocumentViewer End Sub Private Sub btnPreviousPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrevPage.ItemClick - GdViewer.DisplayPreviousPage() + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.DisplayPreviousPage() + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New PreviousPageCommand(RichEditControl1) + oCmd.Execute() + End If End Sub Private Sub btnNextPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonNextPage.ItemClick - GdViewer.DisplayNextPage() + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.DisplayNextPage() + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New NextPageCommand(RichEditControl1) + oCmd.Execute() + End If End Sub Private Sub btnLastPage_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonLastPage.ItemClick @@ -387,15 +473,25 @@ Public Class DocumentViewer End If End Sub - Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonZoomOut.ItemClick - GdViewer.ZoomOUT() + Private Sub btnZoomOut_Click(sender As Object, e As EventArgs) Handles buttonZoomOut.ItemClick + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.ZoomOUT() + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New ZoomOutCommand(RichEditControl1) + oCmd.Execute() + End If End Sub - Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonZoomIn.ItemClick - GdViewer.ZoomIN() + Private Sub btnZoomIn_Click(sender As Object, e As EventArgs) Handles buttonZoomIn.ItemClick + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.ZoomIN() + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New ZoomInCommand(RichEditControl1) + oCmd.Execute() + End If End Sub - Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonPrint.ItemClick + Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles buttonPrint.ItemClick If GdViewer.PageCount = 0 Then Return End If @@ -403,19 +499,19 @@ Public Class DocumentViewer GdViewer.PrintDialog() End Sub - Private Sub btnRotateLeft_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonRotateLeft.ItemClick + Private Sub btnRotateLeft_Click(sender As Object, e As EventArgs) Handles buttonRotateLeft.ItemClick GdViewer.Rotate(RotateFlipType.Rotate270FlipNone) End Sub - Private Sub btnRotateRight_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonRotateRight.ItemClick + Private Sub btnRotateRight_Click(sender As Object, e As EventArgs) Handles buttonRotateRight.ItemClick GdViewer.Rotate(RotateFlipType.Rotate90FlipNone) End Sub - Private Sub btnFlipX_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFlipX.ItemClick + Private Sub btnFlipX_Click(sender As Object, e As EventArgs) Handles buttonFlipX.ItemClick GdViewer.Rotate(RotateFlipType.RotateNoneFlipX) End Sub - Private Sub btnFlipY_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles buttonFlipY.ItemClick + Private Sub btnFlipY_Click(sender As Object, e As EventArgs) Handles buttonFlipY.ItemClick GdViewer.Rotate(RotateFlipType.RotateNoneFlipY) End Sub @@ -442,9 +538,10 @@ Public Class DocumentViewer Private Sub UpdateaNavigationToolbar() Try Dim oCurrentZoom As Double = GdViewer.Zoom - Dim oCurrentPage As Integer = GdViewer.CurrentPage() + Dim oCurrentPage As Integer = GdViewer.CurrentPage Dim oPageCount As Integer = GdViewer.PageCount - txtCurrentPage.EditValue = oCurrentPage.ToString() + txtCurrentPage.EditValue = oCurrentPage + labelPageCount.Caption = $"/ {oPageCount}" If oCurrentPage = oPageCount Then buttonLastPage.Enabled = False @@ -468,11 +565,21 @@ Public Class DocumentViewer End Sub Private Sub btnFitWidth_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitWidth.ItemClick - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeWidthViewer + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New FitWidthCommand(RichEditControl1) + oCmd.Execute() + End If End Sub Private Sub btnFitPage_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonFitPage.ItemClick - GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + If _ViewerMode = ViewerMode.GDPicture Then + GdViewer.ZoomMode = ViewerZoomMode.ZoomModeFitToViewer + ElseIf _ViewerMode = ViewerMode.RichText Then + Dim oCmd As New FitToPageCommand(RichEditControl1) + oCmd.Execute() + End If End Sub Private Sub RichEditControl1_SizeChanged(sender As Object, e As EventArgs) Handles RichEditControl1.SizeChanged diff --git a/Controls.DocumentViewer/My Project/AssemblyInfo.vb b/Controls.DocumentViewer/My Project/AssemblyInfo.vb index 18505ac9..46dec958 100644 --- a/Controls.DocumentViewer/My Project/AssemblyInfo.vb +++ b/Controls.DocumentViewer/My Project/AssemblyInfo.vb @@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Controls.LookupGrid/LookupControl.vb b/Controls.LookupGrid/LookupControl.vb deleted file mode 100644 index 7815ecb5..00000000 --- a/Controls.LookupGrid/LookupControl.vb +++ /dev/null @@ -1,137 +0,0 @@ - -Imports System.ComponentModel -Imports DevExpress.XtraEditors -Imports DevExpress.XtraEditors.Controls - -Public Class LookupControl - - Public Property MultiSelect As Boolean - - Public Property AllowAddNewValues As Boolean - - Public Property PreventDuplicates As Boolean - - - Public Property DataSource As DataTable - - Public Property SelectedValues As List(Of String) - Get - If _selectedValues Is Nothing Then - Return New List(Of String) - End If - - Return _selectedValues - End Get - Set(value As List(Of String)) - _selectedValues = value - - UpdateSelectedValues(value) - End Set - End Property - Private _selectedValues As List(Of String) - - Private _lookupControlMulti As GridLookUpEdit - Private _lookupControlSingle As ButtonEdit - - Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm" - Private Const TEXT_NO_RECORDS = "Keine Datensätze ausgewählt" - Private Const TEXT_N_RECORDS = "{0} Datensätze ausgewählt" - - Private Function GetLookupForm() As frmLookupGrid - Dim oForm As New frmLookupGrid() With { - .MultiSelect = MultiSelect, - .AddNewValues = AllowAddNewValues, - .PreventDuplicates = PreventDuplicates, - .DataSource = DataSource, - .SelectedValues = SelectedValues, - .StartPosition = Windows.Forms.FormStartPosition.Manual, - .Location = PointToScreen(New System.Drawing.Point(Width, 0)) - } - - Return oForm - End Function - - Private Sub Grid_Load(sender As Object, e As EventArgs) Handles Me.Load - If MultiSelect = False Then - _lookupControlSingle = New ButtonEdit With { - .Dock = Windows.Forms.DockStyle.Fill - } - - AddHandler _lookupControlSingle.ButtonClick, AddressOf lookupControlSingle_ButtonClick - - Controls.Add(_lookupControlSingle) - Else - _lookupControlMulti = New GridLookUpEdit With { - .Dock = Windows.Forms.DockStyle.Fill - } - - With _lookupControlMulti.Properties - .View.OptionsBehavior.ReadOnly = True - .View.OptionsBehavior.Editable = False - .View.OptionsView.ShowColumnHeaders = False - .PopupFormSize = New System.Drawing.Size(.PopupFormSize.Width, 100) - End With - - _lookupControlMulti.Properties.Buttons.Add(New EditorButton() With { - .Kind = ButtonPredefines.Ellipsis, - .Tag = TAG_BUTTON_LOOKUP_FORM - }) - - AddHandler _lookupControlMulti.ButtonClick, AddressOf lookupControlMulti_ButtonClick - AddHandler _lookupControlMulti.EditValueChanging, AddressOf lookupControlMulti_EditValueChanging - - Controls.Add(_lookupControlMulti) - End If - - UpdateSelectedValues(SelectedValues) - End Sub - - Private Sub UpdateSelectedValues(Values As List(Of String)) - If MultiSelect = True Then - _lookupControlMulti.Properties.DataSource = Values - _lookupControlMulti.Properties.NullText = IIf(Values.Count = 0, TEXT_NO_RECORDS, String.Format(TEXT_N_RECORDS, Values.Count)) - Else - _lookupControlSingle.Text = Values.FirstOrDefault() - End If - End Sub - - Private Sub lookupControlMulti_EditValueChanging(sender As Object, e As ChangingEventArgs) - e.Cancel = True - End Sub - - Private Sub lookupControlMulti_ButtonClick(sender As Object, e As ButtonPressedEventArgs) - If e.Button.Tag <> TAG_BUTTON_LOOKUP_FORM Then - Exit Sub - End If - - Dim oForm As frmLookupGrid = GetLookupForm() - Dim oResult = oForm.ShowDialog() - - If oResult = Windows.Forms.DialogResult.OK Then - Dim oValues = oForm.SelectedValues - - UpdateSelectedValues(oValues) - - SelectedValues = oValues - End If - - oForm.Dispose() - End Sub - - Private Sub lookupControlSingle_ButtonClick(sender As Object, e As ButtonPressedEventArgs) - Dim oForm As frmLookupGrid = GetLookupForm() - Dim oResult = oForm.ShowDialog() - - If oResult = Windows.Forms.DialogResult.OK Then - Dim oValues = oForm.SelectedValues - - UpdateSelectedValues(oValues) - - SelectedValues = oValues - End If - - oForm.Dispose() - End Sub -End Class - - diff --git a/Controls.LookupGrid/LookupControl.vbproj b/Controls.LookupGrid/LookupControl.vbproj index 38f00b9a..e025f218 100644 --- a/Controls.LookupGrid/LookupControl.vbproj +++ b/Controls.LookupGrid/LookupControl.vbproj @@ -98,23 +98,7 @@ Form - - LookupControl.vb - - - UserControl - - - Component - - - - - LookupGridView.vb - - - Component - + True @@ -154,12 +138,6 @@ frmLookupGrid.vb - - LookupControl.vb - - - LookupControl2.vb - LookupControl3.vb diff --git a/Controls.LookupGrid/LookupControl.vbproj.bak b/Controls.LookupGrid/LookupControl.vbproj.bak deleted file mode 100644 index 42070850..00000000 --- a/Controls.LookupGrid/LookupControl.vbproj.bak +++ /dev/null @@ -1,180 +0,0 @@ - - - - - Debug - AnyCPU - {3DCD6D1A-C830-4241-B7E4-27430E7EA483} - Library - DigitalData.Controls.LookupGrid - DigitalData.Controls.LookupGrid - 512 - Windows - v4.6.1 - - - true - full - true - true - bin\Debug\ - DigitalData.Controls.LookupGrid.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - pdbonly - false - true - true - bin\Release\ - DigitalData.Controls.LookupGrid.xml - 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 - - - On - - - Binary - - - Off - - - On - - - - False - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Office.v18.1.Core.dll - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Pdf.v18.1.Core.dll - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.Printing.v18.1.Core.dll - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.RichEdit.v18.1.Core.dll - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.RichEdit.v18.1.Export.dll - - - - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraLayout.v18.1.dll - - - False - D:\ProgramFiles\DevExpress 18.1\Components\Bin\Framework\DevExpress.XtraPrinting.v18.1.dll - - - - - - - - - - - - - - - - - - - - - - - - - frmLookupGrid.vb - - - Form - - - LookupControl.vb - - - UserControl - - - Component - - - - - LookupGridView.vb - - - Component - - - - True - Application.myapp - - - True - True - Resources.resx - - - True - Settings.settings - True - - - LookupGridControl.vb - - - Component - - - - - frmLookupGrid.vb - - - LookupControl.vb - - - LookupControl2.vb - - - - VbMyResourcesResXFileCodeGenerator - Resources.Designer.vb - My.Resources - Designer - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - SettingsSingleFileGenerator - My - Settings.Designer.vb - - - - - - - \ No newline at end of file diff --git a/Controls.LookupGrid/LookupControl2.vb b/Controls.LookupGrid/LookupControl2.vb deleted file mode 100644 index c3662fa3..00000000 --- a/Controls.LookupGrid/LookupControl2.vb +++ /dev/null @@ -1,272 +0,0 @@ -Imports System.ComponentModel -Imports System.Drawing -Imports System.Windows.Forms -Imports DevExpress.Accessibility -Imports DevExpress.XtraEditors -Imports DevExpress.XtraEditors.Drawing -Imports DevExpress.XtraEditors.Registrator -Imports DevExpress.XtraEditors.Repository -Imports DevExpress.XtraEditors.ViewInfo -Imports DevExpress.XtraEditors.Controls - - -Public Class LookupControl2 - Inherits GridLookUpEdit - - Public Delegate Sub SelectedValuesChangedHandler(sender As Object, SelectedValues As List(Of String)) - Public Event SelectedValuesChanged As SelectedValuesChangedHandler - - Public Property AllowAddNewValues As Boolean - Public Property PreventDuplicates As Boolean - Public Property DataSource As DataTable - - Public Property MultiSelect As Boolean - Get - Return _Multiselect - End Get - Set(value As Boolean) - SetDropdownButtonEnabled(value) - _MultiSelect = value - End Set - End Property - - Public Property SelectedValues As List(Of String) - Get - Return _SelectedValues - End Get - Set(value As List(Of String)) - UpdateSelectedValues(value) - End Set - End Property - - Public Overloads Property [ReadOnly] As Boolean - Get - Return _ReadOnly - End Get - Set(value As Boolean) - SetFormButtonEnabled(Not value) - _ReadOnly = value - End Set - End Property - - Private ReadOnly _LookupFormButton As EditorButton - - Private Const TAG_DROPDOWN = "openDropdown" - Private Const TAG_BUTTON_LOOKUP_FORM = "openLookupForm" - - Private _R As Resources.ResourceManager = My.Resources.Strings.ResourceManager - Private _SelectedValues As New List(Of String) - Private _MultiSelect As Boolean - - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents fProperties As RepositoryItemGridLookUpEdit - Friend WithEvents fPropertiesView As DevExpress.XtraGrid.Views.Grid.GridView - Private _ReadOnly As Boolean = False - - Shared Sub New() - RepositoryItemLookupControl2.RegisterLookupControl2() - End Sub - - Public Sub New() - MyClass.New(MultiSelect:=False) - End Sub - - Public Sub New(MultiSelect As Boolean) - _LookupFormButton = New EditorButton() With { - .Kind = ButtonPredefines.Search, - .Tag = TAG_BUTTON_LOOKUP_FORM, - .Width = 20 - } - - Properties.Buttons.Item(0).Tag = TAG_DROPDOWN - Properties.Buttons.AddRange({_LookupFormButton}) - Properties.NullText = _R.GetString("LookupControl_NoRecords") - - AddHandler ButtonClick, AddressOf HandleButtonClick - AddHandler EditValueChanging, AddressOf HandleEditValueChanging - AddHandler QueryPopUp, AddressOf HandleQueryPopup - End Sub - - Private Sub SetFormButtonEnabled(pVisible As Boolean) - Dim oButton As EditorButton = Properties.Buttons. - Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM). - FirstOrDefault() - - If oButton IsNot Nothing Then - oButton.Visible = pVisible - End If - End Sub - - Private Sub SetDropdownButtonEnabled(pVisible As Boolean) - Dim oButton As EditorButton = Properties.Buttons. - Where(Function(b) b.Tag = TAG_DROPDOWN). - FirstOrDefault() - - If oButton IsNot Nothing Then - oButton.Visible = pVisible - End If - End Sub - - ''' - ''' Prevents popup from opening when multiselect is false - ''' - Private Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) - If MultiSelect = False Then - e.Cancel = True - End If - End Sub - - ''' - ''' Prevents Editvalue changing when multiselect is true - ''' - Private Sub HandleEditValueChanging(sender As Object, e As ChangingEventArgs) - If MultiSelect Then - e.Cancel = True - End If - End Sub - - ''' - ''' Handles opening frmLookup when ellipsis button is clicked - ''' - Private Sub HandleButtonClick(sender As Object, e As ButtonPressedEventArgs) - Select Case e.Button.Tag - Case TAG_BUTTON_LOOKUP_FORM - Using oForm = GetLookupForm() - Dim oResult = oForm.ShowDialog() - - If oResult = Windows.Forms.DialogResult.OK Then - Dim oValues = oForm.SelectedValues - UpdateSelectedValues(oValues) - End If - End Using - End Select - End Sub - - Private Sub UpdateSelectedValues(Values As List(Of String)) - If Values Is Nothing Then - Exit Sub - End If - - Values.RemoveAll(Function(v) String.IsNullOrEmpty(v)) - - If MultiSelect = True Then - Properties.DataSource = Values - - Select Case Values.Count - Case 0 - Properties.NullText = _R.GetString("LookupControl_NoRecords") - Case 1 - Properties.NullText = _R.GetString("LookupControl_OneRecord") - Case Else - Properties.NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count) - End Select - Else - Properties.NullText = Values.FirstOrDefault() - Text = Values.FirstOrDefault() - EditValue = Nothing - End If - - _SelectedValues = Values - - RaiseEvent SelectedValuesChanged(Me, Values) - End Sub - - Private Function GetLookupForm() As frmLookupGrid - Dim oForm As New frmLookupGrid() With { - .MultiSelect = MultiSelect, - .AddNewValues = AllowAddNewValues, - .PreventDuplicates = PreventDuplicates, - .DataSource = DataSource, - .SelectedValues = SelectedValues, - .StartPosition = FormStartPosition.Manual, - .Location = PointToScreen(New Point(Width, 0)) - } - - Return oForm - End Function - - - Public Shadows ReadOnly Property Properties As RepositoryItemLookupControl2 - Get - Return TryCast(MyBase.Properties, RepositoryItemLookupControl2) - End Get - End Property - - Public Overrides ReadOnly Property EditorTypeName As String - Get - Return RepositoryItemLookupControl2.CustomEditName - End Get - End Property - - Private Sub InitializeComponent() - Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit() - Me.fPropertiesView = New DevExpress.XtraGrid.Views.Grid.GridView() - CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'fProperties - ' - Me.fProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.fProperties.Name = "fProperties" - Me.fProperties.PopupView = Me.fPropertiesView - ' - 'fPropertiesView - ' - Me.fPropertiesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus - Me.fPropertiesView.Name = "fPropertiesView" - Me.fPropertiesView.OptionsSelection.EnableAppearanceFocusedCell = False - Me.fPropertiesView.OptionsView.ShowGroupPanel = False - CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.fPropertiesView, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - - End Sub -End Class - - -Public Class RepositoryItemLookupControl2 - Inherits RepositoryItemGridLookUpEdit - - Shared Sub New() - RegisterLookupControl2() - End Sub - - Public Const CustomEditName As String = "LookupControl2" - - Public Overrides ReadOnly Property EditorTypeName As String - Get - Return CustomEditName - End Get - End Property - - Public Shared Sub RegisterLookupControl2() - Dim img As Image = Nothing - EditorRegistrationInfo.Default.Editors.Add( - New EditorClassInfo( - CustomEditName, - GetType(LookupControl2), - GetType(RepositoryItemLookupControl2), - GetType(GridLookUpEditBaseViewInfo), - New ButtonEditPainter(), - True, - img, - GetType(ButtonEditAccessible) - ) - ) - End Sub - - Public Overrides Sub Assign(item As RepositoryItem) - BeginUpdate() - Try - MyBase.Assign(item) - Dim source As RepositoryItemLookupControl2 = TryCast(item, RepositoryItemLookupControl2) - If source Is Nothing Then - Return - End If - Finally - EndUpdate() - End Try - End Sub -End Class diff --git a/Controls.LookupGrid/LookupControl3.vb b/Controls.LookupGrid/LookupControl3.vb index cee08f3c..8ee90c69 100644 --- a/Controls.LookupGrid/LookupControl3.vb +++ b/Controls.LookupGrid/LookupControl3.vb @@ -47,6 +47,8 @@ Public Class RepositoryItemLookupControl3 Public Sub New() SetDropdownButtonEnabled(_MultiSelect) + + UpdateSelectedValues(New List(Of String)) End Sub Private Const NAME_DATATABLE_INTERNAL = "__INTERNAL_DATATABLE__" @@ -114,6 +116,8 @@ Public Class RepositoryItemLookupControl3 GetType(ButtonEditAccessible) ) EditorRegistrationInfo.Default.Editors.Add(oClassInfo) + + End Sub Private Sub SetFormButtonEnabled(pVisible As Boolean) @@ -156,14 +160,19 @@ Public Class RepositoryItemLookupControl3 If MultiSelect = True Then Select Case Values.Count Case 0 - NullText = String.Empty + NullText = String.Format(_R.GetString("LookupControl_NoRecords")) Case 1 NullText = Values.FirstOrDefault() Case Else NullText = String.Format(_R.GetString("LookupControl_NRecords"), Values.Count) End Select Else - NullText = Values.FirstOrDefault() + Select Case Values.Count + Case 0 + NullText = String.Format(_R.GetString("LookupControl_NoRecords")) + Case Else + NullText = Values.FirstOrDefault() + End Select End If ' If No external Datasource is supplied, create one containing the currently selected values @@ -188,6 +197,10 @@ Public Class RepositoryItemLookupControl3 RaiseEvent SelectedValuesChanged(Me, Values) End Sub + Protected Overrides Function ShouldSerializeNullText() As Boolean + Return False + End Function + Public Overrides Sub CreateDefaultButton() Dim oButtons As New List(Of EditorButton) From { New EditorButton() With { @@ -260,19 +273,19 @@ Public Class RepositoryItemLookupControl3 End Sub Private Shadows Sub Popup(sender As LookupControl3, e As EventArgs) Handles Me.BeforePopup - Dim oView As ColumnView = sender.Properties.View + Try + Dim oView As ColumnView = sender.Properties.View - If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then - Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName + If DataSource IsNot Nothing AndAlso DataSource.Columns.Count > 0 Then + Dim oFirstColumn As String = DataSource.Columns.Item(0).ColumnName + Dim oOperator = New DevExpress.Data.Filtering.InOperator(oFirstColumn, SelectedValues) - Dim oWrapped = SelectedValues. - Select(Function(v As String) $"'{v}'"). - ToArray() - Dim oValueString As String = String.Join(",", oWrapped) - Dim oCriterium As String = $"[{oFirstColumn}] IN ({oValueString})" - View.ActiveFilterCriteria = DevExpress.Data.Filtering.CriteriaOperator.Parse(oCriterium) - View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never - End If + View.ActiveFilterCriteria = oOperator + View.OptionsView.ShowFilterPanelMode = ShowFilterPanelMode.Never + End If + Catch ex As Exception + 'noop + End Try End Sub Public Sub HandleQueryPopup(sender As Object, e As CancelEventArgs) Handles Me.QueryPopUp diff --git a/Controls.LookupGrid/LookupGridHandler.vb b/Controls.LookupGrid/LookupGridHandler.vb deleted file mode 100644 index 1ff6e7be..00000000 --- a/Controls.LookupGrid/LookupGridHandler.vb +++ /dev/null @@ -1,21 +0,0 @@ -Imports System.Windows.Forms -Imports DevExpress.XtraGrid.Views.Grid - -Namespace LookupGrid - Public Class LookupGridHandler - Inherits Handler.GridHandler - - Public Sub New(ByVal gridView As GridView) - MyBase.New(gridView) - End Sub - - Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs) - MyBase.OnKeyDown(e) - If e.KeyData = Keys.Delete AndAlso View.State = GridState.Normal Then - View.DeleteRow(View.FocusedRowHandle) - End If - End Sub - End Class - -End Namespace - diff --git a/Controls.LookupGrid/LookupGridLocalizer.vb b/Controls.LookupGrid/LookupGridLocalizer.vb new file mode 100644 index 00000000..6d47d58c --- /dev/null +++ b/Controls.LookupGrid/LookupGridLocalizer.vb @@ -0,0 +1,24 @@ +Imports DevExpress.XtraEditors.Controls + +Public Class LookupGridLocalizer + Inherits EditResLocalizer + + Private Const LANG_DE = "de-DE" + + Public Overrides Function GetLocalizedString(id As StringId) As String + Dim oResult As String + + Select Case id + Case StringId.LookUpEditValueIsNull + If Language = LANG_DE Then + oResult = "[Kein Wert ausgewählt]" + Else + oResult = "[No Value selected]" + End If + Case Else + oResult = MyBase.GetLocalizedString(id) + End Select + + Return oResult + End Function +End Class diff --git a/Controls.LookupGrid/LookupGridRegistration.vb b/Controls.LookupGrid/LookupGridRegistration.vb deleted file mode 100644 index 44571ac1..00000000 --- a/Controls.LookupGrid/LookupGridRegistration.vb +++ /dev/null @@ -1,26 +0,0 @@ -Imports DevExpress.XtraGrid -Imports DevExpress.XtraGrid.Views.Base -Imports DevExpress.XtraGrid.Views.Base.Handler -Imports DevExpress.XtraGrid.Registrator - -Namespace LookupGrid - Public Class LookupGridViewInfoRegistrator - Inherits GridInfoRegistrator - - Public Overrides ReadOnly Property ViewName() As String - Get - Return "GridView" - End Get - End Property - Public Overrides Function CreateView(ByVal grid As GridControl) As BaseView - Return New LookupGridView(TryCast(grid, GridControl)) - End Function - Public Overrides Function CreateHandler(ByVal view As BaseView) As BaseViewHandler - Return New LookupGridHandler(TryCast(view, LookupGridView)) - End Function - End Class - - - -End Namespace - diff --git a/Controls.LookupGrid/LookupGridView.Designer.vb b/Controls.LookupGrid/LookupGridView.Designer.vb deleted file mode 100644 index d7a21e07..00000000 --- a/Controls.LookupGrid/LookupGridView.Designer.vb +++ /dev/null @@ -1,47 +0,0 @@ -Partial Class LookupGridView - Inherits System.ComponentModel.Component - - - Public Sub New(ByVal container As System.ComponentModel.IContainer) - MyClass.New() - - 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers - If (container IsNot Nothing) Then - container.Add(Me) - End If - - End Sub - - - Public Sub New() - MyBase.New() - - 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. - InitializeComponent() - - End Sub - - 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. - - 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 Komponenten-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. - 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - - Private Sub InitializeComponent() - components = New System.ComponentModel.Container() - End Sub - -End Class diff --git a/Controls.LookupGrid/LookupGridView.vb b/Controls.LookupGrid/LookupGridView.vb deleted file mode 100644 index 101e270f..00000000 --- a/Controls.LookupGrid/LookupGridView.vb +++ /dev/null @@ -1,56 +0,0 @@ -Imports DevExpress.Data.Helpers -Imports DevExpress.Data.Filtering -Imports DevExpress.XtraGrid.Views.Base -Imports System.Reflection - -Namespace LookupGrid - Public Class LookupGridView - Inherits DevExpress.XtraGrid.Views.Grid.GridView - - Private _simpleSearch As Boolean - Public Sub New() - Me.New(Nothing) - End Sub - Public Property SimpleSearch() As Boolean - Get - Return _simpleSearch - End Get - Set(ByVal value As Boolean) - _simpleSearch = value - End Set - End Property - - Public Sub New(ByVal grid As DevExpress.XtraGrid.GridControl) - MyBase.New(grid) - ' put your initialization code here - End Sub - Protected Overrides ReadOnly Property ViewName() As String - Get - Return "LookupGridView" - End Get - End Property - Protected Overrides Function ConvertGridFilterToDataFilter(ByVal criteria As CriteriaOperator) As CriteriaOperator - Dim originalFindFilterText As String = Convert.ToString(GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.GetField, Nothing, Me, New Object() {})) - If SimpleSearch Then - If Not (String.IsNullOrEmpty(originalFindFilterText)) Then - GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.SetField, Nothing, Me, New Object() {String.Concat("""", originalFindFilterText, """")}) - End If - Dim findCriteria As CriteriaOperator = Nothing - Dim _lastParserResults As FindSearchParserResults = Nothing - If Not (String.IsNullOrEmpty(FindFilterText)) Then - _lastParserResults = (New FindSearchParser()).Parse(FindFilterText, GetFindToColumnsCollection()) - GetType(ColumnView).GetField("lastParserResults", BindingFlags.NonPublic Or BindingFlags.Instance).SetValue(Me, _lastParserResults) - If Not IsServerMode Then - _lastParserResults.AppendColumnFieldPrefixes() - End If - findCriteria = DxFtsContainsHelperAlt.Create(_lastParserResults, FilterCondition.Contains, IsServerMode) - End If - GetType(ColumnView).InvokeMember("findFilterText", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.SetField, Nothing, Me, New Object() {originalFindFilterText}) - Return criteria And findCriteria - End If - Return MyBase.ConvertGridFilterToDataFilter(criteria) - End Function - End Class - -End Namespace - diff --git a/Controls.LookupGrid/My Project/AssemblyInfo.vb b/Controls.LookupGrid/My Project/AssemblyInfo.vb index 1ba7bcc3..ceebfafc 100644 --- a/Controls.LookupGrid/My Project/AssemblyInfo.vb +++ b/Controls.LookupGrid/My Project/AssemblyInfo.vb @@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Controls.LookupGrid/My Project/licenses.licx b/Controls.LookupGrid/My Project/licenses.licx index ca29cac8..86498625 100644 --- a/Controls.LookupGrid/My Project/licenses.licx +++ b/Controls.LookupGrid/My Project/licenses.licx @@ -1,3 +1,4 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.LookupGrid/frmLookupGrid.vb b/Controls.LookupGrid/frmLookupGrid.vb index a25db847..a5bbf50b 100644 --- a/Controls.LookupGrid/frmLookupGrid.vb +++ b/Controls.LookupGrid/frmLookupGrid.vb @@ -1,5 +1,6 @@ Imports System.Windows.Forms Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Grid @@ -12,6 +13,8 @@ Public Class frmLookupGrid Public Property NewValues As New HashSet(Of String) Public Const COLUMN_SELECTED = "SELECTED" + Public Const COLUMN_VALUE = "VALUE" + Public Const TABLE_TEMP = "TEMP" Private _DataColumn As Integer Private _DataSourceTemp As DataTable @@ -25,21 +28,21 @@ Public Class frmLookupGrid ' Original Datasource soll nicht verändert werden If DataSource Is Nothing Then - _DataSourceTemp = New DataTable("TEMP") - _DataSourceTemp.Columns.Add(New DataColumn("VALUE")) + _DataSourceTemp = New DataTable(TABLE_TEMP) + _DataSourceTemp.Columns.Add(New DataColumn(COLUMN_VALUE)) Else _DataSourceTemp = DataSource.Copy() End If If MultiSelect Then If Not _DataSourceTemp.Columns.Contains(COLUMN_SELECTED) Then - Dim selectedColumn = New DataColumn() With { - .ColumnName = "SELECTED", + Dim oSelectedColumn = New DataColumn() With { + .ColumnName = COLUMN_SELECTED, .DataType = GetType(Boolean), .DefaultValue = False } - _DataSourceTemp.Columns.Add(selectedColumn) - selectedColumn.SetOrdinal(0) + _DataSourceTemp.Columns.Add(oSelectedColumn) + oSelectedColumn.SetOrdinal(0) End If End If @@ -87,6 +90,10 @@ Public Class frmLookupGrid ' Spaltenbreite anpassen _View.BestFitColumns() + + ' Datenspalte zusätzlich in der Breite anpassen + Dim oDataColumn As GridColumn = _View.Columns.Item(_DataColumn) + oDataColumn.BestFit() End Sub Private Sub SaveSelectedValues() @@ -205,7 +212,7 @@ Public Class frmLookupGrid Private Sub viewLookup_ShowingEditor(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles viewLookup.ShowingEditor Dim rowHandleIsNewItemRow = (_View.FocusedRowHandle = GridControl.NewItemRowHandle) - Dim columnIsCheckboxColumn = _View.FocusedColumn.FieldName = "SELECTED" + Dim columnIsCheckboxColumn = (_View.FocusedColumn.FieldName = COLUMN_SELECTED) ' Prevent editing of Data Column/allow editing for Checkbox Column and NewValue Row If rowHandleIsNewItemRow Or columnIsCheckboxColumn Then diff --git a/Controls.RegexEditor/My Project/AssemblyInfo.vb b/Controls.RegexEditor/My Project/AssemblyInfo.vb index bc8b0f65..e26b97d7 100644 --- a/Controls.RegexEditor/My Project/AssemblyInfo.vb +++ b/Controls.RegexEditor/My Project/AssemblyInfo.vb @@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Controls.RegexEditor/My Project/Resources.Designer.vb b/Controls.RegexEditor/My Project/Resources.Designer.vb index 6aabab17..3229c33d 100644 --- a/Controls.RegexEditor/My Project/Resources.Designer.vb +++ b/Controls.RegexEditor/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -59,5 +59,65 @@ Namespace My.Resources resourceCulture = value End Set End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property End Module End Namespace diff --git a/Controls.RegexEditor/My Project/Resources.resx b/Controls.RegexEditor/My Project/Resources.resx index af7dbebb..9f345215 100644 --- a/Controls.RegexEditor/My Project/Resources.resx +++ b/Controls.RegexEditor/My Project/Resources.resx @@ -46,7 +46,7 @@ mimetype: application/x-microsoft.net.object.binary.base64 value : The object must be serialized with - : System.Serialization.Formatters.Binary.BinaryFormatter + : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter : and then encoded with base64 encoding. mimetype: application/x-microsoft.net.object.soap.base64 @@ -60,6 +60,7 @@ : and then encoded with base64 encoding. --> + @@ -68,9 +69,10 @@ - + + @@ -85,9 +87,10 @@ - + + @@ -109,9 +112,28 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + \ No newline at end of file diff --git a/Controls.RegexEditor/My Project/licenses.licx b/Controls.RegexEditor/My Project/licenses.licx new file mode 100644 index 00000000..4145358b --- /dev/null +++ b/Controls.RegexEditor/My Project/licenses.licx @@ -0,0 +1,3 @@ +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.RegexEditor/RegexEditor.vbproj b/Controls.RegexEditor/RegexEditor.vbproj index fa2a26ed..bfcd372a 100644 --- a/Controls.RegexEditor/RegexEditor.vbproj +++ b/Controls.RegexEditor/RegexEditor.vbproj @@ -48,21 +48,33 @@ On - - - - - + + + + + + False + D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll + + + False + D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll + + + + + + @@ -102,6 +114,7 @@ + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb @@ -130,5 +143,23 @@ Language + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/about.svg b/Controls.RegexEditor/Resources/about.svg new file mode 100644 index 00000000..1f67213d --- /dev/null +++ b/Controls.RegexEditor/Resources/about.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/actions_check.svg b/Controls.RegexEditor/Resources/actions_check.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/Controls.RegexEditor/Resources/actions_check.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/actions_check1.svg b/Controls.RegexEditor/Resources/actions_check1.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/Controls.RegexEditor/Resources/actions_check1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/definednameuseinformula.svg b/Controls.RegexEditor/Resources/definednameuseinformula.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/Controls.RegexEditor/Resources/definednameuseinformula.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/definednameuseinformula1.svg b/Controls.RegexEditor/Resources/definednameuseinformula1.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/Controls.RegexEditor/Resources/definednameuseinformula1.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/Resources/definednameuseinformula2.svg b/Controls.RegexEditor/Resources/definednameuseinformula2.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/Controls.RegexEditor/Resources/definednameuseinformula2.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/Controls.RegexEditor/frmRegexEditor.Designer.vb b/Controls.RegexEditor/frmRegexEditor.Designer.vb index 1e629ce4..a6d6ac0a 100644 --- a/Controls.RegexEditor/frmRegexEditor.Designer.vb +++ b/Controls.RegexEditor/frmRegexEditor.Designer.vb @@ -1,6 +1,6 @@  _ Partial Class frmRegexEditor - Inherits DevExpress.XtraEditors.XtraForm + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Form overrides dispose to clean up the component list. _ @@ -19,62 +19,29 @@ Partial Class frmRegexEditor 'Do not modify it using the code editor. _ Private Sub InitializeComponent() - Me.btnTest = New System.Windows.Forms.Button() - Me.btnSave = New System.Windows.Forms.Button() - Me.labelResult = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.txtTest = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtRegex = New System.Windows.Forms.TextBox() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.labelResult = New DevExpress.XtraBars.BarStaticItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'btnTest - ' - Me.btnTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnTest.Location = New System.Drawing.Point(187, 192) - Me.btnTest.Name = "btnTest" - Me.btnTest.Size = New System.Drawing.Size(112, 31) - Me.btnTest.TabIndex = 23 - Me.btnTest.Text = "Test" - Me.btnTest.UseVisualStyleBackColor = True - ' - 'btnSave - ' - Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK - Me.btnSave.Location = New System.Drawing.Point(305, 192) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(112, 31) - Me.btnSave.TabIndex = 22 - Me.btnSave.Text = "Speichern" - Me.btnSave.UseVisualStyleBackColor = True - ' - 'labelResult - ' - Me.labelResult.AutoSize = True - Me.labelResult.Location = New System.Drawing.Point(12, 163) - Me.labelResult.Name = "labelResult" - Me.labelResult.Size = New System.Drawing.Size(284, 13) - Me.labelResult.TabIndex = 21 - Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen." - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(12, 150) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(52, 13) - Me.Label3.TabIndex = 20 - Me.Label3.Text = "Ergebnis:" - ' 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(12, 100) + Me.Label2.Location = New System.Drawing.Point(12, 151) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(63, 13) + Me.Label2.Size = New System.Drawing.Size(64, 13) Me.Label2.TabIndex = 19 Me.Label2.Text = "Test String:" ' @@ -82,15 +49,16 @@ Partial Class frmRegexEditor ' Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtTest.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtTest.Location = New System.Drawing.Point(12, 116) + Me.txtTest.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTest.Location = New System.Drawing.Point(12, 167) + Me.txtTest.Multiline = True Me.txtTest.Name = "txtTest" - Me.txtTest.Size = New System.Drawing.Size(405, 20) + Me.txtTest.Size = New System.Drawing.Size(487, 136) Me.txtTest.TabIndex = 18 ' 'Label4 ' - Me.Label4.Location = New System.Drawing.Point(12, 48) + Me.Label4.Location = New System.Drawing.Point(12, 110) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(419, 33) Me.Label4.TabIndex = 17 @@ -100,9 +68,9 @@ Partial Class frmRegexEditor 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Location = New System.Drawing.Point(12, 69) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(103, 13) + Me.Label1.Size = New System.Drawing.Size(108, 13) Me.Label1.TabIndex = 16 Me.Label1.Text = "Regular Expression:" ' @@ -110,41 +78,117 @@ Partial Class frmRegexEditor ' Me.txtRegex.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.txtRegex.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtRegex.Location = New System.Drawing.Point(12, 25) + Me.txtRegex.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtRegex.Location = New System.Drawing.Point(12, 85) Me.txtRegex.Name = "txtRegex" - Me.txtRegex.Size = New System.Drawing.Size(405, 20) + Me.txtRegex.Size = New System.Drawing.Size(487, 22) Me.txtRegex.TabIndex = 15 ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticItem1, Me.labelResult}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 6 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(511, 66) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und schließen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.actions_check1 + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Regular Expression testen" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula1 + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Ergebnis" + Me.BarStaticItem1.Id = 3 + Me.BarStaticItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.about + Me.BarStaticItem1.Name = "BarStaticItem1" + Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelResult) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 309) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(511, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'labelResult + ' + Me.labelResult.Caption = "" + Me.labelResult.Id = 5 + Me.labelResult.Name = "labelResult" + ' 'frmRegexEditor ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(429, 235) - Me.Controls.Add(Me.btnTest) - Me.Controls.Add(Me.btnSave) - Me.Controls.Add(Me.labelResult) - Me.Controls.Add(Me.Label3) + Me.ClientSize = New System.Drawing.Size(511, 331) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.txtTest) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.txtRegex) - Me.IconOptions.ShowIcon = False + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula2 Me.Name = "frmRegexEditor" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.Text = "Regex Editor" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub - - Friend WithEvents btnTest As Button - Friend WithEvents btnSave As Button - Friend WithEvents labelResult As Label - Friend WithEvents Label3 As Label Friend WithEvents Label2 As Label Friend WithEvents txtTest As TextBox Friend WithEvents Label4 As Label Friend WithEvents Label1 As Label Friend WithEvents txtRegex As TextBox + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelResult As DevExpress.XtraBars.BarStaticItem End Class diff --git a/Controls.RegexEditor/frmRegexEditor.vb b/Controls.RegexEditor/frmRegexEditor.vb index 761ac9a9..0b5b6c9c 100644 --- a/Controls.RegexEditor/frmRegexEditor.vb +++ b/Controls.RegexEditor/frmRegexEditor.vb @@ -4,6 +4,8 @@ Public Class frmRegexEditor Public RegexString As String Public Sub New(RegexString As String) + MyBase.New() + ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -15,21 +17,23 @@ Public Class frmRegexEditor txtRegex.Text = RegexString End Sub - Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + RegexString = txtRegex.Text + DialogResult = DialogResult.OK + Close() + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick Try Dim oTestString As String = txtTest.Text If Regex.IsMatch(oTestString, txtRegex.Text) Then - labelResult.Text = "Test String ist gültig." + labelResult.Caption = "Test String ist gültig." Else - labelResult.Text = "Test String ist nicht gültig." + labelResult.Caption = "Test String ist nicht gültig." End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test") End Try End Sub - - Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click - RegexString = txtRegex.Text - End Sub End Class \ No newline at end of file diff --git a/Controls.SQLEditor/App.config b/Controls.SQLEditor/App.config new file mode 100644 index 00000000..cd714553 --- /dev/null +++ b/Controls.SQLEditor/App.config @@ -0,0 +1,14 @@ + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/My Project/Application.Designer.vb b/Controls.SQLEditor/My Project/Application.Designer.vb new file mode 100644 index 00000000..8ab460ba --- /dev/null +++ b/Controls.SQLEditor/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/Controls.SQLEditor/My Project/Application.myapp b/Controls.SQLEditor/My Project/Application.myapp new file mode 100644 index 00000000..60a8aa77 --- /dev/null +++ b/Controls.SQLEditor/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmSQLEditor + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/Controls.SQLEditor/My Project/AssemblyInfo.vb b/Controls.SQLEditor/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..66e02f32 --- /dev/null +++ b/Controls.SQLEditor/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/Controls.SQLEditor/My Project/Resources.Designer.vb b/Controls.SQLEditor/My Project/Resources.Designer.vb new file mode 100644 index 00000000..cbfc0b8a --- /dev/null +++ b/Controls.SQLEditor/My Project/Resources.Designer.vb @@ -0,0 +1,153 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Controls.SQLEditor.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_checkcircled() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_checkcircled", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_database() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_database", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_database1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_database1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editdatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editdatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property highimportance() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("highimportance", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property updatedataextract() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("updatedataextract", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property updatedataextract1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("updatedataextract1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property updatedataextract2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("updatedataextract2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + End Module +End Namespace diff --git a/Controls.SQLEditor/My Project/Resources.resx b/Controls.SQLEditor/My Project/Resources.resx new file mode 100644 index 00000000..dbcd51c3 --- /dev/null +++ b/Controls.SQLEditor/My Project/Resources.resx @@ -0,0 +1,148 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_database1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\updatedataextract1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\updatedataextract2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_checkcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/Controls.SQLEditor/My Project/Settings.Designer.vb b/Controls.SQLEditor/My Project/Settings.Designer.vb new file mode 100644 index 00000000..494381b8 --- /dev/null +++ b/Controls.SQLEditor/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.Controls.SQLEditor.My.MySettings + Get + Return Global.DigitalData.Controls.SQLEditor.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Controls.SQLEditor/My Project/Settings.settings b/Controls.SQLEditor/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/Controls.SQLEditor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Controls.SQLEditor/My Project/licenses.licx b/Controls.SQLEditor/My Project/licenses.licx new file mode 100644 index 00000000..8f12cb1f --- /dev/null +++ b/Controls.SQLEditor/My Project/licenses.licx @@ -0,0 +1,6 @@ +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Controls.SQLEditor/Resources/actions_check.svg b/Controls.SQLEditor/Resources/actions_check.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/Controls.SQLEditor/Resources/actions_check.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/actions_checkcircled.svg b/Controls.SQLEditor/Resources/actions_checkcircled.svg new file mode 100644 index 00000000..b1b6aa99 --- /dev/null +++ b/Controls.SQLEditor/Resources/actions_checkcircled.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/actions_database.svg b/Controls.SQLEditor/Resources/actions_database.svg new file mode 100644 index 00000000..af7a23c1 --- /dev/null +++ b/Controls.SQLEditor/Resources/actions_database.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/actions_database1.svg b/Controls.SQLEditor/Resources/actions_database1.svg new file mode 100644 index 00000000..af7a23c1 --- /dev/null +++ b/Controls.SQLEditor/Resources/actions_database1.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/editdatasource.svg b/Controls.SQLEditor/Resources/editdatasource.svg new file mode 100644 index 00000000..6e46621c --- /dev/null +++ b/Controls.SQLEditor/Resources/editdatasource.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/highimportance.svg b/Controls.SQLEditor/Resources/highimportance.svg new file mode 100644 index 00000000..7f7764cf --- /dev/null +++ b/Controls.SQLEditor/Resources/highimportance.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/updatedataextract.svg b/Controls.SQLEditor/Resources/updatedataextract.svg new file mode 100644 index 00000000..e7dda038 --- /dev/null +++ b/Controls.SQLEditor/Resources/updatedataextract.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/updatedataextract1.svg b/Controls.SQLEditor/Resources/updatedataextract1.svg new file mode 100644 index 00000000..e7dda038 --- /dev/null +++ b/Controls.SQLEditor/Resources/updatedataextract1.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/Controls.SQLEditor/Resources/updatedataextract2.svg b/Controls.SQLEditor/Resources/updatedataextract2.svg new file mode 100644 index 00000000..e7dda038 --- /dev/null +++ b/Controls.SQLEditor/Resources/updatedataextract2.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.Common/Common.vbproj.bak b/Controls.SQLEditor/SQLEditor.vbproj similarity index 54% rename from GUIs.Common/Common.vbproj.bak rename to Controls.SQLEditor/SQLEditor.vbproj index 277c7740..46ec409a 100644 --- a/GUIs.Common/Common.vbproj.bak +++ b/Controls.SQLEditor/SQLEditor.vbproj @@ -4,30 +4,36 @@ Debug AnyCPU - {D20A6BF2-C7C6-4A7A-B34D-FA27D775A049} + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A} Library - DigitalData.GUIs.Common - DigitalData.GUIs.Common + + + DigitalData.Controls.SQLEditor + DigitalData.Controls.SQLEditor 512 Windows v4.6.1 + true + true + AnyCPU true full true true bin\Debug\ - DigitalData.GUIs.Common.xml + DigitalData.Controls.SQLEditor.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU pdbonly false true true bin\Release\ - DigitalData.GUIs.Common.xml + DigitalData.Controls.SQLEditor.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -43,33 +49,31 @@ On - - - - - - - - - - - - - ..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll - - - D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll - + + + + + + + + + + - ..\packages\NLog.4.6.8\lib\net45\NLog.dll + ..\packages\NLog.4.7.5\lib\net45\NLog.dll + + + + + @@ -85,38 +89,25 @@ + + - - + + frmSQLEditor.vb + + Form - - - - - frmDataResultList.vb - - - Form - - - - - frmDocumentResultList.vb - - - Form - - True Application.myapp + True True @@ -130,11 +121,8 @@ - - frmDataResultList.vb - - - frmDocumentResultList.vb + + frmSQLEditor.vb @@ -154,14 +142,43 @@ My Settings.Designer.vb + - - {44982f9b-6116-44e2-85d0-f39650b1ef99} - Config + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + {d20a6bf2-c7c6-4a7a-b34d-fa27d775a049} + Common - {EAF0EA75-5FA7-485D-89C7-B2D843B03A96} + {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} Database @@ -169,59 +186,13 @@ Language - {903B2D7D-3B80-4BE9-8713-7447B704E1B0} + {903b2d7d-3b80-4be9-8713-7447b704e1b0} Logging - - {81cac44f-3711-4c8f-ae98-e02a7448782a} - ZooFlow + + {7c3b0c7e-59fe-4e1a-a655-27ae119f9444} + Patterns - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/Controls.SQLEditor/frmSQLEditor.Designer.vb b/Controls.SQLEditor/frmSQLEditor.Designer.vb new file mode 100644 index 00000000..922dbfba --- /dev/null +++ b/Controls.SQLEditor/frmSQLEditor.Designer.vb @@ -0,0 +1,607 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmSQLEditor + Inherits BaseRibbonForm + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + MyBase.Dispose(disposing) + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor)) + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Me.RepositoryItemRibbonSearchEdit2 = New DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.GridControlPlaceholders = New DevExpress.XtraGrid.GridControl() + Me.BindingSourcePlaceholder = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewPlaceholder = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colPlaceholder = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colReplacement = New DevExpress.XtraGrid.Columns.GridColumn() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem() + Me.BarStaticItem2 = New DevExpress.XtraBars.BarStaticItem() + Me.BarStaticItem3 = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.GridControlResult = New DevExpress.XtraGrid.GridControl() + Me.GridViewResult = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.txtSQL = New DevExpress.XtraEditors.MemoEdit() + Me.DropDownButton1 = New DevExpress.XtraEditors.DropDownButton() + Me.DropDownButton11 = New DevExpress.XtraEditors.DropDownButton() + Me.RibbonControl11 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem21 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage11 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup11 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar11 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.DropDownButton2 = New DevExpress.XtraEditors.DropDownButton() + Me.DropDownButton3 = New DevExpress.XtraEditors.DropDownButton() + Me.cmbConnections = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleLabelItem2 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.SimpleSeparator1 = New DevExpress.XtraLayout.SimpleSeparator() + Me.SimpleLabelItem1 = New DevExpress.XtraLayout.SimpleLabelItem() + Me.SimpleSeparator2 = New DevExpress.XtraLayout.SimpleSeparator() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + CType(Me.RepositoryItemRibbonSearchEdit2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.GridControlPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSourcePlaceholder, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewPlaceholder, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlResult, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtSQL.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RibbonControl11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SimpleSeparator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RepositoryItemRibbonSearchEdit2 + ' + Me.RepositoryItemRibbonSearchEdit2.AllowFocused = False + Me.RepositoryItemRibbonSearchEdit2.AutoHeight = False + Me.RepositoryItemRibbonSearchEdit2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder + EditorButtonImageOptions1.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] + EditorButtonImageOptions1.SvgImage = CType(resources.GetObject("EditorButtonImageOptions1.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.RepositoryItemRibbonSearchEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", -1, True, True, True, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Clear, "", -1, True, False, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.RepositoryItemRibbonSearchEdit2.Name = "RepositoryItemRibbonSearchEdit2" + Me.RepositoryItemRibbonSearchEdit2.NullText = "Search" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.GridControlPlaceholders) + Me.LayoutControl1.Controls.Add(Me.GridControlResult) + Me.LayoutControl1.Controls.Add(Me.txtSQL) + Me.LayoutControl1.Controls.Add(Me.DropDownButton1) + Me.LayoutControl1.Controls.Add(Me.DropDownButton11) + Me.LayoutControl1.Controls.Add(Me.DropDownButton2) + Me.LayoutControl1.Controls.Add(Me.DropDownButton3) + Me.LayoutControl1.Controls.Add(Me.cmbConnections) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(1283, 604) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'GridControlPlaceholders + ' + Me.GridControlPlaceholders.DataSource = Me.BindingSourcePlaceholder + Me.GridControlPlaceholders.Location = New System.Drawing.Point(12, 347) + Me.GridControlPlaceholders.MainView = Me.GridViewPlaceholder + Me.GridControlPlaceholders.MenuManager = Me.RibbonControl1 + Me.GridControlPlaceholders.Name = "GridControlPlaceholders" + Me.GridControlPlaceholders.Size = New System.Drawing.Size(417, 245) + Me.GridControlPlaceholders.TabIndex = 7 + Me.GridControlPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPlaceholder}) + ' + 'GridViewPlaceholder + ' + Me.GridViewPlaceholder.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPlaceholder, Me.colReplacement}) + Me.GridViewPlaceholder.GridControl = Me.GridControlPlaceholders + Me.GridViewPlaceholder.Name = "GridViewPlaceholder" + ' + 'colPlaceholder + ' + Me.colPlaceholder.Caption = "Platzhalter" + Me.colPlaceholder.Name = "colPlaceholder" + Me.colPlaceholder.Visible = True + Me.colPlaceholder.VisibleIndex = 0 + ' + 'colReplacement + ' + Me.colReplacement.Caption = "Ersetzung" + Me.colReplacement.Name = "colReplacement" + Me.colReplacement.Visible = True + Me.colReplacement.VisibleIndex = 1 + ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticItem1, Me.BarStaticItem2, Me.BarStaticItem3, Me.BarButtonItem3}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1283, 66) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Speichern und schließen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "SQL testen" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarStaticItem1 + ' + Me.BarStaticItem1.Caption = "Ergebnis" + Me.BarStaticItem1.Id = 3 + Me.BarStaticItem1.Name = "BarStaticItem1" + ' + 'BarStaticItem2 + ' + Me.BarStaticItem2.Caption = "Fehler bei Abfrage" + Me.BarStaticItem2.Id = 4 + Me.BarStaticItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarStaticItem2.Name = "BarStaticItem2" + Me.BarStaticItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'BarStaticItem3 + ' + Me.BarStaticItem3.Caption = "Abfrage ausgeführt" + Me.BarStaticItem3.Id = 5 + Me.BarStaticItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarStaticItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarStaticItem3.Name = "BarStaticItem3" + Me.BarStaticItem3.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Verbindungen.." + Me.BarButtonItem3.Id = 7 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem2) + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem3) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 670) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1283, 22) + ' + 'GridControlResult + ' + Me.GridControlResult.Location = New System.Drawing.Point(433, 347) + Me.GridControlResult.MainView = Me.GridViewResult + Me.GridControlResult.MenuManager = Me.RibbonControl1 + Me.GridControlResult.Name = "GridControlResult" + Me.GridControlResult.Size = New System.Drawing.Size(838, 245) + Me.GridControlResult.TabIndex = 5 + Me.GridControlResult.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewResult}) + ' + 'GridViewResult + ' + Me.GridViewResult.GridControl = Me.GridControlResult + Me.GridViewResult.Name = "GridViewResult" + ' + 'txtSQL + ' + Me.txtSQL.Location = New System.Drawing.Point(20, 99) + Me.txtSQL.MenuManager = Me.RibbonControl1 + Me.txtSQL.Name = "txtSQL" + Me.txtSQL.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSQL.Properties.Appearance.Options.UseFont = True + Me.txtSQL.Size = New System.Drawing.Size(1243, 199) + Me.txtSQL.StyleController = Me.LayoutControl1 + Me.txtSQL.TabIndex = 4 + ' + 'DropDownButton1 + ' + Me.DropDownButton1.Location = New System.Drawing.Point(853, 12) + Me.DropDownButton1.MenuManager = Me.RibbonControl1 + Me.DropDownButton1.Name = "DropDownButton1" + Me.DropDownButton1.Size = New System.Drawing.Size(418, 22) + Me.DropDownButton1.StyleController = Me.LayoutControl1 + Me.DropDownButton1.TabIndex = 8 + Me.DropDownButton1.Text = "Dokument-Indizies" + ' + 'DropDownButton11 + ' + Me.DropDownButton11.Location = New System.Drawing.Point(433, 12) + Me.DropDownButton11.MenuManager = Me.RibbonControl11 + Me.DropDownButton11.Name = "DropDownButton11" + Me.DropDownButton11.Size = New System.Drawing.Size(416, 22) + Me.DropDownButton11.StyleController = Me.LayoutControl1 + Me.DropDownButton11.TabIndex = 8 + Me.DropDownButton11.Text = "Controls (zur Laufzeit ausgewertet)" + ' + 'RibbonControl11 + ' + Me.RibbonControl11.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl11.ExpandCollapseItem.Id = 0 + Me.RibbonControl11.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl11.ExpandCollapseItem, Me.RibbonControl11.SearchEditItem, Me.BarButtonItem11, Me.BarButtonItem21}) + Me.RibbonControl11.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl11.MaxItemId = 3 + Me.RibbonControl11.Name = "RibbonControl11" + Me.RibbonControl11.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage11}) + Me.RibbonControl11.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemRibbonSearchEdit2}) + Me.RibbonControl11.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl11.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl11.ShowToolbarCustomizeItem = False + Me.RibbonControl11.Size = New System.Drawing.Size(1283, 55) + Me.RibbonControl11.StatusBar = Me.RibbonStatusBar11 + Me.RibbonControl11.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem11 + ' + Me.BarButtonItem11.Caption = "Speichern und schließen" + Me.BarButtonItem11.Id = 1 + Me.BarButtonItem11.Name = "BarButtonItem11" + ' + 'BarButtonItem21 + ' + Me.BarButtonItem21.Caption = "SQL testen" + Me.BarButtonItem21.Id = 2 + Me.BarButtonItem21.Name = "BarButtonItem21" + ' + 'RibbonPage11 + ' + Me.RibbonPage11.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup11}) + Me.RibbonPage11.Name = "RibbonPage11" + Me.RibbonPage11.Text = "RibbonPage1" + ' + 'RibbonPageGroup11 + ' + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem11) + Me.RibbonPageGroup11.ItemLinks.Add(Me.BarButtonItem21) + Me.RibbonPageGroup11.Name = "RibbonPageGroup11" + Me.RibbonPageGroup11.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar11 + ' + Me.RibbonStatusBar11.Location = New System.Drawing.Point(0, 757) + Me.RibbonStatusBar11.Name = "RibbonStatusBar11" + Me.RibbonStatusBar11.Ribbon = Me.RibbonControl11 + Me.RibbonStatusBar11.Size = New System.Drawing.Size(1283, 22) + ' + 'DropDownButton2 + ' + Me.DropDownButton2.Location = New System.Drawing.Point(853, 38) + Me.DropDownButton2.MenuManager = Me.RibbonControl1 + Me.DropDownButton2.Name = "DropDownButton2" + Me.DropDownButton2.Size = New System.Drawing.Size(418, 22) + Me.DropDownButton2.StyleController = Me.LayoutControl1 + Me.DropDownButton2.TabIndex = 9 + Me.DropDownButton2.Text = "Anwendungsdaten" + ' + 'DropDownButton3 + ' + Me.DropDownButton3.Location = New System.Drawing.Point(433, 38) + Me.DropDownButton3.MenuManager = Me.RibbonControl1 + Me.DropDownButton3.Name = "DropDownButton3" + Me.DropDownButton3.Size = New System.Drawing.Size(416, 22) + Me.DropDownButton3.StyleController = Me.LayoutControl1 + Me.DropDownButton3.TabIndex = 10 + Me.DropDownButton3.Text = "Umgebungsinformationen" + ' + 'cmbConnections + ' + Me.cmbConnections.Location = New System.Drawing.Point(20, 39) + Me.cmbConnections.MenuManager = Me.RibbonControl1 + Me.cmbConnections.Name = "cmbConnections" + Me.cmbConnections.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbConnections.Size = New System.Drawing.Size(401, 20) + Me.cmbConnections.StyleController = Me.LayoutControl1 + Me.cmbConnections.TabIndex = 6 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.SimpleSeparator1, Me.SimpleLabelItem1, Me.SimpleSeparator2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1283, 604) + Me.Root.TextVisible = False + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.cmbConnections + Me.LayoutControlItem3.ImageOptions.SvgImage = CType(resources.GetObject("LayoutControlItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.LayoutControlItem3.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(421, 59) + Me.LayoutControlItem3.Text = "SQL Verbindung" + Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(105, 16) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.GridControlResult + Me.LayoutControlItem2.Location = New System.Drawing.Point(421, 335) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(842, 249) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.GridControlPlaceholders + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 335) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Size = New System.Drawing.Size(421, 249) + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem4.TextVisible = False + ' + 'SimpleLabelItem2 + ' + Me.SimpleLabelItem2.AllowHotTrack = False + Me.SimpleLabelItem2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleLabelItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleLabelItem2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.SimpleLabelItem2.Location = New System.Drawing.Point(421, 299) + Me.SimpleLabelItem2.Name = "SimpleLabelItem2" + Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem2.Size = New System.Drawing.Size(842, 36) + Me.SimpleLabelItem2.Text = "Ergebnis" + Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(105, 16) + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.txtSQL + Me.LayoutControlItem1.ImageOptions.SvgImage = CType(resources.GetObject("LayoutControlItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.LayoutControlItem1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem1.Size = New System.Drawing.Size(1263, 238) + Me.LayoutControlItem1.Text = "SQL Abfrage" + Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(105, 16) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.DropDownButton1 + Me.LayoutControlItem5.Location = New System.Drawing.Point(841, 0) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(422, 26) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.DropDownButton11 + Me.LayoutControlItem6.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem6.CustomizationFormText = "LayoutControlItem5" + Me.LayoutControlItem6.Location = New System.Drawing.Point(421, 0) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(420, 26) + Me.LayoutControlItem6.Text = "LayoutControlItem5" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.DropDownButton2 + Me.LayoutControlItem7.Location = New System.Drawing.Point(841, 26) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(422, 33) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.DropDownButton3 + Me.LayoutControlItem8.Location = New System.Drawing.Point(421, 26) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Size = New System.Drawing.Size(420, 33) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'SimpleSeparator1 + ' + Me.SimpleSeparator1.AllowHotTrack = False + Me.SimpleSeparator1.Location = New System.Drawing.Point(0, 298) + Me.SimpleSeparator1.Name = "SimpleSeparator1" + Me.SimpleSeparator1.Size = New System.Drawing.Size(1263, 1) + ' + 'SimpleLabelItem1 + ' + Me.SimpleLabelItem1.AllowHotTrack = False + Me.SimpleLabelItem1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleLabelItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleLabelItem1.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.SimpleLabelItem1.Location = New System.Drawing.Point(0, 299) + Me.SimpleLabelItem1.Name = "SimpleLabelItem1" + Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.SimpleLabelItem1.Size = New System.Drawing.Size(421, 36) + Me.SimpleLabelItem1.Text = "Platzhalter" + Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(105, 16) + ' + 'SimpleSeparator2 + ' + Me.SimpleSeparator2.AllowHotTrack = False + Me.SimpleSeparator2.Location = New System.Drawing.Point(0, 59) + Me.SimpleSeparator2.Name = "SimpleSeparator2" + Me.SimpleSeparator2.Size = New System.Drawing.Size(1263, 1) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'frmSQLEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1283, 692) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmSQLEditor.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmSQLEditor" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "SQL Editor" + CType(Me.RepositoryItemRibbonSearchEdit2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.GridControlPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSourcePlaceholder, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewPlaceholder, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlResult, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewResult, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtSQL.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RibbonControl11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleSeparator1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleLabelItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SimpleSeparator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridControlResult As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewResult As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents txtSQL As DevExpress.XtraEditors.MemoEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents GridControlPlaceholders As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewPlaceholder As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents DropDownButton1 As DevExpress.XtraEditors.DropDownButton + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SimpleLabelItem2 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents SimpleLabelItem1 As DevExpress.XtraLayout.SimpleLabelItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DropDownButton11 As DevExpress.XtraEditors.DropDownButton + Friend WithEvents RibbonControl11 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents BarButtonItem11 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem21 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPage11 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup11 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar11 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents DropDownButton2 As DevExpress.XtraEditors.DropDownButton + Friend WithEvents DropDownButton3 As DevExpress.XtraEditors.DropDownButton + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents RepositoryItemRibbonSearchEdit2 As DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit + Friend WithEvents colPlaceholder As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colReplacement As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarStaticItem2 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarStaticItem3 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents BindingSourcePlaceholder As BindingSource + Friend WithEvents SimpleSeparator1 As DevExpress.XtraLayout.SimpleSeparator + Friend WithEvents SimpleSeparator2 As DevExpress.XtraLayout.SimpleSeparator + Friend WithEvents cmbConnections As DevExpress.XtraEditors.ComboBoxEdit +End Class diff --git a/Controls.SQLEditor/frmSQLEditor.resx b/Controls.SQLEditor/frmSQLEditor.resx new file mode 100644 index 00000000..f53ea551 --- /dev/null +++ b/Controls.SQLEditor/frmSQLEditor.resx @@ -0,0 +1,367 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFUCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAxNiAxNiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBzdHlsZT0iZW5hYmxlLWJhY2tncm91bmQ6bmV3IDAgMCAxNiAxNiI+DQogIDxz + dHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CgkuTWFza3tmaWxsOiM3MDcwNzA7fQoJLnN0MHtvcGFjaXR5OjAu + NTt9Cjwvc3R5bGU+DQogIDxnIGlkPSJJbnNpZGVfQm9yZGVyIj4NCiAgICA8cGF0aCBkPSJNOS41LDJD + NywyLDUsNCw1LDYuNWMwLDEsMC4zLDEuOSwwLjksMi42bC00LjQsNC40bDEsMWw0LjQtNC40QzcuNiwx + MC43LDguNSwxMSw5LjUsMTFDMTIsMTEsMTQsOSwxNCw2LjUgICBTMTIsMiw5LjUsMnogTTkuNSwxMEM3 + LjYsMTAsNiw4LjQsNiw2LjVTNy42LDMsOS41LDNTMTMsNC42LDEzLDYuNVMxMS40LDEwLDkuNSwxMHoi + IGNsYXNzPSJNYXNrIiAvPg0KICA8L2c+DQogIDxnIGlkPSJMYXllcl8yIiAvPg0KPC9zdmc+Cw== + + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjI3 + LDUgMTEsMjEgNSwxNSAyLDE4IDExLDI3IDMwLDggICIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8 + L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFoEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVXBkYXRlRGF0YUV4dHJhY3QiPg0KICAgIDxwYXRo + IGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRT + NCwxMi4yLDQsMTB6IE0xNCwyMGMwLjUsMCwxLjEsMCwxLjYtMC4xICAgYzEuNi0yLjQsNC4zLTMuOSw3 + LjQtMy45YzAuMywwLDAuNywwLDEsMC4xYzAsMCwwLDAsMC0wLjF2LTRjMCwyLjItNC41LDQtMTAsNFM0 + LDE0LjIsNCwxMnY0QzQsMTguMiw4LjUsMjAsMTQsMjB6IE0xNCwyNEwxNCwyNCAgIGMwLjEtMC43LDAu + My0xLjQsMC41LTJjLTAuMiwwLTAuNCwwLTAuNSwwYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAsMi4yLDQu + NSw0LDEwLDRWMjR6IiBjbGFzcz0iWWVsbG93IiAvPg0KICAgIDxwYXRoIGQ9Ik0zMCwxOHY2aC0wLjFI + MjRsMi41LTIuNUMyNS42LDIwLjYsMjQuNCwyMCwyMywyMGMtMi40LDAtNC40LDEuNy00LjksNGgtMmMw + LjUtMy40LDMuNC02LDYuOS02ICAgYzEuOSwwLDMuNywwLjgsNC45LDIuMUwzMCwxOHogTTIzLDMwYy0x + LjQsMC0yLjYtMC42LTMuNS0xLjVMMjIsMjZoLTUuOUgxNnY2bDIuMS0yLjFjMS4zLDEuMywzLDIuMSw0 + LjksMi4xYzMuNSwwLDYuNC0yLjYsNi45LTYgICBoLTJDMjcuNCwyOC4zLDI1LjQsMzAsMjMsMzB6IiBj + bGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABIDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSGlnaEltcG9ydGFuY2UiPg0KICAg + IDxwYXRoIGQ9Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMy + My43LDIsMTYsMnogTTE2LDI0Yy0xLjEsMC0yLTAuOS0yLTJzMC45LTIsMi0yczIsMC45LDIsMiAgIFMx + Ny4xLDI0LDE2LDI0eiBNMTgsMThoLTRWOGg0VjE4eiIgY2xhc3M9IlJlZCIgLz4NCiAgPC9nPg0KPC9z + dmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAHICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkNoZWNrQ2lyY2xlZCI+DQogICAgPHBhdGggZD0iTTE2 + LDRDOS40LDQsNCw5LjQsNCwxNmMwLDYuNiw1LjQsMTIsMTIsMTJzMTItNS40LDEyLTEyQzI4LDkuNCwy + Mi42LDQsMTYsNHogTTE0LDIybC02LTZsMi0ybDQsNGw4LThsMiwyICAgTDE0LDIyeiIgY2xhc3M9Ikdy + ZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAoEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRWRpdENvbm5lY3Rpb24iPg0K + ICAgIDxwYXRoIGQ9Ik0xOCwyNS45QzE3LjQsMjYsMTYuNywyNiwxNiwyNnMtMS40LDAtMi0wLjFWMjho + LTR2NGg0aDRoNHYtNGgtNFYyNS45eiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxwYXRoIGQ9Ik02LDEw + VjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRTNiwxMi4yLDYs + MTB6IE0xNiwxNmMtNS41LDAtMTAtMS44LTEwLTR2NCAgIGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwx + MC00di00QzI2LDE0LjIsMjEuNSwxNiwxNiwxNnogTTE2LDIyYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAs + Mi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTR2LTQgICBDMjYsMjAuMiwyMS41LDIyLDE2LDIyeiIgY2xh + c3M9IlllbGxvdyIgLz4NCiAgICA8ZyBjbGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0xMCwzMkgy + di00aDhWMzJ6IE0zMCwyOGgtOHY0aDhWMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICA8 + L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAoEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRWRpdENvbm5lY3Rpb24iPg0K + ICAgIDxwYXRoIGQ9Ik0xOCwyNS45QzE3LjQsMjYsMTYuNywyNiwxNiwyNnMtMS40LDAtMi0wLjFWMjho + LTR2NGg0aDRoNHYtNGgtNFYyNS45eiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxwYXRoIGQ9Ik02LDEw + VjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0YzAsMi4yLTQuNSw0LTEwLDRTNiwxMi4yLDYs + MTB6IE0xNiwxNmMtNS41LDAtMTAtMS44LTEwLTR2NCAgIGMwLDIuMiw0LjUsNCwxMCw0czEwLTEuOCwx + MC00di00QzI2LDE0LjIsMjEuNSwxNiwxNiwxNnogTTE2LDIyYy01LjUsMC0xMC0xLjgtMTAtNHY0YzAs + Mi4yLDQuNSw0LDEwLDRzMTAtMS44LDEwLTR2LTQgICBDMjYsMjAuMiwyMS41LDIyLDE2LDIyeiIgY2xh + c3M9IlllbGxvdyIgLz4NCiAgICA8ZyBjbGFzcz0ic3QxIj4NCiAgICAgIDxwYXRoIGQ9Ik0xMCwzMkgy + di00aDhWMzJ6IE0zMCwyOGgtOHY0aDhWMjh6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICA8 + L2c+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iRmllbGRfSGVhZGVycyIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5l + dyAwIDAgMzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3 + O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLnN0MHtvcGFjaXR5OjAuNTt9Cjwvc3R5bGU+DQogIDxn + IGNsYXNzPSJzdDAiPg0KICAgIDxwYXRoIGQ9Ik0yMCwxOGgtOHYtNmg4VjE4eiBNMzAsMTJoLTh2Nmg4 + VjEyeiBNMjAsMjBoLTh2Nmg4VjIweiBNMTAsMjBIMnY2aDhWMjB6IE0zMCwyMGgtOHY2aDhWMjB6IiBj + bGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCiAgPHBhdGggZD0iTTEyLDR2NmgxOFY0SDEyeiBNMTYsOGwt + Mi0yaDRMMTYsOHogTTIsMTJ2Nmg4di02SDJ6IE02LDE2bC0yLTJoNEw2LDE2eiIgY2xhc3M9IkJsdWUi + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJkDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iRmlsdGVyUXVlcnkiPg0KICAg + IDxwYXRoIGQ9Ik04LDEwSDB2Nmg4VjEweiBNOCwySDB2Nmg4VjJ6IE0xOCwyaC04djZoOFYyeiBNMTgs + MTBoLTh2Nmg4VjEweiIgY2xhc3M9IkdyZWVuIiAvPg0KICAgIDxnIGNsYXNzPSJzdDEiPg0KICAgICAg + PHBhdGggZD0iTTI4LDE2aC04di02aDhWMTZ6IE0yOCwyaC04djZoOFYyeiBNMCwyNGg4di02SDBWMjR6 + IE0xNC4zLDIxLjFjLTAuMi0wLjItMC4zLTAuNC0wLjMtMC43VjE4aC00djZoNy4yICAgIEwxNC4zLDIx + LjF6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPC9nPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMTgg + MzIsMTggMzIsMjAgMjYsMjYgMjYsMzIgMjIsMzIgMjIsMjYgMTYsMjAgICIgY2xhc3M9IlllbGxvdyIg + Lz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3 + RDc7fQoJLldoaXRle2ZpbGw6I0ZGRkZGRjt9CgkuR3JlZW57ZmlsbDojMDM5QzIzO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tm + aWxsOiNGRkIxMTU7fQo8L3N0eWxlPg0KICA8ZyAvPg0KICA8ZyBpZD0iVGl0bGVfMV8iPg0KICAgIDxw + YXRoIGQ9Ik0yOSwxNEgxYy0wLjUsMC0xLDAuNS0xLDF2MTJjMCwwLjUsMC41LDEsMSwxaDI4YzAuNSww + LDEtMC41LDEtMVYxNUMzMCwxNC41LDI5LjUsMTQsMjksMTR6ICAgIE0yOCwyNkgyVjE2aDI2VjI2eiBN + MjIuOSwxMS4yQzIzLjcsMTAuNiwyNCwxMCwyNCw5YzAtMC42LTAuMi0xLjItMC43LTEuNmMtMC41LTAu + NC0xLjEtMC43LTEuOC0wLjhjMC42LTAuMiwxLjEtMC41LDEuNS0wLjkgICBjMC40LTAuNCwwLjYtMC45 + LDAuNi0xLjRjMC0wLjctMC4zLTEuMy0wLjktMS43QzIyLjEsMi4yLDIxLjEsMiwxOS45LDJIMTZ2OS45 + VjEyaDRDMjEuMiwxMiwyMi4zLDExLjgsMjIuOSwxMS4yeiBNMTguNCwzLjdoMC45ICAgYzEuMSwwLDEu + NywwLjQsMS43LDEuMWMwLDAuNC0wLjEsMC43LTAuNCwwLjlDMjAuNCw1LjksMjAsNiwxOS41LDZoLTEu + MVYzLjd6IE0xOC40LDEwLjJWNy42aDEuM2MwLjUsMCwwLjksMC4xLDEuMywwLjMgICBjMC4zLDAuMiww + LjUsMC42LDAuNSwwLjljMCwwLjQtMC4xLDAuNy0wLjUsMWMtMC4zLDAuMi0wLjgsMC40LTEuMywwLjRI + MTguNHogTTguOSw5LjhoMy4ybDAuNiwyLjNIMTVMMTEuOCwySDkuNEw2LjEsMTJoMi4yICAgTDguOSw5 + Ljh6IE0xMC40LDQuN2MwLjEtMC4zLDAuMS0wLjYsMC4xLTAuOWgwLjFjMCwwLjMsMC4xLDAuNiwwLjEs + MC45bDEsMy4zSDkuNEwxMC40LDQuN3oiIGlkPSJUaXRsZSIgY2xhc3M9IkJsYWNrIiAvPg0KICA8L2c+ + DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT + b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0 + YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx + OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu + NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44 + ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs + MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg + ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs + MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo + NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/Controls.SQLEditor/frmSQLEditor.vb b/Controls.SQLEditor/frmSQLEditor.vb new file mode 100644 index 00000000..fb2b9c13 --- /dev/null +++ b/Controls.SQLEditor/frmSQLEditor.vb @@ -0,0 +1,145 @@ +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Patterns +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.GUIs.Common +Imports DevExpress.XtraGrid.Views.Grid + +Public Class frmSQLEditor + Public SQLString As String + + Private LogConfig As LogConfig + Private SQLServer As MSSQLServer + Private CurrentPosition As String + + Private Placeholders As New List(Of Placeholder) + Private Connections As New List(Of Connection) + + Private Patterns As ClassPatterns + + Friend Class Placeholder + Public Property Placeholder As String + Public Property Replacement As String + End Class + + Friend Class Connection + Public Property Guid As Integer + Public Property Name As String + Public Property Description As String + Public Property Provider As String + Public Property Server As String + Public Property Database As String + Public Property Username As String + Public Property Password As String + + Public Overrides Function ToString() As String + Return Name + End Function + End Class + + Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer) + MyBase.New(LogConfig) + InitializeComponent() + + Me.LogConfig = LogConfig + Me.SQLServer = SQLServer + Patterns = New ClassPatterns(LogConfig) + End Sub + + Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + txtSQL.Text = SQLString + + BindingSourcePlaceholder.DataSource = Placeholders + Placeholders.Clear() + + Connections = Load_SQLConnections() + + Dim oViews As New List(Of GridView) From {GridViewResult, GridViewPlaceholder} + Dim oGridBuilder As New GridBuilder(oViews) + oGridBuilder. + WithDefaults(). + WithReadOnlyOptions(GridViewResult) + + cmbConnections.Properties.Items.Clear() + For Each oConnection In Connections + cmbConnections.Properties.Items.Add(oConnection) + Next + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Function Load_SQLConnections() + Try + Dim oSQL As String = "SELECT * FROM TBDD_CONNECTION" + Dim oTable As DataTable = SQLServer.GetDatatable(oSQL) + Dim oConnections As New List(Of Connection) + + For Each oRow As DataRow In oTable.Rows + oConnections.Add(New Connection With { + .Guid = NotNull(oRow.Item("GUID"), String.Empty), + .Name = NotNull(oRow.Item("BEZEICHNUNG"), String.Empty), + .Provider = NotNull(oRow.Item("SQL_PROVIDER"), String.Empty), + .Database = NotNull(oRow.Item("DATENBANK"), String.Empty), + .Description = NotNull(oRow.Item("BEMERKUNG"), String.Empty), + .Password = NotNull(oRow.Item("PASSWORD"), String.Empty), + .Server = NotNull(oRow.Item("SERVER"), String.Empty), + .Username = NotNull(oRow.Item("USERNAME"), String.Empty) + }) + Next + + Return oConnections + Catch ex As Exception + ShowErrorMessage(ex) + Return New List(Of Connection) + End Try + End Function + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + SQLString = txtSQL.Text + DialogResult = DialogResult.OK + Close() + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + If cmbConnections.SelectedItem Is Nothing Then + ShowErrorMessage("Bitte wählen sie eine Datenbank Verbindung!") + Exit Sub + End If + + Try + Dim oSQL As String = txtSQL.EditValue.ToString + Dim oConnection As Connection = cmbConnections.SelectedItem + Dim oConnectionString = SQLServer.GetConnectionString(oConnection.Server, oConnection.Database, oConnection.Username, oConnection.Password) + Dim oTable As DataTable = SQLServer.GetDatatableWithConnection(oSQL, oConnectionString) + + GridControlResult.DataSource = oTable + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Sub txtSQL_EditValueChanged(sender As Object, e As EventArgs) Handles txtSQL.EditValueChanged + CurrentPosition = txtSQL.SelectionStart + Dim oValue = txtSQL.EditValue.ToString.Trim + + If oValue.Length > 0 Then + GridControlPlaceholders.Enabled = True + CheckForPlaceholders(txtSQL.EditValue) + Else + GridControlPlaceholders.Enabled = False + End If + End Sub + + Private Sub CheckForPlaceholders(Text As String) + Placeholders.Clear() + + For Each oPattern In Patterns.GetAllPatterns(Text) + Placeholders.Add(New Placeholder With { + .Placeholder = oPattern.ToString, + .Replacement = "" + }) + Next + End Sub +End Class diff --git a/Controls.SQLEditor/packages.config b/Controls.SQLEditor/packages.config new file mode 100644 index 00000000..6f6bc401 --- /dev/null +++ b/Controls.SQLEditor/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/DDMonorepo.sln b/DDMonorepo.sln index f774b72f..b2d88dd7 100644 --- a/DDMonorepo.sln +++ b/DDMonorepo.sln @@ -126,6 +126,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMI.File.Test", "Modules.E EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GlobalIndexer", "GUIs.GlobalIndexer\GlobalIndexer.vbproj", "{40384B94-1F94-4249-9A5A-D02E0B346738}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SQLEditor", "Controls.SQLEditor\SQLEditor.vbproj", "{3E7BC8A9-91EF-49B8-8110-2C01F664C24A}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SQLConfig", "SQLConfig\SQLConfig.vbproj", "{65EFB268-C0E0-40C1-8981-9F70DEE5C74A}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Monitor", "GUIs.Monitor\Monitor.vbproj", "{E24E8D40-0361-4C07-8FAE-3621DE316E70}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -332,6 +338,18 @@ Global {40384B94-1F94-4249-9A5A-D02E0B346738}.Debug|Any CPU.Build.0 = Debug|Any CPU {40384B94-1F94-4249-9A5A-D02E0B346738}.Release|Any CPU.ActiveCfg = Release|Any CPU {40384B94-1F94-4249-9A5A-D02E0B346738}.Release|Any CPU.Build.0 = Release|Any CPU + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Debug|Any CPU.Build.0 = Debug|Any CPU + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Release|Any CPU.ActiveCfg = Release|Any CPU + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A}.Release|Any CPU.Build.0 = Release|Any CPU + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Debug|Any CPU.Build.0 = Debug|Any CPU + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Release|Any CPU.ActiveCfg = Release|Any CPU + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A}.Release|Any CPU.Build.0 = Release|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E24E8D40-0361-4C07-8FAE-3621DE316E70}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -387,6 +405,9 @@ Global {1477032D-7A02-4C5F-B026-A7117DA4BC6B} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC} {16857A4E-2609-47E6-9C35-7669D64DD040} = {3E2008C8-27B1-41DD-9B1A-0C4029F6AECC} {40384B94-1F94-4249-9A5A-D02E0B346738} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} + {3E7BC8A9-91EF-49B8-8110-2C01F664C24A} = {F98C0329-C004-417F-B2AB-7466E88D8220} + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A} = {F98C0329-C004-417F-B2AB-7466E88D8220} + {E24E8D40-0361-4C07-8FAE-3621DE316E70} = {8FFE925E-8B84-45F1-93CB-32B1C96F41EB} EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286} diff --git a/GUIs.Common/Base/BaseErrorHandler.vb b/GUIs.Common/Base/BaseErrorHandler.vb index 9773027d..87bcae17 100644 --- a/GUIs.Common/Base/BaseErrorHandler.vb +++ b/GUIs.Common/Base/BaseErrorHandler.vb @@ -8,18 +8,30 @@ Namespace Base Private _Logger As Logger Private _Form As Form - Private Const UNKNOWN_METHOD = "Unknown Method" - Private Const UNKNOWN_FORM = "Unknown Form" - Public Sub New(LogConfig As LogConfig, Logger As Logger, Form As Form) _LogConfig = LogConfig _Logger = Logger _Form = Form End Sub - Public Sub ShowErrorMessage(Exception As Exception) + Public Sub ShowErrorMessage(Exception As Exception, Origin As String) + Dim oMessage = GetMessage(Exception, Origin) + ShowErrorMessage(Exception, Origin, oMessage) + End Sub + + Public Sub ShowErrorMessage(Exception As Exception, Origin As String, Message As String) _Logger.Error(Exception) - MessageBox.Show(GetMessage(Exception), _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) + MessageBox.Show(Message, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) + End Sub + + Public Sub ShowErrorMessage(Text As String) + _Logger.Info(Text) + MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Error) + End Sub + + Public Sub ShowWarningMessage(Text As String) + _Logger.Info(Text) + MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning) End Sub Public Sub ShowInfoMessage(Text As String) @@ -27,10 +39,7 @@ Namespace Base MessageBox.Show(Text, _Form.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub - Private Function GetMessage(Exception As Exception) As String - Dim oTargetSite = Exception.TargetSite - Dim oMethodName = GetMethodName(Exception) - Dim oFormName = GetFormName(Exception) + Private Function GetMessage(Exception As Exception, Origin As String) As String Dim oMessage As String = String.Empty If TypeOf Exception Is SqlClient.SqlException Then @@ -38,66 +47,25 @@ Namespace Base Select Case oNumber Case 2627 oMessage = "Es wurde ein Doppelter Wert in eine Spalte eingetragen, die einzigartig sein muss." + Case Else + oMessage = Exception.Message End Select ElseIf TypeOf Exception Is NoNullAllowedException Then oMessage = "Einige benötigte Felder wurde nicht ausgefüllt." Else - oMessage = $"Es ist ein unerwarteter Fehler in {oFormName}/{oMethodName} aufgetreten. Mehr Informationen finden Sie im Log." + oMessage = $"An unhandled exception occurred in {Origin}: " & vbNewLine & + Exception.Message & vbNewLine & vbNewLine & + "More information can be found in the Application Log." End If If _LogConfig.Debug Then - oMessage &= vbNewLine & vbNewLine & "== Debug Informationen ==" - oMessage &= vbNewLine & vbNewLine & "Die ursprüngliche Fehlermeldung lautet:" - oMessage &= vbNewLine & Exception.Message + oMessage &= vbNewLine & vbNewLine & "=== Debug Information ===" oMessage &= vbNewLine & vbNewLine & "Stacktrace:" oMessage &= vbNewLine & Exception.StackTrace End If Return oMessage End Function - - 'Private Function GetMessage(Exception As Exception) As String - ' Dim oTargetSite = Exception.TargetSite - ' Dim oMethodName = GetMethodName(Exception) - ' Dim oFormName = GetFormName(Exception) - ' Dim oMessage As String = String.Empty - - ' oMessage &= $"Form: {oFormName}{vbNewLine}" - ' oMessage &= $"Method: {oMethodName}{vbNewLine}" - - ' If Not String.IsNullOrEmpty(Exception.StackTrace) Then - ' oMessage &= $"Message: {Exception.Message}{vbNewLine}{vbNewLine}" - ' End If - - ' If Not String.IsNullOrEmpty(Exception.StackTrace) Then - ' oMessage &= $"Stacktrace: {Exception.StackTrace}{vbNewLine}" - ' End If - - ' oMessage &= $"{vbNewLine}" - ' oMessage &= $"Please report this error to error@digitaldata.works" - - ' Return oMessage - 'End Function - - Private Function GetMethodName(Exception As Exception) As String - Dim oMethodName = Exception.TargetSite?.Name - - If oMethodName Is Nothing Then - Return UNKNOWN_METHOD - Else - Return oMethodName - End If - End Function - - Private Function GetFormName(Exception As Exception) As String - Dim oFormName = Exception.TargetSite?.ReflectedType?.Name - - If oFormName Is Nothing Then - Return UNKNOWN_FORM - Else - Return oFormName - End If - End Function End Class End Namespace diff --git a/GUIs.Common/Base/BaseForm.vb b/GUIs.Common/Base/BaseForm.vb new file mode 100644 index 00000000..f11cfabb --- /dev/null +++ b/GUIs.Common/Base/BaseForm.vb @@ -0,0 +1,50 @@ + +Imports DevExpress.XtraEditors +Imports DigitalData.Modules.Logging + +Namespace Base + Public Class BaseForm + Inherits XtraForm + + Private ReadOnly _Logger As Logger + Private ReadOnly _ErrorHandler As BaseErrorHandler + + Protected ReadOnly Property Logger As Logger + Get + Return _Logger + End Get + End Property + + Public Sub New() + End Sub + + Public Sub New(LogConfig As LogConfig) + ' Get the full name of the inheriting form + ' so the log messages have the right classname + Dim oClassName = [GetType]().FullName + + ' My.LogConfig is undefined in the designer + _Logger = LogConfig.GetLogger(oClassName) + _ErrorHandler = New BaseErrorHandler(LogConfig, _Logger, Me) + + ' When you add something, be careful if it + ' depends on a global var like My.LogConfig + ' you might need to check for its existence with ? + End Sub + + ''' ============== PUBLIC METHODS ============== + Public Sub ShowInfoMessage(Message As String) + _ErrorHandler.ShowInfoMessage(Message) + End Sub + + Public Sub ShowErrorMessage(Exception As Exception) + Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) + _ErrorHandler.ShowErrorMessage(Exception, oCallingClass) + End Sub + + Public Sub ShowErrorMessage(ErrorMessage As String) + _ErrorHandler.ShowErrorMessage(ErrorMessage) + End Sub + End Class +End Namespace + diff --git a/GUIs.Common/Base/BaseRibbonForm.vb b/GUIs.Common/Base/BaseRibbonForm.vb index 31498888..67b023c7 100644 --- a/GUIs.Common/Base/BaseRibbonForm.vb +++ b/GUIs.Common/Base/BaseRibbonForm.vb @@ -5,14 +5,16 @@ Imports DigitalData.Modules.Logging Namespace Base ''' ''' This BaseClass is used to provide common functionality like the Logger or ErrorHandler to all Forms - ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form, eg.: + ''' + ''' + ''' To use it, create a form and change the `Inherits` statement in FormName.Designer.vb to this form. ''' ''' Partial Class frmExample ''' Inherits BaseRibbonForm ''' ''' ... ''' End Class - ''' + ''' Public Class BaseRibbonForm Inherits RibbonForm @@ -43,13 +45,18 @@ Namespace Base End Sub ''' ============== PUBLIC METHODS ============== + Public Sub ShowInfoMessage(Message As String) + _ErrorHandler.ShowInfoMessage(Message) + End Sub Public Sub ShowErrorMessage(Exception As Exception) - _ErrorHandler.ShowErrorMessage(Exception) + Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) + _ErrorHandler.ShowErrorMessage(Exception, oCallingClass) End Sub Public Sub ShowErrorMessage(ErrorMessage As String) - _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage)) + Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2) + _ErrorHandler.ShowErrorMessage(New ApplicationException(ErrorMessage), oCallingClass) End Sub End Class End Namespace diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 230330ad..c0b4b222 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -89,6 +89,9 @@ + + Form + Form @@ -114,6 +117,7 @@ Form + diff --git a/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb b/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb index 726b4406..4e5c2d2c 100644 --- a/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb +++ b/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb @@ -68,13 +68,15 @@ Public Class DocumentPropertyMenu Public Function GetLegacyMenuItems() As List(Of DXMenuItem) Dim oOpenFile = New DXMenuItem(OPEN_FILE, AddressOf OpenFile_Click) Dim oOpenFolder = New DXMenuItem(OPEN_DIRECTORY, AddressOf OpenFolder_Click) - Dim oCopyPath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click) + Dim oCopyFilePath = New DXMenuItem(COPY_FILE_PATH, AddressOf CopyFilePath_Click) + Dim oCopyFolderPath = New DXMenuItem(COPY_FOLDER_PATH, AddressOf CopyFolderPath_Click) Dim oProperties = New DXMenuItem(OPEN_PROPERTIES, AddressOf Properties_Click_Legacy) Return New List(Of DXMenuItem) From { oOpenFile, oOpenFolder, - oCopyPath, + oCopyFilePath, + oCopyFolderPath, oProperties } End Function diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb index 57cd5001..dc812daa 100644 --- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb +++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb @@ -560,24 +560,28 @@ Public Class frmDocumentResultList End Sub Private Sub GridView1_CustomDrawCell(sender As Object, e As RowCellCustomDrawEventArgs) Handles GridView1.CustomDrawCell - If e.RowHandle < 0 Then - Exit Sub - End If + Try + If e.RowHandle < 0 Then + Exit Sub + End If - Dim oView As GridView = TryCast(sender, GridView) - Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo) - Dim oRow As DataRow = oView.GetDataRow(e.RowHandle) - Dim oValue = oRow.Item(COLUMN_FILENAME) + e.DefaultDraw() - e.DefaultDraw() + Dim oView As GridView = TryCast(sender, GridView) + Dim oCellInfo As GridCellInfo = TryCast(e.Cell, GridCellInfo) + Dim oRow As DataRow = oView.GetDataRow(e.RowHandle) + Dim oValue = oRow.Item(COLUMN_FILENAME) - If e.Column.FieldName = COLUMN_ICON Then - Dim oIcon = _Helpers.GetIconByExtension(oValue) - Dim offsetX = 0 - Dim offsetY = 0 + If e.Column.FieldName = COLUMN_ICON Then + Dim oIcon = _Helpers.GetIconByExtension(oValue) + Dim offsetX = 0 + Dim offsetY = 0 - e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18) - End If + e.Cache.DrawImage(oIcon, e.Bounds.X + offsetX, e.Bounds.Y + offsetY, 18, 18) + End If + Catch ex As Exception + _Logger.Error(ex) + End Try End Sub Private Function TryGetItem(DataRow As DataRow, ColumnName As String, Optional DefaultValue As String = "") As String diff --git a/GUIs.Common/GridBuilder.vb b/GUIs.Common/GridBuilder.vb new file mode 100644 index 00000000..e3702752 --- /dev/null +++ b/GUIs.Common/GridBuilder.vb @@ -0,0 +1,56 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid + +Public Class GridBuilder + Public ReadOnly Property Views As New List(Of GridView) + + Public Sub New(GridView As GridView) + Views.Add(GridView) + End Sub + + Public Sub New(GridViews As List(Of GridView)) + Views.AddRange(GridViews) + End Sub + + ''' + ''' Applies common properties to all GridViews + ''' + Public Function WithDefaults() As GridBuilder + For Each oView In Views + WithDefaults(oView) + Next + + Return Me + End Function + + ''' + ''' Applies common properties to the supplied GridView + ''' + Public Function WithDefaults(GridView As GridView) + GridView.OptionsView.EnableAppearanceEvenRow = True + GridView.OptionsView.ShowAutoFilterRow = True + + Return Me + End Function + + ''' + ''' Applies read-only properties to all GridViews + ''' + Public Function WithReadOnlyOptions() As GridBuilder + For Each oView In Views + WithReadOnlyOptions(oView) + Next + + Return Me + End Function + + ''' + ''' Applies read-only properties to the supplied GridView + ''' + Public Function WithReadOnlyOptions(GridView As GridView) As GridBuilder + GridView.OptionsBehavior.Editable = False + GridView.OptionsBehavior.ReadOnly = True + + Return Me + End Function +End Class diff --git a/GUIs.Common/My Project/AssemblyInfo.vb b/GUIs.Common/My Project/AssemblyInfo.vb index 978a1871..cf9738ea 100644 --- a/GUIs.Common/My Project/AssemblyInfo.vb +++ b/GUIs.Common/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/GUIs.Monitor/Config.vb b/GUIs.Monitor/Config.vb new file mode 100644 index 00000000..aa127cc9 --- /dev/null +++ b/GUIs.Monitor/Config.vb @@ -0,0 +1,6 @@ +Imports DigitalData.Modules.Config.ConfigAttributes + +Public Class Config + + Public Property ConnectionString As String = String.Empty +End Class diff --git a/GUIs.Monitor/Monitor.vbproj b/GUIs.Monitor/Monitor.vbproj new file mode 100644 index 00000000..ad5ffddf --- /dev/null +++ b/GUIs.Monitor/Monitor.vbproj @@ -0,0 +1,168 @@ + + + Debug + x86 + 8.0.30703 + 2.0 + {E24E8D40-0361-4C07-8FAE-3621DE316E70} + WinExe + DigitalData.GUIs.Monitor + DigitalData.GUIs.Monitor + v4.6.1 + Monitor.Program + 512 + On + Binary + Off + On + + + + AnyCPU + true + full + false + bin\Debug\ + true + true + prompt + + + AnyCPU + pdbonly + true + bin\Release\ + false + true + prompt + + + WindowsForms + + + DigitalData.GUIs.Monitor.My.MyApplication + + + + + + + + + + + + + ..\packages\NLog.4.7.5\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmStart.vb + + + Form + + + True + Application.myapp + True + + + + frmStart.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + True + Resources.resx + True + + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + True + Settings.settings + True + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + {d20a6bf2-c7c6-4a7a-b34d-fa27d775a049} + Common + + + {44982f9b-6116-44e2-85d0-f39650b1ef99} + Config + + + {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} + Database + + + {903b2d7d-3b80-4be9-8713-7447b704e1b0} + Logging + + + {65efb268-c0e0-40c1-8981-9f70dee5c74a} + SQLConfig + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/Application.Designer.vb b/GUIs.Monitor/My Project/Application.Designer.vb new file mode 100644 index 00000000..f5e0494e --- /dev/null +++ b/GUIs.Monitor/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.DigitalData.GUIs.Monitor.frmStart + End Sub + End Class +End Namespace diff --git a/GUIs.Monitor/My Project/Application.myapp b/GUIs.Monitor/My Project/Application.myapp new file mode 100644 index 00000000..a1da81d5 --- /dev/null +++ b/GUIs.Monitor/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmStart + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/AssemblyInfo.vb b/GUIs.Monitor/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..330d72a8 --- /dev/null +++ b/GUIs.Monitor/My Project/AssemblyInfo.vb @@ -0,0 +1,36 @@ +Imports System.Reflection +Imports System.Runtime.CompilerServices +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + + + + + + + + + +' Setting ComVisible to false makes the types in this assembly not visible +' to COM components. If you need to access a type in this assembly from +' COM, set the ComVisible attribute to true on that type. + + +' The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' [assembly: AssemblyVersion("1.0.*")] + + diff --git a/GUIs.Monitor/My Project/Resources.Designer.vb b/GUIs.Monitor/My Project/Resources.Designer.vb new file mode 100644 index 00000000..399dcc71 --- /dev/null +++ b/GUIs.Monitor/My Project/Resources.Designer.vb @@ -0,0 +1,83 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.GUIs.Monitor.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property charttype_line() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("charttype_line", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property gettingstarted() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("gettingstarted", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + End Module +End Namespace diff --git a/GUIs.Monitor/My Project/Resources.resx b/GUIs.Monitor/My Project/Resources.resx new file mode 100644 index 00000000..5b4149d6 --- /dev/null +++ b/GUIs.Monitor/My Project/Resources.resx @@ -0,0 +1,127 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/GUIs.Monitor/My Project/Settings.Designer.vb b/GUIs.Monitor/My Project/Settings.Designer.vb new file mode 100644 index 00000000..008b7edb --- /dev/null +++ b/GUIs.Monitor/My Project/Settings.Designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + + _ +Partial Friend NotInheritable Class Settings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As Settings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property +End Class + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.GUIs.Monitor.Settings + Get + Return Global.DigitalData.GUIs.Monitor.Settings.Default + End Get + End Property + End Module +End Namespace diff --git a/GUIs.Monitor/My Project/Settings.settings b/GUIs.Monitor/My Project/Settings.settings new file mode 100644 index 00000000..39645652 --- /dev/null +++ b/GUIs.Monitor/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/GUIs.Monitor/My Project/licenses.licx b/GUIs.Monitor/My Project/licenses.licx new file mode 100644 index 00000000..fe84aa59 --- /dev/null +++ b/GUIs.Monitor/My Project/licenses.licx @@ -0,0 +1,6 @@ +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Monitor/Resources/charttype_line.svg b/GUIs.Monitor/Resources/charttype_line.svg new file mode 100644 index 00000000..8e1af17b --- /dev/null +++ b/GUIs.Monitor/Resources/charttype_line.svg @@ -0,0 +1,20 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/gettingstarted.svg b/GUIs.Monitor/Resources/gettingstarted.svg new file mode 100644 index 00000000..b9b88d44 --- /dev/null +++ b/GUIs.Monitor/Resources/gettingstarted.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/app.config b/GUIs.Monitor/app.config new file mode 100644 index 00000000..48d7e205 --- /dev/null +++ b/GUIs.Monitor/app.config @@ -0,0 +1,41 @@ + + + + +
+ + + + + + System + + + True + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/GUIs.Monitor/frmStart.Designer.vb b/GUIs.Monitor/frmStart.Designer.vb new file mode 100644 index 00000000..90a87087 --- /dev/null +++ b/GUIs.Monitor/frmStart.Designer.vb @@ -0,0 +1,327 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmStart + 'Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits BaseRibbonForm + + '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() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) + Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer() + Me.TreeList1 = New DevExpress.XtraTreeList.TreeList() + Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel() + Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel1.SuspendLayout() + Me.DockPanel1_Container.SuspendLayout() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel2.SuspendLayout() + CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.DockPanel3.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1085, 159) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Suchen" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1085, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DockManager1 + ' + Me.DockManager1.Form = Me + Me.DockManager1.HiddenPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1}) + Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel2, Me.DockPanel3}) + Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) + ' + 'DockPanel1 + ' + Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) + Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanel1.ID = New System.Guid("52706dba-4c71-4145-b8a3-5f5423d32fce") + Me.DockPanel1.Location = New System.Drawing.Point(0, 159) + Me.DockPanel1.Name = "DockPanel1" + Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) + Me.DockPanel1.SavedDock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanel1.SavedIndex = 0 + Me.DockPanel1.Size = New System.Drawing.Size(200, 495) + Me.DockPanel1.Text = "Suche" + Me.DockPanel1.Visibility = DevExpress.XtraBars.Docking.DockVisibility.Hidden + ' + 'DockPanel1_Container + ' + Me.DockPanel1_Container.Controls.Add(Me.LayoutControl1) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) + Me.DockPanel1_Container.Name = "DockPanel1_Container" + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446) + Me.DockPanel1_Container.TabIndex = 0 + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(193, 446) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(15, 123) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(163, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.Location = New System.Drawing.Point(15, 31) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(163, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 + Me.ComboBoxEdit1.TabIndex = 5 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(193, 446) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 92) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(173, 334) + Me.LayoutControlItem1.Text = "Suchwert" + Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(63, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(173, 46) + Me.LayoutControlItem2.Text = "Attribut" + Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(63, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit2 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 46) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(173, 46) + Me.LayoutControlItem3.Text = "Auswertung" + Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(63, 13) + ' + 'TextEdit2 + ' + Me.TextEdit2.Location = New System.Drawing.Point(15, 77) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit2.Size = New System.Drawing.Size(163, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 6 + ' + 'DockPanel2 + ' + Me.DockPanel2.Controls.Add(Me.DockPanel2_Container) + Me.DockPanel2.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right + Me.DockPanel2.ID = New System.Guid("157c74a2-d255-4e6b-b789-bde43010b2af") + Me.DockPanel2.Location = New System.Drawing.Point(885, 159) + Me.DockPanel2.Name = "DockPanel2" + Me.DockPanel2.OriginalSize = New System.Drawing.Size(200, 200) + Me.DockPanel2.Size = New System.Drawing.Size(200, 495) + Me.DockPanel2.Text = "Details" + ' + 'DockPanel2_Container + ' + Me.DockPanel2_Container.Location = New System.Drawing.Point(4, 46) + Me.DockPanel2_Container.Name = "DockPanel2_Container" + Me.DockPanel2_Container.Size = New System.Drawing.Size(193, 446) + Me.DockPanel2_Container.TabIndex = 0 + ' + 'TreeList1 + ' + Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeList1.Location = New System.Drawing.Point(200, 159) + Me.TreeList1.MenuManager = Me.RibbonControl1 + Me.TreeList1.Name = "TreeList1" + Me.TreeList1.Size = New System.Drawing.Size(685, 495) + Me.TreeList1.TabIndex = 4 + ' + 'DockPanel3 + ' + Me.DockPanel3.Controls.Add(Me.DockPanel3_Container) + Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left + Me.DockPanel3.ID = New System.Guid("d2ef8b04-1b9f-49ee-8a72-31210e059dbe") + Me.DockPanel3.Location = New System.Drawing.Point(0, 159) + Me.DockPanel3.Name = "DockPanel3" + Me.DockPanel3.OriginalSize = New System.Drawing.Size(200, 200) + Me.DockPanel3.Size = New System.Drawing.Size(200, 495) + Me.DockPanel3.Text = "DockPanel3" + ' + 'DockPanel3_Container + ' + Me.DockPanel3_Container.Location = New System.Drawing.Point(3, 46) + Me.DockPanel3_Container.Name = "DockPanel3_Container" + Me.DockPanel3_Container.Size = New System.Drawing.Size(193, 446) + Me.DockPanel3_Container.TabIndex = 0 + ' + 'frmStart + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1085, 676) + Me.Controls.Add(Me.TreeList1) + Me.Controls.Add(Me.DockPanel3) + Me.Controls.Add(Me.DockPanel2) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line + Me.Name = "frmStart" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Monitor" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel1.ResumeLayout(False) + Me.DockPanel1_Container.ResumeLayout(False) + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel2.ResumeLayout(False) + CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit() + Me.DockPanel3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager + Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents DockPanel2 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer + Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList + Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel + Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer +End Class diff --git a/Controls.LookupGrid/LookupControl2.resx b/GUIs.Monitor/frmStart.resx similarity index 96% rename from Controls.LookupGrid/LookupControl2.resx rename to GUIs.Monitor/frmStart.resx index e5858cc2..d361575c 100644 --- a/Controls.LookupGrid/LookupControl2.resx +++ b/GUIs.Monitor/frmStart.resx @@ -117,7 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False + + 17, 17 \ No newline at end of file diff --git a/GUIs.Monitor/frmStart.vb b/GUIs.Monitor/frmStart.vb new file mode 100644 index 00000000..042e7fb5 --- /dev/null +++ b/GUIs.Monitor/frmStart.vb @@ -0,0 +1,33 @@ +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging + +Public Class frmStart + Public Property LogConfig As LogConfig + Public Property ConfigManager As ConfigManager(Of Config) + Public Property Database As MSSQLServer + + Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") + ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath) + + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oSQLConfig As New frmSQLConfig(LogConfig) + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + Else + ShowErrorMessage("No Database configured. Application will close!") + Application.Exit() + + End If + End If + + Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString) + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub +End Class \ No newline at end of file diff --git a/GUIs.Monitor/packages.config b/GUIs.Monitor/packages.config new file mode 100644 index 00000000..abeaf568 --- /dev/null +++ b/GUIs.Monitor/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.Test.DocumentViewerTest/Form1.Designer.vb b/GUIs.Test.DocumentViewerTest/Form1.Designer.vb index b1a5abd3..c70fd751 100644 --- a/GUIs.Test.DocumentViewerTest/Form1.Designer.vb +++ b/GUIs.Test.DocumentViewerTest/Form1.Designer.vb @@ -52,7 +52,7 @@ Partial Class Form1 ' 'Button2 ' - Me.Button2.Location = New System.Drawing.Point(12, 38) + Me.Button2.Location = New System.Drawing.Point(12, 67) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(637, 23) Me.Button2.TabIndex = 2 @@ -61,7 +61,7 @@ Partial Class Form1 ' 'Button3 ' - Me.Button3.Location = New System.Drawing.Point(12, 67) + Me.Button3.Location = New System.Drawing.Point(12, 96) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(637, 23) Me.Button3.TabIndex = 2 @@ -70,7 +70,7 @@ Partial Class Form1 ' 'Button4 ' - Me.Button4.Location = New System.Drawing.Point(12, 96) + Me.Button4.Location = New System.Drawing.Point(12, 125) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(637, 23) Me.Button4.TabIndex = 3 diff --git a/GUIs.Test.TestGUI/App.config b/GUIs.Test.TestGUI/App.config index 901f8a79..d0f7e844 100644 --- a/GUIs.Test.TestGUI/App.config +++ b/GUIs.Test.TestGUI/App.config @@ -1,35 +1,35 @@ - + -
+
- + - + - + - + - - + + - - + + diff --git a/GUIs.Test.TestGUI/TestGUI.vbproj b/GUIs.Test.TestGUI/TestGUI.vbproj index ca2162e8..b4ccc364 100644 --- a/GUIs.Test.TestGUI/TestGUI.vbproj +++ b/GUIs.Test.TestGUI/TestGUI.vbproj @@ -62,8 +62,8 @@ ..\packages\NLog.4.7.5\lib\net45\NLog.dll - - ..\packages\Quartz.3.2.3\lib\net461\Quartz.dll + + ..\packages\Quartz.3.3.2\lib\net472\Quartz.dll @@ -113,12 +113,24 @@ + + frmChecksum.vb + + + Form + frmConfigTest.vb Form + + frmFilesystem.vb + + + Form + frmFolderWatcher.vb @@ -167,9 +179,15 @@ + + frmChecksum.vb + frmConfigTest.vb + + frmFilesystem.vb + frmFolderWatcher.vb @@ -239,6 +257,10 @@ {a8c3f298-76ab-4359-ab3c-986e313b4336} EDMIService + + {5efaef9b-90b9-4f05-9f70-f79ad77fff86} + Windows + diff --git a/GUIs.Test.TestGUI/frmChecksum.Designer.vb b/GUIs.Test.TestGUI/frmChecksum.Designer.vb new file mode 100644 index 00000000..4b1aa902 --- /dev/null +++ b/GUIs.Test.TestGUI/frmChecksum.Designer.vb @@ -0,0 +1,79 @@ + _ +Partial Class frmChecksum + 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.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(12, 12) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(553, 20) + Me.TextBox1.TabIndex = 0 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(571, 10) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "Datei 1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(652, 10) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(145, 23) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "Prüfsumme berechnen" + Me.Button3.UseVisualStyleBackColor = True + ' + 'frmChecksum + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.TextBox1) + Me.Name = "frmChecksum" + Me.Text = "frmChecksum" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Button1 As Button + Friend WithEvents Button3 As Button +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx b/GUIs.Test.TestGUI/frmChecksum.resx similarity index 89% rename from GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx rename to GUIs.Test.TestGUI/frmChecksum.resx index a7629c4a..33c7f672 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.resx +++ b/GUIs.Test.TestGUI/frmChecksum.resx @@ -117,16 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 17, 17 - - 178, 17 - - - 398, 17 - - - 612, 17 - \ No newline at end of file diff --git a/GUIs.Test.TestGUI/frmChecksum.vb b/GUIs.Test.TestGUI/frmChecksum.vb new file mode 100644 index 00000000..48c77d71 --- /dev/null +++ b/GUIs.Test.TestGUI/frmChecksum.vb @@ -0,0 +1,22 @@ +Imports DigitalData.Modules.Logging + +Public Class frmChecksum + Private LogConfig As LogConfig + Private FileEx As DigitalData.Modules.Filesystem.File + + Private Sub frmChecksum_Load(sender As Object, e As EventArgs) Handles MyBase.Load + LogConfig = New LogConfig(LogConfig.PathType.Temp) + FileEx = New DigitalData.Modules.Filesystem.File(LogConfig) + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If OpenFileDialog1.ShowDialog() = DialogResult.OK Then + TextBox1.Text = OpenFileDialog1.FileName + End If + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Dim oChecksum = FileEx.GetChecksum(TextBox1.Text) + MsgBox(oChecksum) + End Sub +End Class \ No newline at end of file diff --git a/Controls.LookupGrid/LookupControl.Designer.vb b/GUIs.Test.TestGUI/frmFilesystem.Designer.vb similarity index 65% rename from Controls.LookupGrid/LookupControl.Designer.vb rename to GUIs.Test.TestGUI/frmFilesystem.Designer.vb index ffdedd38..defc9806 100644 --- a/Controls.LookupGrid/LookupControl.Designer.vb +++ b/GUIs.Test.TestGUI/frmFilesystem.Designer.vb @@ -1,9 +1,9 @@ - -Partial Class LookupControl - Inherits System.Windows.Forms.UserControl + _ +Partial Class frmFilesystem + Inherits System.Windows.Forms.Form - 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - + '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 @@ -20,18 +20,17 @@ Partial Class LookupControl '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.SuspendLayout() ' - 'LookupControl + 'frmFilesystem ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.BackColor = System.Drawing.Color.Transparent - Me.Name = "LookupControl" - Me.Size = New System.Drawing.Size(270, 35) + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Name = "frmFilesystem" + Me.Text = "frmFilesystem" Me.ResumeLayout(False) End Sub diff --git a/Controls.LookupGrid/LookupControl.resx b/GUIs.Test.TestGUI/frmFilesystem.resx similarity index 100% rename from Controls.LookupGrid/LookupControl.resx rename to GUIs.Test.TestGUI/frmFilesystem.resx diff --git a/GUIs.Test.TestGUI/frmFilesystem.vb b/GUIs.Test.TestGUI/frmFilesystem.vb new file mode 100644 index 00000000..88808638 --- /dev/null +++ b/GUIs.Test.TestGUI/frmFilesystem.vb @@ -0,0 +1,34 @@ +Imports DigitalData.Modules.Logging + +Public Class frmFilesystem + Private LogConfig As LogConfig + Private Filesystem As DigitalData.Modules.Filesystem.File + + Private ShortName As String = "E:\some_test_file.txt" + Private LongName As String = "E:\some_test_file_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more.txt" + + Private Sub frmFilesystem_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + LogConfig = New LogConfig(LogConfig.PathType.Temp) + Filesystem = New DigitalData.Modules.Filesystem.File(LogConfig) + + Using oWriter = IO.File.CreateText("E:\some_test_file.txt") + oWriter.WriteLine("bla bla bla") + End Using + + IO.File.Copy(ShortName, LongName) + + Dim oVersion1 = Filesystem.GetVersionedFilename(LongName) + IO.File.Copy(ShortName, oVersion1) + + Dim oVersion2 = Filesystem.GetVersionedFilename(LongName) + IO.File.Copy(ShortName, oVersion2) + Catch ex As Exception + + Finally + IO.File.Delete(ShortName) + IO.File.Delete(LongName) + End Try + + End Sub +End Class \ No newline at end of file diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb index 7721fa3d..39a5fdc9 100644 --- a/GUIs.Test.TestGUI/frmLookup.vb +++ b/GUIs.Test.TestGUI/frmLookup.vb @@ -1,10 +1,23 @@ -Imports DigitalData.Controls.LookupGrid +Imports System.Globalization +Imports DevExpress.XtraEditors.Controls +Imports DigitalData.Controls.LookupGrid Public Class frmLookup Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"} + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 'Localizer.Active = New LookupGridLocalizer() + End Sub + Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim oCulture = CultureInfo.CurrentCulture + Dim oUICulture = CultureInfo.CurrentUICulture + Dim oTable = GetDatatable(10) Dim LookupControl31 As New LookupControl3 With { @@ -45,7 +58,8 @@ Public Class frmLookup Dim oDatatable As New DataTable Dim oColumns As New List(Of DataColumn) From { New DataColumn("Col1", GetType(String)), - New DataColumn("Col2", GetType(String)) + New DataColumn("Col2", GetType(String)), + New DataColumn("Col3", GetType(String)) } oDatatable.Columns.AddRange(oColumns.ToArray) @@ -54,6 +68,7 @@ Public Class frmLookup Dim oRow = oDatatable.NewRow() oRow.Item("Col1") = Item oRow.Item("Col2") = Item & "_" & "SomeLong Random(String) !!!111einself" + oRow.Item("Col3") = Item & "_" & "SomeLong OTHER Random(String) !!!111einself" oDatatable.Rows.Add(oRow) Next diff --git a/GUIs.Test.TestGUI/frmStart.Designer.vb b/GUIs.Test.TestGUI/frmStart.Designer.vb index e029f4b5..4bb83fcf 100644 --- a/GUIs.Test.TestGUI/frmStart.Designer.vb +++ b/GUIs.Test.TestGUI/frmStart.Designer.vb @@ -24,6 +24,9 @@ Partial Class frmStart Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Button1 @@ -44,11 +47,41 @@ Partial Class frmStart Me.Button2.Text = "LookupControl" Me.Button2.UseVisualStyleBackColor = True ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(12, 134) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(236, 55) + Me.Button3.TabIndex = 0 + Me.Button3.Text = "Filesystem" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(12, 195) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(236, 59) + Me.Button4.TabIndex = 1 + Me.Button4.Text = "Skalierungsfaktor" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(12, 260) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(236, 60) + Me.Button5.TabIndex = 2 + Me.Button5.Text = "Button5" + Me.Button5.UseVisualStyleBackColor = True + ' 'frmStart ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Name = "frmStart" @@ -59,4 +92,7 @@ Partial Class frmStart Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button4 As Button + Friend WithEvents Button5 As Button End Class diff --git a/GUIs.Test.TestGUI/frmStart.vb b/GUIs.Test.TestGUI/frmStart.vb index 67685e1b..ce2fcd0f 100644 --- a/GUIs.Test.TestGUI/frmStart.vb +++ b/GUIs.Test.TestGUI/frmStart.vb @@ -1,4 +1,6 @@ -Public Class frmStart +Imports Microsoft.Win32 + +Public Class frmStart Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click frmRelations.Show() End Sub @@ -6,4 +8,18 @@ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click frmLookup.Show() End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + frmFilesystem.Show() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + Dim oScreen As New DigitalData.Modules.Windows.Screen() + + MsgBox("Scaling: " & oScreen.GetScreenScaling(Me)) + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + frmChecksum.Show() + End Sub End Class \ No newline at end of file diff --git a/GUIs.Test.TestGUI/packages.config b/GUIs.Test.TestGUI/packages.config index 9a1ba8fc..ec0e49b8 100644 --- a/GUIs.Test.TestGUI/packages.config +++ b/GUIs.Test.TestGUI/packages.config @@ -2,7 +2,7 @@ - + diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb index f1e33f84..00691c15 100644 --- a/GUIs.Test.ZUGFeRDTest/Form1.vb +++ b/GUIs.Test.ZUGFeRDTest/Form1.vb @@ -167,7 +167,7 @@ Public Class Form1 End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click - Dim oExtractor = New PDFAttachments(_logConfig) + Dim oExtractor = New PDFEmbeds(_logConfig) Dim oResult = OpenFileDialog1.ShowDialog() If oResult = DialogResult.OK Then diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb new file mode 100644 index 00000000..d6498a98 --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -0,0 +1,21 @@ +Namespace Administration + Public Class ClassConstants + Public Const MODULE_IDB = "IDB" + Public Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES" + Public Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES" + Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" + + Public Const MODULE_GLOBIX = "GLOBIX" + Public Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES" + + Public Const MODULE_CW = "CW" + Public Const PAGE_CW_PROFILES = "CW_PROFILES" + + Public Const MODULE_META = "META" + Public Const PAGE_META_SOURCE_SQL = "META_SOURCE_SQL" + + Public Const COLUMN_NAME_ACTIVE = "ACTIVE" + + + End Class +End Namespace \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb new file mode 100644 index 00000000..44595a9a --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -0,0 +1,155 @@ +Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants + +Public Class ClassDetailForm + Inherits Base.BaseClass + + Public Event DetailFormClosed As EventHandler(Of Form) + + Public ReadOnly Property DetailDataList As New Dictionary(Of String, DetailData) + Public ReadOnly Property DetailSettingsList As New Dictionary(Of String, DetailSettings) From { + {PAGE_IDB_ATTRIBUTES, ' This Key will be matched with the Entity Id from the Database + New DetailSettings With { + .GridTitle = "IDB Attribute", ' This will be shown above the Data Grid + .NewRecordTitle = "Neues Attribut", ' This will be shown on the "New" Button + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_ATTRIBUTES + }}, + {PAGE_IDB_BUSINESS_ENTITIES, + New DetailSettings With { + .GridTitle = "IDB Entitäten", + .NewRecordTitle = "Neue Entität", + .[Module] = MODULE_IDB, + .Entity = PAGE_IDB_BUSINESS_ENTITIES + }}, + {PAGE_META_SOURCE_SQL, + New DetailSettings With { + .GridTitle = "Source SQL", + .NewRecordTitle = "Neuer Source SQL", + .[Module] = MODULE_META, + .Entity = PAGE_META_SOURCE_SQL + }}, + {PAGE_GLOBIX_PROFILES, + New DetailSettings With { + .GridTitle = "Global Indexer Profile", + .NewRecordTitle = "Neues GLOBIX Profil", + .[Module] = MODULE_GLOBIX, + .Entity = PAGE_GLOBIX_PROFILES + }}, + {PAGE_CW_PROFILES, + New DetailSettings With { + .GridTitle = "Clipboard Watcher Profile", + .NewRecordTitle = "Neues CW Profil", + .[Module] = MODULE_CW, + .Entity = PAGE_CW_PROFILES + }} + } + + Public Sub New(LogConfig As Modules.Logging.LogConfig) + MyBase.New(LogConfig) + End Sub + + Public Function Handle_OpenDetail(PrimaryKey As Integer, Page As String, IsInsert As Boolean) As Boolean + Select Case Page + Case PAGE_IDB_ATTRIBUTES + Load_IDBAttribute(PrimaryKey, IsInsert) + Return True + + Case PAGE_IDB_BUSINESS_ENTITIES + Load_IDBEntity(PrimaryKey, IsInsert) + Return True + + Case PAGE_CW_PROFILES + Load_CWProfile(PrimaryKey, IsInsert) + Return True + + Case PAGE_GLOBIX_PROFILES + GLOBIX_JUMP_DOCTYPE_ID = PrimaryKey + Load_GLOBIXProfile(PrimaryKey, IsInsert) + Return True + + Case PAGE_META_SOURCE_SQL + Load_SourceSQL(PrimaryKey, IsInsert) + Return True + + Case Else + Return False + End Select + End Function + + Private Sub Load_SourceSQL(PrimaryKey As Integer, IsInsert As Boolean) + Try + Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) With {.IsInsert = IsInsert} + oForm.ShowDialog() + + RaiseEvent DetailFormClosed(Me, oForm) + Catch ex As Exception + Logger.Error(ex) + Throw ex + End Try + End Sub + + Private Sub Load_IDBAttribute(PrimaryKey As Integer, IsInsert As Boolean) + Try + Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) With {.IsInsert = IsInsert} + oForm.ShowDialog() + + RaiseEvent DetailFormClosed(Me, oForm) + Catch ex As Exception + Logger.Error(ex) + Throw ex + End Try + End Sub + + Private Sub Load_IDBEntity(PrimaryKey As Integer, IsInsert As Boolean) + Try + Dim oForm As New frmAdmin_IDBEntity(PrimaryKey) With {.IsInsert = IsInsert} + oForm.ShowDialog() + + RaiseEvent DetailFormClosed(Me, oForm) + Catch ex As Exception + Logger.Error(ex) + Throw ex + End Try + End Sub + + Private Sub Load_CWProfile(PrimaryKey As Integer, IsInsert As Boolean) + Try + Dim oForm As New frmAdmin_ClipboardWatcher(PrimaryKey) With {.IsInsert = IsInsert} + oForm.ShowDialog() + + RaiseEvent DetailFormClosed(Me, oForm) + Catch ex As Exception + Logger.Error(ex) + Throw ex + End Try + End Sub + Private Sub Load_GLOBIXProfile(PrimaryKey As Integer, IsInsert As Boolean) + Try + Dim oForm As New frmGlobixAdministration(PrimaryKey) With {.IsInsert = IsInsert} + oForm.ShowDialog() + + RaiseEvent DetailFormClosed(Me, oForm) + Catch ex As Exception + Logger.Error(ex) + Throw ex + End Try + End Sub + + Public Class DetailSettings + Public Property GridTitle As String + Public Property [Module] As String + Public Property Entity As String + Public Property NewRecordTitle As String + End Class + + Public Class DetailData + Public Property Guid As Integer + Public Property ParentId As Integer + Public Property Entity As String + Public Property Scope As String + Public Property PrimaryKey As String + Public Property ForeignKey As String + Public Property SQLCommand As String + Public Property SQLResult As DataTable + End Class +End Class diff --git a/GUIs.ZooFlow/Administration/ClassDetailPage.vb b/GUIs.ZooFlow/Administration/ClassDetailPage.vb new file mode 100644 index 00000000..1f5bb314 --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassDetailPage.vb @@ -0,0 +1,263 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraLayout +Imports DevExpress.XtraTab +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.Modules.Logging + +''' +''' +''' +Public Class ClassDetailPages + Private ReadOnly LogConfig As LogConfig + Private ReadOnly Logger As Logger + Private ReadOnly HostForm As IAdminForm + + Public Items As New Dictionary(Of String, DetailPage) + + Public Event AnyControl_Focus As EventHandler(Of DetailPageEventArgs) + Public Event AnyControl_Changed As EventHandler(Of DetailPageEventArgs) + Public Event CurrentPage_Changed As EventHandler(Of DetailPageEventArgs) + + Private CurrentPage As DetailPage + + Public Property Current As DetailPage + Get + Return CurrentPage + End Get + Set(value As DetailPage) + CurrentPage = value + + RaiseEvent CurrentPage_Changed(Me, New DetailPageEventArgs With {.Page = CurrentPage}) + End Set + End Property + + Public Class DetailPageEventArgs + Public Property Page As DetailPage + End Class + + Public Class DetailPage + Public IsPrimary As Boolean = False + Public IsInsert As Boolean = False + Public TabPage As XtraTabPage + Public Name As String + Public BindingSource As BindingSource + Public DataTable As DataTable + Public AddedWhoEdit As TextEdit + Public ChangedWhoEdit As TextEdit + End Class + + ''' + ''' Detail page which represents the primary page of a form + ''' + Public Class PrimaryPage + Inherits DetailPage + + Public Sub New(Insert As Boolean) + IsInsert = Insert + IsPrimary = True + End Sub + End Class + + Public Class ComboBoxItem + Public Property Text + Public Property Value + + Public Overrides Function ToString() As String + Return Text + End Function + End Class + + Public Sub New(LogConfig As LogConfig, Form As IAdminForm, LayoutControls As List(Of LayoutControl)) + Me.LogConfig = LogConfig + Logger = LogConfig.GetLogger() + HostForm = Form + + For Each oLayoutControl In LayoutControls + AddHandler oLayoutControl.Click, AddressOf Handle_Focus + AddHandler oLayoutControl.GotFocus, AddressOf Handle_Focus + + For Each oContainer As LayoutControlItem In oLayoutControl.Root.Items + Dim oControl As BaseEdit = oContainer.Control + AddHandler oControl.GotFocus, AddressOf Handle_Focus + AddHandler oControl.EditValueChanged, AddressOf Handle_EditValueChanged + AddHandler oControl.Validating, AddressOf Handle_Validating + Next + Next + End Sub + + ''' + ''' Add a new DetailPage or a new PrimaryPage + ''' + Public Sub Add(Page As DetailPage) + Items.Add(Page.TabPage.Name, Page) + + AddHandler Page.BindingSource.AddingNew, Sub(sender As Object, e As EventArgs) + Page.AddedWhoEdit.EditValue = Environment.UserName + End Sub + End Sub + + ''' + ''' Add a list of new DetailPages or new PrimaryPages + ''' + Public Sub AddRange(ParamArray Pages As DetailPage()) + For Each oPage In Pages + Add(oPage) + Next + End Sub + + ''' + ''' Get the DetailPage which uses the given `TabPage` + ''' + Public Function GetDetailPage(TabPage As XtraTabPage) As DetailPage + Try + Dim oItem = Items. + Where(Function(Item) TabPage.Equals(Item.Value.TabPage)). + FirstOrDefault() + + Return oItem.Value + Catch ex As Exception + Return Nothing + End Try + End Function + + ''' + ''' Saves the pending changes to the binding source + ''' + ''' True, if changes were made, otherwise False + Public Function PrepareSave() As Boolean + Dim oPage = CurrentPage + + If oPage Is Nothing Then + Return False + End If + + Try + oPage.BindingSource.EndEdit() + + If oPage.DataTable.GetChanges() IsNot Nothing Then + If oPage.IsInsert Then + oPage.AddedWhoEdit.EditValue = My.Application.User.UserName + Else + oPage.ChangedWhoEdit.EditValue = My.Application.User.UserName + End If + + oPage.BindingSource.EndEdit() + Return True + Else + Return False + End If + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub Handle_Validating(sender As Object, e As BaseEditValidatingEventArgs) + Dim oControl As BaseEdit = sender + Dim oColumn As DataColumn = Get_DataColumnFromBaseEdit(oControl) + + If oColumn IsNot Nothing Then + Dim oNullable As Boolean = oColumn.AllowDBNull + + If oNullable = False Then + If TypeOf oControl Is ComboBoxEdit AndAlso DirectCast(oControl, ComboBoxEdit).SelectedIndex = -1 Then + e.ErrorText = "Please select a value from the list." + e.Cancel = True + + ElseIf NotNull(oControl.EditValue.ToString, String.Empty) = String.Empty Then + e.ErrorText = "Please input a value" + e.Cancel = True + + End If + End If + End If + End Sub + + Private Function Get_DataColumnFromBaseEdit(Control As BaseEdit) As DataColumn + Dim oBinding As Binding = Control.DataBindings.Item("EditValue") + + If Control.DataBindings.Count = 0 OrElse oBinding Is Nothing Then + Return Nothing + End If + + If oBinding.DataSource Is Nothing Then + Return Nothing + End If + + If TypeOf oBinding.DataSource IsNot BindingSource Then + Return Nothing + End If + + Try + Dim oSource As BindingSource = oBinding.DataSource + Dim oTableName As String = oSource.DataMember + Dim oDataSet As DataSet = oSource.DataSource + Dim oTable = oDataSet.Tables(oTableName) + Dim oColumnName As String = oBinding.BindingMemberInfo.BindingField + Dim oColumn As DataColumn = oTable.Columns.Item(oColumnName) + + Return oColumn + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function + + Private Sub Handle_Focus(sender As Control, e As EventArgs) + Dim oControl As Control = sender + Dim oLayoutControl As LayoutControl = Nothing + + ' Get the Layout Control containing the Edit Contol + If TypeOf oControl.Parent Is LayoutControl Then + oLayoutControl = oControl.Parent + ElseIf TypeOf oControl Is LayoutControl Then + oLayoutControl = oControl + End If + + If oLayoutControl Is Nothing Then + Exit Sub + End If + + If TypeOf oLayoutControl.Parent Is XtraTabPage Then + Dim oTabPage As XtraTabPage = oLayoutControl.Parent + + If Items.ContainsKey(oTabPage.Name) Then + CurrentPage = Items.Item(oTabPage.Name) + + Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)} + RaiseEvent CurrentPage_Changed(Me, oData) + RaiseEvent AnyControl_Focus(oControl, oData) + Else + CurrentPage = Nothing + + RaiseEvent CurrentPage_Changed(Me, Nothing) + RaiseEvent AnyControl_Focus(oControl, Nothing) + End If + End If + End Sub + + Private Sub Handle_EditValueChanged(sender As BaseEdit, e As EventArgs) + Dim oControl As BaseEdit = sender + + ' Get the Layout Control containing the Edit Contol + If TypeOf oControl.Parent Is LayoutControl Then + Dim oLayoutControl As LayoutControl = oControl.Parent + + ' Get the TabPage containing the Layout Control + If TypeOf oLayoutControl.Parent Is XtraTabPage Then + Dim oTabPage As XtraTabPage = oLayoutControl.Parent + + If Items.ContainsKey(oTabPage.Name) Then + Dim oData As New DetailPageEventArgs With {.Page = Items.Item(oTabPage.Name)} + RaiseEvent AnyControl_Changed(oControl, oData) + Else + RaiseEvent AnyControl_Changed(oControl, Nothing) + End If + End If + End If + End Sub +End Class + + diff --git a/GUIs.ZooFlow/Administration/SourceBundle.vb b/GUIs.ZooFlow/Administration/ClassSourceBundle.vb similarity index 90% rename from GUIs.ZooFlow/Administration/SourceBundle.vb rename to GUIs.ZooFlow/Administration/ClassSourceBundle.vb index 8d15f21a..c8586a43 100644 --- a/GUIs.ZooFlow/Administration/SourceBundle.vb +++ b/GUIs.ZooFlow/Administration/ClassSourceBundle.vb @@ -1,4 +1,4 @@ -Public Class SourceBundle +Public Class ClassSourceBundle Public Overview As SourceSql Public Update As SourceSql Public Insert As SourceSql diff --git a/GUIs.ZooFlow/Administration/ClassValidation.vb b/GUIs.ZooFlow/Administration/ClassValidation.vb new file mode 100644 index 00000000..a7bb706a --- /dev/null +++ b/GUIs.ZooFlow/Administration/ClassValidation.vb @@ -0,0 +1,3 @@ +Public Class ClassValidation + +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Interface.vb b/GUIs.ZooFlow/Administration/IAdminForm.vb similarity index 51% rename from GUIs.ZooFlow/Administration/frmAdmin_Interface.vb rename to GUIs.ZooFlow/Administration/IAdminForm.vb index e37da229..e3eca4d6 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Interface.vb +++ b/GUIs.ZooFlow/Administration/IAdminForm.vb @@ -1,9 +1,7 @@ -Imports DigitalData.Modules.Logging - -Public Interface frmAdmin_Interface +Public Interface IAdminForm Property PrimaryKey As Integer Property HasChanges As Boolean Property IsInsert As Boolean - Function SaveData() As Boolean + Function DeleteData() As Boolean End Interface diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Base.vb b/GUIs.ZooFlow/Administration/frmAdmin_Base.vb deleted file mode 100644 index 0499672f..00000000 --- a/GUIs.ZooFlow/Administration/frmAdmin_Base.vb +++ /dev/null @@ -1,30 +0,0 @@ -Imports DevExpress.XtraBars.Ribbon -Imports DigitalData.Modules.Logging - -Partial Public MustInherit Class BaseForm - Inherits RibbonForm - - Friend Logger As Logger - - Public Sub New() - Logger = My.LogConfig?.GetLogger - End Sub - - Public Sub ShowInfo(Message As String) - MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Information) - End Sub - - Public Sub ShowError(Message As String) - MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation) - End Sub - - Public Sub ShowError(Exception As Exception) - Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True) - Logger.Error(Exception) - ShowError($"Error in {oCallingClass}:{vbNewLine}{Exception.Message}") - End Sub -End Class - -Partial Public Class frmAdmin_Base - Inherits BaseForm -End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb deleted file mode 100644 index e1c28608..00000000 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb +++ /dev/null @@ -1,114 +0,0 @@ - _ -Partial Class frmAdmin_CWDataSearch - Inherits frmAdmin_Base - - '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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'RibbonControl1 - ' - Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2}) - Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 3 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide - Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(800, 66) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - Me.RibbonControl1.Toolbar.ShowCustomizeItem = False - ' - 'BarButtonItem1 - ' - Me.BarButtonItem1.Caption = "Speichern und Schließen" - Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check3 - Me.BarButtonItem1.Name = "BarButtonItem1" - ' - 'BarButtonItem2 - ' - Me.BarButtonItem2.Caption = "Speichern" - Me.BarButtonItem2.Id = 2 - Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save6 - Me.BarButtonItem2.Name = "BarButtonItem2" - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "RibbonPage1" - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22) - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'frmAdmin_CWDataSearch - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.RibbonStatusBar1) - Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmAdmin_CWDataSearch" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "Clipboard Watcher - Datensuche" - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar - Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem -End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.vb b/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.vb deleted file mode 100644 index e6ee211c..00000000 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.vb +++ /dev/null @@ -1,11 +0,0 @@ -Public Class frmAdmin_CWDataSearch - Implements frmAdmin_Interface - - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey - Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert - - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData - Throw New NotImplementedException() - End Function -End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb deleted file mode 100644 index 498ec7b8..00000000 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb +++ /dev/null @@ -1,516 +0,0 @@ - -Partial Class frmAdmin_CWProfile - Inherits frmAdmin_Base - - '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() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() - Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() - Me.labelError = New DevExpress.XtraBars.BarStaticItem() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.DBCW_Stammdaten = New DigitalData.GUIs.ZooFlow.DBCW_Stammdaten() - Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBCW_PROFILESTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter() - Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager() - Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() - Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() - Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() - Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() - Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() - Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() - Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit() - Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() - Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() - Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.LayoutControl1.SuspendLayout() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'RibbonControl1 - ' - Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.labelError}) - Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 5 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide - Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(800, 66) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - Me.RibbonControl1.Toolbar.ShowCustomizeItem = False - ' - 'BarButtonItem1 - ' - Me.BarButtonItem1.Caption = "Speichern und Schließen" - Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check2 - Me.BarButtonItem1.Name = "BarButtonItem1" - ' - 'BarButtonItem2 - ' - Me.BarButtonItem2.Caption = "Speichern" - Me.BarButtonItem2.Id = 2 - Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save2 - Me.BarButtonItem2.Name = "BarButtonItem2" - ' - 'labelStatus - ' - Me.labelStatus.Caption = "BarStaticItem1" - Me.labelStatus.Id = 3 - Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about3 - Me.labelStatus.Name = "labelStatus" - Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph - Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing - ' - 'labelError - ' - Me.labelError.Caption = "BarStaticItem2" - Me.labelError.Id = 4 - Me.labelError.Name = "labelError" - Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "RibbonPage1" - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22) - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'DBCW_Stammdaten - ' - Me.DBCW_Stammdaten.DataSetName = "DBCW_Stammdaten" - Me.DBCW_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBCW_PROFILESBindingSource - ' - Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES" - Me.TBCW_PROFILESBindingSource.DataSource = Me.DBCW_Stammdaten - ' - 'TBCW_PROFILESTableAdapter - ' - Me.TBCW_PROFILESTableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter - Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'LayoutControl1 - ' - Me.LayoutControl1.Controls.Add(Me.TextEdit1) - Me.LayoutControl1.Controls.Add(Me.TextEdit2) - Me.LayoutControl1.Controls.Add(Me.TextEdit3) - Me.LayoutControl1.Controls.Add(Me.txtAddedWho) - Me.LayoutControl1.Controls.Add(Me.txtAddedWhen) - Me.LayoutControl1.Controls.Add(Me.txtChangedWho) - Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) - Me.LayoutControl1.Controls.Add(Me.CheckEdit1) - Me.LayoutControl1.Controls.Add(Me.TextEdit4) - Me.LayoutControl1.Controls.Add(Me.TextEdit5) - Me.LayoutControl1.Controls.Add(Me.SimpleButton1) - Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) - Me.LayoutControl1.Name = "LayoutControl1" - Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 159, 650, 400) - Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(800, 362) - Me.LayoutControl1.TabIndex = 2 - Me.LayoutControl1.Text = "LayoutControl1" - ' - 'TextEdit1 - ' - Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "GUID", True)) - Me.TextEdit1.Location = New System.Drawing.Point(145, 20) - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(245, 20) - Me.TextEdit1.StyleController = Me.LayoutControl1 - Me.TextEdit1.TabIndex = 4 - ' - 'TextEdit2 - ' - Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True)) - Me.TextEdit2.Location = New System.Drawing.Point(145, 60) - Me.TextEdit2.MenuManager = Me.RibbonControl1 - Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(635, 20) - Me.TextEdit2.StyleController = Me.LayoutControl1 - Me.TextEdit2.TabIndex = 5 - ' - 'TextEdit3 - ' - Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) - Me.TextEdit3.Location = New System.Drawing.Point(145, 100) - Me.TextEdit3.MenuManager = Me.RibbonControl1 - Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(635, 20) - Me.TextEdit3.StyleController = Me.LayoutControl1 - Me.TextEdit3.TabIndex = 6 - ' - 'txtAddedWho - ' - Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) - Me.txtAddedWho.Location = New System.Drawing.Point(145, 246) - Me.txtAddedWho.MenuManager = Me.RibbonControl1 - Me.txtAddedWho.Name = "txtAddedWho" - Me.txtAddedWho.Size = New System.Drawing.Size(244, 20) - Me.txtAddedWho.StyleController = Me.LayoutControl1 - Me.txtAddedWho.TabIndex = 7 - ' - 'txtAddedWhen - ' - Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) - Me.txtAddedWhen.Location = New System.Drawing.Point(534, 246) - Me.txtAddedWhen.MenuManager = Me.RibbonControl1 - Me.txtAddedWhen.Name = "txtAddedWhen" - Me.txtAddedWhen.Size = New System.Drawing.Size(246, 20) - Me.txtAddedWhen.StyleController = Me.LayoutControl1 - Me.txtAddedWhen.TabIndex = 8 - ' - 'txtChangedWho - ' - Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) - Me.txtChangedWho.Location = New System.Drawing.Point(145, 286) - Me.txtChangedWho.MenuManager = Me.RibbonControl1 - Me.txtChangedWho.Name = "txtChangedWho" - Me.txtChangedWho.Size = New System.Drawing.Size(244, 20) - Me.txtChangedWho.StyleController = Me.LayoutControl1 - Me.txtChangedWho.TabIndex = 9 - ' - 'txtChangedWhen - ' - Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) - Me.txtChangedWhen.Location = New System.Drawing.Point(534, 286) - Me.txtChangedWhen.MenuManager = Me.RibbonControl1 - Me.txtChangedWhen.Name = "txtChangedWhen" - Me.txtChangedWhen.Size = New System.Drawing.Size(246, 20) - Me.txtChangedWhen.StyleController = Me.LayoutControl1 - Me.txtChangedWhen.TabIndex = 10 - ' - 'CheckEdit1 - ' - Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) - Me.CheckEdit1.Location = New System.Drawing.Point(410, 20) - Me.CheckEdit1.MenuManager = Me.RibbonControl1 - Me.CheckEdit1.Name = "CheckEdit1" - Me.CheckEdit1.Properties.Caption = "Aktiv" - Me.CheckEdit1.Size = New System.Drawing.Size(370, 18) - Me.CheckEdit1.StyleController = Me.LayoutControl1 - Me.CheckEdit1.TabIndex = 11 - ' - 'TextEdit4 - ' - Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) - Me.TextEdit4.Location = New System.Drawing.Point(145, 140) - Me.TextEdit4.MenuManager = Me.RibbonControl1 - Me.TextEdit4.Name = "TextEdit4" - Me.TextEdit4.Size = New System.Drawing.Size(635, 20) - Me.TextEdit4.StyleController = Me.LayoutControl1 - Me.TextEdit4.TabIndex = 12 - ' - 'TextEdit5 - ' - Me.TextEdit5.Location = New System.Drawing.Point(145, 180) - Me.TextEdit5.MenuManager = Me.RibbonControl1 - Me.TextEdit5.Name = "TextEdit5" - Me.TextEdit5.Size = New System.Drawing.Size(635, 20) - Me.TextEdit5.StyleController = Me.LayoutControl1 - Me.TextEdit5.TabIndex = 13 - ' - 'SimpleButton1 - ' - Me.SimpleButton1.Location = New System.Drawing.Point(12, 212) - Me.SimpleButton1.Name = "SimpleButton1" - Me.SimpleButton1.Size = New System.Drawing.Size(776, 22) - Me.SimpleButton1.StyleController = Me.LayoutControl1 - Me.SimpleButton1.TabIndex = 14 - Me.SimpleButton1.Text = "Regular Expression prüfen" - ' - 'Root - ' - Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem7, Me.LayoutControlItem10, Me.LayoutControlItem9, Me.LayoutControlItem11, Me.LayoutControlItem8, Me.LayoutControlItem1}) - Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(800, 362) - Me.Root.TextVisible = False - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.TextEdit2 - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem2.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem2.Text = "Profil" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem3 - ' - Me.LayoutControlItem3.Control = Me.TextEdit3 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80) - Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem3.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem3.Text = "Kommentar" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem4 - ' - Me.LayoutControlItem4.Control = Me.txtAddedWho - Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 226) - Me.LayoutControlItem4.Name = "LayoutControlItem4" - Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem4.Size = New System.Drawing.Size(389, 40) - Me.LayoutControlItem4.Text = "Erstellt Wer" - Me.LayoutControlItem4.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem6 - ' - Me.LayoutControlItem6.Control = Me.txtChangedWho - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 266) - Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem6.Size = New System.Drawing.Size(389, 76) - Me.LayoutControlItem6.Text = "Geändert Wer" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem5 - ' - Me.LayoutControlItem5.Control = Me.txtAddedWhen - Me.LayoutControlItem5.Location = New System.Drawing.Point(389, 226) - Me.LayoutControlItem5.Name = "LayoutControlItem5" - Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem5.Size = New System.Drawing.Size(391, 40) - Me.LayoutControlItem5.Text = "Erstellt Wann" - Me.LayoutControlItem5.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem7 - ' - Me.LayoutControlItem7.Control = Me.txtChangedWhen - Me.LayoutControlItem7.Location = New System.Drawing.Point(389, 266) - Me.LayoutControlItem7.Name = "LayoutControlItem7" - Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem7.Size = New System.Drawing.Size(391, 76) - Me.LayoutControlItem7.Text = "Geändert Wann" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem10 - ' - Me.LayoutControlItem10.Control = Me.TextEdit5 - Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 160) - Me.LayoutControlItem10.Name = "LayoutControlItem10" - Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem10.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem10.Text = "Regular Expression Test" - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem9 - ' - Me.LayoutControlItem9.Control = Me.TextEdit4 - Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 120) - Me.LayoutControlItem9.Name = "LayoutControlItem9" - Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(780, 40) - Me.LayoutControlItem9.Text = "Regular Expression" - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(122, 13) - ' - 'LayoutControlItem11 - ' - Me.LayoutControlItem11.Control = Me.SimpleButton1 - Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 200) - Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Size = New System.Drawing.Size(780, 26) - Me.LayoutControlItem11.Text = "Regular Expression prüfen" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem11.TextVisible = False - ' - 'LayoutControlItem8 - ' - Me.LayoutControlItem8.Control = Me.CheckEdit1 - Me.LayoutControlItem8.Location = New System.Drawing.Point(390, 0) - Me.LayoutControlItem8.Name = "LayoutControlItem8" - Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem8.Size = New System.Drawing.Size(390, 40) - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem8.TextVisible = False - ' - 'LayoutControlItem1 - ' - Me.LayoutControlItem1.Control = Me.TextEdit1 - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem1.Size = New System.Drawing.Size(390, 40) - Me.LayoutControlItem1.Text = "GUID" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(122, 13) - ' - 'frmAdmin_CWProfile - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.LayoutControl1) - Me.Controls.Add(Me.RibbonStatusBar1) - Me.Controls.Add(Me.RibbonControl1) - Me.Name = "frmAdmin_CWProfile" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "Clipboard Watcher - Profil" - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.LayoutControl1.ResumeLayout(False) - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl - Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar - Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage - Friend WithEvents DBCW_Stammdaten As DBCW_Stammdaten - Friend WithEvents TBCW_PROFILESBindingSource As BindingSource - Friend WithEvents TBCW_PROFILESTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter - Friend WithEvents TableAdapterManager As DBCW_StammdatenTableAdapters.TableAdapterManager - Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl - Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit - Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup - Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit - Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit - Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem - Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem - Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit - Friend WithEvents TextEdit4 As DevExpress.XtraEditors.TextEdit - Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit - Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton - Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem -End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb b/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb deleted file mode 100644 index 81393c08..00000000 --- a/GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb +++ /dev/null @@ -1,76 +0,0 @@ -Imports DigitalData.Modules.Logging - -Public Class frmAdmin_CWProfile - Implements frmAdmin_Interface - - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey - Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert - - Public Sub New(PrimaryKey As Integer) - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Logger = My.LogConfig.GetLogger() - Me.PrimaryKey = PrimaryKey - Me.IsInsert = IsInsert - End Sub - - Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load - Try - TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) - Catch ex As Exception - ShowError(ex) - End Try - End Sub - - Private Sub ResetMessages() - labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - End Sub - - Private Sub ShowStatus(Message As String) - labelStatus.Caption = Message - labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - End Sub - - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData - Try - TBCW_PROFILESBindingSource.EndEdit() - - If DBCW_Stammdaten.TBCW_PROFILES.GetChanges() IsNot Nothing Then - HasChanges = True - - If IsInsert Then - txtAddedWho.EditValue = My.Application.User.UserName - Else - txtChangedWho.EditValue = My.Application.User.UserName - End If - - TBCW_PROFILESBindingSource.EndEdit() - TBCW_PROFILESTableAdapter.Update(DBCW_Stammdaten.TBCW_PROFILES) - End If - - Return True - Catch ex As Exception - ShowError(ex) - Return False - End Try - End Function - - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - ResetMessages() - - If SaveData() Then - Close() - End If - End Sub - - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - ResetMessages() - - If SaveData() And HasChanges Then - ShowStatus("Attribute gespeichert!") - End If - End Sub -End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb new file mode 100644 index 00000000..ffc2e946 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.Designer.vb @@ -0,0 +1,1555 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmAdmin_ClipboardWatcher + Inherits BaseRibbonForm + + '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 EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions3 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject9 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject10 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject11 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject12 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions4 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject13 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject14 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject15 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject16 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim EditorButtonImageOptions5 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() + Dim SerializableAppearanceObject17 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject18 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject19 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Dim SerializableAppearanceObject20 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonSave = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.labelError = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonNew = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.DBCW_Stammdaten = New DigitalData.GUIs.ZooFlow.DBCW_Stammdaten() + Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBCW_PROFILESTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager() + Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit1 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit4 = New DevExpress.XtraEditors.ButtonEdit() + Me.cmbProfileType = New DevExpress.XtraEditors.LookUpEdit() + Me.TBLOCAL_PROFILE_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem20 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.PageProfile = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.PageDocumentSearch = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlDocSearch = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit() + Me.TBCW_PROF_DOC_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit6 = New DevExpress.XtraEditors.TextEdit() + Me.CheckEdit2 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit7 = New DevExpress.XtraEditors.ButtonEdit() + Me.TextEdit8 = New DevExpress.XtraEditors.ButtonEdit() + Me.txtAddedWho1 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho1 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen1 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen1 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchPositions = New DevExpress.XtraEditors.LookUpEdit() + Me.TBLOCAL_SEARCH_POSITIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.LookUpEdit() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSDD_Stammdaten = New DigitalData.GUIs.ZooFlow.DSDD_Stammdaten() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDocSearch = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PageDataSearch = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControlDataSearch = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit51 = New DevExpress.XtraEditors.TextEdit() + Me.TBCW_PROF_DATA_SEARCHBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TextEdit61 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchPositions1 = New DevExpress.XtraEditors.LookUpEdit() + Me.CheckEdit21 = New DevExpress.XtraEditors.CheckEdit() + Me.TextEdit71 = New DevExpress.XtraEditors.ButtonEdit() + Me.TextEdit81 = New DevExpress.XtraEditors.ButtonEdit() + Me.txtAddedWho11 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWho11 = New DevExpress.XtraEditors.TextEdit() + Me.txtAddedWhen11 = New DevExpress.XtraEditors.TextEdit() + Me.txtChangedWhen11 = New DevExpress.XtraEditors.TextEdit() + Me.ComboBoxEdit11 = New DevExpress.XtraEditors.LookUpEdit() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem23 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem26 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem27 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem32 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem29 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem31 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem25 = New DevExpress.XtraLayout.LayoutControlItem() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridViewDataSearch = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colTAB_TITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PageApplicationAssignment = New DevExpress.XtraTab.XtraTabPage() + Me.TBCW_PROF_DOC_SEARCHTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter() + Me.TBCW_PROF_DATA_SEARCHTableAdapter = New DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter() + Me.TBDD_CONNECTIONTableAdapter = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager1 = New DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlProfile.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbProfileType.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBLOCAL_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.PageProfile.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.PageDocumentSearch.SuspendLayout() + CType(Me.LayoutControlDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlDocSearch.SuspendLayout() + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchPositions.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBLOCAL_SEARCH_POSITIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDocSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.PageDataSearch.SuspendLayout() + CType(Me.LayoutControlDataSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControlDataSearch.SuspendLayout() + CType(Me.TextEdit51.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchPositions1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CheckEdit21.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit71.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWho11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWho11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAddedWhen11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtChangedWhen11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit11.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewDataSearch, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSave, Me.labelStatus, Me.labelError, Me.BarButtonItem3, Me.BarButtonNew}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 7 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(1328, 131) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonSave + ' + Me.BarButtonSave.Caption = "Speichern" + Me.BarButtonSave.Id = 2 + Me.BarButtonSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save2 + Me.BarButtonSave.Name = "BarButtonSave" + ' + 'labelStatus + ' + Me.labelStatus.Caption = "BarStaticItem1" + Me.labelStatus.Id = 3 + Me.labelStatus.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.about3 + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'labelError + ' + Me.labelError.Caption = "BarStaticItem2" + Me.labelError.Id = 4 + Me.labelError.Name = "labelError" + Me.labelError.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 5 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled6 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonNew + ' + Me.BarButtonNew.Caption = "Neu" + Me.BarButtonNew.Enabled = False + Me.BarButtonNew.Id = 6 + Me.BarButtonNew.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_add1 + Me.BarButtonNew.Name = "BarButtonNew" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonNew) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 676) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1328, 22) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'DBCW_Stammdaten + ' + Me.DBCW_Stammdaten.DataSetName = "DBCW_Stammdaten" + Me.DBCW_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBCW_PROFILESBindingSource + ' + Me.TBCW_PROFILESBindingSource.DataMember = "TBCW_PROFILES" + Me.TBCW_PROFILESBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TBCW_PROFILESTableAdapter + ' + Me.TBCW_PROFILESTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBCW_PROF_DATA_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROF_DOC_SEARCHTableAdapter = Nothing + Me.TableAdapterManager.TBCW_PROFILESTableAdapter = Me.TBCW_PROFILESTableAdapter + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DBCW_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'LayoutControlProfile + ' + Me.LayoutControlProfile.Controls.Add(Me.TextEdit1) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit2) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit3) + Me.LayoutControlProfile.Controls.Add(Me.txtAddedWho) + Me.LayoutControlProfile.Controls.Add(Me.txtAddedWhen) + Me.LayoutControlProfile.Controls.Add(Me.txtChangedWho) + Me.LayoutControlProfile.Controls.Add(Me.txtChangedWhen) + Me.LayoutControlProfile.Controls.Add(Me.CheckEdit1) + Me.LayoutControlProfile.Controls.Add(Me.TextEdit4) + Me.LayoutControlProfile.Controls.Add(Me.cmbProfileType) + Me.LayoutControlProfile.Dock = System.Windows.Forms.DockStyle.Top + Me.LayoutControlProfile.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlProfile.Name = "LayoutControlProfile" + Me.LayoutControlProfile.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(848, 159, 650, 400) + Me.LayoutControlProfile.Root = Me.Root + Me.LayoutControlProfile.Size = New System.Drawing.Size(1326, 246) + Me.LayoutControlProfile.TabIndex = 2 + Me.LayoutControlProfile.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "GUID", True)) + Me.TextEdit1.Location = New System.Drawing.Point(116, 15) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Properties.ReadOnly = True + Me.TextEdit1.Size = New System.Drawing.Size(540, 20) + Me.TextEdit1.StyleController = Me.LayoutControlProfile + Me.TextEdit1.TabIndex = 4 + ' + 'TextEdit2 + ' + Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "NAME", True)) + Me.TextEdit2.Location = New System.Drawing.Point(116, 45) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Size = New System.Drawing.Size(540, 20) + Me.TextEdit2.StyleController = Me.LayoutControlProfile + Me.TextEdit2.TabIndex = 5 + ' + 'TextEdit3 + ' + Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "COMMENT", True)) + Me.TextEdit3.Location = New System.Drawing.Point(116, 75) + Me.TextEdit3.MenuManager = Me.RibbonControl1 + Me.TextEdit3.Name = "TextEdit3" + Me.TextEdit3.Size = New System.Drawing.Size(1195, 20) + Me.TextEdit3.StyleController = Me.LayoutControlProfile + Me.TextEdit3.TabIndex = 6 + ' + 'txtAddedWho + ' + Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho.Location = New System.Drawing.Point(116, 139) + Me.txtAddedWho.MenuManager = Me.RibbonControl1 + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Properties.ReadOnly = True + Me.txtAddedWho.Size = New System.Drawing.Size(540, 20) + Me.txtAddedWho.StyleController = Me.LayoutControlProfile + Me.txtAddedWho.TabIndex = 7 + ' + 'txtAddedWhen + ' + Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True)) + Me.txtAddedWhen.Location = New System.Drawing.Point(767, 139) + Me.txtAddedWhen.MenuManager = Me.RibbonControl1 + Me.txtAddedWhen.Name = "txtAddedWhen" + Me.txtAddedWhen.Properties.ReadOnly = True + Me.txtAddedWhen.Size = New System.Drawing.Size(544, 20) + Me.txtAddedWhen.StyleController = Me.LayoutControlProfile + Me.txtAddedWhen.TabIndex = 8 + ' + 'txtChangedWho + ' + Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True)) + Me.txtChangedWho.Location = New System.Drawing.Point(116, 169) + Me.txtChangedWho.MenuManager = Me.RibbonControl1 + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Properties.ReadOnly = True + Me.txtChangedWho.Size = New System.Drawing.Size(540, 20) + Me.txtChangedWho.StyleController = Me.LayoutControlProfile + Me.txtChangedWho.TabIndex = 9 + ' + 'txtChangedWhen + ' + Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen.Location = New System.Drawing.Point(767, 169) + Me.txtChangedWhen.MenuManager = Me.RibbonControl1 + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Properties.ReadOnly = True + Me.txtChangedWhen.Size = New System.Drawing.Size(544, 20) + Me.txtChangedWhen.StyleController = Me.LayoutControlProfile + Me.txtChangedWhen.TabIndex = 10 + ' + 'CheckEdit1 + ' + Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "ACTIVE", True)) + Me.CheckEdit1.Location = New System.Drawing.Point(666, 15) + Me.CheckEdit1.MenuManager = Me.RibbonControl1 + Me.CheckEdit1.Name = "CheckEdit1" + Me.CheckEdit1.Properties.Caption = "Aktiv" + Me.CheckEdit1.Size = New System.Drawing.Size(645, 18) + Me.CheckEdit1.StyleController = Me.LayoutControlProfile + Me.CheckEdit1.TabIndex = 11 + ' + 'TextEdit4 + ' + Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True)) + Me.TextEdit4.Location = New System.Drawing.Point(116, 105) + Me.TextEdit4.MenuManager = Me.RibbonControl1 + Me.TextEdit4.Name = "TextEdit4" + EditorButtonImageOptions1.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.definednameuseinformula3 + EditorButtonImageOptions1.SvgImageSize = New System.Drawing.Size(16, 16) + Me.TextEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "Regex bearbeiten", 50, True, True, False, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", "BUTTON_REGEX_PROFILE", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit4.Size = New System.Drawing.Size(1195, 24) + Me.TextEdit4.StyleController = Me.LayoutControlProfile + Me.TextEdit4.TabIndex = 12 + ' + 'cmbProfileType + ' + Me.cmbProfileType.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROFILESBindingSource, "PROFILE_TYPE", True)) + Me.cmbProfileType.Location = New System.Drawing.Point(767, 45) + Me.cmbProfileType.MenuManager = Me.RibbonControl1 + Me.cmbProfileType.Name = "cmbProfileType" + Me.cmbProfileType.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbProfileType.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbProfileType.Properties.DataSource = Me.TBLOCAL_PROFILE_TYPEBindingSource + Me.cmbProfileType.Properties.DisplayMember = "NAME" + Me.cmbProfileType.Properties.NullText = "" + Me.cmbProfileType.Properties.PopupSizeable = False + Me.cmbProfileType.Properties.ValueMember = "ID" + Me.cmbProfileType.Size = New System.Drawing.Size(544, 20) + Me.cmbProfileType.StyleController = Me.LayoutControlProfile + Me.cmbProfileType.TabIndex = 13 + ' + 'TBLOCAL_PROFILE_TYPEBindingSource + ' + Me.TBLOCAL_PROFILE_TYPEBindingSource.DataMember = "TBLOCAL_PROFILE_TYPE" + Me.TBLOCAL_PROFILE_TYPEBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem8, Me.LayoutControlItem1, Me.LayoutControlItem20}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(1326, 246) + Me.Root.TextVisible = False + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.TextEdit2 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem2.Text = "Name" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit3 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(1306, 30) + Me.LayoutControlItem3.Text = "Kommentar" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.txtAddedWho + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 124) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem4.Text = "Erstellt Wer" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtChangedWho + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 154) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(651, 72) + Me.LayoutControlItem6.Text = "Geändert Wer" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.txtAddedWhen + Me.LayoutControlItem5.Location = New System.Drawing.Point(651, 124) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem5.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem5.Text = "Erstellt Wann" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.txtChangedWhen + Me.LayoutControlItem7.Location = New System.Drawing.Point(651, 154) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem7.Size = New System.Drawing.Size(655, 72) + Me.LayoutControlItem7.Text = "Geändert Wann" + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.TextEdit4 + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(1306, 34) + Me.LayoutControlItem9.Text = "Regular Expression" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.CheckEdit1 + Me.LayoutControlItem8.Location = New System.Drawing.Point(651, 0) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem8.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.TextEdit1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(651, 30) + Me.LayoutControlItem1.Text = "GUID" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(98, 13) + ' + 'LayoutControlItem20 + ' + Me.LayoutControlItem20.Control = Me.cmbProfileType + Me.LayoutControlItem20.Location = New System.Drawing.Point(651, 30) + Me.LayoutControlItem20.Name = "LayoutControlItem20" + Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem20.Size = New System.Drawing.Size(655, 30) + Me.LayoutControlItem20.Text = "Profil Typ" + Me.LayoutControlItem20.TextSize = New System.Drawing.Size(98, 13) + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 131) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.PageProfile + Me.XtraTabControl1.Size = New System.Drawing.Size(1328, 545) + Me.XtraTabControl1.TabIndex = 5 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageProfile}) + ' + 'PageProfile + ' + Me.PageProfile.Controls.Add(Me.XtraTabControl2) + Me.PageProfile.Controls.Add(Me.LayoutControlProfile) + Me.PageProfile.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.pagesetup1 + Me.PageProfile.ImageOptions.SvgImageSize = New System.Drawing.Size(24, 24) + Me.PageProfile.Name = "PageProfile" + Me.PageProfile.Size = New System.Drawing.Size(1326, 511) + Me.PageProfile.Tag = "TAB_PAGE_PROFILE" + Me.PageProfile.Text = "Profil-Verwaltung" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 246) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.PageDocumentSearch + Me.XtraTabControl2.Size = New System.Drawing.Size(1326, 265) + Me.XtraTabControl2.TabIndex = 3 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.PageDocumentSearch, Me.PageDataSearch, Me.PageApplicationAssignment}) + ' + 'PageDocumentSearch + ' + Me.PageDocumentSearch.Controls.Add(Me.LayoutControlDocSearch) + Me.PageDocumentSearch.Controls.Add(Me.GridControl2) + Me.PageDocumentSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.singlepageview + Me.PageDocumentSearch.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageDocumentSearch.Name = "PageDocumentSearch" + Me.PageDocumentSearch.Size = New System.Drawing.Size(1324, 239) + Me.PageDocumentSearch.Tag = "TAB_PAGE_DOCSEARCH" + Me.PageDocumentSearch.Text = "Dokument-Suche" + ' + 'LayoutControlDocSearch + ' + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit5) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit6) + Me.LayoutControlDocSearch.Controls.Add(Me.CheckEdit2) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit7) + Me.LayoutControlDocSearch.Controls.Add(Me.TextEdit8) + Me.LayoutControlDocSearch.Controls.Add(Me.txtAddedWho1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtChangedWho1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtAddedWhen1) + Me.LayoutControlDocSearch.Controls.Add(Me.txtChangedWhen1) + Me.LayoutControlDocSearch.Controls.Add(Me.cmbSearchPositions) + Me.LayoutControlDocSearch.Controls.Add(Me.ComboBoxEdit1) + Me.LayoutControlDocSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlDocSearch.Location = New System.Drawing.Point(225, 0) + Me.LayoutControlDocSearch.Name = "LayoutControlDocSearch" + Me.LayoutControlDocSearch.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 407, 650, 400) + Me.LayoutControlDocSearch.Root = Me.LayoutControlGroup1 + Me.LayoutControlDocSearch.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlDocSearch.TabIndex = 1 + Me.LayoutControlDocSearch.Text = "LayoutControl2" + ' + 'TextEdit5 + ' + Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "GUID", True)) + Me.TextEdit5.Location = New System.Drawing.Point(150, 15) + Me.TextEdit5.MenuManager = Me.RibbonControl1 + Me.TextEdit5.Name = "TextEdit5" + Me.TextEdit5.Properties.ReadOnly = True + Me.TextEdit5.Size = New System.Drawing.Size(124, 20) + Me.TextEdit5.StyleController = Me.LayoutControlDocSearch + Me.TextEdit5.TabIndex = 4 + ' + 'TBCW_PROF_DOC_SEARCHBindingSource + ' + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataMember = "TBCW_PROF_DOC_SEARCH" + Me.TBCW_PROF_DOC_SEARCHBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TextEdit6 + ' + Me.TextEdit6.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit6.Location = New System.Drawing.Point(150, 45) + Me.TextEdit6.MenuManager = Me.RibbonControl1 + Me.TextEdit6.Name = "TextEdit6" + Me.TextEdit6.Size = New System.Drawing.Size(934, 20) + Me.TextEdit6.StyleController = Me.LayoutControlDocSearch + Me.TextEdit6.TabIndex = 5 + ' + 'CheckEdit2 + ' + Me.CheckEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ACTIVE", True)) + Me.CheckEdit2.Location = New System.Drawing.Point(688, 15) + Me.CheckEdit2.MenuManager = Me.RibbonControl1 + Me.CheckEdit2.Name = "CheckEdit2" + Me.CheckEdit2.Properties.Caption = "Aktiv" + Me.CheckEdit2.Size = New System.Drawing.Size(396, 18) + Me.CheckEdit2.StyleController = Me.LayoutControlDocSearch + Me.CheckEdit2.TabIndex = 6 + ' + 'TextEdit7 + ' + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.TextEdit7.Location = New System.Drawing.Point(150, 75) + Me.TextEdit7.MenuManager = Me.RibbonControl1 + Me.TextEdit7.Name = "TextEdit7" + EditorButtonImageOptions2.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + EditorButtonImageOptions2.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject5.Options.UseBackColor = True + Me.TextEdit7.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", 50, True, True, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", "BUTTON_SEARCH_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit7.Size = New System.Drawing.Size(934, 24) + Me.TextEdit7.StyleController = Me.LayoutControlDocSearch + Me.TextEdit7.TabIndex = 8 + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextEdit8.Location = New System.Drawing.Point(150, 109) + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + EditorButtonImageOptions3.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource1 + EditorButtonImageOptions3.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject9.Options.UseBackColor = True + Me.TextEdit8.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "SQL bearbeiten", 50, True, True, False, EditorButtonImageOptions3, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", "BUTTON_COUNT_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit8.Size = New System.Drawing.Size(934, 24) + Me.TextEdit8.StyleController = Me.LayoutControlDocSearch + Me.TextEdit8.TabIndex = 9 + ' + 'txtAddedWho1 + ' + Me.txtAddedWho1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho1.Location = New System.Drawing.Point(150, 173) + Me.txtAddedWho1.Name = "txtAddedWho1" + Me.txtAddedWho1.Properties.ReadOnly = True + Me.txtAddedWho1.Size = New System.Drawing.Size(393, 20) + Me.txtAddedWho1.StyleController = Me.LayoutControlDocSearch + Me.txtAddedWho1.TabIndex = 7 + ' + 'txtChangedWho1 + ' + Me.txtChangedWho1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho1.Location = New System.Drawing.Point(150, 203) + Me.txtChangedWho1.Name = "txtChangedWho1" + Me.txtChangedWho1.Properties.ReadOnly = True + Me.txtChangedWho1.Size = New System.Drawing.Size(393, 20) + Me.txtChangedWho1.StyleController = Me.LayoutControlDocSearch + Me.txtChangedWho1.TabIndex = 9 + ' + 'txtAddedWhen1 + ' + Me.txtAddedWhen1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.txtAddedWhen1.Location = New System.Drawing.Point(688, 173) + Me.txtAddedWhen1.Name = "txtAddedWhen1" + Me.txtAddedWhen1.Properties.ReadOnly = True + Me.txtAddedWhen1.Size = New System.Drawing.Size(396, 20) + Me.txtAddedWhen1.StyleController = Me.LayoutControlDocSearch + Me.txtAddedWhen1.TabIndex = 8 + ' + 'txtChangedWhen1 + ' + Me.txtChangedWhen1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen1.Location = New System.Drawing.Point(688, 203) + Me.txtChangedWhen1.Name = "txtChangedWhen1" + Me.txtChangedWhen1.Properties.ReadOnly = True + Me.txtChangedWhen1.Size = New System.Drawing.Size(396, 20) + Me.txtChangedWhen1.StyleController = Me.LayoutControlDocSearch + Me.txtChangedWhen1.TabIndex = 10 + ' + 'cmbSearchPositions + ' + Me.cmbSearchPositions.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "TAB_INDEX", True)) + Me.cmbSearchPositions.Location = New System.Drawing.Point(419, 15) + Me.cmbSearchPositions.MenuManager = Me.RibbonControl1 + Me.cmbSearchPositions.Name = "cmbSearchPositions" + Me.cmbSearchPositions.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchPositions.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbSearchPositions.Properties.DataSource = Me.TBLOCAL_SEARCH_POSITIONBindingSource + Me.cmbSearchPositions.Properties.DisplayMember = "NAME" + Me.cmbSearchPositions.Properties.NullText = "" + Me.cmbSearchPositions.Properties.PopupSizeable = False + Me.cmbSearchPositions.Properties.ValueMember = "ID" + Me.cmbSearchPositions.Size = New System.Drawing.Size(259, 20) + Me.cmbSearchPositions.StyleController = Me.LayoutControlDocSearch + Me.cmbSearchPositions.TabIndex = 7 + ' + 'TBLOCAL_SEARCH_POSITIONBindingSource + ' + Me.TBLOCAL_SEARCH_POSITIONBindingSource.DataMember = "TBLOCAL_SEARCH_POSITION" + Me.TBLOCAL_SEARCH_POSITIONBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DOC_SEARCHBindingSource, "CONN_ID", True)) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(150, 143) + Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Name")}) + Me.ComboBoxEdit1.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ComboBoxEdit1.Properties.DisplayMember = "BEZEICHNUNG" + Me.ComboBoxEdit1.Properties.NullText = "" + Me.ComboBoxEdit1.Properties.PopupSizeable = False + Me.ComboBoxEdit1.Properties.ValueMember = "GUID" + Me.ComboBoxEdit1.Size = New System.Drawing.Size(934, 20) + Me.ComboBoxEdit1.StyleController = Me.LayoutControlDocSearch + Me.ComboBoxEdit1.TabIndex = 11 + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DSDD_Stammdaten + ' + 'DSDD_Stammdaten + ' + Me.DSDD_Stammdaten.DataSetName = "DSDD_Stammdaten" + Me.DSDD_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup1.GroupBordersVisible = False + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem12, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem16, Me.LayoutControlItem17, Me.LayoutControlItem18, Me.LayoutControlItem19, Me.LayoutControlItem21}) + Me.LayoutControlGroup1.Name = "Root" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlGroup1.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit5 + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem10.Size = New System.Drawing.Size(269, 30) + Me.LayoutControlItem10.Text = "GUID" + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit6 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem11.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem11.Text = "Name" + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.cmbSearchPositions + Me.LayoutControlItem13.Location = New System.Drawing.Point(269, 0) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem13.Size = New System.Drawing.Size(404, 30) + Me.LayoutControlItem13.Text = "Reihenfolge" + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.CheckEdit2 + Me.LayoutControlItem12.Location = New System.Drawing.Point(673, 0) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem12.Size = New System.Drawing.Size(406, 30) + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem12.TextVisible = False + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.TextEdit7 + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem14.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem14.Text = "SQL für Suche" + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.TextEdit8 + Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 94) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem15.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem15.Text = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.txtAddedWho1 + Me.LayoutControlItem16.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem16.CustomizationFormText = "Erstellt Wer" + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 158) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem16.Size = New System.Drawing.Size(538, 30) + Me.LayoutControlItem16.Text = "Erstellt Wer" + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.txtChangedWho1 + Me.LayoutControlItem17.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem17.CustomizationFormText = "Geändert Wer" + Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 188) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem17.Size = New System.Drawing.Size(538, 31) + Me.LayoutControlItem17.Text = "Geändert Wer" + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.Control = Me.txtAddedWhen1 + Me.LayoutControlItem18.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem18.CustomizationFormText = "Erstellt Wann" + Me.LayoutControlItem18.Location = New System.Drawing.Point(538, 158) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem18.Size = New System.Drawing.Size(541, 30) + Me.LayoutControlItem18.Text = "Erstellt Wann" + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.txtChangedWhen1 + Me.LayoutControlItem19.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem19.CustomizationFormText = "Geändert Wann" + Me.LayoutControlItem19.Location = New System.Drawing.Point(538, 188) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem19.Size = New System.Drawing.Size(541, 31) + Me.LayoutControlItem19.Text = "Geändert Wann" + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem21 + ' + Me.LayoutControlItem21.Control = Me.ComboBoxEdit1 + Me.LayoutControlItem21.Location = New System.Drawing.Point(0, 128) + Me.LayoutControlItem21.Name = "LayoutControlItem21" + Me.LayoutControlItem21.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem21.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem21.Text = "Datenbank Verbindung" + Me.LayoutControlItem21.TextSize = New System.Drawing.Size(132, 13) + ' + 'GridControl2 + ' + Me.GridControl2.DataSource = Me.TBCW_PROF_DOC_SEARCHBindingSource + Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl2.Location = New System.Drawing.Point(0, 0) + Me.GridControl2.MainView = Me.GridViewDocSearch + Me.GridControl2.MenuManager = Me.RibbonControl1 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.Size = New System.Drawing.Size(225, 239) + Me.GridControl2.TabIndex = 2 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch}) + ' + 'GridViewDocSearch + ' + Me.GridViewDocSearch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE1}) + Me.GridViewDocSearch.GridControl = Me.GridControl2 + Me.GridViewDocSearch.Name = "GridViewDocSearch" + ' + 'colTAB_TITLE1 + ' + Me.colTAB_TITLE1.FieldName = "TAB_TITLE" + Me.colTAB_TITLE1.Name = "colTAB_TITLE1" + Me.colTAB_TITLE1.Visible = True + Me.colTAB_TITLE1.VisibleIndex = 0 + ' + 'PageDataSearch + ' + Me.PageDataSearch.Controls.Add(Me.LayoutControlDataSearch) + Me.PageDataSearch.Controls.Add(Me.GridControl1) + Me.PageDataSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_database + Me.PageDataSearch.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageDataSearch.Name = "PageDataSearch" + Me.PageDataSearch.Size = New System.Drawing.Size(1324, 239) + Me.PageDataSearch.Text = "Daten-Suchen" + ' + 'LayoutControlDataSearch + ' + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit51) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit61) + Me.LayoutControlDataSearch.Controls.Add(Me.cmbSearchPositions1) + Me.LayoutControlDataSearch.Controls.Add(Me.CheckEdit21) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit71) + Me.LayoutControlDataSearch.Controls.Add(Me.TextEdit81) + Me.LayoutControlDataSearch.Controls.Add(Me.txtAddedWho11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtChangedWho11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtAddedWhen11) + Me.LayoutControlDataSearch.Controls.Add(Me.txtChangedWhen11) + Me.LayoutControlDataSearch.Controls.Add(Me.ComboBoxEdit11) + Me.LayoutControlDataSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControlDataSearch.Location = New System.Drawing.Point(225, 0) + Me.LayoutControlDataSearch.Name = "LayoutControlDataSearch" + Me.LayoutControlDataSearch.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1270, 407, 650, 400) + Me.LayoutControlDataSearch.Root = Me.LayoutControlGroup2 + Me.LayoutControlDataSearch.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlDataSearch.TabIndex = 1 + Me.LayoutControlDataSearch.Text = "LayoutControl1" + ' + 'TextEdit51 + ' + Me.TextEdit51.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "GUID", True)) + Me.TextEdit51.Location = New System.Drawing.Point(150, 15) + Me.TextEdit51.Name = "TextEdit51" + Me.TextEdit51.Properties.ReadOnly = True + Me.TextEdit51.Size = New System.Drawing.Size(127, 20) + Me.TextEdit51.StyleController = Me.LayoutControlDataSearch + Me.TextEdit51.TabIndex = 4 + ' + 'TBCW_PROF_DATA_SEARCHBindingSource + ' + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataMember = "TBCW_PROF_DATA_SEARCH" + Me.TBCW_PROF_DATA_SEARCHBindingSource.DataSource = Me.DBCW_Stammdaten + ' + 'TextEdit61 + ' + Me.TextEdit61.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_TITLE", True)) + Me.TextEdit61.Location = New System.Drawing.Point(150, 45) + Me.TextEdit61.Name = "TextEdit61" + Me.TextEdit61.Size = New System.Drawing.Size(934, 20) + Me.TextEdit61.StyleController = Me.LayoutControlDataSearch + Me.TextEdit61.TabIndex = 5 + ' + 'cmbSearchPositions1 + ' + Me.cmbSearchPositions1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "TAB_INDEX", True)) + Me.cmbSearchPositions1.Location = New System.Drawing.Point(422, 15) + Me.cmbSearchPositions1.Name = "cmbSearchPositions1" + Me.cmbSearchPositions1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchPositions1.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("NAME", "Name")}) + Me.cmbSearchPositions1.Properties.DataSource = Me.TBLOCAL_SEARCH_POSITIONBindingSource + Me.cmbSearchPositions1.Properties.DisplayMember = "NAME" + Me.cmbSearchPositions1.Properties.NullText = "" + Me.cmbSearchPositions1.Properties.PopupSizeable = False + Me.cmbSearchPositions1.Properties.ValueMember = "ID" + Me.cmbSearchPositions1.Size = New System.Drawing.Size(254, 20) + Me.cmbSearchPositions1.StyleController = Me.LayoutControlDataSearch + Me.cmbSearchPositions1.TabIndex = 7 + ' + 'CheckEdit21 + ' + Me.CheckEdit21.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ACTIVE", True)) + Me.CheckEdit21.Location = New System.Drawing.Point(686, 15) + Me.CheckEdit21.Name = "CheckEdit21" + Me.CheckEdit21.Properties.Caption = "Aktiv" + Me.CheckEdit21.Size = New System.Drawing.Size(398, 18) + Me.CheckEdit21.StyleController = Me.LayoutControlDataSearch + Me.CheckEdit21.TabIndex = 6 + ' + 'TextEdit71 + ' + Me.TextEdit71.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "SQL_COMMAND", True)) + Me.TextEdit71.Location = New System.Drawing.Point(150, 75) + Me.TextEdit71.Name = "TextEdit71" + EditorButtonImageOptions4.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource + EditorButtonImageOptions4.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject13.Options.UseBackColor = True + Me.TextEdit71.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", 50, True, True, False, EditorButtonImageOptions4, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", "BUTTON_SEARCH_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit71.Size = New System.Drawing.Size(934, 24) + Me.TextEdit71.StyleController = Me.LayoutControlDataSearch + Me.TextEdit71.TabIndex = 8 + ' + 'TextEdit81 + ' + Me.TextEdit81.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "COUNT_COMMAND", True)) + Me.TextEdit81.Location = New System.Drawing.Point(150, 109) + Me.TextEdit81.Name = "TextEdit81" + EditorButtonImageOptions5.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource1 + EditorButtonImageOptions5.SvgImageSize = New System.Drawing.Size(16, 16) + SerializableAppearanceObject17.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer)) + SerializableAppearanceObject17.Options.UseBackColor = True + Me.TextEdit81.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "SQL bearbeiten", 50, True, True, False, EditorButtonImageOptions5, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject17, SerializableAppearanceObject18, SerializableAppearanceObject19, SerializableAppearanceObject20, "", "BUTTON_COUNT_SQL", Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) + Me.TextEdit81.Size = New System.Drawing.Size(934, 24) + Me.TextEdit81.StyleController = Me.LayoutControlDataSearch + Me.TextEdit81.TabIndex = 9 + ' + 'txtAddedWho11 + ' + Me.txtAddedWho11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHO", True)) + Me.txtAddedWho11.Location = New System.Drawing.Point(150, 173) + Me.txtAddedWho11.Name = "txtAddedWho11" + Me.txtAddedWho11.Properties.ReadOnly = True + Me.txtAddedWho11.Size = New System.Drawing.Size(394, 20) + Me.txtAddedWho11.StyleController = Me.LayoutControlDataSearch + Me.txtAddedWho11.TabIndex = 7 + ' + 'txtChangedWho11 + ' + Me.txtChangedWho11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHO", True)) + Me.txtChangedWho11.Location = New System.Drawing.Point(150, 203) + Me.txtChangedWho11.Name = "txtChangedWho11" + Me.txtChangedWho11.Properties.ReadOnly = True + Me.txtChangedWho11.Size = New System.Drawing.Size(394, 20) + Me.txtChangedWho11.StyleController = Me.LayoutControlDataSearch + Me.txtChangedWho11.TabIndex = 9 + ' + 'txtAddedWhen11 + ' + Me.txtAddedWhen11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "ADDED_WHEN", True)) + Me.txtAddedWhen11.Location = New System.Drawing.Point(689, 173) + Me.txtAddedWhen11.Name = "txtAddedWhen11" + Me.txtAddedWhen11.Properties.ReadOnly = True + Me.txtAddedWhen11.Size = New System.Drawing.Size(395, 20) + Me.txtAddedWhen11.StyleController = Me.LayoutControlDataSearch + Me.txtAddedWhen11.TabIndex = 8 + ' + 'txtChangedWhen11 + ' + Me.txtChangedWhen11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CHANGED_WHEN", True)) + Me.txtChangedWhen11.Location = New System.Drawing.Point(689, 203) + Me.txtChangedWhen11.Name = "txtChangedWhen11" + Me.txtChangedWhen11.Properties.ReadOnly = True + Me.txtChangedWhen11.Size = New System.Drawing.Size(395, 20) + Me.txtChangedWhen11.StyleController = Me.LayoutControlDataSearch + Me.txtChangedWhen11.TabIndex = 10 + ' + 'ComboBoxEdit11 + ' + Me.ComboBoxEdit11.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBCW_PROF_DATA_SEARCHBindingSource, "CONN_ID", True)) + Me.ComboBoxEdit11.Location = New System.Drawing.Point(150, 143) + Me.ComboBoxEdit11.Name = "ComboBoxEdit11" + Me.ComboBoxEdit11.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.ComboBoxEdit11.Properties.Columns.AddRange(New DevExpress.XtraEditors.Controls.LookUpColumnInfo() {New DevExpress.XtraEditors.Controls.LookUpColumnInfo("BEZEICHNUNG", "Name")}) + Me.ComboBoxEdit11.Properties.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ComboBoxEdit11.Properties.DisplayMember = "BEZEICHNUNG" + Me.ComboBoxEdit11.Properties.NullText = "" + Me.ComboBoxEdit11.Properties.PopupSizeable = False + Me.ComboBoxEdit11.Properties.ValueMember = "GUID" + Me.ComboBoxEdit11.Size = New System.Drawing.Size(934, 20) + Me.ComboBoxEdit11.StyleController = Me.LayoutControlDataSearch + Me.ComboBoxEdit11.TabIndex = 11 + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem22, Me.LayoutControlItem23, Me.LayoutControlItem26, Me.LayoutControlItem27, Me.LayoutControlItem32, Me.LayoutControlItem28, Me.LayoutControlItem29, Me.LayoutControlItem30, Me.LayoutControlItem31, Me.LayoutControlItem24, Me.LayoutControlItem25}) + Me.LayoutControlGroup2.Name = "Root" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1099, 239) + Me.LayoutControlGroup2.TextVisible = False + ' + 'LayoutControlItem22 + ' + Me.LayoutControlItem22.Control = Me.TextEdit51 + Me.LayoutControlItem22.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem22.CustomizationFormText = "GUID" + Me.LayoutControlItem22.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem22.Name = "LayoutControlItem22" + Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem22.Size = New System.Drawing.Size(272, 30) + Me.LayoutControlItem22.Text = "GUID" + Me.LayoutControlItem22.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem23 + ' + Me.LayoutControlItem23.Control = Me.TextEdit61 + Me.LayoutControlItem23.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem23.CustomizationFormText = "Name" + Me.LayoutControlItem23.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem23.Name = "LayoutControlItem23" + Me.LayoutControlItem23.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem23.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem23.Text = "Name" + Me.LayoutControlItem23.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem26 + ' + Me.LayoutControlItem26.Control = Me.TextEdit71 + Me.LayoutControlItem26.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem26.CustomizationFormText = "SQL für Suche" + Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem26.Name = "LayoutControlItem26" + Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem26.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem26.Text = "SQL für Suche" + Me.LayoutControlItem26.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem27 + ' + Me.LayoutControlItem27.Control = Me.TextEdit81 + Me.LayoutControlItem27.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem27.CustomizationFormText = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem27.Location = New System.Drawing.Point(0, 94) + Me.LayoutControlItem27.Name = "LayoutControlItem27" + Me.LayoutControlItem27.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem27.Size = New System.Drawing.Size(1079, 34) + Me.LayoutControlItem27.Text = "SQL für Ergebnis-Zählung" + Me.LayoutControlItem27.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem32 + ' + Me.LayoutControlItem32.Control = Me.ComboBoxEdit11 + Me.LayoutControlItem32.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem32.CustomizationFormText = "Datenbank Verbindung" + Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 128) + Me.LayoutControlItem32.Name = "LayoutControlItem32" + Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem32.Size = New System.Drawing.Size(1079, 30) + Me.LayoutControlItem32.Text = "Datenbank Verbindung" + Me.LayoutControlItem32.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem28 + ' + Me.LayoutControlItem28.Control = Me.txtAddedWho11 + Me.LayoutControlItem28.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem28.CustomizationFormText = "Erstellt Wer" + Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 158) + Me.LayoutControlItem28.Name = "LayoutControlItem28" + Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem28.Size = New System.Drawing.Size(539, 30) + Me.LayoutControlItem28.Text = "Erstellt Wer" + Me.LayoutControlItem28.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem29 + ' + Me.LayoutControlItem29.Control = Me.txtChangedWho11 + Me.LayoutControlItem29.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem29.CustomizationFormText = "Geändert Wer" + Me.LayoutControlItem29.Location = New System.Drawing.Point(0, 188) + Me.LayoutControlItem29.Name = "LayoutControlItem29" + Me.LayoutControlItem29.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem29.Size = New System.Drawing.Size(539, 31) + Me.LayoutControlItem29.Text = "Geändert Wer" + Me.LayoutControlItem29.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem30 + ' + Me.LayoutControlItem30.Control = Me.txtAddedWhen11 + Me.LayoutControlItem30.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem30.CustomizationFormText = "Erstellt Wann" + Me.LayoutControlItem30.Location = New System.Drawing.Point(539, 158) + Me.LayoutControlItem30.Name = "LayoutControlItem30" + Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem30.Size = New System.Drawing.Size(540, 30) + Me.LayoutControlItem30.Text = "Erstellt Wann" + Me.LayoutControlItem30.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem31 + ' + Me.LayoutControlItem31.Control = Me.txtChangedWhen11 + Me.LayoutControlItem31.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem31.CustomizationFormText = "Geändert Wann" + Me.LayoutControlItem31.Location = New System.Drawing.Point(539, 188) + Me.LayoutControlItem31.Name = "LayoutControlItem31" + Me.LayoutControlItem31.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem31.Size = New System.Drawing.Size(540, 31) + Me.LayoutControlItem31.Text = "Geändert Wann" + Me.LayoutControlItem31.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem24 + ' + Me.LayoutControlItem24.Control = Me.cmbSearchPositions1 + Me.LayoutControlItem24.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem24.CustomizationFormText = "Reihenfolge" + Me.LayoutControlItem24.Location = New System.Drawing.Point(272, 0) + Me.LayoutControlItem24.Name = "LayoutControlItem24" + Me.LayoutControlItem24.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem24.Size = New System.Drawing.Size(399, 30) + Me.LayoutControlItem24.Text = "Reihenfolge" + Me.LayoutControlItem24.TextSize = New System.Drawing.Size(132, 13) + ' + 'LayoutControlItem25 + ' + Me.LayoutControlItem25.Control = Me.CheckEdit21 + Me.LayoutControlItem25.ControlAlignment = System.Drawing.ContentAlignment.TopLeft + Me.LayoutControlItem25.CustomizationFormText = "LayoutControlItem12" + Me.LayoutControlItem25.Location = New System.Drawing.Point(671, 0) + Me.LayoutControlItem25.Name = "LayoutControlItem25" + Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem25.Size = New System.Drawing.Size(408, 30) + Me.LayoutControlItem25.Text = "LayoutControlItem12" + Me.LayoutControlItem25.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem25.TextVisible = False + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBCW_PROF_DATA_SEARCHBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridViewDataSearch + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(225, 239) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch}) + ' + 'GridViewDataSearch + ' + Me.GridViewDataSearch.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colTAB_TITLE}) + Me.GridViewDataSearch.GridControl = Me.GridControl1 + Me.GridViewDataSearch.Name = "GridViewDataSearch" + ' + 'colTAB_TITLE + ' + Me.colTAB_TITLE.FieldName = "TAB_TITLE" + Me.colTAB_TITLE.Name = "colTAB_TITLE" + Me.colTAB_TITLE.Visible = True + Me.colTAB_TITLE.VisibleIndex = 0 + ' + 'PageApplicationAssignment + ' + Me.PageApplicationAssignment.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.windows + Me.PageApplicationAssignment.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.PageApplicationAssignment.Name = "PageApplicationAssignment" + Me.PageApplicationAssignment.Size = New System.Drawing.Size(1324, 239) + Me.PageApplicationAssignment.Text = "Anwendungs-Zuordnung" + ' + 'TBCW_PROF_DOC_SEARCHTableAdapter + ' + Me.TBCW_PROF_DOC_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'TBCW_PROF_DATA_SEARCHTableAdapter + ' + Me.TBCW_PROF_DATA_SEARCHTableAdapter.ClearBeforeFill = True + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + Me.TableAdapterManager1.UpdateOrder = DigitalData.GUIs.ZooFlow.DSDD_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmAdmin_ClipboardWatcher + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1328, 698) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin_ClipboardWatcher" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Clipboard Watcher - Profil" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DBCW_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlProfile.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbProfileType.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBLOCAL_PROFILE_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem20, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.PageProfile.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.PageDocumentSearch.ResumeLayout(False) + CType(Me.LayoutControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlDocSearch.ResumeLayout(False) + CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DOC_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit6.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchPositions.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBLOCAL_SEARCH_POSITIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSDD_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDocSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.PageDataSearch.ResumeLayout(False) + CType(Me.LayoutControlDataSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControlDataSearch.ResumeLayout(False) + CType(Me.TextEdit51.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBCW_PROF_DATA_SEARCHBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit61.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchPositions1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CheckEdit21.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit71.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit81.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWho11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWho11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAddedWhen11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtChangedWhen11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit11.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem23, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem26, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem27, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem32, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem29, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem31, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem25, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewDataSearch, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents DBCW_Stammdaten As DBCW_Stammdaten + Friend WithEvents TBCW_PROFILESBindingSource As BindingSource + Friend WithEvents TBCW_PROFILESTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROFILESTableAdapter + Friend WithEvents TableAdapterManager As DBCW_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents BarButtonSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlProfile As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit3 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents labelError As DevExpress.XtraBars.BarStaticItem + Friend WithEvents CheckEdit1 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents PageProfile As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents PageDocumentSearch As DevExpress.XtraTab.XtraTabPage + Friend WithEvents PageDataSearch As DevExpress.XtraTab.XtraTabPage + Friend WithEvents PageApplicationAssignment As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TextEdit4 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents LayoutControlDocSearch As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit5 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit6 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CheckEdit2 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents txtAddedWho1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents TBCW_PROF_DOC_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DOC_SEARCHTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROF_DOC_SEARCHTableAdapter + Friend WithEvents TBCW_PROF_DATA_SEARCHBindingSource As BindingSource + Friend WithEvents TBCW_PROF_DATA_SEARCHTableAdapter As DBCW_StammdatenTableAdapters.TBCW_PROF_DATA_SEARCHTableAdapter + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDataSearch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewDocSearch As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colTAB_TITLE1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents LayoutControlDataSearch As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents BarButtonNew As DevExpress.XtraBars.BarButtonItem + Friend WithEvents LayoutControlItem20 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents cmbProfileType As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents cmbSearchPositions As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents TBLOCAL_PROFILE_TYPEBindingSource As BindingSource + Friend WithEvents TBLOCAL_SEARCH_POSITIONBindingSource As BindingSource + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlItem21 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents DSDD_Stammdaten As DSDD_Stammdaten + Friend WithEvents TBDD_CONNECTIONBindingSource As BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As DSDD_StammdatenTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager1 As DSDD_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents TextEdit51 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit61 As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbSearchPositions1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents CheckEdit21 As DevExpress.XtraEditors.CheckEdit + Friend WithEvents TextEdit71 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents TextEdit81 As DevExpress.XtraEditors.ButtonEdit + Friend WithEvents txtAddedWho11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWho11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtAddedWhen11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtChangedWhen11 As DevExpress.XtraEditors.TextEdit + Friend WithEvents ComboBoxEdit11 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem23 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem24 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem25 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem26 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem27 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem28 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem29 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem30 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem31 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem32 As DevExpress.XtraLayout.LayoutControlItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx new file mode 100644 index 00000000..6657b310 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 178, 17 + + + 398, 17 + + + 612, 17 + + + 295, 56 + + + 785, 17 + + + 557, 56 + + + 1006, 56 + + + 847, 56 + + + 1336, 17 + + + 1063, 17 + + + 17, 56 + + + 1250, 56 + + + 17, 95 + + + 119 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb new file mode 100644 index 00000000..0d1da274 --- /dev/null +++ b/GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb @@ -0,0 +1,250 @@ +Imports System.ComponentModel +Imports DevExpress.XtraEditors +Imports DevExpress.XtraEditors.Controls +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraLayout +Imports DevExpress.XtraTab +Imports DigitalData.Controls.RegexEditor +Imports DigitalData.Controls.SQLEditor +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Logging + +Public Class frmAdmin_ClipboardWatcher + Implements IAdminForm + + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert + + Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE" + Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL" + Private Const BUTTON_COUNT_SQL = "BUTTON_COUNT_SQL" + + Private Const TAB_PAGE_PROFILE = "TAB_PAGE_PROFILE" + Private Const TAB_PAGE_DOCSEARCH = "TAB_PAGE_DOCSEARCH" + Private Const TAB_PAGE_DATASEARCH = "TAB_PAGE_DATASEARCH" + + Private Const SEARCH_POSITION_PRIMARY As Integer = 0 + Private Const SEARCH_POSITION_SECONDARY As Integer = 1 + Private Const SEARCH_POSITION_TERTIARY As Integer = 2 + + Private Const PROFILE_TYPE_DATA_DOCS As Integer = 0 + Private Const PROFILE_TYPE_DOCS_ONLY As Integer = 1 + Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2 + + Private Pages As ClassDetailPages + + Friend Class ProfileType + Public Property Id As Integer + Public Property Name As String + + Public Overrides Function ToString() As String + Return Name + End Function + End Class + + Friend Class SearchPosition + Public Property Id As Integer + Public Property Name As String + + Public Overrides Function ToString() As String + Return Name + End Function + End Class + + Public Sub New(PrimaryKey As Integer) + MyBase.New(My.LogConfig) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.PrimaryKey = PrimaryKey + Me.IsInsert = IsInsert + End Sub + + Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DSDD_Stammdaten.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DSDD_Stammdaten.TBDD_CONNECTION) + Try + TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString + TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey) + + TBCW_PROF_DOC_SEARCHTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString + TBCW_PROF_DOC_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH, PrimaryKey) + + TBCW_PROF_DATA_SEARCHTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString + TBCW_PROF_DATA_SEARCHTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, PrimaryKey) + + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString + TBDD_CONNECTIONTableAdapter.Fill(DSDD_Stammdaten.TBDD_CONNECTION) + + ' Configure the GridViews with some default options + Dim oViews As New List(Of GridView) From {GridViewDataSearch, GridViewDocSearch} + Dim oGridBuilder As New GridBuilder(oViews) + oGridBuilder. + WithDefaults(). + WithReadOnlyOptions() + + ' Add Focus Handler to all controls in all LayoutControls + Dim oLayoutControls = New List(Of LayoutControl) From {LayoutControlProfile, LayoutControlDocSearch, LayoutControlDataSearch} + + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_PRIMARY, "Haupttabelle") + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_SECONDARY, "Erste Detailtabelle") + DBCW_Stammdaten.TBLOCAL_SEARCH_POSITION.Rows.Add(SEARCH_POSITION_TERTIARY, "Zweite Detailtabelle") + + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_DOCS, "Dokumente und Daten") + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DOCS_ONLY, "Nur Dokumente") + DBCW_Stammdaten.TBLOCAL_PROFILE_TYPE.Rows.Add(PROFILE_TYPE_DATA_ONLY, "Nur Daten") + + Pages = New ClassDetailPages(My.LogConfig, Me, oLayoutControls) + Pages.AddRange({ + New ClassDetailPages.PrimaryPage(IsInsert) With { + .Name = "Profil", + .TabPage = PageProfile, + .BindingSource = TBCW_PROFILESBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROFILES, + .AddedWhoEdit = txtAddedWho, + .ChangedWhoEdit = txtChangedWho + }, + New ClassDetailPages.DetailPage With { + .Name = "Dokument-Suche", + .TabPage = PageDocumentSearch, + .BindingSource = TBCW_PROF_DOC_SEARCHBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROF_DOC_SEARCH, + .AddedWhoEdit = txtAddedWho1, + .ChangedWhoEdit = txtChangedWho1 + }, + New ClassDetailPages.DetailPage With { + .Name = "Daten-Suche", + .TabPage = PageDataSearch, + .BindingSource = TBCW_PROF_DATA_SEARCHBindingSource, + .DataTable = DBCW_Stammdaten.TBCW_PROF_DATA_SEARCH, + .AddedWhoEdit = txtAddedWho11, + .ChangedWhoEdit = txtChangedWho11 + } + }) + + AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Sub CurrentPage_Changed(sender As Object, e As ClassDetailPages.DetailPageEventArgs) + If Not IsNothing(e.Page) Then + If e.Page.IsPrimary = True Then + BarButtonNew.Enabled = False + Else + BarButtonNew.Enabled = True + End If + + RibbonPageGroup1.Text = e.Page.Name + End If + End Sub + + Private Sub ResetMessages() + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub ShowStatus(Message As String) + labelStatus.Caption = Message + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub BarButtonSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonSave.ItemClick + ResetMessages() + + If Pages.PrepareSave() = True Then + Dim oPage = Pages.Current + + Select Case oPage.TabPage.Name + Case PageProfile.Name + TBCW_PROFILESTableAdapter.Update(oPage.DataTable) + + Case PageDocumentSearch.Name + TBCW_PROF_DOC_SEARCHTableAdapter.Update(oPage.DataTable) + + Case PageDataSearch.Name + TBCW_PROF_DATA_SEARCHTableAdapter.Update(oPage.DataTable) + End Select + + oPage.IsInsert = False + + ShowStatus($"{oPage.Name} gespeichert!") + End If + End Sub + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function + + Public Function AddData() As Boolean + Dim oPage = Pages.Current + + If Pages.Current Is Nothing Then + Return False + End If + + If oPage.IsPrimary = False Then + oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey + End If + + Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew() + + Return True + End Function + + Private Sub TextEdit4_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit4.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_REGEX_PROFILE Then + Dim oForm As New frmRegexEditor(oTextEdit.EditValue) + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.RegexString + End If + End If + End Sub + + Private Sub TextEdit7_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit7.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_SEARCH_SQL Then + Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.SQLString + End If + End If + End Sub + + Private Sub TextEdit8_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit8.ButtonClick + Dim oTextEdit As TextEdit = sender + + If e.Button.Tag = BUTTON_COUNT_SQL Then + Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue} + Dim oResult = oForm.ShowDialog() + + If oResult = DialogResult.OK Then + oTextEdit.EditValue = oForm.SQLString + End If + End If + End Sub + + Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick + Pages.Current.IsInsert = True + + AddData() + End Sub + + Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged + Dim oPage = Pages.GetDetailPage(e.Page) + + If oPage IsNot Nothing Then + Pages.Current = oPage + End If + End Sub +End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb index dd2eeeda..a80915ee 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb @@ -1,6 +1,8 @@ - +Imports DigitalData.GUIs.Common.Base + + Partial Class frmAdmin_Globix - Inherits frmAdmin_Base + Inherits BaseRibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb index 0d351c91..ceb3bdb2 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Globix.vb @@ -1,18 +1,18 @@ Imports DigitalData.Modules.Logging Public Class frmAdmin_Globix - Inherits frmAdmin_Base - Implements frmAdmin_Interface - Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey + Implements IAdminForm + Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + MyBase.New(My.LogConfig) + ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Logger = My.LogConfig.GetLogger() Me.PrimaryKey = PrimaryKey Me.IsInsert = IsInsert End Sub @@ -22,7 +22,7 @@ Public Class frmAdmin_Globix TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) End Try End Sub @@ -51,7 +51,7 @@ Public Class frmAdmin_Globix End If End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Public Function SaveData() As Boolean Implements IAdminForm.SaveData Try TBDD_DOKUMENTARTBindingSource.EndEdit() @@ -70,7 +70,7 @@ Public Class frmAdmin_Globix Return True Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) Return False End Try End Function @@ -78,4 +78,8 @@ Public Class frmAdmin_Globix Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click End Sub + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb index 78fc24cf..39e5753e 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb @@ -1,6 +1,8 @@ - +Imports DigitalData.GUIs.Common.Base + + Partial Class frmAdmin_IDBAttribute - Inherits frmAdmin_Base + Inherits BaseRibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -27,6 +29,7 @@ Partial Class frmAdmin_IDBAttribute Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() @@ -96,15 +99,17 @@ Partial Class frmAdmin_IDBAttribute ' Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 6 + Me.RibbonControl1.MaxItemId = 7 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide - Me.RibbonControl1.Size = New System.Drawing.Size(857, 66) + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.Size = New System.Drawing.Size(857, 63) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' 'BarButtonItem1 ' @@ -129,6 +134,13 @@ Partial Class frmAdmin_IDBAttribute Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 6 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.del1 + Me.BarButtonItem3.Name = "BarButtonItem3" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) @@ -139,16 +151,17 @@ Partial Class frmAdmin_IDBAttribute ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "Daten" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 500) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(857, 22) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(857, 24) ' 'RibbonPage2 ' @@ -169,21 +182,21 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControl1.Controls.Add(Me.txtChangedWhen) Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) + Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(857, 436) + Me.LayoutControl1.Size = New System.Drawing.Size(857, 437) Me.LayoutControl1.TabIndex = 2 Me.LayoutControl1.Text = "LayoutControl1" ' 'TextEdit1 ' Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_ID", True)) - Me.TextEdit1.Location = New System.Drawing.Point(168, 20) + Me.TextEdit1.Location = New System.Drawing.Point(154, 20) Me.TextEdit1.MenuManager = Me.RibbonControl1 Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.Size = New System.Drawing.Size(669, 20) + Me.TextEdit1.Size = New System.Drawing.Size(683, 20) Me.TextEdit1.StyleController = Me.LayoutControl1 Me.TextEdit1.TabIndex = 4 ' @@ -200,10 +213,10 @@ Partial Class frmAdmin_IDBAttribute 'TextEdit2 ' Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ATTR_TITLE", True)) - Me.TextEdit2.Location = New System.Drawing.Point(168, 60) + Me.TextEdit2.Location = New System.Drawing.Point(154, 60) Me.TextEdit2.MenuManager = Me.RibbonControl1 Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Size = New System.Drawing.Size(669, 20) + Me.TextEdit2.Size = New System.Drawing.Size(683, 20) Me.TextEdit2.StyleController = Me.LayoutControl1 Me.TextEdit2.TabIndex = 5 ' @@ -211,11 +224,11 @@ Partial Class frmAdmin_IDBAttribute ' Me.SpinEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "VIEW_SEQUENCE", True)) Me.SpinEdit1.EditValue = New Decimal(New Integer() {0, 0, 0, 0}) - Me.SpinEdit1.Location = New System.Drawing.Point(586, 180) + Me.SpinEdit1.Location = New System.Drawing.Point(572, 180) Me.SpinEdit1.MenuManager = Me.RibbonControl1 Me.SpinEdit1.Name = "SpinEdit1" Me.SpinEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.SpinEdit1.Size = New System.Drawing.Size(251, 20) + Me.SpinEdit1.Size = New System.Drawing.Size(265, 20) Me.SpinEdit1.StyleController = Me.LayoutControl1 Me.SpinEdit1.TabIndex = 6 ' @@ -225,7 +238,7 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit1.MenuManager = Me.RibbonControl1 Me.CheckEdit1.Name = "CheckEdit1" Me.CheckEdit1.Properties.Caption = "Attribut mehrzeilig" - Me.CheckEdit1.Size = New System.Drawing.Size(817, 18) + Me.CheckEdit1.Size = New System.Drawing.Size(817, 20) Me.CheckEdit1.StyleController = Me.LayoutControl1 Me.CheckEdit1.TabIndex = 7 ' @@ -236,67 +249,67 @@ Partial Class frmAdmin_IDBAttribute Me.CheckEdit2.MenuManager = Me.RibbonControl1 Me.CheckEdit2.Name = "CheckEdit2" Me.CheckEdit2.Properties.Caption = "Standard in Ergebnisliste" - Me.CheckEdit2.Size = New System.Drawing.Size(398, 18) + Me.CheckEdit2.Size = New System.Drawing.Size(398, 20) Me.CheckEdit2.StyleController = Me.LayoutControl1 Me.CheckEdit2.TabIndex = 8 ' 'TextEdit3 ' - Me.TextEdit3.Location = New System.Drawing.Point(168, 140) + Me.TextEdit3.Location = New System.Drawing.Point(154, 140) Me.TextEdit3.MenuManager = Me.RibbonControl1 Me.TextEdit3.Name = "TextEdit3" - Me.TextEdit3.Size = New System.Drawing.Size(669, 20) + Me.TextEdit3.Size = New System.Drawing.Size(683, 20) Me.TextEdit3.StyleController = Me.LayoutControl1 Me.TextEdit3.TabIndex = 9 ' 'txtAddedWho ' Me.txtAddedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHO", True)) - Me.txtAddedWho.Location = New System.Drawing.Point(168, 258) + Me.txtAddedWho.Location = New System.Drawing.Point(154, 260) Me.txtAddedWho.MenuManager = Me.RibbonControl1 Me.txtAddedWho.Name = "txtAddedWho" Me.txtAddedWho.Properties.ReadOnly = True - Me.txtAddedWho.Size = New System.Drawing.Size(250, 20) + Me.txtAddedWho.Size = New System.Drawing.Size(264, 20) Me.txtAddedWho.StyleController = Me.LayoutControl1 Me.txtAddedWho.TabIndex = 10 ' 'txtAddedWhen ' Me.txtAddedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "ADDED_WHEN", True)) - Me.txtAddedWhen.Location = New System.Drawing.Point(586, 258) + Me.txtAddedWhen.Location = New System.Drawing.Point(572, 260) Me.txtAddedWhen.MenuManager = Me.RibbonControl1 Me.txtAddedWhen.Name = "txtAddedWhen" Me.txtAddedWhen.Properties.ReadOnly = True - Me.txtAddedWhen.Size = New System.Drawing.Size(251, 20) + Me.txtAddedWhen.Size = New System.Drawing.Size(265, 20) Me.txtAddedWhen.StyleController = Me.LayoutControl1 Me.txtAddedWhen.TabIndex = 11 ' 'txtChangedWho ' Me.txtChangedWho.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHO", True)) - Me.txtChangedWho.Location = New System.Drawing.Point(168, 298) + Me.txtChangedWho.Location = New System.Drawing.Point(154, 300) Me.txtChangedWho.MenuManager = Me.RibbonControl1 Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Properties.ReadOnly = True - Me.txtChangedWho.Size = New System.Drawing.Size(250, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(264, 20) Me.txtChangedWho.StyleController = Me.LayoutControl1 Me.txtChangedWho.TabIndex = 12 ' 'txtChangedWhen ' Me.txtChangedWhen.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "CHANGED_WHEN", True)) - Me.txtChangedWhen.Location = New System.Drawing.Point(586, 298) + Me.txtChangedWhen.Location = New System.Drawing.Point(572, 300) Me.txtChangedWhen.MenuManager = Me.RibbonControl1 Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Properties.ReadOnly = True - Me.txtChangedWhen.Size = New System.Drawing.Size(251, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(265, 20) Me.txtChangedWhen.StyleController = Me.LayoutControl1 Me.txtChangedWhen.TabIndex = 13 ' 'ComboBoxEdit1 ' Me.ComboBoxEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.VWIDB_BE_ATTRIBUTEBindingSource, "TYPE_ID", True)) - Me.ComboBoxEdit1.Location = New System.Drawing.Point(168, 100) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(154, 100) Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 Me.ComboBoxEdit1.Name = "ComboBoxEdit1" Me.ComboBoxEdit1.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFit @@ -306,7 +319,7 @@ Partial Class frmAdmin_IDBAttribute Me.ComboBoxEdit1.Properties.NullText = "" Me.ComboBoxEdit1.Properties.PopupSizeable = False Me.ComboBoxEdit1.Properties.ValueMember = "GUID" - Me.ComboBoxEdit1.Size = New System.Drawing.Size(669, 20) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(683, 20) Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 Me.ComboBoxEdit1.TabIndex = 14 ' @@ -321,7 +334,7 @@ Partial Class frmAdmin_IDBAttribute Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem3, Me.LayoutControlItem11, Me.LayoutControlItem9, Me.LayoutControlItem5, Me.LayoutControlItem8, Me.LayoutControlItem10}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(857, 436) + Me.Root.Size = New System.Drawing.Size(857, 437) Me.Root.TextVisible = False ' 'LayoutControlItem1 @@ -333,7 +346,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem1.Size = New System.Drawing.Size(837, 40) Me.LayoutControlItem1.Text = "GUID" - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem2 ' @@ -343,7 +356,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem2.Size = New System.Drawing.Size(837, 40) Me.LayoutControlItem2.Text = "Bezeichnung" - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem4 ' @@ -351,7 +364,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 200) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem4.Size = New System.Drawing.Size(837, 38) + Me.LayoutControlItem4.Size = New System.Drawing.Size(837, 40) Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem4.TextVisible = False ' @@ -363,17 +376,17 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem6.Size = New System.Drawing.Size(837, 40) Me.LayoutControlItem6.Text = "Kommentar" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem7 ' Me.LayoutControlItem7.Control = Me.txtAddedWho - Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 238) + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 240) Me.LayoutControlItem7.Name = "LayoutControlItem7" Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem7.Size = New System.Drawing.Size(418, 40) Me.LayoutControlItem7.Text = "Erstellt Wer" - Me.LayoutControlItem7.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem3 ' @@ -384,7 +397,7 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem3.Size = New System.Drawing.Size(419, 40) Me.LayoutControlItem3.Text = "Reihenfolge in Ergebnisliste" - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem11 ' @@ -394,17 +407,17 @@ Partial Class frmAdmin_IDBAttribute Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem11.Size = New System.Drawing.Size(837, 40) Me.LayoutControlItem11.Text = "Attribut-Typ" - Me.LayoutControlItem11.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem9 ' Me.LayoutControlItem9.Control = Me.txtChangedWho - Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 278) + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 280) Me.LayoutControlItem9.Name = "LayoutControlItem9" Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem9.Size = New System.Drawing.Size(418, 138) + Me.LayoutControlItem9.Size = New System.Drawing.Size(418, 137) Me.LayoutControlItem9.Text = "Geändert Wer" - Me.LayoutControlItem9.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem5 ' @@ -419,22 +432,22 @@ Partial Class frmAdmin_IDBAttribute 'LayoutControlItem8 ' Me.LayoutControlItem8.Control = Me.txtAddedWhen - Me.LayoutControlItem8.Location = New System.Drawing.Point(418, 238) + Me.LayoutControlItem8.Location = New System.Drawing.Point(418, 240) Me.LayoutControlItem8.Name = "LayoutControlItem8" Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem8.Size = New System.Drawing.Size(419, 40) Me.LayoutControlItem8.Text = "Erstellt Wann" - Me.LayoutControlItem8.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(131, 13) ' 'LayoutControlItem10 ' Me.LayoutControlItem10.Control = Me.txtChangedWhen - Me.LayoutControlItem10.Location = New System.Drawing.Point(418, 278) + Me.LayoutControlItem10.Location = New System.Drawing.Point(418, 280) Me.LayoutControlItem10.Name = "LayoutControlItem10" Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem10.Size = New System.Drawing.Size(419, 138) + Me.LayoutControlItem10.Size = New System.Drawing.Size(419, 137) Me.LayoutControlItem10.Text = "Geändert Wann" - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(145, 13) + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(131, 13) ' 'TableAdapterManager ' @@ -443,6 +456,7 @@ Partial Class frmAdmin_IDBAttribute Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'VWIDB_BE_ATTRIBUTETableAdapter @@ -538,4 +552,5 @@ Partial Class frmAdmin_IDBAttribute Friend WithEvents TBIDB_ATTRIBUTE_TYPEBindingSource As BindingSource Friend WithEvents TBIDB_ATTRIBUTE_TYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_ATTRIBUTE_TYPETableAdapter Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.LookUpEdit + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb index d7a5f62e..c9bb2bb9 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb @@ -1,12 +1,9 @@ -Imports DigitalData.Modules.Logging +Public Class frmAdmin_IDBAttribute + Implements IAdminForm -Public Class frmAdmin_IDBAttribute - Inherits frmAdmin_Base - Implements frmAdmin_Interface - - Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey + Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) ' Dieser Aufruf ist für den Designer erforderlich. @@ -22,7 +19,7 @@ Public Class frmAdmin_IDBAttribute TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE) VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1) Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) End Try End Sub @@ -51,7 +48,7 @@ Public Class frmAdmin_IDBAttribute End If End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Public Function SaveData() As Boolean Implements IAdminForm.SaveData Try VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() @@ -72,7 +69,7 @@ Public Class frmAdmin_IDBAttribute Return True Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) Return False End Try End Function @@ -86,4 +83,22 @@ Public Class frmAdmin_IDBAttribute COMMENT = @COMMENT WHERE (GUID = @GUID)" End Sub + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + End Function + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If MsgBox($"Wollen Sie das Attribut [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteData() Then + Close() + End If + End If + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb index 1324d6a2..5f706cb9 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb @@ -1,6 +1,8 @@ - _ +Imports DigitalData.GUIs.Common.Base + + Partial Class frmAdmin_IDBEntity - Inherits frmAdmin_Base + Inherits BaseRibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ @@ -27,6 +29,7 @@ Partial Class frmAdmin_IDBEntity Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() @@ -85,9 +88,9 @@ Partial Class frmAdmin_IDBEntity ' Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.labelStatus, Me.BarButtonItem3}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 4 + Me.RibbonControl1.MaxItemId = 5 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -119,6 +122,13 @@ Partial Class frmAdmin_IDBEntity Me.labelStatus.Name = "labelStatus" Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Löschen" + Me.BarButtonItem3.Id = 4 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.del + Me.BarButtonItem3.Name = "BarButtonItem3" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) @@ -129,6 +139,7 @@ Partial Class frmAdmin_IDBEntity ' Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" Me.RibbonPageGroup1.Text = "RibbonPageGroup1" ' @@ -375,6 +386,7 @@ Partial Class frmAdmin_IDBEntity Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Me.TBIDB_BUSINESS_ENTITYTableAdapter + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmAdmin_IDBEntity @@ -464,4 +476,5 @@ Partial Class frmAdmin_IDBEntity Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx index 401cbdab..bb650dbd 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.resx @@ -123,9 +123,6 @@ 17, 17 - - 17, 17 - 443, 17 diff --git a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb index c8d7747b..59374466 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb @@ -1,18 +1,18 @@ Imports DigitalData.Modules.Logging Public Class frmAdmin_IDBEntity - Inherits frmAdmin_Base - Implements frmAdmin_Interface - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey - Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert + Implements IAdminForm + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) + MyBase.New(My.LogConfig) + ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Logger = My.LogConfig.GetLogger() Me.PrimaryKey = PrimaryKey Me.IsInsert = IsInsert End Sub @@ -21,7 +21,7 @@ Public Class frmAdmin_IDBEntity Try TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey) Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) End Try End Sub @@ -49,7 +49,7 @@ Public Class frmAdmin_IDBEntity End If End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Public Function SaveData() As Boolean Try TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() @@ -68,8 +68,26 @@ Public Class frmAdmin_IDBEntity Return True Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) Return False End Try End Function + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + End Function + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If MsgBox($"Wollen Sie die Entität [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteData() Then + Close() + End If + End If + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb index 3b42cd8e..a1a2fc98 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb @@ -1,6 +1,8 @@ - +Imports DigitalData.GUIs.Common.Base + + Partial Class frmAdmin_SourceSQL - Inherits frmAdmin_Base + Inherits BaseRibbonForm 'Form overrides dispose to clean up the component list. @@ -55,6 +57,7 @@ Partial Class frmAdmin_SourceSQL Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.TBZF_ADMIN_SOURCE_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter() Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.DxValidationProvider1 = New DevExpress.XtraEditors.DXErrorProvider.DXValidationProvider(Me.components) CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -82,6 +85,7 @@ Partial Class frmAdmin_SourceSQL CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DxValidationProvider1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'RibbonControl @@ -104,7 +108,7 @@ Partial Class frmAdmin_SourceSQL ' Me.BarButtonItem1.Caption = "Speichern und Schließen" Me.BarButtonItem1.Id = 1 - Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check4 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.markcomplete1 Me.BarButtonItem1.Name = "BarButtonItem1" ' 'BarButtonItem2 @@ -166,6 +170,7 @@ Partial Class frmAdmin_SourceSQL Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Location = New System.Drawing.Point(0, 66) Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(816, 316, 650, 400) Me.LayoutControl1.Root = Me.Root Me.LayoutControl1.Size = New System.Drawing.Size(768, 519) Me.LayoutControl1.TabIndex = 2 @@ -456,6 +461,7 @@ Partial Class frmAdmin_SourceSQL CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DxValidationProvider1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -482,7 +488,6 @@ Partial Class frmAdmin_SourceSQL Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten Friend WithEvents TBZF_ADMIN_SOURCE_SQLBindingSource As BindingSource Friend WithEvents TBZF_ADMIN_SOURCE_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBZF_ADMIN_SOURCE_SQLTableAdapter @@ -496,4 +501,6 @@ Partial Class frmAdmin_SourceSQL Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents DxValidationProvider1 As DevExpress.XtraEditors.DXErrorProvider.DXValidationProvider End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx index 452569f0..9db89a3e 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.resx @@ -123,13 +123,13 @@ 17, 17 - - 17, 17 - 457, 17 731, 17 + + 904, 17 + \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb index 24f5a165..78a9fe59 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb @@ -1,11 +1,14 @@ -Public Class frmAdmin_SourceSQL - Implements frmAdmin_Interface +Imports DevExpress.XtraEditors.DXErrorProvider +Imports DevExpress.XtraLayout - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey +Public Class frmAdmin_SourceSQL + Implements IAdminForm - Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey - Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Public Sub New(PrimaryKey As Integer) ' Dieser Aufruf ist für den Designer erforderlich. @@ -15,7 +18,58 @@ Me.PrimaryKey = PrimaryKey End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + If IsInsert Then + TBZF_ADMIN_SOURCE_SQLBindingSource.AddNew() + Else + TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey) + End If + + ValidationHelper() + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Public Sub ValidationHelper() + Dim oTable As DataTable = DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL + Dim oProvider As DXValidationProvider = DxValidationProvider1 + Dim oRootControl As Control = LayoutControl1 + Dim oControls As List(Of Control) = oRootControl.Controls. + OfType(Of Control). + ToList() + + Dim oBoundControls = ListBoundControls(oControls) + + Console.WriteLine(oBoundControls.Count) + + For Each oControl As Control In oBoundControls + Dim oBinding As Binding = oControl.DataBindings.Item(0) + Next + End Sub + + + Public Function ListBoundControls(Controls As List(Of Control)) As List(Of Control) + Dim oControlList As New List(Of Control) + + For Each oControl As Control In Controls + If oControl.DataBindings IsNot Nothing AndAlso oControl.DataBindings.Count > 0 Then + oControlList.Add(oControl) + End If + + If oControl.Controls IsNot Nothing AndAlso oControl.Controls.Count > 0 Then + Dim oControls As New List(Of Control) + oControls.AddRange(oControl.Controls.OfType(Of Control)) + + oControlList.AddRange(ListBoundControls(oControls)) + End If + Next + + Return oControlList + End Function + + Public Function SaveData() As Boolean Try TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() @@ -34,18 +88,22 @@ Return True Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) + Return False + End Try + End Function + + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Try + TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey) + Return True + Catch ex As Exception + ShowErrorMessage(ex) Return False End Try End Function - Private Sub frmAdmin_SourceSQL_Load(sender As Object, e As EventArgs) Handles Me.Load - Try - TBZF_ADMIN_SOURCE_SQLTableAdapter.Fill(DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL, PrimaryKey) - Catch ex As Exception - ShowError(ex) - End Try - End Sub + Private Sub ResetMessages() labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never @@ -71,4 +129,12 @@ Close() End If End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + If MsgBox($"Wollen Sie den SourceSQL [{PrimaryKey}] wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then + If DeleteData() Then + Close() + End If + End If + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index cff44f8e..270c0430 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -1,9 +1,10 @@ Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid.Views.Grid +Imports DigitalData.GUIs.Common.Base Partial Class frmAdmin_Start - Inherits frmAdmin_Base + Inherits BaseRibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -55,14 +56,11 @@ Partial Class frmAdmin_Start Me.BarButtonItem23 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem24 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem25 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem26 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem27 = New DevExpress.XtraBars.BarButtonItem() - Me.BarButtonItem28 = New DevExpress.XtraBars.BarButtonItem() + Me.btnAddRecord = New DevExpress.XtraBars.BarButtonItem() + Me.btnEditRecord = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup20 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonPageGroup21 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.TreeListMenu = New DevExpress.XtraTreeList.TreeList() @@ -134,14 +132,14 @@ Partial Class frmAdmin_Start 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.BarButtonItem26, Me.BarButtonItem27, Me.BarButtonItem28}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.labelStatus, Me.labelError, Me.BarButtonItemAddAttribute, Me.BarButtonItemRefreshAttribute, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.BarButtonItem20, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem23, Me.BarButtonItem24, Me.BarButtonItem25, Me.btnAddRecord, Me.btnEditRecord}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) Me.RibbonControl1.MaxItemId = 34 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowToolbarCustomizeItem = False - Me.RibbonControl1.Size = New System.Drawing.Size(1077, 158) + Me.RibbonControl1.Size = New System.Drawing.Size(1077, 159) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.Toolbar.ShowCustomizeItem = False ' @@ -344,27 +342,23 @@ Partial Class frmAdmin_Start Me.BarButtonItem25.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_deletecircled5 Me.BarButtonItem25.Name = "BarButtonItem25" ' - 'BarButtonItem26 + 'btnAddRecord ' - Me.BarButtonItem26.Caption = "BarButtonItem26" - Me.BarButtonItem26.Id = 31 - Me.BarButtonItem26.Name = "BarButtonItem26" + Me.btnAddRecord.Caption = "Hinzufügen" + Me.btnAddRecord.Id = 31 + Me.btnAddRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_add + Me.btnAddRecord.Name = "btnAddRecord" ' - 'BarButtonItem27 + 'btnEditRecord ' - Me.BarButtonItem27.Caption = "BarButtonItem27" - Me.BarButtonItem27.Id = 32 - Me.BarButtonItem27.Name = "BarButtonItem27" - ' - 'BarButtonItem28 - ' - Me.BarButtonItem28.Caption = "BarButtonItem28" - Me.BarButtonItem28.Id = 33 - Me.BarButtonItem28.Name = "BarButtonItem28" + Me.btnEditRecord.Caption = "Bearbeiten" + Me.btnEditRecord.Id = 32 + Me.btnEditRecord.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_edit2 + Me.btnEditRecord.Name = "btnEditRecord" ' 'RibbonPage1 ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1, Me.RibbonPageGroup20, Me.RibbonPageGroup21}) + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.RibbonPageGroup1}) Me.RibbonPage1.Name = "RibbonPage1" Me.RibbonPage1.Text = "Start" ' @@ -377,30 +371,20 @@ Partial Class frmAdmin_Start ' 'RibbonPageGroup1 ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem26) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem27) - Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem28) + Me.RibbonPageGroup1.Enabled = False + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnAddRecord) + Me.RibbonPageGroup1.ItemLinks.Add(Me.btnEditRecord) Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "IDB" - ' - 'RibbonPageGroup20 - ' - Me.RibbonPageGroup20.Name = "RibbonPageGroup20" - Me.RibbonPageGroup20.Text = "GLOBIX" - ' - 'RibbonPageGroup21 - ' - Me.RibbonPageGroup21.Name = "RibbonPageGroup21" - Me.RibbonPageGroup21.Text = "CW" + Me.RibbonPageGroup1.Text = "Datensätze" ' 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) Me.RibbonStatusBar1.ItemLinks.Add(Me.labelError) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 652) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 24) + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1077, 22) ' 'RibbonPage2 ' @@ -409,6 +393,8 @@ Partial Class frmAdmin_Start ' 'TreeListMenu ' + Me.TreeListMenu.Appearance.FocusedCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.TreeListMenu.Appearance.FocusedCell.Options.UseBackColor = True Me.TreeListMenu.Appearance.FocusedRow.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) Me.TreeListMenu.Appearance.FocusedRow.Options.UseBackColor = True Me.TreeListMenu.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1}) @@ -417,12 +403,12 @@ Partial Class frmAdmin_Start Me.TreeListMenu.MenuManager = Me.RibbonControl1 Me.TreeListMenu.Name = "TreeListMenu" Me.TreeListMenu.BeginUnboundLoad() - Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "IDB_START") + Me.TreeListMenu.AppendNode(New Object() {"IDB"}, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Attribute"}, 0, 2, 2, -1, "IDB_ATTRIBUTES") Me.TreeListMenu.AppendNode(New Object() {"Business Entities"}, 0, 1, 1, -1, "IDB_BUSINESS_ENTITIES") - Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "GLOBIX_START") + Me.TreeListMenu.AppendNode(New Object() {"Global Indexer"}, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 3, 4, 4, -1, "GLOBIX_PROFILES") - Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "CW_START") + Me.TreeListMenu.AppendNode(New Object() {"Clipboard Watcher"}, -1, "") Me.TreeListMenu.AppendNode(New Object() {"Profiles"}, 5, 4, 4, -1, "CW_PROFILES") Me.TreeListMenu.AppendNode(New Object() {"Administration"}, -1) Me.TreeListMenu.AppendNode(New Object() {"Source SQL"}, 7, 3, 3, -1, "META_SOURCE_SQL") @@ -433,7 +419,7 @@ Partial Class frmAdmin_Start Me.TreeListMenu.OptionsView.ShowIndicator = False Me.TreeListMenu.OptionsView.ShowVertLines = False Me.TreeListMenu.SelectImageList = Me.MainTreeImages - Me.TreeListMenu.Size = New System.Drawing.Size(193, 465) + Me.TreeListMenu.Size = New System.Drawing.Size(193, 446) Me.TreeListMenu.TabIndex = 8 ' 'TreeListColumn1 @@ -464,18 +450,18 @@ Partial Class frmAdmin_Start Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left Me.DockPanel1.ID = New System.Guid("ce81b5b5-eff5-4006-8018-548aa8413799") - Me.DockPanel1.Location = New System.Drawing.Point(0, 158) + Me.DockPanel1.Location = New System.Drawing.Point(0, 159) Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) - Me.DockPanel1.Size = New System.Drawing.Size(200, 494) + Me.DockPanel1.Size = New System.Drawing.Size(200, 495) Me.DockPanel1.Text = "Übersicht" ' 'DockPanel1_Container ' Me.DockPanel1_Container.Controls.Add(Me.TreeListMenu) - Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 26) + Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 465) + Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446) Me.DockPanel1_Container.TabIndex = 0 ' 'TBIDB_ATTRIBUTEBindingSource @@ -495,6 +481,7 @@ Partial Class frmAdmin_Start Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBIDB_ATTRIBUTE_TYPEBindingSource @@ -524,9 +511,9 @@ Partial Class frmAdmin_Start ' Me.Panel1.Controls.Add(Me.labelTitle) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel1.Location = New System.Drawing.Point(200, 158) + Me.Panel1.Location = New System.Drawing.Point(200, 159) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(877, 46) + Me.Panel1.Size = New System.Drawing.Size(877, 9) Me.Panel1.TabIndex = 8 Me.Panel1.TabStop = True ' @@ -537,7 +524,7 @@ Partial Class frmAdmin_Start Me.labelTitle.Location = New System.Drawing.Point(0, 0) Me.labelTitle.Name = "labelTitle" Me.labelTitle.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) - Me.labelTitle.Size = New System.Drawing.Size(877, 46) + Me.labelTitle.Size = New System.Drawing.Size(877, 9) Me.labelTitle.TabIndex = 0 Me.labelTitle.Text = "labelTitle" Me.labelTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft @@ -727,11 +714,11 @@ Partial Class frmAdmin_Start 'GridControl1 ' Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControl1.Location = New System.Drawing.Point(200, 204) + Me.GridControl1.Location = New System.Drawing.Point(200, 168) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MenuManager = Me.RibbonControl1 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(877, 448) + Me.GridControl1.Size = New System.Drawing.Size(877, 486) Me.GridControl1.TabIndex = 12 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -739,6 +726,7 @@ Partial Class frmAdmin_Start ' Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False ' 'RibbonPageGroupAttributes ' @@ -897,12 +885,9 @@ Partial Class frmAdmin_Start Friend WithEvents BarButtonItem25 As DevExpress.XtraBars.BarButtonItem Friend WithEvents GridControl1 As GridControl Friend WithEvents GridView1 As GridView - Friend WithEvents BarButtonItem26 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem27 As DevExpress.XtraBars.BarButtonItem - Friend WithEvents BarButtonItem28 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnAddRecord As DevExpress.XtraBars.BarButtonItem + Friend WithEvents btnEditRecord As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup20 As DevExpress.XtraBars.Ribbon.RibbonPageGroup - Friend WithEvents RibbonPageGroup21 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroupAttributes As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPage_IDB As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonGroup_ClipboardWatcher_Process As DevExpress.XtraBars.Ribbon.RibbonPageGroup diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb index 44fd4d18..f48830c4 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.vb @@ -1,89 +1,67 @@ -Imports System.ComponentModel -Imports DevExpress.Utils -Imports DevExpress.XtraBars.Ribbon +Imports DevExpress.Utils Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.Repository -Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Views.Grid -Imports DevExpress.XtraGrid.Views.Grid.ViewInfo -Imports DevExpress.XtraTab -Imports DevExpress.XtraTreeList Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants +Imports DevExpress.XtraGrid Public Class frmAdmin_Start - Inherits frmAdmin_Base - - Private Const COLUMN_NAME_ACTIVE = "ACTIVE" - - Private Const MODULE_IDB = "IDB" - Private Const PAGE_IDB_START = "IDB_START" - Private Const PAGE_IDB_ATTRIBUTES = "IDB_ATTRIBUTES" - Private Const PAGE_IDB_BUSINESS_ENTITIES = "IDB_BUSINESS_ENTITIES" - Private Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL" - - Private Const MODULE_GLOBIX = "GLOBIX" - Private Const PAGE_GLOBIX_PROFILES = "GLOBIX_PROFILES" - - Private Const MODULE_CW = "CW" - Private Const PAGE_CW_PROFILES = "CW_PROFILES" - - Private Const MODULE_META = "META" - Private Const PAGE_META_SOURCE_SQL = "META_SOURCE_SQL" - - Private PrimaryKey As String = Nothing - Private AdminItems As New List(Of AdminItem) - Private CurrentModule As String Private CurrentPage As String - Private CurrentItem As AdminItem + Private CurrentItem As ClassDetailForm.DetailData - Private Function IsIDBAttributes(Item As AdminItem) As Boolean - Return Item.Entity = PAGE_IDB_ATTRIBUTES - End Function - - Private Function IsIDBEntities(Item As AdminItem) As Boolean - Return Item.Entity = PAGE_IDB_BUSINESS_ENTITIES - End Function - - Private Function IsCWPRofiles(Item As AdminItem) As Boolean - Return Item.Entity = PAGE_CW_PROFILES - End Function - - Private Function IsGLOBIXProfiles(Item As AdminItem) As Boolean - Return Item.Entity = PAGE_GLOBIX_PROFILES - End Function - - Private Function IsSourceSQL(Item As AdminItem) As Boolean - Return Item.Entity = PAGE_META_SOURCE_SQL - End Function - - Private Class AdminItem - Public Property Guid As Integer - Public Property ParentId As Integer - Public Property Entity As String - Public Property Scope As String - Public Property PrimaryKey As String - Public Property ForeignKey As String - Public Property SQLCommand As String - Public Property SQLResult As DataTable - End Class + Private DetailForm As ClassDetailForm Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + DetailForm = New ClassDetailForm(My.LogConfig) + AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed + Load_SQLData() - TreeListMenu.ExpandAll() - - AddHandler GridControl1.DoubleClick, AddressOf GridControl_DoubleClick End Sub + Private Sub DetailForm_Closed(sender As Object, e As IAdminForm) + If e.HasChanges Then + Load_SQLData() + Load_GridData(DetailForm.DetailDataList.Item(CurrentPage)) + End If + End Sub + + Private Function Handle_LoadPage(Page As String) As Boolean + If DetailForm.DetailSettingsList.ContainsKey(Page) Then + Dim oNode = DetailForm.DetailSettingsList.Item(Page) + CurrentModule = oNode.Module + labelTitle.Text = oNode.GridTitle + btnAddRecord.Caption = oNode.NewRecordTitle + Else + MsgBox($"Page [{Page}] not found in AdminNodes! Exiting." & vbNewLine & + "Check your definitions in the TreeList NodeEditor and in SourceSQL", MsgBoxStyle.Critical, Text) + Return False + End If + + If DetailForm.DetailDataList.ContainsKey(Page) Then + Dim oItem = DetailForm.DetailDataList.Item(Page) + Load_GridData(oItem) + CurrentItem = oItem + Else + MsgBox($"Page [{Page}] not found in AdminItems! Exiting." & vbNewLine & + "Check your definitions in the TreeList NodeEditor and in SourceSQL", MsgBoxStyle.Critical, Text) + Return False + End If + + Return True + End Function + Private Function Load_SQLData() As Boolean Try Dim oTable As DataTable = My.Database.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL") - AdminItems.Clear() + DetailForm.DetailDataList.Clear() For Each oRow As DataRow In oTable.Rows - Dim oItem As New AdminItem With { + Dim oItem As New ClassDetailForm.DetailData With { .Guid = CInt(oRow.Item("GUID")), .ParentId = CInt(oRow.Item("PARENT_ID")), .Entity = oRow.Item("ENTITY_TITLE").ToString, @@ -100,8 +78,9 @@ Public Class frmAdmin_Start Logger.Error(ex) End Try - AdminItems.Add(oItem) + DetailForm.DetailDataList.Add(oItem.Entity, oItem) Next + Return True Catch ex As Exception Logger.Error(ex) @@ -109,92 +88,24 @@ Public Class frmAdmin_Start End Try End Function - Sub Display_Tab(pPageToDisplay As XtraTabPage) + Private Sub TreeListMenu_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged Try - If pPageToDisplay.TabControl Is Nothing Then - Exit Sub - End If - - For Each oDocument As XtraTabPage In pPageToDisplay.TabControl.TabPages - If oDocument.Name = pPageToDisplay.Name Then - oDocument.PageVisible = True - Else - oDocument.PageVisible = False - End If - Next - Catch ex As Exception - ShowError(ex) - End Try - End Sub - - Sub Display_RibbonPage(PageToDisplay As RibbonPage) - Try - For Each oPage As RibbonPage In RibbonControl1.Pages - If oPage.Name = PageToDisplay.Name Then - RibbonControl1.SelectedPage = PageToDisplay - End If - Next - Catch ex As Exception - ShowError(ex) - End Try - End Sub - - Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListMenu.FocusedNodeChanged - Try - If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then + If e.Node Is Nothing OrElse e.Node.Tag Is Nothing OrElse e.Node.Tag = String.Empty Then + RibbonPageGroup1.Enabled = False labelTitle.Text = "Start" Exit Sub End If - CurrentPage = e.Node.Tag.ToString - - Select Case e.Node.Tag.ToString - Case PAGE_IDB_START - CurrentModule = MODULE_IDB - labelTitle.Text = "IDB Übersicht" - - Case PAGE_IDB_ATTRIBUTES - CurrentModule = MODULE_IDB - labelTitle.Text = "IDB Attribute" - - CurrentItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault() - Load_Tree(CurrentItem) - - Case PAGE_IDB_BUSINESS_ENTITIES - CurrentModule = MODULE_IDB - labelTitle.Text = "IDB Entitäten" - - CurrentItem = AdminItems.Where(AddressOf IsIDBEntities).FirstOrDefault() - Load_Tree(CurrentItem) - - Case PAGE_GLOBIX_PROFILES - CurrentModule = MODULE_GLOBIX - labelTitle.Text = "Global Indexer Profile" - - CurrentItem = AdminItems.Where(AddressOf IsGLOBIXProfiles).FirstOrDefault() - Load_Tree(CurrentItem) - - Case PAGE_CW_PROFILES - CurrentModule = MODULE_CW - labelTitle.Text = "Clipboard Watcher Profile" - - CurrentItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault() - Load_Tree(CurrentItem) - - Case PAGE_META_SOURCE_SQL - CurrentModule = MODULE_META - labelTitle.Text = "Source SQL" - - CurrentItem = AdminItems.Where(AddressOf IsSourceSQL).FirstOrDefault() - Load_Tree(CurrentItem) - - End Select + If Handle_LoadPage(e.Node.Tag.ToString) Then + RibbonPageGroup1.Enabled = True + CurrentPage = e.Node.Tag.ToString + End If Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) End Try End Sub - Private Sub Style_ActiveColumn(ActiveColumn) + Private Sub Style_ActiveColumn(ActiveColumn As GridColumn) Dim oActiveEditor As New RepositoryItemImageComboBox With { .SmallImages = ActiveImages, .GlyphAlignment = HorzAlignment.Center @@ -218,7 +129,7 @@ Public Class frmAdmin_Start End With End Sub - Private Sub Load_Tree(Source As AdminItem) + Private Sub Load_GridData(Source As ClassDetailForm.DetailData) If Source Is Nothing OrElse Source.SQLResult Is Nothing Then Exit Sub End If @@ -227,7 +138,6 @@ Public Class frmAdmin_Start GridControl1.ForceInitialize() GridView1.PopulateColumns() - If GridView1.Columns.Item(COLUMN_NAME_ACTIVE) Is Nothing Then Dim oActiveColumn = New GridColumn() With {.FieldName = COLUMN_NAME_ACTIVE} GridView1.Columns.Add(oActiveColumn) @@ -267,142 +177,49 @@ Public Class frmAdmin_Start .AlwaysVisible = True End With - AddHandler GridView1.KeyDown, Sub(sender As GridView, e As KeyEventArgs) - Dim oView As GridView = sender - If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then - Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn) - If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then - Clipboard.SetText(oCellValue.ToString) - End If - e.Handled = True - End If - End Sub + AddHandler GridView1.KeyDown, AddressOf GridView1_KeyDown GridView1.BestFitColumns() End Sub - Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick - Dim oGrid As GridControl = TryCast(sender, GridControl) - Dim oView As GridView = oGrid.MainView - Dim hitInfo As GridHitInfo = oView.CalcHitInfo(TryCast(e, DXMouseEventArgs).Location) - If hitInfo.InRow Then - Try - Dim oRowView As DataRowView = oView.GetFocusedRow - Dim oItem As AdminItem = CurrentItem - Dim oGuid = oRowView.Row.Item(oItem.PrimaryKey) - - If oRowView IsNot Nothing Then - Select Case CurrentPage - Case PAGE_IDB_ATTRIBUTES - Load_IDBAttribute(oGuid) - - Case PAGE_IDB_BUSINESS_ENTITIES - Load_IDBEntity(oGuid) - - Case PAGE_CW_PROFILES - Load_CWProfile(oGuid) - - Case PAGE_GLOBIX_PROFILES - GLOBIX_JUMP_DOCTYPE_ID = oGuid - Load_GLOBIXProfile(oGuid) - - Case PAGE_META_SOURCE_SQL - Load_SourceSQL(oGuid) - End Select - End If - Catch ex As Exception - ShowError(ex) - End Try + Public Sub GridView1_KeyDown(sender As GridView, e As KeyEventArgs) + Dim oView As GridView = sender + If e.Control AndAlso e.KeyCode = Keys.C And e.Modifiers = Keys.Control Then + Dim oCellValue = oView.GetRowCellValue(oView.FocusedRowHandle, oView.FocusedColumn) + If oCellValue IsNot Nothing AndAlso oCellValue.ToString() <> String.Empty Then + Clipboard.SetText(oCellValue.ToString) + End If + e.Handled = True End If End Sub - Private Sub Load_SourceSQL(PrimaryKey As Integer) + Private Sub GridView1_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView1.RowClick Try - Dim oForm As New frmAdmin_SourceSQL(PrimaryKey) - oForm.ShowDialog() + If e.Clicks = 2 And e.Button = MouseButtons.Left Then + Dim oPrimaryKey = Get_PrimaryKey(e.RowHandle) - If oForm.HasChanges Then - Load_SQLData() - Dim oItem As AdminItem = AdminItems.Where(AddressOf IsSourceSQL).FirstOrDefault - Load_Tree(oItem) + If oPrimaryKey IsNot Nothing Then + DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False) + End If End If Catch ex As Exception - ShowError(ex) + ShowErrorMessage(ex) End Try End Sub - Private Sub Load_IDBAttribute(PrimaryKey As Integer) + Private Function Get_PrimaryKey(RowHandle As Integer) Try - Dim oForm As New frmAdmin_IDBAttribute(PrimaryKey) - oForm.ShowDialog() + Dim oView As GridView = GridView1 + Dim oRowView As DataRowView = oView.GetRow(RowHandle) + Dim oItem As ClassDetailForm.DetailData = CurrentItem + Dim oGuid = oRowView.Row.Item(oItem.PrimaryKey) - If oForm.HasChanges Then - Load_SQLData() - Dim oItem As AdminItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault - Load_Tree(oItem) - End If + Return oGuid Catch ex As Exception - ShowError(ex) + Logger.Error(ex) + Return Nothing End Try - End Sub - - Private Sub Load_IDBEntity(PrimaryKey As Integer) - Try - Dim oForm As New frmAdmin_IDBEntity(PrimaryKey) - oForm.ShowDialog() - - If oForm.HasChanges Then - Load_SQLData() - Dim oItem As AdminItem = AdminItems.Where(AddressOf IsIDBAttributes).FirstOrDefault - Load_Tree(oItem) - End If - Catch ex As Exception - ShowError(ex) - End Try - End Sub - - Private Sub Load_CWProfile(PrimaryKey As Integer) - Try - Dim oForm As New frmAdmin_CWProfile(PrimaryKey) - oForm.ShowDialog() - - If oForm.HasChanges Then - Load_SQLData() - - Dim oItem As AdminItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault - Load_Tree(oItem) - End If - Catch ex As Exception - ShowError(ex) - End Try - End Sub - Private Sub Load_GLOBIXProfile(PrimaryKey As Integer) - Try - Dim oForm As New frmGlobixAdministration(PrimaryKey) - oForm.ShowDialog() - - If oForm.HasChanges Then - Load_SQLData() - - Dim oItem As AdminItem = AdminItems.Where(AddressOf IsCWPRofiles).FirstOrDefault - Load_Tree(oItem) - End If - Catch ex As Exception - ShowError(ex) - End Try - End Sub - - Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick - Try - Dim oRow As DataRow = GridView1.GetFocusedRow - If oRow IsNot Nothing Then - Dim oPrimaryKey As Integer = DirectCast(oRow.Item(PrimaryKey), Integer) - Load_IDBAttribute(oPrimaryKey) - End If - Catch ex As Exception - ShowError(ex) - End Try - End Sub + End Function Private Sub BarButtonItem9_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick Load_SQLData() @@ -417,4 +234,28 @@ Public Class frmAdmin_Start Private Sub ResetStatus() labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub + + Private Sub btnAddRecord_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnAddRecord.ItemClick + Try + DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True) + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub + + Private Sub btnEditRecord_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditRecord.ItemClick + Try + If GridView1.FocusedRowHandle = GridControl.InvalidRowHandle Then + Exit Sub + End If + + Dim oPrimaryKey = Get_PrimaryKey(GridView1.FocusedRowHandle) + + If oPrimaryKey IsNot Nothing Then + DetailForm.Handle_OpenDetail(oPrimaryKey, CurrentPage, False) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassDataASorDB.vb b/GUIs.ZooFlow/ClassDataASorDB.vb index 5b0d2267..7458c820 100644 --- a/GUIs.ZooFlow/ClassDataASorDB.vb +++ b/GUIs.ZooFlow/ClassDataASorDB.vb @@ -1,5 +1,6 @@ Imports DigitalData.Modules.EDMI.API.EDMIServiceReference Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils Public Class ClassDataASorDB Private _Logger As Logger diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb index ac5584c3..314dd871 100644 --- a/GUIs.ZooFlow/ClassInit.vb +++ b/GUIs.ZooFlow/ClassInit.vb @@ -4,6 +4,7 @@ Imports DigitalData.Modules.Database Imports DigitalData.Modules.Filesystem Imports DigitalData.Modules.Language.Utils Imports DigitalData.Modules.Logging +Imports DigitalData.Controls.SQLConfig Imports DigitalData.GUIs.ZooFlow.ClassInitLoader Imports DigitalData.GUIs.ZooFlow.ClassConstants Imports System.Threading @@ -71,9 +72,17 @@ Public Class ClassInit Private Function SetupDatabase() As Boolean If My.SystemConfig.ConnectionString = String.Empty Then - Dim oResult = frmConfigDatabase.ShowDialog() + Dim oConnectionString = My.SystemConfig.ConnectionString - If oResult = DialogResult.Cancel Then + Dim ofrmSQLConfig As New frmSQLConfig(My.LogConfig) With {.ConnectionString = oConnectionString} + + Dim oResult = ofrmSQLConfig.ShowDialog() + + If oResult = DialogResult.OK Then + My.SystemConfig.ConnectionString = ofrmSQLConfig.ConnectionString + + Return True + Else MsgBox("Es wurde keine Datenbank hinterlegt. Die Anwendung wird beendet.") Return False End If diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb index 37cf7830..0e36e85a 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DBCW_Stammdaten.Designer.vb @@ -27,6 +27,18 @@ Partial Public Class DBCW_Stammdaten Private tableTBCW_PROFILES As TBCW_PROFILESDataTable + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable + + Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable + + Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation + + Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DOC_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable + Get + Return Me.tableTBCW_PROF_DATA_SEARCH + End Get + End Property + + _ + Public ReadOnly Property TBLOCAL_SEARCH_POSITION() As TBLOCAL_SEARCH_POSITIONDataTable + Get + Return Me.tableTBLOCAL_SEARCH_POSITION + End Get + End Property + + _ + Public ReadOnly Property TBLOCAL_PROFILE_TYPE() As TBLOCAL_PROFILE_TYPEDataTable + Get + Return Me.tableTBLOCAL_PROFILE_TYPE + End Get + End Property + _ + Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBLOCAL_SEARCH_POSITION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBLOCAL_PROFILE_TYPE() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -275,6 +413,18 @@ Partial Public Class DBCW_Stammdaten _ Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) + _ + Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) + + _ + Public Delegate Sub TBLOCAL_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_SEARCH_POSITIONRowChangeEvent) + + _ + Public Delegate Sub TBLOCAL_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_PROFILE_TYPERowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -530,10 +680,10 @@ Partial Public Class DBCW_Stammdaten Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 + Me.columnCOMMENT.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnREGEX_EXPRESSION.AllowDBNull = false Me.columnREGEX_EXPRESSION.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnACTIVE.AllowDBNull = false @@ -667,6 +817,1382 @@ Partial Public Class DBCW_Stammdaten End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_DOC_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE 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 columnCOUNT_COMMAND As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DOC_SEARCH" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + 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.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + 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 TBCW_PROF_DOC_SEARCHRow + Get + Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) + End Get + End Property + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow + Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow) + Return rowTBCW_PROF_DOC_SEARCHRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DOC_SEARCHDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + 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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + 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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + End Sub + + _ + Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DOC_SEARCHRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DOC_SEARCHRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) + Me.Rows.Remove(row) + 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 DBCW_Stammdaten = New DBCW_Stammdaten() + 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 = "TBCW_PROF_DOC_SEARCHDataTable" + 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 + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBCW_PROF_DATA_SEARCHDataTable + Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFILE_ID As Global.System.Data.DataColumn + + Private columnCONN_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnTAB_INDEX As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnTAB_TITLE 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 columnCOUNT_COMMAND As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBCW_PROF_DATA_SEARCH" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONN_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_INDEX + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTAB_TITLE + 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.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOUNT_COMMAND + 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 TBCW_PROF_DATA_SEARCHRow + Get + Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) + End Get + End Property + + _ + Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler + + _ + Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow + Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND} + If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then + columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0) + End If + rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow) + Return rowTBCW_PROF_DATA_SEARCHRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBCW_PROF_DATA_SEARCHDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnCONN_ID = MyBase.Columns("CONN_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE") + 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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND") + 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONN_ID) + Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_COMMAND) + Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_INDEX) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTAB_TITLE) + 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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOUNT_COMMAND) + 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.columnPROFILE_ID.AllowDBNull = false + Me.columnCONN_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnTAB_INDEX.AllowDBNull = false + Me.columnACTIVE.AllowDBNull = false + Me.columnTAB_TITLE.AllowDBNull = false + Me.columnTAB_TITLE.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnCOUNT_COMMAND.AllowDBNull = false + Me.columnCOUNT_COMMAND.MaxLength = 2147483647 + End Sub + + _ + Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow + Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBCW_PROF_DATA_SEARCHRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBCW_PROF_DATA_SEARCHRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then + RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) + Me.Rows.Remove(row) + 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 DBCW_Stammdaten = New DBCW_Stammdaten() + 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 = "TBCW_PROF_DATA_SEARCHDataTable" + 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 + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBLOCAL_SEARCH_POSITIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_SEARCH_POSITIONRow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBLOCAL_SEARCH_POSITION" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBLOCAL_SEARCH_POSITIONRow + Get + Return CType(Me.Rows(index),TBLOCAL_SEARCH_POSITIONRow) + End Get + End Property + + _ + Public Event TBLOCAL_SEARCH_POSITIONRowChanging As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBLOCAL_SEARCH_POSITIONRowChanged As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBLOCAL_SEARCH_POSITIONRowDeleting As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Event TBLOCAL_SEARCH_POSITIONRowDeleted As TBLOCAL_SEARCH_POSITIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBLOCAL_SEARCH_POSITIONRow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_SEARCH_POSITIONRow + Dim rowTBLOCAL_SEARCH_POSITIONRow As TBLOCAL_SEARCH_POSITIONRow = CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) + Dim columnValuesArray() As Object = New Object() {ID, NAME} + rowTBLOCAL_SEARCH_POSITIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBLOCAL_SEARCH_POSITIONRow) + Return rowTBLOCAL_SEARCH_POSITIONRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBLOCAL_SEARCH_POSITIONDataTable = CType(MyBase.Clone,TBLOCAL_SEARCH_POSITIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBLOCAL_SEARCH_POSITIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + End Sub + + _ + Public Function NewTBLOCAL_SEARCH_POSITIONRow() As TBLOCAL_SEARCH_POSITIONRow + Return CType(Me.NewRow,TBLOCAL_SEARCH_POSITIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBLOCAL_SEARCH_POSITIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBLOCAL_SEARCH_POSITIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanged(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowChanging(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleted(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBLOCAL_SEARCH_POSITIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_SEARCH_POSITIONRowDeleting(Me, New TBLOCAL_SEARCH_POSITIONRowChangeEvent(CType(e.Row,TBLOCAL_SEARCH_POSITIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBLOCAL_SEARCH_POSITIONRow(ByVal row As TBLOCAL_SEARCH_POSITIONRow) + Me.Rows.Remove(row) + 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 DBCW_Stammdaten = New DBCW_Stammdaten() + 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 = "TBLOCAL_SEARCH_POSITIONDataTable" + 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 + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBLOCAL_PROFILE_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBLOCAL_PROFILE_TYPERow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBLOCAL_PROFILE_TYPE" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + 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 TBLOCAL_PROFILE_TYPERow + Get + Return CType(Me.Rows(index),TBLOCAL_PROFILE_TYPERow) + End Get + End Property + + _ + Public Event TBLOCAL_PROFILE_TYPERowChanging As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBLOCAL_PROFILE_TYPERowChanged As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBLOCAL_PROFILE_TYPERowDeleting As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + _ + Public Event TBLOCAL_PROFILE_TYPERowDeleted As TBLOCAL_PROFILE_TYPERowChangeEventHandler + + _ + Public Overloads Sub AddTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBLOCAL_PROFILE_TYPERow(ByVal ID As String, ByVal NAME As String) As TBLOCAL_PROFILE_TYPERow + Dim rowTBLOCAL_PROFILE_TYPERow As TBLOCAL_PROFILE_TYPERow = CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) + Dim columnValuesArray() As Object = New Object() {ID, NAME} + rowTBLOCAL_PROFILE_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBLOCAL_PROFILE_TYPERow) + Return rowTBLOCAL_PROFILE_TYPERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBLOCAL_PROFILE_TYPEDataTable = CType(MyBase.Clone,TBLOCAL_PROFILE_TYPEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBLOCAL_PROFILE_TYPEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + End Sub + + _ + Public Function NewTBLOCAL_PROFILE_TYPERow() As TBLOCAL_PROFILE_TYPERow + Return CType(Me.NewRow,TBLOCAL_PROFILE_TYPERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBLOCAL_PROFILE_TYPERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBLOCAL_PROFILE_TYPERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowChanged(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowChanging(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleted(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBLOCAL_PROFILE_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBLOCAL_PROFILE_TYPERowDeleting(Me, New TBLOCAL_PROFILE_TYPERowChangeEvent(CType(e.Row,TBLOCAL_PROFILE_TYPERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBLOCAL_PROFILE_TYPERow(ByVal row As TBLOCAL_PROFILE_TYPERow) + Me.Rows.Remove(row) + 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 DBCW_Stammdaten = New DBCW_Stammdaten() + 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 = "TBLOCAL_PROFILE_TYPEDataTable" + 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 + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -708,11 +2234,7 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String) End Get Set Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value @@ -734,7 +2256,11 @@ Partial Public Class DBCW_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e) + End Try End Get Set Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value @@ -810,14 +2336,14 @@ Partial Public Class DBCW_Stammdaten _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHOColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DOC_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow()) + End If + End Function + + _ + Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow() + If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then + Return New TBCW_PROF_DATA_SEARCHRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROF_DATA_SEARCHRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DOC_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBCW_PROF_DATA_SEARCHRow + Inherits Global.System.Data.DataRow + + Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property CONN_ID() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TAB_INDEX() As Byte + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TAB_TITLE() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COUNT_COMMAND() As String + Get + Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value + End Set + End Property + + _ + Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")) + End Set + End Property + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBLOCAL_SEARCH_POSITIONRow + Inherits Global.System.Data.DataRow + + Private tableTBLOCAL_SEARCH_POSITION As TBLOCAL_SEARCH_POSITIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBLOCAL_SEARCH_POSITION = CType(Me.Table,TBLOCAL_SEARCH_POSITIONDataTable) + End Sub + + _ + Public Property ID() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_SEARCH_POSITION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBLOCAL_SEARCH_POSITION.IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBLOCAL_SEARCH_POSITION.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBLOCAL_PROFILE_TYPERow + Inherits Global.System.Data.DataRow + + Private tableTBLOCAL_PROFILE_TYPE As TBLOCAL_PROFILE_TYPEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBLOCAL_PROFILE_TYPE = CType(Me.Table,TBLOCAL_PROFILE_TYPEDataTable) + End Sub + + _ + Public Property ID() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBLOCAL_PROFILE_TYPE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsIDNull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) + End Function + + _ + Public Sub SetIDNull() + Me(Me.tableTBLOCAL_PROFILE_TYPE.IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBLOCAL_PROFILE_TYPE.NAMEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -892,6 +3024,150 @@ Partial Public Class DBCW_Stammdaten End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBCW_PROF_DOC_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DOC_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROF_DOC_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow + 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 TBCW_PROF_DATA_SEARCHRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBCW_PROF_DATA_SEARCHRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBCW_PROF_DATA_SEARCHRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow + 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 TBLOCAL_SEARCH_POSITIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBLOCAL_SEARCH_POSITIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBLOCAL_SEARCH_POSITIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBLOCAL_SEARCH_POSITIONRow + 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 TBLOCAL_PROFILE_TYPERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBLOCAL_PROFILE_TYPERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBLOCAL_PROFILE_TYPERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBLOCAL_PROFILE_TYPERow + 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 DBCW_StammdatenTableAdapters @@ -1206,8 +3482,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) End If If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_COMMENT") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String) @@ -1218,7 +3493,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_REGEX_EXPRESSION,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If @@ -1271,7 +3546,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If @@ -1281,7 +3556,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If @@ -1348,7 +3623,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) End If @@ -1358,7 +3633,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If @@ -1386,8 +3661,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_NAME,String) End If If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_COMMENT") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_COMMENT,String) @@ -1398,7 +3672,7 @@ Namespace DBCW_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_REGEX_EXPRESSION,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHO,String) End If @@ -1469,6 +3743,1137 @@ Namespace DBCW_StammdatenTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROF_DOC_SEARCHTableAdapter + 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 = "TBCW_PROF_DOC_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + 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("COUNT_COMMAND", "COUNT_COMMAND") + 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 [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ + "_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX"& _ + "] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @O"& _ + "riginal_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_W"& _ + "HEN = 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] = @Origin"& _ + "al_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _ + "INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGE"& _ + "D_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDE"& _ + "X, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @C"& _ + "OUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE"& _ + ", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FRO"& _ + "M TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_I"& _ + "D, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, ["& _ + "TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _ + "CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @"& _ + "COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PRO"& _ + "FILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_IN"& _ + "DEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) A"& _ + "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _ + "O = 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] = @Or"& _ + "iginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDE"& _ + "X, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_CO"& _ + "MMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECM_TESTConnectionString + 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 TBCW_PROF_DOC_SEARCH.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_DOC_SEARCH WHERE "& _ + "PROFILE_ID = @PROFILE_ID" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable = New DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DOC_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") + 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_PROFILE_ID As Integer, ByVal Original_CONN_ID As Byte, ByVal Original_TAB_INDEX As Byte, ByVal Original_ACTIVE As Boolean, ByVal Original_TAB_TITLE 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) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO 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_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).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 PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE 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 COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,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 PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE 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 COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE 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(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + 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 + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + 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 + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_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) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).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 Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE 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 COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE 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(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBCW_PROF_DATA_SEARCHTableAdapter + 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 = "TBCW_PROF_DATA_SEARCH" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE") + 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("COUNT_COMMAND", "COUNT_COMMAND") + 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 [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFIL"& _ + "E_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDE"& _ + "X] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @"& _ + "Original_TAB_TITLE) 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)))" + 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _ + "_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _ + "ED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_IND"& _ + "EX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @"& _ + "COUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIV"& _ + "E, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FR"& _ + "OM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_"& _ + "ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, "& _ + "[TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, "& _ + "[CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = "& _ + "@COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PR"& _ + "OFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_I"& _ + "NDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) "& _ + "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_W"& _ + "HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _ + "D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _ + "riginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_IND"& _ + "EX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_C"& _ + "OMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECM_TESTConnectionString + 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, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITL"& _ + "E, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable = New DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DBCW_Stammdaten.TBCW_PROF_DATA_SEARCHDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DBCW_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") + 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_PROFILE_ID As Integer, ByVal Original_CONN_ID As Byte, ByVal Original_TAB_INDEX As Byte, ByVal Original_ACTIVE As Boolean, ByVal Original_TAB_TITLE 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) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO 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_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).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 PROFILE_ID As Integer, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE 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 COUNT_COMMAND As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,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 PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE 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 COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE 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(PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + 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 + If (COUNT_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("COUNT_COMMAND") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) + If (Original_TAB_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + 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 + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_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) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).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 Update( _ + ByVal PROFILE_ID As Integer, _ + ByVal CONN_ID As Byte, _ + ByVal SQL_COMMAND As String, _ + ByVal TAB_INDEX As Byte, _ + ByVal ACTIVE As Boolean, _ + ByVal TAB_TITLE 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 COUNT_COMMAND As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_CONN_ID As Byte, _ + ByVal Original_TAB_INDEX As Byte, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_TAB_TITLE 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(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -1484,6 +4889,10 @@ Namespace DBCW_StammdatenTableAdapters Private _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter + Private _tBCW_PROF_DOC_SEARCHTableAdapter As TBCW_PROF_DOC_SEARCHTableAdapter + + Private _tBCW_PROF_DATA_SEARCHTableAdapter As TBCW_PROF_DATA_SEARCHTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -1513,6 +4922,34 @@ Namespace DBCW_StammdatenTableAdapters End Set End Property + _ + Public Property TBCW_PROF_DOC_SEARCHTableAdapter() As TBCW_PROF_DOC_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DOC_SEARCHTableAdapter = value + End Set + End Property + + _ + Public Property TBCW_PROF_DATA_SEARCHTableAdapter() As TBCW_PROF_DATA_SEARCHTableAdapter + Get + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter + End Get + Set + Me._tBCW_PROF_DATA_SEARCHTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -1536,6 +4973,14 @@ Namespace DBCW_StammdatenTableAdapters AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROFILESTableAdapter.Connection End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection + End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) Is Nothing)) Then + Return Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection + End If Return Nothing End Get Set @@ -1552,6 +4997,12 @@ Namespace DBCW_StammdatenTableAdapters If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -1572,6 +5023,24 @@ Namespace DBCW_StammdatenTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -1590,6 +5059,22 @@ Namespace DBCW_StammdatenTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -1600,6 +5085,22 @@ Namespace DBCW_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DBCW_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -1654,6 +5155,16 @@ Namespace DBCW_StammdatenTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -1697,6 +5208,24 @@ Namespace DBCW_StammdatenTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter) End If End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter, Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter) + End If + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter, Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -1761,6 +5290,14 @@ Namespace DBCW_StammdatenTableAdapters Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROFILESTableAdapter.Transaction = Nothing End If + If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DOC_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DATA_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xsd b/GUIs.ZooFlow/DBCW_Stammdaten.xsd index 0ba73aac..c535b429 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.xsd +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xsd @@ -16,10 +16,10 @@ - - + + - + @@ -37,9 +37,9 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = SCOPE_IDENTITY()) - + - + @@ -62,9 +62,9 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES WHERE (GUID = @GUID) - + - + @@ -72,10 +72,10 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - - + + - + @@ -104,6 +104,211 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO + + + + + + DELETE FROM [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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 [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT TBCW_PROF_DOC_SEARCH.* +FROM TBCW_PROF_DOC_SEARCH WHERE PROFILE_ID = @PROFILE_ID + + + + + + + + UPDATE [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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 [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDEX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @COUNT_COMMAND); +SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND +FROM TBCW_PROF_DATA_SEARCH +WHERE (PROFILE_ID = @PROFILE_ID) + + + + + + + + UPDATE [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, [TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) 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, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -123,7 +328,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - + @@ -137,7 +342,7 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO - + @@ -158,11 +363,137 @@ SELECT GUID, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DBCW_Stammdaten.xss b/GUIs.ZooFlow/DBCW_Stammdaten.xss index de0158bf..bf55cef0 100644 --- a/GUIs.ZooFlow/DBCW_Stammdaten.xss +++ b/GUIs.ZooFlow/DBCW_Stammdaten.xss @@ -4,9 +4,38 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - + + + + + - + + + + + 285 + 78 + + + 429 + 78 + + + + + + + 285 + 107 + + + 828 + 107 + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb new file mode 100644 index 00000000..b6cab462 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.Designer.vb @@ -0,0 +1,1835 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DSDD_Stammdaten + Inherits Global.System.Data.DataSet + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + 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, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable + Get + Return Me.tableTBDD_CONNECTION + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DSDD_Stammdaten = CType(MyBase.Clone,DSDD_Stammdaten) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then + Me.tableTBDD_CONNECTION.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DSDD_Stammdaten" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DSDD_Stammdaten.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() + MyBase.Tables.Add(Me.tableTBDD_CONNECTION) + End Sub + + _ + Private Function ShouldSerializeTBDD_CONNECTION() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DSDD_Stammdaten = New DSDD_Stammdaten() + 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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + 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 Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnSYS_CONNECTION As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_CONNECTION" + 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 GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_CONNECTION + 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 TBDD_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_CONNECTIONRow(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, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnSYS_CONNECTION = MyBase.Columns("SYS_CONNECTION") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnSYS_CONNECTION = New Global.System.Data.DataColumn("SYS_CONNECTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSYS_CONNECTION) + 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.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnSYS_CONNECTION.AllowDBNull = false + End Sub + + _ + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Remove(row) + 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 DSDD_Stammdaten = New DSDD_Stammdaten() + 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 = "TBDD_CONNECTIONDataTable" + 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 + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + 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 + + _ + 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 Property SQL_PROVIDER() As String + Get + 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 Property SERVER() As String + Get + 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 Property DATENBANK() As String + Get + 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 Property USERNAME() As String + Get + 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 Property PASSWORD() As String + Get + 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 Property BEMERKUNG() As String + Get + 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 Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + 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 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 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 Property SYS_CONNECTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function + + _ + 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 + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + 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 IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + End Function + + _ + 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 + + _ + 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 + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + 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 + + _ + 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 + + _ + 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 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 + 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 +End Class + +Namespace DSDD_StammdatenTableAdapters + + ''' + '''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") + tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") + 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] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZE"& _ + "ICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG"& _ + ")) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER]"& _ + " = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR (["& _ + "SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL"& _ + ") OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNA"& _ + "ME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AN"& _ + "D [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERK"& _ + "UNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([A"& _ + "KTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNu"& _ + "ll_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_E"& _ + "RSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEAN"& _ + "DERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDER"& _ + "TWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ([SYS_CONNEC"& _ + "TION] = @Original_SYS_CONNECTION))" + 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, 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_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATENBANK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, 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_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ + "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ + " [GEANDERTWER], [GEAENDERTWANN], [SYS_CONNECTION]) VALUES (@BEZEICHNUNG, @SQL_PR"& _ + "OVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLT"& _ + "WER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN, @SYS_CONNECTION);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, A"& _ + "KTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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, 0, 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("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " AKTIV = @AKTIV, ERSTELLTWER = @ERSTELLTWER, ERSTELLTWANN = @ERSTELLTWANN, GEA"& _ + "NDERTWER = @GEANDERTWER, GEAENDERTWANN = @GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SYS_CONNECTION = @SYS_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ + "LECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEM"& _ + "ERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNEC"& _ + "TION FROM 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("@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.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", 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("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECM_TESTConnectionString + 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 * FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSDD_Stammdaten.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 DSDD_Stammdaten.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSDD_Stammdaten.TBDD_CONNECTIONDataTable = New DSDD_Stammdaten.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSDD_Stammdaten.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSDD_Stammdaten) 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 + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Get + Return Me._tBDD_CONNECTIONTableAdapter + End Get + Set + Me._tBDD_CONNECTIONTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_CONNECTIONTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As DSDD_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DSDD_Stammdaten) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xsc b/GUIs.ZooFlow/DSDD_Stammdaten.xsc new file mode 100644 index 00000000..05b01991 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xsd b/GUIs.ZooFlow/DSDD_Stammdaten.xsd new file mode 100644 index 00000000..08eba233 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xsd @@ -0,0 +1,207 @@ + + + + + + + + + + + + + + + DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICHNUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BEMERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)) AND ([SYS_CONNECTION] = @Original_SYS_CONNECTION)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBANK], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN], [GEANDERTWER], [GEAENDERTWANN], [SYS_CONNECTION]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN, @GEANDERTWER, @GEAENDERTWANN, @SYS_CONNECTION); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + SELECT * FROM TBDD_CONNECTION + + + + + + UPDATE TBDD_CONNECTION +SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, + AKTIV = @AKTIV, ERSTELLTWER = @ERSTELLTWER, ERSTELLTWANN = @ERSTELLTWANN, GEANDERTWER = @GEANDERTWER, GEAENDERTWANN = @GEAENDERTWANN, + SYS_CONNECTION = @SYS_CONNECTION +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSDD_Stammdaten.xss b/GUIs.ZooFlow/DSDD_Stammdaten.xss new file mode 100644 index 00000000..4a0db595 --- /dev/null +++ b/GUIs.ZooFlow/DSDD_Stammdaten.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 777f6688..c6c16572 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -2403,8 +2403,9 @@ Partial Public Class DSIDB_Stammdaten Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) Me.columnENTITY_TITLE.AllowDBNull = false + Me.columnENTITY_TITLE.DefaultValue = CType("Unbenannt",String) Me.columnENTITY_TITLE.MaxLength = 100 Me.columnSCOPE.AllowDBNull = false Me.columnSCOPE.MaxLength = 100 @@ -3434,7 +3435,11 @@ Partial Public Class DSIDB_Stammdaten Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PARENT_ID() As Integer Get - Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PARENT_ID in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e) + End Try End Get Set Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = value @@ -3575,6 +3580,18 @@ Partial Public Class DSIDB_Stammdaten End Set End Property + _ + Public Function IsPARENT_IDNull() As Boolean + Return Me.IsNull(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) + End Function + + _ + Public Sub SetPARENT_IDNull() + Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PARENT_IDColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCOMMENTNull() As Boolean @@ -5319,35 +5336,9 @@ Namespace DSIDB_StammdatenTableAdapters 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 [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([PARENT"& _ - "_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND (["& _ - "SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_"& _ - "COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@Is"& _ - "Null_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WH"& _ - "O)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @O"& _ - "riginal_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR"& _ - " ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CH"& _ - "ANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ((@IsNull"& _ - "_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN)))"& _ - "" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBZF_ADMIN_SOURCE_SQL"&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_PARENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCOPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCOPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PK_COLUMN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, 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_FK_COLUMN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FK_COLUMN", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FK_COLUMN", 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 [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_CO"& _ @@ -5497,66 +5488,8 @@ Namespace DSIDB_StammdatenTableAdapters 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.Delete, true)> _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PARENT_ID As Integer, ByVal Original_ENTITY_TITLE As String, ByVal Original_SCOPE As String, ByVal Original_PK_COLUMN As String, ByVal Original_COMMENT 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_FK_COLUMN As String) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PARENT_ID,Integer) - If (Original_ENTITY_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ENTITY_TITLE,String) - End If - If (Original_SCOPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SCOPE") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SCOPE,String) - End If - If (Original_PK_COLUMN Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PK_COLUMN") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PK_COLUMN,String) - End If - If (Original_COMMENT 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_COMMENT,String) - End If - If (Original_ADDED_WHO 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_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_FK_COLUMN 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_FK_COLUMN,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 @@ -5576,8 +5509,12 @@ Namespace DSIDB_StammdatenTableAdapters 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 PARENT_ID As Integer, ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND 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 FK_COLUMN As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + Public Overloads Overridable Function Insert(ByVal PARENT_ID As Global.System.Nullable(Of Integer), ByVal ENTITY_TITLE As String, ByVal SCOPE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND 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 FK_COLUMN As String) As Integer + If (PARENT_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If If (ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("ENTITY_TITLE") Else @@ -5648,7 +5585,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal PARENT_ID As Integer, _ + ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal ENTITY_TITLE As String, _ ByVal SCOPE As String, _ ByVal PK_COLUMN As String, _ @@ -5660,7 +5597,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FK_COLUMN As String, _ ByVal Original_GUID As Integer, _ - ByVal Original_PARENT_ID As Integer, _ + ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ENTITY_TITLE As String, _ ByVal Original_SCOPE As String, _ ByVal Original_PK_COLUMN As String, _ @@ -5671,7 +5608,11 @@ Namespace DSIDB_StammdatenTableAdapters ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_FK_COLUMN As String, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID,Integer) + If (PARENT_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PARENT_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If If (ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("ENTITY_TITLE") Else @@ -5723,7 +5664,11 @@ Namespace DSIDB_StammdatenTableAdapters Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FK_COLUMN,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID,Integer) + If (Original_PARENT_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PARENT_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If If (Original_ENTITY_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ENTITY_TITLE") Else @@ -5802,7 +5747,7 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal PARENT_ID As Integer, _ + ByVal PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal ENTITY_TITLE As String, _ ByVal SCOPE As String, _ ByVal PK_COLUMN As String, _ @@ -5814,7 +5759,7 @@ Namespace DSIDB_StammdatenTableAdapters ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal FK_COLUMN As String, _ ByVal Original_GUID As Integer, _ - ByVal Original_PARENT_ID As Integer, _ + ByVal Original_PARENT_ID As Global.System.Nullable(Of Integer), _ ByVal Original_ENTITY_TITLE As String, _ ByVal Original_SCOPE As String, _ ByVal Original_PK_COLUMN As String, _ diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index 202d9258..423272a8 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -286,26 +286,11 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ - - DELETE FROM [TBZF_ADMIN_SOURCE_SQL] WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([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)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN))) + + DELETE FROM TBZF_ADMIN_SOURCE_SQL +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - + @@ -314,7 +299,7 @@ FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = @ATTRIBUTE_ID AND LANG_ID = @ INSERT INTO [TBZF_ADMIN_SOURCE_SQL] ([PARENT_ID], [ENTITY_TITLE], [SCOPE], [PK_COLUMN], [COMMENT], [SQL_COMMAND], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [FK_COLUMN]) VALUES (@PARENT_ID, @ENTITY_TITLE, @SCOPE, @PK_COLUMN, @COMMENT, @SQL_COMMAND, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FK_COLUMN); SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = SCOPE_IDENTITY()) - + @@ -342,7 +327,7 @@ FROM TBZF_ADMIN_SOURCE_SQL WHERE GUID = @GUID UPDATE [TBZF_ADMIN_SOURCE_SQL] SET [PARENT_ID] = @PARENT_ID, [ENTITY_TITLE] = @ENTITY_TITLE, [SCOPE] = @SCOPE, [PK_COLUMN] = @PK_COLUMN, [COMMENT] = @COMMENT, [SQL_COMMAND] = @SQL_COMMAND, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FK_COLUMN] = @FK_COLUMN WHERE (([GUID] = @Original_GUID) AND ([PARENT_ID] = @Original_PARENT_ID) AND ([ENTITY_TITLE] = @Original_ENTITY_TITLE) AND ([SCOPE] = @Original_SCOPE) AND ([PK_COLUMN] = @Original_PK_COLUMN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([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)) AND ((@IsNull_FK_COLUMN = 1 AND [FK_COLUMN] IS NULL) OR ([FK_COLUMN] = @Original_FK_COLUMN))); SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FK_COLUMN FROM TBZF_ADMIN_SOURCE_SQL WHERE (GUID = @GUID) - + @@ -354,7 +339,7 @@ SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, AD - + @@ -598,8 +583,8 @@ SELECT GUID, PARENT_ID, ENTITY_TITLE, SCOPE, PK_COLUMN, COMMENT, SQL_COMMAND, AD - - + + diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index 2d1dc461..26b68ac6 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -10,7 +10,7 @@ - + diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb b/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb index 5d7a2493..1e335728 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.Designer.vb @@ -108,7 +108,6 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() @@ -127,6 +126,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem30 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem17 = New DevExpress.XtraLayout.EmptySpaceItem() Me.EmptySpaceItem18 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() Me.ListBoxControlmanIndex = New DevExpress.XtraEditors.ListBoxControl() Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPageAutoIndexe = New DevExpress.XtraTab.XtraTabPage() @@ -206,7 +206,6 @@ Partial Class frmGlobixAdministration CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -225,6 +224,7 @@ Partial Class frmGlobixAdministration CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ListBoxControlmanIndex, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageAutoIndexe.SuspendLayout() CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() @@ -753,10 +753,10 @@ Partial Class frmGlobixAdministration Me.LayoutControl2.Controls.Add(Me.GUIDTextBox1) Me.LayoutControl2.Controls.Add(Me.ACTIVECheckBox) Me.LayoutControl2.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl2.Location = New System.Drawing.Point(163, 0) + Me.LayoutControl2.Location = New System.Drawing.Point(165, 0) Me.LayoutControl2.Name = "LayoutControl2" Me.LayoutControl2.Root = Me.ControlGroupIndexeMan - Me.LayoutControl2.Size = New System.Drawing.Size(1019, 259) + Me.LayoutControl2.Size = New System.Drawing.Size(1017, 259) Me.LayoutControl2.TabIndex = 1 Me.LayoutControl2.Text = "LayoutControl2" ' @@ -764,15 +764,15 @@ Partial Class frmGlobixAdministration ' Me.ComboBox1.FormattingEnabled = True Me.ComboBox1.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Dateiendung", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)", "Username", "Usercode", "NULL"}) - Me.ComboBox1.Location = New System.Drawing.Point(546, 129) + Me.ComboBox1.Location = New System.Drawing.Point(545, 129) Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(211, 21) + Me.ComboBox1.Size = New System.Drawing.Size(210, 21) Me.ComboBox1.TabIndex = 25 ' 'SimpleButton1 ' Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.SimpleButton1.Location = New System.Drawing.Point(420, 129) + Me.SimpleButton1.Location = New System.Drawing.Point(419, 129) Me.SimpleButton1.Name = "SimpleButton1" Me.SimpleButton1.Size = New System.Drawing.Size(34, 22) Me.SimpleButton1.StyleController = Me.LayoutControl2 @@ -785,7 +785,7 @@ Partial Class frmGlobixAdministration Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(339, 227) Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.ReadOnly = True - Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(181, 20) + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(180, 20) Me.CHANGED_WHENTextBox.TabIndex = 22 ' 'TBDD_INDEX_MANBindingSource @@ -800,7 +800,7 @@ Partial Class frmGlobixAdministration Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(339, 203) Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.ReadOnly = True - Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(181, 20) + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(180, 20) Me.CHANGED_WHOTextBox.TabIndex = 21 ' 'ADDED_WHENTextBox @@ -826,7 +826,7 @@ Partial Class frmGlobixAdministration 'VKT_PREVENT_MULTIPLE_VALUESCheckBox ' Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_PREVENT_MULTIPLE_VALUES", True)) - Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(261, 179) + Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Location = New System.Drawing.Point(260, 179) Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Name = "VKT_PREVENT_MULTIPLE_VALUESCheckBox" Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.Size = New System.Drawing.Size(246, 20) Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox.TabIndex = 18 @@ -838,7 +838,7 @@ Partial Class frmGlobixAdministration Me.MULTISELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "MULTISELECT", True)) Me.MULTISELECTCheckBox.Location = New System.Drawing.Point(12, 179) Me.MULTISELECTCheckBox.Name = "MULTISELECTCheckBox" - Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(245, 20) + Me.MULTISELECTCheckBox.Size = New System.Drawing.Size(244, 20) Me.MULTISELECTCheckBox.TabIndex = 17 Me.MULTISELECTCheckBox.Text = "Mehrfachauswahl" Me.MULTISELECTCheckBox.UseVisualStyleBackColor = True @@ -846,9 +846,9 @@ Partial Class frmGlobixAdministration 'Button1 ' Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(559, 60) + Me.Button1.Location = New System.Drawing.Point(558, 60) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(266, 21) + Me.Button1.Size = New System.Drawing.Size(265, 21) Me.Button1.TabIndex = 16 Me.Button1.Text = "Connector bearbeiten" Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight @@ -857,9 +857,9 @@ Partial Class frmGlobixAdministration 'VKT_ADD_ITEMCheckBox ' Me.VKT_ADD_ITEMCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "VKT_ADD_ITEM", True)) - Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(511, 179) + Me.VKT_ADD_ITEMCheckBox.Location = New System.Drawing.Point(510, 179) Me.VKT_ADD_ITEMCheckBox.Name = "VKT_ADD_ITEMCheckBox" - Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(246, 20) + Me.VKT_ADD_ITEMCheckBox.Size = New System.Drawing.Size(245, 20) Me.VKT_ADD_ITEMCheckBox.TabIndex = 15 Me.VKT_ADD_ITEMCheckBox.Text = "Neueingabe erlauben" Me.VKT_ADD_ITEMCheckBox.UseVisualStyleBackColor = True @@ -869,14 +869,14 @@ Partial Class frmGlobixAdministration Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True)) Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(100, 129) Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox" - Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(316, 20) + Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(315, 20) Me.DEFAULT_VALUETextBox.TabIndex = 12 ' 'DATATYPEComboBox ' Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) Me.DATATYPEComboBox.FormattingEnabled = True - Me.DATATYPEComboBox.Location = New System.Drawing.Point(407, 60) + Me.DATATYPEComboBox.Location = New System.Drawing.Point(406, 60) Me.DATATYPEComboBox.Name = "DATATYPEComboBox" Me.DATATYPEComboBox.Size = New System.Drawing.Size(148, 21) Me.DATATYPEComboBox.TabIndex = 11 @@ -886,7 +886,7 @@ Partial Class frmGlobixAdministration Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) Me.COMMENTTextBox.Location = New System.Drawing.Point(100, 155) Me.COMMENTTextBox.Name = "COMMENTTextBox" - Me.COMMENTTextBox.Size = New System.Drawing.Size(907, 20) + Me.COMMENTTextBox.Size = New System.Drawing.Size(905, 20) Me.COMMENTTextBox.TabIndex = 10 ' 'WD_INDEXComboBox @@ -895,7 +895,7 @@ Partial Class frmGlobixAdministration Me.WD_INDEXComboBox.FormattingEnabled = True Me.WD_INDEXComboBox.Location = New System.Drawing.Point(100, 60) Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" - Me.WD_INDEXComboBox.Size = New System.Drawing.Size(215, 21) + Me.WD_INDEXComboBox.Size = New System.Drawing.Size(214, 21) Me.WD_INDEXComboBox.TabIndex = 9 ' 'NAMETextBox @@ -903,7 +903,7 @@ Partial Class frmGlobixAdministration Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) Me.NAMETextBox.Location = New System.Drawing.Point(100, 36) Me.NAMETextBox.Name = "NAMETextBox" - Me.NAMETextBox.Size = New System.Drawing.Size(907, 20) + Me.NAMETextBox.Size = New System.Drawing.Size(905, 20) Me.NAMETextBox.TabIndex = 8 ' 'SEQUENCENumericUpDown1 @@ -929,7 +929,7 @@ Partial Class frmGlobixAdministration Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) Me.ACTIVECheckBox.Location = New System.Drawing.Point(287, 12) Me.ACTIVECheckBox.Name = "ACTIVECheckBox" - Me.ACTIVECheckBox.Size = New System.Drawing.Size(268, 20) + Me.ACTIVECheckBox.Size = New System.Drawing.Size(267, 20) Me.ACTIVECheckBox.TabIndex = 5 Me.ACTIVECheckBox.Text = "Aktiv" Me.ACTIVECheckBox.UseVisualStyleBackColor = True @@ -940,7 +940,7 @@ Partial Class frmGlobixAdministration Me.ControlGroupIndexeMan.GroupBordersVisible = False Me.ControlGroupIndexeMan.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem11, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem18, Me.LayoutControlItem12, Me.LayoutControlItem13, Me.EmptySpaceItem1, Me.LayoutControlItem16, Me.EmptySpaceItem2, Me.EmptySpaceItem3, Me.LayoutControlItem27, Me.LayoutControlItem29, Me.LayoutControlItem20, Me.LayoutControlItem22, Me.LayoutControlItem21, Me.LayoutControlItem31, Me.EmptySpaceItem10, Me.LayoutControlItem17, Me.LayoutControlItem39, Me.EmptySpaceItem11, Me.LayoutControlItem28, Me.LayoutControlItem30, Me.EmptySpaceItem17, Me.EmptySpaceItem18, Me.LayoutControlItem10}) Me.ControlGroupIndexeMan.Name = "ControlGroupIndexeMan" - Me.ControlGroupIndexeMan.Size = New System.Drawing.Size(1019, 259) + Me.ControlGroupIndexeMan.Size = New System.Drawing.Size(1017, 259) Me.ControlGroupIndexeMan.TextVisible = False ' 'LayoutControlItem11 @@ -948,7 +948,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem11.Control = Me.ACTIVECheckBox Me.LayoutControlItem11.Location = New System.Drawing.Point(275, 0) Me.LayoutControlItem11.Name = "LayoutControlItem11" - Me.LayoutControlItem11.Size = New System.Drawing.Size(272, 24) + Me.LayoutControlItem11.Size = New System.Drawing.Size(271, 24) Me.LayoutControlItem11.Text = "ACTIVE:" Me.LayoutControlItem11.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem11.TextVisible = False @@ -958,7 +958,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem14.Control = Me.NAMETextBox Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 24) Me.LayoutControlItem14.Name = "LayoutControlItem14" - Me.LayoutControlItem14.Size = New System.Drawing.Size(999, 24) + Me.LayoutControlItem14.Size = New System.Drawing.Size(997, 24) Me.LayoutControlItem14.Text = "Bezeichnung:" Me.LayoutControlItem14.TextSize = New System.Drawing.Size(85, 13) ' @@ -967,7 +967,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem15.Control = Me.WD_INDEXComboBox Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 48) Me.LayoutControlItem15.Name = "LayoutControlItem15" - Me.LayoutControlItem15.Size = New System.Drawing.Size(307, 25) + Me.LayoutControlItem15.Size = New System.Drawing.Size(306, 25) Me.LayoutControlItem15.Text = "Attribut:" Me.LayoutControlItem15.TextSize = New System.Drawing.Size(85, 13) ' @@ -976,7 +976,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem18.Control = Me.DEFAULT_VALUETextBox Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 117) Me.LayoutControlItem18.Name = "LayoutControlItem18" - Me.LayoutControlItem18.Size = New System.Drawing.Size(408, 26) + Me.LayoutControlItem18.Size = New System.Drawing.Size(407, 26) Me.LayoutControlItem18.Text = "Standard-Wert:" Me.LayoutControlItem18.TextSize = New System.Drawing.Size(85, 13) ' @@ -998,21 +998,10 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem13.Text = "Reihenfolge:" Me.LayoutControlItem13.TextSize = New System.Drawing.Size(85, 13) ' - 'LayoutControlItem10 - ' - Me.LayoutControlItem10.Control = Me.Button1 - Me.LayoutControlItem10.Location = New System.Drawing.Point(547, 48) - Me.LayoutControlItem10.MinSize = New System.Drawing.Size(24, 24) - Me.LayoutControlItem10.Name = "LayoutControlItem10" - Me.LayoutControlItem10.Size = New System.Drawing.Size(270, 25) - Me.LayoutControlItem10.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom - Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem10.TextVisible = False - ' 'EmptySpaceItem1 ' Me.EmptySpaceItem1.AllowHotTrack = False - Me.EmptySpaceItem1.Location = New System.Drawing.Point(749, 167) + Me.EmptySpaceItem1.Location = New System.Drawing.Point(747, 167) Me.EmptySpaceItem1.Name = "EmptySpaceItem1" Me.EmptySpaceItem1.Size = New System.Drawing.Size(250, 24) Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) @@ -1022,7 +1011,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem16.Control = Me.COMMENTTextBox Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 143) Me.LayoutControlItem16.Name = "LayoutControlItem16" - Me.LayoutControlItem16.Size = New System.Drawing.Size(999, 24) + Me.LayoutControlItem16.Size = New System.Drawing.Size(997, 24) Me.LayoutControlItem16.Text = "Beschreibung:" Me.LayoutControlItem16.TextSize = New System.Drawing.Size(85, 13) ' @@ -1031,15 +1020,15 @@ Partial Class frmGlobixAdministration Me.EmptySpaceItem2.AllowHotTrack = False Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 73) Me.EmptySpaceItem2.Name = "EmptySpaceItem2" - Me.EmptySpaceItem2.Size = New System.Drawing.Size(999, 44) + Me.EmptySpaceItem2.Size = New System.Drawing.Size(997, 44) Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) ' 'EmptySpaceItem3 ' Me.EmptySpaceItem3.AllowHotTrack = False - Me.EmptySpaceItem3.Location = New System.Drawing.Point(547, 0) + Me.EmptySpaceItem3.Location = New System.Drawing.Point(546, 0) Me.EmptySpaceItem3.Name = "EmptySpaceItem3" - Me.EmptySpaceItem3.Size = New System.Drawing.Size(452, 24) + Me.EmptySpaceItem3.Size = New System.Drawing.Size(451, 24) Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0) ' 'LayoutControlItem27 @@ -1056,7 +1045,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem29.Control = Me.CHANGED_WHOTextBox Me.LayoutControlItem29.Location = New System.Drawing.Point(239, 191) Me.LayoutControlItem29.Name = "LayoutControlItem29" - Me.LayoutControlItem29.Size = New System.Drawing.Size(273, 24) + Me.LayoutControlItem29.Size = New System.Drawing.Size(272, 24) Me.LayoutControlItem29.Text = "Geändert wer:" Me.LayoutControlItem29.TextSize = New System.Drawing.Size(85, 13) ' @@ -1065,7 +1054,7 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem20.Control = Me.MULTISELECTCheckBox Me.LayoutControlItem20.Location = New System.Drawing.Point(0, 167) Me.LayoutControlItem20.Name = "LayoutControlItem20" - Me.LayoutControlItem20.Size = New System.Drawing.Size(249, 24) + Me.LayoutControlItem20.Size = New System.Drawing.Size(248, 24) Me.LayoutControlItem20.Text = "MULTISELECT:" Me.LayoutControlItem20.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem20.TextVisible = False @@ -1073,7 +1062,7 @@ Partial Class frmGlobixAdministration 'LayoutControlItem22 ' Me.LayoutControlItem22.Control = Me.VKT_PREVENT_MULTIPLE_VALUESCheckBox - Me.LayoutControlItem22.Location = New System.Drawing.Point(249, 167) + Me.LayoutControlItem22.Location = New System.Drawing.Point(248, 167) Me.LayoutControlItem22.Name = "LayoutControlItem22" Me.LayoutControlItem22.Size = New System.Drawing.Size(250, 24) Me.LayoutControlItem22.Text = "VKT PREVENT MULTIPLE VALUES:" @@ -1083,9 +1072,9 @@ Partial Class frmGlobixAdministration 'LayoutControlItem21 ' Me.LayoutControlItem21.Control = Me.VKT_ADD_ITEMCheckBox - Me.LayoutControlItem21.Location = New System.Drawing.Point(499, 167) + Me.LayoutControlItem21.Location = New System.Drawing.Point(498, 167) Me.LayoutControlItem21.Name = "LayoutControlItem21" - Me.LayoutControlItem21.Size = New System.Drawing.Size(250, 24) + Me.LayoutControlItem21.Size = New System.Drawing.Size(249, 24) Me.LayoutControlItem21.Text = "VKT ADD ITEM:" Me.LayoutControlItem21.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem21.TextVisible = False @@ -1093,7 +1082,7 @@ Partial Class frmGlobixAdministration 'LayoutControlItem31 ' Me.LayoutControlItem31.Control = Me.SimpleButton1 - Me.LayoutControlItem31.Location = New System.Drawing.Point(408, 117) + Me.LayoutControlItem31.Location = New System.Drawing.Point(407, 117) Me.LayoutControlItem31.Name = "LayoutControlItem31" Me.LayoutControlItem31.Size = New System.Drawing.Size(38, 26) Me.LayoutControlItem31.TextSize = New System.Drawing.Size(0, 0) @@ -1102,7 +1091,7 @@ Partial Class frmGlobixAdministration 'EmptySpaceItem10 ' Me.EmptySpaceItem10.AllowHotTrack = False - Me.EmptySpaceItem10.Location = New System.Drawing.Point(817, 48) + Me.EmptySpaceItem10.Location = New System.Drawing.Point(815, 48) Me.EmptySpaceItem10.Name = "EmptySpaceItem10" Me.EmptySpaceItem10.Size = New System.Drawing.Size(182, 25) Me.EmptySpaceItem10.TextSize = New System.Drawing.Size(0, 0) @@ -1110,7 +1099,7 @@ Partial Class frmGlobixAdministration 'LayoutControlItem17 ' Me.LayoutControlItem17.Control = Me.DATATYPEComboBox - Me.LayoutControlItem17.Location = New System.Drawing.Point(307, 48) + Me.LayoutControlItem17.Location = New System.Drawing.Point(306, 48) Me.LayoutControlItem17.Name = "LayoutControlItem17" Me.LayoutControlItem17.Size = New System.Drawing.Size(240, 25) Me.LayoutControlItem17.Text = "Datentyp:" @@ -1119,16 +1108,16 @@ Partial Class frmGlobixAdministration 'LayoutControlItem39 ' Me.LayoutControlItem39.Control = Me.ComboBox1 - Me.LayoutControlItem39.Location = New System.Drawing.Point(446, 117) + Me.LayoutControlItem39.Location = New System.Drawing.Point(445, 117) Me.LayoutControlItem39.Name = "LayoutControlItem39" - Me.LayoutControlItem39.Size = New System.Drawing.Size(303, 26) + Me.LayoutControlItem39.Size = New System.Drawing.Size(302, 26) Me.LayoutControlItem39.Text = "Systemvariablen:" Me.LayoutControlItem39.TextSize = New System.Drawing.Size(85, 13) ' 'EmptySpaceItem11 ' Me.EmptySpaceItem11.AllowHotTrack = False - Me.EmptySpaceItem11.Location = New System.Drawing.Point(749, 117) + Me.EmptySpaceItem11.Location = New System.Drawing.Point(747, 117) Me.EmptySpaceItem11.Name = "EmptySpaceItem11" Me.EmptySpaceItem11.Size = New System.Drawing.Size(250, 26) Me.EmptySpaceItem11.TextSize = New System.Drawing.Size(0, 0) @@ -1147,26 +1136,37 @@ Partial Class frmGlobixAdministration Me.LayoutControlItem30.Control = Me.CHANGED_WHENTextBox Me.LayoutControlItem30.Location = New System.Drawing.Point(239, 215) Me.LayoutControlItem30.Name = "LayoutControlItem30" - Me.LayoutControlItem30.Size = New System.Drawing.Size(273, 24) + Me.LayoutControlItem30.Size = New System.Drawing.Size(272, 24) Me.LayoutControlItem30.Text = "Geändert wann:" Me.LayoutControlItem30.TextSize = New System.Drawing.Size(85, 13) ' 'EmptySpaceItem17 ' Me.EmptySpaceItem17.AllowHotTrack = False - Me.EmptySpaceItem17.Location = New System.Drawing.Point(512, 191) + Me.EmptySpaceItem17.Location = New System.Drawing.Point(511, 191) Me.EmptySpaceItem17.Name = "EmptySpaceItem17" - Me.EmptySpaceItem17.Size = New System.Drawing.Size(487, 24) + Me.EmptySpaceItem17.Size = New System.Drawing.Size(486, 24) Me.EmptySpaceItem17.TextSize = New System.Drawing.Size(0, 0) ' 'EmptySpaceItem18 ' Me.EmptySpaceItem18.AllowHotTrack = False - Me.EmptySpaceItem18.Location = New System.Drawing.Point(512, 215) + Me.EmptySpaceItem18.Location = New System.Drawing.Point(511, 215) Me.EmptySpaceItem18.Name = "EmptySpaceItem18" - Me.EmptySpaceItem18.Size = New System.Drawing.Size(487, 24) + Me.EmptySpaceItem18.Size = New System.Drawing.Size(486, 24) Me.EmptySpaceItem18.TextSize = New System.Drawing.Size(0, 0) ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.Button1 + Me.LayoutControlItem10.Location = New System.Drawing.Point(546, 48) + Me.LayoutControlItem10.MinSize = New System.Drawing.Size(24, 24) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Size = New System.Drawing.Size(269, 25) + Me.LayoutControlItem10.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem10.TextVisible = False + ' 'ListBoxControlmanIndex ' Me.ListBoxControlmanIndex.DataSource = Me.TBDD_INDEX_MANBindingSource @@ -1174,7 +1174,7 @@ Partial Class frmGlobixAdministration Me.ListBoxControlmanIndex.Dock = System.Windows.Forms.DockStyle.Left Me.ListBoxControlmanIndex.Location = New System.Drawing.Point(0, 0) Me.ListBoxControlmanIndex.Name = "ListBoxControlmanIndex" - Me.ListBoxControlmanIndex.Size = New System.Drawing.Size(163, 259) + Me.ListBoxControlmanIndex.Size = New System.Drawing.Size(165, 259) Me.ListBoxControlmanIndex.TabIndex = 0 ' 'XtraTabPageRework @@ -1530,7 +1530,6 @@ Partial Class frmGlobixAdministration CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() @@ -1549,6 +1548,7 @@ Partial Class frmGlobixAdministration CType(Me.LayoutControlItem30, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ListBoxControlmanIndex, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageAutoIndexe.ResumeLayout(False) CType(Me.LayoutControlAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx b/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx index ec42651a..91715575 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.resx @@ -193,6 +193,9 @@ 144, 17 + + 17, 17 + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -222,6 +225,26 @@ NHY0aDRMMTQsMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAxMyAxMyIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MTMgMTMiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs + YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy + Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQXBwb2ludG1l + bnRFbmRDb250aW51ZUFycm93XzFfIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjIsNyA3LDIgNyw1IDEx + LDUgMTEsOSA3LDkgNywxMiAgIiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 821, 17 + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z @@ -351,41 +374,6 @@ LjEsMjguMSwyNy42LDI3LjZ6IiBjbGFzcz0iQmx1ZSIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== - - 144, 17 - - - 17, 17 - - - 17, 17 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFMCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAxMyAxMyIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MTMgMTMiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJs - YWNre2ZpbGw6IzcyNzI3Mjt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAzOUMy - Mzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQXBwb2ludG1l - bnRFbmRDb250aW51ZUFycm93XzFfIj4NCiAgICA8cG9seWdvbiBwb2ludHM9IjIsNyA3LDIgNyw1IDEx - LDUgMTEsOSA3LDkgNywxMiAgIiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - 821, 17 - - - 821, 17 - - - 17, 56 - 399, 17 diff --git a/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb b/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb index 26e8ec63..e1970824 100644 --- a/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb +++ b/GUIs.ZooFlow/Globix/frmGlobixAdministration.vb @@ -2,10 +2,10 @@ Imports DigitalData.Modules.Logging Public Class frmGlobixAdministration - Implements frmAdmin_Interface - Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey - Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges - Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert + Implements IAdminForm + Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey + Public Property HasChanges As Boolean Implements IAdminForm.HasChanges + Public Property IsInsert As Boolean Implements IAdminForm.IsInsert Private Logger As Logger Private CURRCOntrolGroup As LayoutControlGroup Public Sub New(PrimaryKey As Integer) @@ -105,7 +105,7 @@ Public Class frmGlobixAdministration End Sub - Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData + Public Function SaveData() As Boolean Implements IAdminForm.SaveData Throw New NotImplementedException() End Function @@ -205,15 +205,7 @@ Public Class frmGlobixAdministration End Select End Sub - Private Sub XtraTabPageManIndexe_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles XtraTabPageManIndexe.Validating - - End Sub - - Private Sub XtraTabPageAutoIndexe_Enter(sender As Object, e As EventArgs) Handles XtraTabPageAutoIndexe.Enter - - End Sub - - Private Sub XtraTabPageManIndexe_Enter(sender As Object, e As EventArgs) Handles XtraTabPageManIndexe.Enter - - End Sub + Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData + Throw New NotImplementedException() + End Function End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Globix/frmGlobix_Index.vb b/GUIs.ZooFlow/Globix/frmGlobix_Index.vb index 6754553c..acab15d2 100644 --- a/GUIs.ZooFlow/Globix/frmGlobix_Index.vb +++ b/GUIs.ZooFlow/Globix/frmGlobix_Index.vb @@ -7,6 +7,7 @@ Imports System.Security.Principal Imports System.Text.RegularExpressions Imports DigitalData.GUIs.GlobalIndexer Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils Imports DigitalData.Controls.LookupGrid Imports Independentsoft @@ -1847,7 +1848,7 @@ Public Class frmGlobix_Index ' ergebnis = ClassDatabase.OracleExecute_Scalar(sql, connectionString) 'Else 'MSQL - ergebnis = My.Database.GetScalarValueConStr(sql, connectionString) + ergebnis = My.Database.GetScalarValueWithConnection(sql, connectionString) ' End If Select Case ergebnis @@ -2022,7 +2023,7 @@ Public Class frmGlobix_Index 'If vProvider.ToLower = "oracle" Then 'oErgebnis = My.Database.leExecute_Scalar(SQLCommand, oConnectionString) 'Else 'im Moment nur SQL-Server - oErgebnis = My.Database.GetScalarValueConStr(SQLCommand, oConnectionString) + oErgebnis = My.Database.GetScalarValueWithConnection(SQLCommand, oConnectionString) 'End If _Logger.Debug("SQL-ConnectionString: " & oConnectionString.Substring(0, oConnectionString.LastIndexOf("="))) If oErgebnis Is Nothing Then diff --git a/GUIs.ZooFlow/ModuleHelpers.vb b/GUIs.ZooFlow/ModuleHelpers.vb index f3892991..d3bf200f 100644 --- a/GUIs.ZooFlow/ModuleHelpers.vb +++ b/GUIs.ZooFlow/ModuleHelpers.vb @@ -2,19 +2,6 @@ Imports System.Text.RegularExpressions Module ModuleHelpers - ''' - ''' Überprüft einen Wert auf verschiedene Arten von "Null" und gibt einen Standard-Wert zurück, wenn der Wert "Null" ist. - ''' - ''' Der zu überprüfende Wert - ''' Der Standard Wert - ''' value oder wenn dieser "Null" ist, defaultValue - Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T - If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then - Return defaultValue - Else - Return value - End If - End Function Public Function encode_utf8(ByVal str As String) As String Try 'supply True as the construction parameter to indicate diff --git a/GUIs.ZooFlow/My Project/Resources.Designer.vb b/GUIs.ZooFlow/My Project/Resources.Designer.vb index 116d1d46..c8e7f2b9 100644 --- a/GUIs.ZooFlow/My Project/Resources.Designer.vb +++ b/GUIs.ZooFlow/My Project/Resources.Designer.vb @@ -240,6 +240,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_add() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_add", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_add1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_add1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -290,6 +310,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_addcircled5() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_addcircled5", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -340,6 +370,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_database() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_database", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -400,6 +440,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_deletecircled6() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_deletecircled6", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -420,6 +470,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_edit2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_edit2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property actions_window() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("actions_window", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -520,16 +590,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. - ''' - Friend ReadOnly Property Datasource_16x16() As System.Drawing.Bitmap - Get - Dim obj As Object = ResourceManager.GetObject("Datasource_16x16", resourceCulture) - Return CType(obj,System.Drawing.Bitmap) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -560,6 +620,86 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property definednameuseinformula3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("definednameuseinformula3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del2() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del2", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del3() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del3", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property del4() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("del4", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -570,6 +710,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property deletetable() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("deletetable", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property documentproperties() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("documentproperties", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -610,6 +770,36 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editdatasource() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editdatasource", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editdatasource1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editdatasource1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property editquery() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("editquery", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -640,6 +830,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property insertsheet() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("insertsheet", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -670,6 +870,36 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property markcomplete1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("markcomplete1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property pagesetup() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("pagesetup", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property pagesetup1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("pagesetup1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -770,6 +1000,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property singlepageview() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("singlepageview", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -800,6 +1040,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property windows() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("windows", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/GUIs.ZooFlow/My Project/Resources.resx b/GUIs.ZooFlow/My Project/Resources.resx index a992d63b..2f34d0aa 100644 --- a/GUIs.ZooFlow/My Project/Resources.resx +++ b/GUIs.ZooFlow/My Project/Resources.resx @@ -142,6 +142,12 @@ ..\Resources\save.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\definednameuseinformula3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editquery.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,11 +157,8 @@ ..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -169,9 +172,18 @@ ..\Resources\StatusAnnotations_Stop_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\DD_Icons_ICO_PMANAGER_128px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\editdatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_window.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\ZOO_FLOW_ sysicon_256.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -181,38 +193,53 @@ ..\Resources\2_ZOO_FLOW_Abo_MouseOver.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\CW_GEFUNDEN_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\actions_check3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\actions_addcircled3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_add.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\markcomplete1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\editdatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\updatedataextract.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\save1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\del.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\save2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\Checked-outforEdit_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -220,9 +247,18 @@ ..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\1_LOGO_ZOO_FLOW_DROP3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\highimportance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -232,32 +268,38 @@ ..\Resources\save7.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\2_LUPE_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\documentproperties.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\actions_deletecircled5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\DD_Icons_ICO_PMANAGER_256px.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\ZooFlow-25.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\insertsheet.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_addcircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_edit2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\managedatasource1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -271,23 +313,41 @@ ..\Resources\about3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\doublenext.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\pagesetup.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\actions_add1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_addcircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\del3.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_deletecircled2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\del4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\2_ZOO_FLOW_Abo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\bo_document.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\save4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\pagesetup1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\singlepageview.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\save6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -295,20 +355,29 @@ ..\Resources\actions_deletecircled4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_database.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\1_LOGO_ZOO_FLOW1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\actions_edit.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_deletecircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\3_PERSON_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\CW_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\bo_appearance.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\actions_check2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\actions_addcircled1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -316,11 +385,11 @@ ..\Resources\crossdatasourcefiltering.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\actions_edit1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\4_GLOBIX_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\actions_deletecircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_deletecircled6.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\Flow.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -328,8 +397,8 @@ ..\Resources\3_PERSON_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\renamedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\2_LUPE_AKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -337,16 +406,22 @@ ..\Resources\actions_addcircled.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\del2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\windows.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\1_LOGO_ZOO_FLOW_DROP2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\4_GLOBIX_INAKTIV_ZOO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\1_LOGO_ZOO_FLOW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\GLOBIX_short.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\about4.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_check5.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/GUIs.ZooFlow/My Project/licenses.licx b/GUIs.ZooFlow/My Project/licenses.licx index 2567975b..9ade16fd 100644 --- a/GUIs.ZooFlow/My Project/licenses.licx +++ b/GUIs.ZooFlow/My Project/licenses.licx @@ -1,19 +1,20 @@ +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.LookUpEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemDateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Docking2010.DocumentManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraDataLayout.DataLayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.Repository.RepositoryItemTextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ButtonEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.FormAssistant, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TileControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.ZooFlow/Resources/actions_add.svg b/GUIs.ZooFlow/Resources/actions_add.svg new file mode 100644 index 00000000..0f7c9b63 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_add.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_add1.svg b/GUIs.ZooFlow/Resources/actions_add1.svg new file mode 100644 index 00000000..0f7c9b63 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_add1.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_addcircled5.svg b/GUIs.ZooFlow/Resources/actions_addcircled5.svg new file mode 100644 index 00000000..0c97b24a --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_addcircled5.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_check5.svg b/GUIs.ZooFlow/Resources/actions_check5.svg new file mode 100644 index 00000000..35c68028 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_check5.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_database.svg b/GUIs.ZooFlow/Resources/actions_database.svg new file mode 100644 index 00000000..af7a23c1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_database.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_deletecircled6.svg b/GUIs.ZooFlow/Resources/actions_deletecircled6.svg new file mode 100644 index 00000000..d8c9bb3f --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_deletecircled6.svg @@ -0,0 +1,15 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_edit2.svg b/GUIs.ZooFlow/Resources/actions_edit2.svg new file mode 100644 index 00000000..89aa31c7 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_edit2.svg @@ -0,0 +1,17 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/actions_window.svg b/GUIs.ZooFlow/Resources/actions_window.svg new file mode 100644 index 00000000..a857a5e7 --- /dev/null +++ b/GUIs.ZooFlow/Resources/actions_window.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula1.svg b/GUIs.ZooFlow/Resources/definednameuseinformula1.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula1.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula2.svg b/GUIs.ZooFlow/Resources/definednameuseinformula2.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula2.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/definednameuseinformula3.svg b/GUIs.ZooFlow/Resources/definednameuseinformula3.svg new file mode 100644 index 00000000..0d27a20b --- /dev/null +++ b/GUIs.ZooFlow/Resources/definednameuseinformula3.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del.svg b/GUIs.ZooFlow/Resources/del.svg new file mode 100644 index 00000000..3ac92fc9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del1.svg b/GUIs.ZooFlow/Resources/del1.svg new file mode 100644 index 00000000..3ac92fc9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del1.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del2.svg b/GUIs.ZooFlow/Resources/del2.svg new file mode 100644 index 00000000..3ac92fc9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del2.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del3.svg b/GUIs.ZooFlow/Resources/del3.svg new file mode 100644 index 00000000..3ac92fc9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del3.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/del4.svg b/GUIs.ZooFlow/Resources/del4.svg new file mode 100644 index 00000000..3ac92fc9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/del4.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/deletetable.svg b/GUIs.ZooFlow/Resources/deletetable.svg new file mode 100644 index 00000000..4ec37698 --- /dev/null +++ b/GUIs.ZooFlow/Resources/deletetable.svg @@ -0,0 +1,14 @@ + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/documentproperties.svg b/GUIs.ZooFlow/Resources/documentproperties.svg new file mode 100644 index 00000000..a0e861c9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/documentproperties.svg @@ -0,0 +1,9 @@ + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editdatasource.svg b/GUIs.ZooFlow/Resources/editdatasource.svg new file mode 100644 index 00000000..6e46621c --- /dev/null +++ b/GUIs.ZooFlow/Resources/editdatasource.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editdatasource1.svg b/GUIs.ZooFlow/Resources/editdatasource1.svg new file mode 100644 index 00000000..6e46621c --- /dev/null +++ b/GUIs.ZooFlow/Resources/editdatasource1.svg @@ -0,0 +1,17 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/editquery.svg b/GUIs.ZooFlow/Resources/editquery.svg new file mode 100644 index 00000000..54e75cd4 --- /dev/null +++ b/GUIs.ZooFlow/Resources/editquery.svg @@ -0,0 +1,23 @@ + + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/insertsheet.svg b/GUIs.ZooFlow/Resources/insertsheet.svg new file mode 100644 index 00000000..37d8fdaf --- /dev/null +++ b/GUIs.ZooFlow/Resources/insertsheet.svg @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/markcomplete1.svg b/GUIs.ZooFlow/Resources/markcomplete1.svg new file mode 100644 index 00000000..6a4b15a1 --- /dev/null +++ b/GUIs.ZooFlow/Resources/markcomplete1.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/pagesetup.svg b/GUIs.ZooFlow/Resources/pagesetup.svg new file mode 100644 index 00000000..4c4accb9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/pagesetup.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/pagesetup1.svg b/GUIs.ZooFlow/Resources/pagesetup1.svg new file mode 100644 index 00000000..4c4accb9 --- /dev/null +++ b/GUIs.ZooFlow/Resources/pagesetup1.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/singlepageview.svg b/GUIs.ZooFlow/Resources/singlepageview.svg new file mode 100644 index 00000000..9664a189 --- /dev/null +++ b/GUIs.ZooFlow/Resources/singlepageview.svg @@ -0,0 +1,16 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/Resources/windows.svg b/GUIs.ZooFlow/Resources/windows.svg new file mode 100644 index 00000000..955f6c55 --- /dev/null +++ b/GUIs.ZooFlow/Resources/windows.svg @@ -0,0 +1,18 @@ + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index 3102d875..defdf3fe 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -62,9 +62,6 @@ - - ..\GUIs.GlobalIndexer\bin\Debug\DigitalData.GUIs.GlobalIndexer.dll - P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\22_11_19\Independentsoft.Msg.dll @@ -114,19 +111,14 @@ - - Form + + + + + + frmAdmin_ClipboardWatcher.vb - - frmAdmin_CWDataSearch.vb - - - Form - - - frmAdmin_CWProfile.vb - - + Form @@ -141,7 +133,7 @@ Form - + frmAdmin_Globix.vb @@ -154,7 +146,7 @@ Form - + @@ -170,6 +162,11 @@ DBCW_Stammdaten.xsd + + True + True + DSDD_Stammdaten.xsd + DSIDB_Stammdaten.xsd @@ -314,11 +311,8 @@ - - frmAdmin_CWDataSearch.vb - - - frmAdmin_CWProfile.vb + + frmAdmin_ClipboardWatcher.vb frmAdmin_IDBAttribute.vb @@ -393,6 +387,17 @@ DBCW_Stammdaten.xsd + + DSDD_Stammdaten.xsd + + + Designer + MSDataSetGenerator + DSDD_Stammdaten.Designer.vb + + + DSDD_Stammdaten.xsd + MyDataset.xsd @@ -451,6 +456,14 @@ {3dcd6d1a-c830-4241-b7e4-27430e7ea483} LookupControl + + {bcc6942f-cd4b-4b67-8200-1c0d002e7cc2} + RegexEditor + + + {3e7bc8a9-91ef-49b8-8110-2c01f664c24a} + SQLEditor + {B7D465A2-AE31-4CDF-A8B2-34B42D3EA84E} ClipboardWatcher @@ -459,6 +472,10 @@ {d20a6bf2-c7c6-4a7a-b34d-fa27d775a049} Common + + {40384b94-1f94-4249-9a5a-d02e0b346738} + GlobalIndexer + {44982F9B-6116-44E2-85D0-F39650B1EF99} Config @@ -495,6 +512,10 @@ {81cac44f-3711-4c8f-ae98-e02a7448782a} ZooFlow + + {65efb268-c0e0-40c1-8981-9f70dee5c74a} + SQLConfig + {5efaef9b-90b9-4f05-9f70-f79ad77fff86} Windows @@ -711,6 +732,87 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SQLConfig/My Project/Settings.Designer.vb b/SQLConfig/My Project/Settings.Designer.vb new file mode 100644 index 00000000..8f2429b8 --- /dev/null +++ b/SQLConfig/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DigitalData.Controls.SQLConfig.My.MySettings + Get + Return Global.DigitalData.Controls.SQLConfig.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SQLConfig/My Project/Settings.settings b/SQLConfig/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/SQLConfig/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SQLConfig/My Project/licenses.licx b/SQLConfig/My Project/licenses.licx new file mode 100644 index 00000000..d21850c7 --- /dev/null +++ b/SQLConfig/My Project/licenses.licx @@ -0,0 +1,4 @@ +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/SQLConfig/SQLConfig.vbproj b/SQLConfig/SQLConfig.vbproj new file mode 100644 index 00000000..5625c7e9 --- /dev/null +++ b/SQLConfig/SQLConfig.vbproj @@ -0,0 +1,158 @@ + + + + + Debug + AnyCPU + {65EFB268-C0E0-40C1-8981-9F70DEE5C74A} + WinExe + DigitalData.Controls.SQLConfig.My.MyApplication + DigitalData.Controls.SQLConfig + DigitalData.Controls.SQLConfig + 512 + WindowsForms + v4.6.1 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + DigitalData.Controls.SQLConfig.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DigitalData.Controls.SQLConfig.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + False + D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll + + + False + D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll + + + + ..\packages\NLog.4.7.5\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmSQLConfig.vb + + + Form + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + frmSQLConfig.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} + Database + + + {991d0231-4623-496d-8bd0-9ca906029cbc} + Filesystem + + + {903b2d7d-3b80-4be9-8713-7447b704e1b0} + Logging + + + + \ No newline at end of file diff --git a/SQLConfig/frmSQLConfig.Designer.vb b/SQLConfig/frmSQLConfig.Designer.vb new file mode 100644 index 00000000..a54c19ed --- /dev/null +++ b/SQLConfig/frmSQLConfig.Designer.vb @@ -0,0 +1,271 @@ + _ +Partial Class frmSQLConfig + Inherits DevExpress.XtraEditors.XtraForm + + '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.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.txtServerName = New DevExpress.XtraEditors.TextEdit() + Me.txtUserName = New DevExpress.XtraEditors.TextEdit() + Me.txtPassword = New DevExpress.XtraEditors.TextEdit() + Me.cmbDatabase = New DevExpress.XtraEditors.ComboBoxEdit() + Me.btnTestConnection = New DevExpress.XtraEditors.SimpleButton() + Me.txtConnectionString = New DevExpress.XtraEditors.TextEdit() + Me.chkWinAuth = New DevExpress.XtraEditors.CheckEdit() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.txtServerName) + Me.LayoutControl1.Controls.Add(Me.txtUserName) + Me.LayoutControl1.Controls.Add(Me.txtPassword) + Me.LayoutControl1.Controls.Add(Me.cmbDatabase) + Me.LayoutControl1.Controls.Add(Me.btnTestConnection) + Me.LayoutControl1.Controls.Add(Me.txtConnectionString) + Me.LayoutControl1.Controls.Add(Me.chkWinAuth) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.LayoutControlGroup1 + Me.LayoutControl1.Size = New System.Drawing.Size(602, 221) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'txtServerName + ' + Me.txtServerName.Location = New System.Drawing.Point(148, 15) + Me.txtServerName.Name = "txtServerName" + Me.txtServerName.Size = New System.Drawing.Size(439, 20) + Me.txtServerName.StyleController = Me.LayoutControl1 + Me.txtServerName.TabIndex = 4 + ' + 'txtUserName + ' + Me.txtUserName.Location = New System.Drawing.Point(148, 45) + Me.txtUserName.Name = "txtUserName" + Me.txtUserName.Size = New System.Drawing.Size(148, 20) + Me.txtUserName.StyleController = Me.LayoutControl1 + Me.txtUserName.TabIndex = 5 + ' + 'txtPassword + ' + Me.txtPassword.Location = New System.Drawing.Point(439, 45) + Me.txtPassword.Name = "txtPassword" + Me.txtPassword.Size = New System.Drawing.Size(148, 20) + Me.txtPassword.StyleController = Me.LayoutControl1 + Me.txtPassword.TabIndex = 6 + ' + 'cmbDatabase + ' + Me.cmbDatabase.Location = New System.Drawing.Point(148, 75) + Me.cmbDatabase.Name = "cmbDatabase" + Me.cmbDatabase.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbDatabase.Size = New System.Drawing.Size(439, 20) + Me.cmbDatabase.StyleController = Me.LayoutControl1 + Me.cmbDatabase.TabIndex = 7 + ' + 'btnTestConnection + ' + Me.btnTestConnection.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) + Me.btnTestConnection.Location = New System.Drawing.Point(303, 166) + Me.btnTestConnection.Name = "btnTestConnection" + Me.btnTestConnection.Size = New System.Drawing.Size(287, 22) + Me.btnTestConnection.StyleController = Me.LayoutControl1 + Me.btnTestConnection.TabIndex = 8 + Me.btnTestConnection.Text = "Verbindung zur Datenbank herstellen" + ' + 'txtConnectionString + ' + Me.txtConnectionString.Location = New System.Drawing.Point(148, 139) + Me.txtConnectionString.Name = "txtConnectionString" + Me.txtConnectionString.Properties.ReadOnly = True + Me.txtConnectionString.Size = New System.Drawing.Size(439, 20) + Me.txtConnectionString.StyleController = Me.LayoutControl1 + Me.txtConnectionString.TabIndex = 9 + ' + 'chkWinAuth + ' + Me.chkWinAuth.Location = New System.Drawing.Point(17, 107) + Me.chkWinAuth.Name = "chkWinAuth" + Me.chkWinAuth.Properties.Caption = "Windows Authentifizierung" + Me.chkWinAuth.Size = New System.Drawing.Size(568, 20) + Me.chkWinAuth.StyleController = Me.LayoutControl1 + Me.chkWinAuth.TabIndex = 10 + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup1.GroupBordersVisible = False + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.LayoutControlItem3, Me.LayoutControlItem7, Me.LayoutControlItem6, Me.LayoutControlItem5, Me.EmptySpaceItem2}) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(602, 221) + Me.LayoutControlGroup1.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.txtServerName + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem1.Size = New System.Drawing.Size(582, 30) + Me.LayoutControlItem1.Text = "Server Name:" + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.txtUserName + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 30) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(291, 30) + Me.LayoutControlItem2.Text = "Benutzername:" + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.cmbDatabase + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 60) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem4.Size = New System.Drawing.Size(582, 30) + Me.LayoutControlItem4.Text = "Datenbank:" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.txtPassword + Me.LayoutControlItem3.Location = New System.Drawing.Point(291, 30) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(291, 30) + Me.LayoutControlItem3.Text = "Passwort:" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.chkWinAuth + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 90) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Size = New System.Drawing.Size(582, 34) + Me.LayoutControlItem7.Spacing = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem7.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.txtConnectionString + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 124) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(582, 30) + Me.LayoutControlItem6.Text = "Aktueller Connectionstring:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.btnTestConnection + Me.LayoutControlItem5.Location = New System.Drawing.Point(291, 154) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(291, 47) + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 154) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(291, 47) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' + 'frmConfigDatabase + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(602, 221) + Me.Controls.Add(Me.LayoutControl1) + Me.Name = "frmConfigDatabase" + Me.Text = "Datenbank Verbindung" + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.txtServerName.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtUserName.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPassword.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbDatabase.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtConnectionString.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.chkWinAuth.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents txtServerName As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtUserName As DevExpress.XtraEditors.TextEdit + Friend WithEvents txtPassword As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbDatabase As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents btnTestConnection As DevExpress.XtraEditors.SimpleButton + Friend WithEvents txtConnectionString As DevExpress.XtraEditors.TextEdit + Friend WithEvents chkWinAuth As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem +End Class diff --git a/GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.resx b/SQLConfig/frmSQLConfig.resx similarity index 100% rename from GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.resx rename to SQLConfig/frmSQLConfig.resx diff --git a/SQLConfig/frmSQLConfig.vb b/SQLConfig/frmSQLConfig.vb new file mode 100644 index 00000000..5c393248 --- /dev/null +++ b/SQLConfig/frmSQLConfig.vb @@ -0,0 +1,151 @@ +Imports System.ComponentModel +Imports System.Data.SqlClient +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Filesystem +Imports DigitalData.Modules.Logging + +Public Class frmSQLConfig + Private Const STRING_CONNECTION_SUCCESSFUL = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?" + + Private ReadOnly Logger As Logger + Private ReadOnly LogConfig As LogConfig + + Public Property ConnectionString As String = String.Empty + + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Public Sub New(LogConfig As LogConfig) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.LogConfig = LogConfig + Logger = LogConfig.GetLogger() + End Sub + + Private Sub frmSQLConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim oConnectionString = ConnectionString + + If Not oConnectionString = String.Empty Then + Dim oBuilder As SqlConnectionStringBuilder + Try + oBuilder = New SqlConnectionStringBuilder(ConnectionString) + Catch ex As Exception + oBuilder = Nothing + End Try + + If oBuilder Is Nothing Then + MsgBox("Connection String ist ungültig!", MsgBoxStyle.Critical, Text) + Exit Sub + End If + + If oConnectionString.Contains("Trusted") Then + chkWinAuth.Checked = True + txtConnectionString.Text = oConnectionString + Else + chkWinAuth.Checked = False + txtConnectionString.Text = oConnectionString.Replace(oBuilder.Password, "XXXXXX") + txtUserName.Text = oBuilder.UserID + End If + + txtServerName.Text = oBuilder.DataSource + cmbDatabase.Text = oBuilder.InitialCatalog + End If + End Sub + + Private Sub chkWinAuth_CheckedChanged(sender As Object, e As EventArgs) Handles chkWinAuth.CheckedChanged + txtPassword.Enabled = Not chkWinAuth.Checked + txtUserName.Enabled = Not chkWinAuth.Checked + End Sub + + Private Sub cmbDatabase_Click(sender As Object, e As EventArgs) Handles cmbDatabase.Click + Cursor = Cursors.WaitCursor + + Dim oConnectionString As String = GetConnectionString(False) + Dim oDatabase As New MSSQLServer(LogConfig, oConnectionString) + + If oDatabase.DBInitialized = False Then + MsgBox("Verbindung fehlgeschlagen!", MsgBoxStyle.Critical, Text) + Exit Sub + End If + + Try + Using oConnection = New SqlClient.SqlConnection(oConnectionString) + oConnection.Open() + Using oCommand As New SqlClient.SqlCommand("sp_databases", oConnection) + Using oReader As SqlClient.SqlDataReader = oCommand.ExecuteReader + If oReader.HasRows Then + cmbDatabase.Properties.Items.Clear() + + Do While oReader.Read + cmbDatabase.Properties.Items.Add(oReader("Database_Name")) + Loop + cmbDatabase.ShowPopup() + Else + MsgBox("The standard-databases could not be retrieved. The default database will be set!" & vbNewLine & "Check rights in sql-server for user: " & Me.txtUserName.Text, MsgBoxStyle.Exclamation) + End If + End Using + End Using + End Using + + Catch ex As Exception + Logger.Error(ex) + Finally + Cursor = Cursors.Default + End Try + End Sub + + Private Function GetConnectionString(WithDatabase As Boolean) As String + Dim oConnectionString As String + + If chkWinAuth.Checked Then + oConnectionString = $"Data Source={txtServerName.Text};Trusted_Connection=True;" + Else + oConnectionString = $"Server={txtServerName.Text};User Id={txtUserName.Text};Password={txtPassword.Text};" + End If + + If WithDatabase Then + oConnectionString &= $"Database={cmbDatabase.Text};" + End If + + Return oConnectionString + End Function + + Private Sub btnTestConnection_Click(sender As Object, e As EventArgs) Handles btnTestConnection.Click + Try + Dim oConnectionString = GetConnectionString(True) + + Using oConnection As New SqlConnection(oConnectionString) + oConnection.Open() + oConnection.Close() + End Using + + Dim oResult = MessageBox.Show(STRING_CONNECTION_SUCCESSFUL, Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) + + If oResult = DialogResult.Yes Then + Dim oCrypt As New EncryptionLegacy("!35452didalog=") + Dim oEncryptedPassword = oCrypt.EncryptData(txtPassword.Text) + Dim oEncryptedConnectionString = $"Server={txtServerName.Text};Database={cmbDatabase.Text};User Id={txtUserName.Text};Password={oEncryptedPassword};" + + ConnectionString = oEncryptedConnectionString + Close() + End If + Catch ex As Exception + Logger.Error(ex) + MsgBox("Error while connecting to Database", MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub frmSQLConfig_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + If ConnectionString <> String.Empty Then + DialogResult = DialogResult.OK + Else + DialogResult = DialogResult.Cancel + End If + End Sub +End Class \ No newline at end of file diff --git a/SQLConfig/packages.config b/SQLConfig/packages.config new file mode 100644 index 00000000..6f6bc401 --- /dev/null +++ b/SQLConfig/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/Service.EDMIService/App.config b/Service.EDMIService/App.config index 90304c22..511006d2 100644 --- a/Service.EDMIService/App.config +++ b/Service.EDMIService/App.config @@ -4,10 +4,7 @@ - + @@ -30,19 +27,8 @@ - - + + diff --git a/Service.EDMIService/EDMIService.vb b/Service.EDMIService/EDMIService.vb index 016c98bb..aa107890 100644 --- a/Service.EDMIService/EDMIService.vb +++ b/Service.EDMIService/EDMIService.vb @@ -73,12 +73,12 @@ Public Class EDMIService #Region "=== Database ===" Public Function ReturnDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult Implements IEDMIService.ReturnDatatableFromCache Try - _Logger.Info($"ReturnDatatableFromCache, Datatable: {Name}") + _Logger.Info($"ReturnDatatableFromCache: Datatable: {Name}") Dim oDataset As DataSet = GlobalState.TableStore Dim oDataTable As DataTable = Nothing - _Logger.Debug("DataSet contains [{0}] datatables", oDataset.Tables.Count) + _Logger.Debug("ReturnDatatableFromCache: DataSet contains [{0}] datatables", oDataset.Tables.Count) If oDataset.Tables.Contains(Name) Then oDataTable = oDataset.Tables.Item(Name).Copy() @@ -99,13 +99,13 @@ Public Class EDMIService oFilteredTable.TableName = Name End If - _Logger.Debug("Datatable Stats for [{0}]:", Name) + _Logger.Debug("ReturnDatatableFromCache: Datatable Stats for [{0}]:", Name) _Logger.Debug("Unfiltered: [{0}] rows", oDataTable.Rows.Count) _Logger.Debug("Filtered: [{0}] rows", oFilteredTable.Rows.Count) Return New TableResult(oFilteredTable) Else - _Logger.Warn($"Datatable {Name} does not exist") + _Logger.Warn($"ReturnDatatableFromCache: Datatable {Name} does not exist") Dim oDetails As New DataTableDoesNotExistFault(Name) Throw New FaultException(Of DataTableDoesNotExistFault)(oDetails) End If @@ -569,8 +569,10 @@ Public Class EDMIService Dim EDMIPath = New EDMI.File.Path(LogConfig, oObjectStore.Path) Try - _Logger.Info("ImportFile: Saving file to path [{0}]", Data.pIDBFilePath) Using oStream = New FileStream(Data.pIDBFilePath, FileMode.Create, FileAccess.Write) + _Logger.Info("ImportFile: Saving file to path [{0}]", Data.pIDBFilePath) + _Logger.Info("ImportFile: Content Length: {0}", Data.Contents.Length) + oStream.Write(Data.Contents, 0, Data.Contents.Length) oStream.Flush(True) oStream.Close() diff --git a/Service.EDMIService/EDMIService.vbproj b/Service.EDMIService/EDMIService.vbproj index 17da2e73..e42dc00c 100644 --- a/Service.EDMIService/EDMIService.vbproj +++ b/Service.EDMIService/EDMIService.vbproj @@ -31,14 +31,16 @@ true - AnyCPU + x64 true full true true bin\Debug\ - EDMIService.xml + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + false AnyCPU @@ -47,7 +49,8 @@ true true bin\Release\ - EDMIService.xml + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 @@ -73,8 +76,8 @@ ..\packages\NLog.4.7.5\lib\net45\NLog.dll - - ..\packages\Quartz.3.2.3\lib\net461\Quartz.dll + + ..\packages\Quartz.3.3.2\lib\net472\Quartz.dll diff --git a/Service.EDMIService/My Project/AssemblyInfo.vb b/Service.EDMIService/My Project/AssemblyInfo.vb index 14804c26..6d6356e2 100644 --- a/Service.EDMIService/My Project/AssemblyInfo.vb +++ b/Service.EDMIService/My Project/AssemblyInfo.vb @@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Service.EDMIService/Scheduler/DatatableJob.vb b/Service.EDMIService/Scheduler/DatatableJob.vb index f5636425..da42a1e2 100644 --- a/Service.EDMIService/Scheduler/DatatableJob.vb +++ b/Service.EDMIService/Scheduler/DatatableJob.vb @@ -9,6 +9,8 @@ Imports Quartz Public Class DatatableJob Implements IJob + Private Const COMMAND_SQL_TIMEOUT = 240 + Private _MSSQL As MSSQLServer Public Function Execute(context As IJobExecutionContext) As Task Implements IJob.Execute @@ -41,7 +43,8 @@ Public Class DatatableJob oLogger.Debug("Connection Id: {0}", oConnectionId) Dim oConnectionString = oMSSQL.Get_ConnectionStringforID(oConnectionId) - Dim oTable = oMSSQL.GetDatatableWithConnection(oSQL, oConnectionString) + + Dim oTable = oMSSQL.GetDatatableWithConnection(oSQL, oConnectionString, COMMAND_SQL_TIMEOUT) oTable.TableName = oDatatableName oLogger.Debug("Result Datatable [{0}] contains [{1}] rows", oTable.TableName, oTable.Rows.Count) diff --git a/Service.EDMIService/Scheduler/JobListener.vb b/Service.EDMIService/Scheduler/JobListener.vb index 42f2d4f6..9fabc4bf 100644 --- a/Service.EDMIService/Scheduler/JobListener.vb +++ b/Service.EDMIService/Scheduler/JobListener.vb @@ -188,11 +188,6 @@ Public Class JobListener End If End If - _Logger.Debug("Listing Tables in DataSet") - For Each oDataTable As DataTable In Dataset.Tables - _Logger.Debug(oDataTable.TableName) - Next - ' Used for debugging relations and constraints '_Logger.Debug("Dataset AFTER saving datatables") 'ListTables(Dataset) diff --git a/Service.EDMIService/WindowsService.vb b/Service.EDMIService/WindowsService.vb index 26bb05b8..06bb68e3 100644 --- a/Service.EDMIService/WindowsService.vb +++ b/Service.EDMIService/WindowsService.vb @@ -52,7 +52,7 @@ Public Class WindowsService End If Next Catch ex As Exception - + _Logger.Error(ex) End Try _Logger.Info("Service {0} is starting...", SERVICE_DISPLAY_NAME) @@ -63,7 +63,7 @@ Public Class WindowsService _Config = _ConfigManager.Config _LogConfig.Debug = _ConfigManager.Config.Debug - UpdateTraceLogging() + 'UpdateTraceLogging() Dim oTimer As New Timers.Timer(60000) AddHandler oTimer.Elapsed, Sub() @@ -72,7 +72,7 @@ Public Class WindowsService _Config = _ConfigManager.Config _LogConfig.Debug = _ConfigManager.Config.Debug - UpdateTraceLogging() + 'UpdateTraceLogging() End Sub oTimer.Start() diff --git a/Service.EDMIService/packages.config b/Service.EDMIService/packages.config index 4c04c214..bab29d1b 100644 --- a/Service.EDMIService/packages.config +++ b/Service.EDMIService/packages.config @@ -3,7 +3,7 @@ - + diff --git a/Service.JobRunner/JobRunner.vb b/Service.JobRunner/JobRunner.vb index 72637de0..93ed80c0 100644 --- a/Service.JobRunner/JobRunner.vb +++ b/Service.JobRunner/JobRunner.vb @@ -130,6 +130,8 @@ Public Class JobRunner _Logger = Logger End Sub + + Private Function GetLogger(name As String) As Logging.Logger Implements ILogProvider.GetLogger Return Function(level, func, exception, parameters) If exception IsNot Nothing Then @@ -149,7 +151,7 @@ Public Class JobRunner Throw New NotImplementedException() End Function - Private Function OpenMappedContext(key As String, value As String) As IDisposable Implements ILogProvider.OpenMappedContext + Public Function OpenMappedContext(key As String, value As Object, Optional destructure As Boolean = False) As IDisposable Implements ILogProvider.OpenMappedContext _Logger.Warn("OpenMappedContext is not implemented") Throw New NotImplementedException() End Function diff --git a/Service.JobRunner/JobRunner.vbproj b/Service.JobRunner/JobRunner.vbproj index 98c31c5b..2a9edc6c 100644 --- a/Service.JobRunner/JobRunner.vbproj +++ b/Service.JobRunner/JobRunner.vbproj @@ -51,11 +51,14 @@ + + ..\packages\Microsoft.Extensions.Logging.Abstractions.2.1.1\lib\netstandard2.0\Microsoft.Extensions.Logging.Abstractions.dll + ..\packages\NLog.4.7.5\lib\net45\NLog.dll - - ..\packages\Quartz.3.0.7\lib\net452\Quartz.dll + + ..\packages\Quartz.3.3.2\lib\net461\Quartz.dll diff --git a/Service.JobRunner/packages.config b/Service.JobRunner/packages.config index 01a189b1..fe5d07b1 100644 --- a/Service.JobRunner/packages.config +++ b/Service.JobRunner/packages.config @@ -1,5 +1,6 @@  + - + \ No newline at end of file diff --git a/VirtualDrive/App.config b/VirtualDrive/App.config index 56efbc7b..3d347499 100644 --- a/VirtualDrive/App.config +++ b/VirtualDrive/App.config @@ -1,6 +1,14 @@ - + + + + + + + + + \ No newline at end of file diff --git a/Windows/My Project/AssemblyInfo.vb b/Windows/My Project/AssemblyInfo.vb index b0869ff4..7f8740f7 100644 --- a/Windows/My Project/AssemblyInfo.vb +++ b/Windows/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Windows/Screen.vb b/Windows/Screen.vb index 565b5d83..a8cc9a5e 100644 --- a/Windows/Screen.vb +++ b/Windows/Screen.vb @@ -1,9 +1,29 @@ Imports System.Drawing Imports System.Runtime.InteropServices +Imports System.Windows.Forms +Imports Microsoft.Win32 Public Class Screen + Public Function GetScreenScaling(Form As Form) As Single + Dim oHandle As IntPtr = Form.Handle + Dim oFactor1, oFactor2 As Single + + oFactor1 = GetFactorFromDeviceCaps(oHandle) + oFactor2 = GetDPIFromMonitor(oHandle) + + If oFactor1 > 1 Then + Return oFactor1 + Else + Return oFactor2 + End If + End Function + + ' ============================================================================================================= + ' === DEVICE CAPS + ' ============================================================================================================= + - Private Shared Function GetDeviceCaps(ByVal hdc As IntPtr, ByVal nIndex As Integer) As Integer + Friend Shared Function GetDeviceCaps(ByVal hdc As IntPtr, ByVal nIndex As Integer) As Integer End Function Public Enum DeviceCap @@ -11,12 +31,59 @@ Public Class Screen DESKTOPVERTRES = 117 End Enum - Public Shared Function GetScalingFactor() As Single - Dim g As Graphics = Graphics.FromHwnd(IntPtr.Zero) + Private Function GetFactorFromDeviceCaps(Handle As IntPtr) As Single + Dim g As Graphics = Graphics.FromHwnd(Handle) Dim desktop As IntPtr = g.GetHdc() Dim LogicalScreenHeight As Integer = GetDeviceCaps(desktop, CInt(DeviceCap.VERTRES)) Dim PhysicalScreenHeight As Integer = GetDeviceCaps(desktop, CInt(DeviceCap.DESKTOPVERTRES)) - Dim ScreenScalingFactor As Single = CSng(PhysicalScreenHeight) / CSng(LogicalScreenHeight) - Return ScreenScalingFactor + Dim oScreenScalingFactor As Single = CSng(PhysicalScreenHeight) / CSng(LogicalScreenHeight) + Return oScreenScalingFactor + End Function + + ' ============================================================================================================= + ' === MONITOR FROM WINDOW + ' ============================================================================================================= + + 'In W32 class + + Friend Shared Function MonitorFromWindow(ByVal hwnd As IntPtr, + ByVal dwFlags As Integer) As IntPtr + End Function + + Friend Const MONITORINFOF_PRIMARY As Integer = &H1 + Friend Const MONITOR_DEFAULTTONEAREST As Integer = &H2 + Friend Const MONITOR_DEFAULTTONULL As Integer = &H0 + Friend Const MONITOR_DEFAULTTOPRIMARY As Integer = &H1 + + + Friend Shared Function GetDpiForMonitor(ByVal hmonitor As IntPtr, + ByVal dpiType As Monitor_DPI_Type, + ByRef dpiX As UInteger, + ByRef dpiY As UInteger) As Integer + End Function + + Friend Enum Monitor_DPI_Type As Integer + MDT_Effective_DPI = 0 + MDT_Angular_DPI = 1 + MDT_Raw_DPI = 2 + MDT_Default = MDT_Effective_DPI + End Enum + + Private Function GetDPIFromMonitor(Handle As IntPtr) As Single + 'Get handle to monitor that contains this window. + Dim monitorHandle As IntPtr = MonitorFromWindow(Handle, MONITOR_DEFAULTTONEAREST) + + 'Get DPI (If the OS is not Windows 8.1 or newer, calling GetDpiForMonitor will cause exception). + Dim dpiX As UInteger + Dim dpiY As UInteger + + Dim result As Integer = GetDpiForMonitor(monitorHandle, Monitor_DPI_Type.MDT_Default, dpiX, dpiY) + + + If (result = 0) Then 'If S_OK (= 0) + Return dpiX / 96.0F + Else + Return -1 + End If End Function End Class diff --git a/Windows/Windows.vbproj b/Windows/Windows.vbproj index 18ac33ac..6f1f3f93 100644 --- a/Windows/Windows.vbproj +++ b/Windows/Windows.vbproj @@ -47,6 +47,7 @@ ..\packages\NLog.4.7.5\lib\net45\NLog.dll + @@ -61,6 +62,7 @@ +