diff --git a/GUIs.Common/SQLEditor/Placeholders.vb b/GUIs.Common/SQLEditor/Placeholders.vb index b5db4b83..45efcf8b 100644 --- a/GUIs.Common/SQLEditor/Placeholders.vb +++ b/GUIs.Common/SQLEditor/Placeholders.vb @@ -3,8 +3,8 @@ Imports DevExpress.XtraBars.Ribbon Namespace SQLEditor Public Class Placeholders - Public Const AUTO_INDEX_ZOOFLOW = "ATTR_M" - Public Const MAN_INDEX_ZOOFLOW = "ATTR_A" + Public Const AUTO_INDEX_ZOOFLOW = "ATTR_A" + Public Const MAN_INDEX_ZOOFLOW = "ATTR_M" Public Function GetInternalPlaceholders() As GalleryItemGroup Dim oModule = "INT" @@ -58,7 +58,7 @@ Namespace SQLEditor Dim oPrefix As String = pPrefix If oPrefix Is Nothing Then - oPrefix = AUTO_INDEX_ZOOFLOW + oPrefix = MAN_INDEX_ZOOFLOW End If If pPlaceholders.Count > 0 Then diff --git a/GUIs.Common/frmSQLEditor.Designer.vb b/GUIs.Common/frmSQLEditor.Designer.vb index 56858458..673fd40a 100644 --- a/GUIs.Common/frmSQLEditor.Designer.vb +++ b/GUIs.Common/frmSQLEditor.Designer.vb @@ -23,6 +23,7 @@ Partial Class frmSQLEditor Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor)) Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.GalleryPlaceholders = New DevExpress.XtraBars.RibbonGalleryBarItem() Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) @@ -49,6 +50,7 @@ Partial Class frmSQLEditor Me.ViewPlaceholders = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colPattern = New DevExpress.XtraGrid.Columns.GridColumn() Me.colValue = New DevExpress.XtraGrid.Columns.GridColumn() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -64,9 +66,9 @@ Partial Class frmSQLEditor 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.GalleryPlaceholders, Me.btnEditConnections, Me.btnSave, Me.btnExecuteSQL, Me.GalleryConnection, Me.chkClearPlaceholders, Me.btnClearPlaceholders, Me.chkShowPlaceholders, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.GalleryPlaceholders, Me.btnEditConnections, Me.btnSave, Me.btnExecuteSQL, Me.GalleryConnection, Me.chkClearPlaceholders, Me.btnClearPlaceholders, Me.chkShowPlaceholders, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 19 + Me.RibbonControl1.MaxItemId = 20 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -100,7 +102,7 @@ Partial Class frmSQLEditor ' 'btnSave ' - Me.btnSave.Caption = "Speichern und Schließen" + Me.btnSave.Caption = "Übernehmen und Schließen" Me.btnSave.Id = 3 Me.btnSave.ImageOptions.SvgImage = Global.DigitalData.GUIs.Common.My.Resources.Resources.save2 Me.btnSave.Name = "btnSave" @@ -189,6 +191,7 @@ Partial Class frmSQLEditor ' 'RibbonPageGroup3 ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6) Me.RibbonPageGroup3.ItemLinks.Add(Me.btnSave) Me.RibbonPageGroup3.ItemLinks.Add(Me.btnExecuteSQL) Me.RibbonPageGroup3.ItemLinks.Add(Me.GalleryConnection) @@ -280,6 +283,13 @@ Partial Class frmSQLEditor Me.colValue.Visible = True Me.colValue.VisibleIndex = 1 ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "Abbrechen" + Me.BarButtonItem6.Id = 19 + Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem6.Name = "BarButtonItem6" + ' 'frmSQLEditor ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -335,4 +345,5 @@ Partial Class frmSQLEditor Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/GUIs.Common/frmSQLEditor.resx b/GUIs.Common/frmSQLEditor.resx index f722219e..49b40652 100644 --- a/GUIs.Common/frmSQLEditor.resx +++ b/GUIs.Common/frmSQLEditor.resx @@ -120,4 +120,20 @@ 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQo8L3N0 + eWxlPg0KICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMs + MTQtMTRTMjMuNywyLDE2LDJ6IE0yMywyMGwtMywzbC00LTRsLTQsNGwtMy0zbDQtNGwtNC00bDMtM2w0 + LDQgIGw0LTRsMywzbC00LDRMMjMsMjB6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw== + + \ No newline at end of file diff --git a/GUIs.Common/frmSQLEditor.vb b/GUIs.Common/frmSQLEditor.vb index 07e104b5..48cffb6c 100644 --- a/GUIs.Common/frmSQLEditor.vb +++ b/GUIs.Common/frmSQLEditor.vb @@ -294,4 +294,9 @@ Public Class frmSQLEditor DialogResult = FormResult End Sub + + Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick + FormResult = DialogResult.Cancel + Me.Close() + End Sub End Class diff --git a/GUIs.ZooFlow/Administration/ClassConstants.vb b/GUIs.ZooFlow/Administration/ClassConstants.vb index e3e4bcc6..6b460ae0 100644 --- a/GUIs.ZooFlow/Administration/ClassConstants.vb +++ b/GUIs.ZooFlow/Administration/ClassConstants.vb @@ -25,7 +25,7 @@ Public Const PAGE_USERS_GROUPLIST = "USERS_GROUPLIST" Public Const PAGE_USERS_MODULELIST = "USERS_MODULELIST" Public Const PAGE_USERS_USER_GROUP_RELATIONS = "USERS_USER_GROUP_RELATIONS" - + Public Const PAGE_IDB_COMMON_SQL = "TBDIB_COMMON_SQL" Public Const COLUMN_NAME_ACTIVE = "ACTIVE" diff --git a/GUIs.ZooFlow/Administration/ClassDetailForm.vb b/GUIs.ZooFlow/Administration/ClassDetailForm.vb index 5b139f67..9149c794 100644 --- a/GUIs.ZooFlow/Administration/ClassDetailForm.vb +++ b/GUIs.ZooFlow/Administration/ClassDetailForm.vb @@ -92,6 +92,11 @@ Public Class ClassDetailForm .[Module] = MODULE_USERS, .Entity = PAGE_USERS_USER_GROUP_RELATIONS, .IsRelationPage = True + }}, + {PAGE_IDB_COMMON_SQL, New DetailSettings With { + .GridTitle = "IDB Common SQLs", + .[Module] = MODULE_USERS, + .Entity = PAGE_IDB_COMMON_SQL }} } @@ -142,8 +147,9 @@ Public Class ClassDetailForm oForm = New frmAdmin_User(PrimaryKey) With {.IsInsert = IsInsert} Case PAGE_USERS_USER_GROUP_RELATIONS - oForm = New frmAdmin_UserGroupRelations(PrimaryKey) With {.isinsert = IsInsert} - + oForm = New frmAdmin_UserGroupRelations(PrimaryKey) With {.IsInsert = IsInsert} + Case PAGE_IDB_COMMON_SQL + oForm = New frmIDBCommonSQL End Select ' If the selected form was valid, open it diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb index a2584296..48867177 100644 --- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb @@ -33,6 +33,7 @@ Partial Class frmAdmin_Globix Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() Me.BarButtonNew = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItemDelete = New DevExpress.XtraBars.BarButtonItem() + Me.bsiStatus = 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() @@ -106,7 +107,6 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem21 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem24 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() @@ -122,6 +122,7 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem46 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem63 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem64 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() Me.ListBoxAutoIndexe = New DevExpress.XtraEditors.ListBoxControl() Me.XtraTabPageRework = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControlRework = New DevExpress.XtraLayout.LayoutControl() @@ -154,15 +155,15 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem40 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem37 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem39 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem42 = New DevExpress.XtraLayout.LayoutControlItem() Me.EmptySpaceItem4 = New DevExpress.XtraLayout.EmptySpaceItem() Me.ADDED_WHOAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem41 = New DevExpress.XtraLayout.LayoutControlItem() Me.CHANGED_WHOItemAutoAttribut = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem43 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem45 = New DevExpress.XtraLayout.LayoutControlItem() Me.LayoutControlItem44 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem39 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem45 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem42 = New DevExpress.XtraLayout.LayoutControlItem() Me.XtraTabPageDynamicFolder = New DevExpress.XtraTab.XtraTabPage() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.cmbAllAttributes = New System.Windows.Forms.ComboBox() @@ -242,7 +243,6 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem() Me.TBGI_REGEX_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter() Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter() - Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) SEQUENCELabel = New System.Windows.Forms.Label() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -305,7 +305,6 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() @@ -321,6 +320,7 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem46, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem63, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem64, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ListBoxAutoIndexe, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageRework.SuspendLayout() CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).BeginInit() @@ -344,15 +344,15 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPageDynamicFolder.SuspendLayout() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -426,9 +426,9 @@ Partial Class frmAdmin_Globix 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSaveExit, Me.BarButtonSave, Me.labelStatus, Me.BarButtonNew, Me.BarButtonItemDelete}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonSaveExit, Me.BarButtonSave, Me.labelStatus, Me.BarButtonNew, Me.BarButtonItemDelete, Me.bsiStatus}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.MaxItemId = 9 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] @@ -473,6 +473,21 @@ Partial Class frmAdmin_Globix Me.BarButtonItemDelete.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemDelete.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.BarButtonItemDelete.Name = "BarButtonItemDelete" ' + 'bsiStatus + ' + Me.bsiStatus.Caption = "ssdsdsdsdsdsdsd" + Me.bsiStatus.Id = 8 + Me.bsiStatus.ImageOptions.SvgImage = CType(resources.GetObject("bsiStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bsiStatus.ItemAppearance.Normal.BackColor = System.Drawing.Color.Red + Me.bsiStatus.ItemAppearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.bsiStatus.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black + Me.bsiStatus.ItemAppearance.Normal.Options.UseBackColor = True + Me.bsiStatus.ItemAppearance.Normal.Options.UseFont = True + Me.bsiStatus.ItemAppearance.Normal.Options.UseForeColor = True + Me.bsiStatus.Name = "bsiStatus" + Me.bsiStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) @@ -489,6 +504,8 @@ Partial Class frmAdmin_Globix ' 'RibbonStatusBar1 ' + Me.RibbonStatusBar1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 752) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 @@ -618,7 +635,6 @@ Partial Class frmAdmin_Globix ' 'IDB_OBJECT_STORE_IDComboBox ' - Me.IDB_OBJECT_STORE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "IDB_OBJECT_STORE_ID", True)) Me.IDB_OBJECT_STORE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "FOLDER_FOR_INDEX", True)) Me.IDB_OBJECT_STORE_IDComboBox.DataSource = Me.VWIDB_OBJECT_STOREBindingSource Me.IDB_OBJECT_STORE_IDComboBox.DisplayMember = "Objectstore" @@ -811,6 +827,7 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem4.Control = Me.TextEditDoctypeID + Me.LayoutControlItem4.Enabled = False Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) @@ -820,7 +837,7 @@ Partial Class frmAdmin_Globix ' 'LayoutControlItem25 ' - Me.LayoutControlItem25.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem25.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LayoutControlItem25.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem25.Control = Me.IDB_OBJECT_STORE_IDComboBox Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 121) @@ -1221,16 +1238,6 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem21.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem21.TextVisible = False ' - 'LayoutControlItem6 - ' - Me.LayoutControlItem6.Control = Me.btneditSQLmanIndex - Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 121) - Me.LayoutControlItem6.Name = "LayoutControlItem6" - Me.LayoutControlItem6.Size = New System.Drawing.Size(224, 36) - Me.LayoutControlItem6.Text = "SQL Abfrage bearbeiten" - Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem6.TextVisible = False - ' 'LayoutControlItem24 ' Me.LayoutControlItem24.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1249,6 +1256,7 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem2.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LayoutControlItem2.AppearanceItemCaption.Options.UseFont = True Me.LayoutControlItem2.Control = Me.GUIDTextBoxMANINDEX + Me.LayoutControlItem2.Enabled = False 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) @@ -1397,6 +1405,16 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem64.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem64.TextVisible = False ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.btneditSQLmanIndex + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 121) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(224, 36) + Me.LayoutControlItem6.Text = "SQL Abfrage bearbeiten" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' 'ListBoxAutoIndexe ' Me.ListBoxAutoIndexe.DataSource = Me.TBDD_INDEX_MANBindingSource @@ -1493,7 +1511,6 @@ Partial Class frmAdmin_Globix Me.CONNECTION_IDTextBox1.Name = "CONNECTION_IDTextBox1" Me.CONNECTION_IDTextBox1.Size = New System.Drawing.Size(399, 20) Me.CONNECTION_IDTextBox1.TabIndex = 23 - Me.CONNECTION_IDTextBox1.Visible = False ' 'SQL_RESULTTextBox1 ' @@ -1504,14 +1521,13 @@ Partial Class frmAdmin_Globix Me.SQL_RESULTTextBox1.ReadOnly = True Me.SQL_RESULTTextBox1.Size = New System.Drawing.Size(423, 20) Me.SQL_RESULTTextBox1.TabIndex = 14 - Me.SQL_RESULTTextBox1.Visible = False ' 'SQL_ACTIVECheckBox ' Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True)) Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(194, 116) Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox" - Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(98, 20) + Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(163, 20) Me.SQL_ACTIVECheckBox.TabIndex = 12 Me.SQL_ACTIVECheckBox.Text = "SQL Config?" Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True @@ -1593,9 +1609,9 @@ Partial Class frmAdmin_Globix Me.SimpleButton2.Appearance.Options.UseFont = True Me.SimpleButton2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.editdatasource Me.SimpleButton2.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) - Me.SimpleButton2.Location = New System.Drawing.Point(299, 113) + Me.SimpleButton2.Location = New System.Drawing.Point(364, 113) Me.SimpleButton2.Name = "SimpleButton2" - Me.SimpleButton2.Size = New System.Drawing.Size(800, 22) + Me.SimpleButton2.Size = New System.Drawing.Size(735, 22) Me.SimpleButton2.StyleController = Me.LayoutControlAutoIndexe Me.SimpleButton2.TabIndex = 13 Me.SimpleButton2.Text = "SQL Designer" @@ -1731,7 +1747,7 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem40.Location = New System.Drawing.Point(179, 101) Me.LayoutControlItem40.Name = "LayoutControlItem40" Me.LayoutControlItem40.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem40.Size = New System.Drawing.Size(108, 30) + Me.LayoutControlItem40.Size = New System.Drawing.Size(173, 30) Me.LayoutControlItem40.Text = "SQL ACTIVE:" Me.LayoutControlItem40.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem40.TextVisible = False @@ -1748,29 +1764,6 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem37.Text = "FILE-Parameter" Me.LayoutControlItem37.TextSize = New System.Drawing.Size(163, 13) ' - 'LayoutControlItem39 - ' - Me.LayoutControlItem39.Control = Me.SimpleButton2 - Me.LayoutControlItem39.Location = New System.Drawing.Point(287, 101) - Me.LayoutControlItem39.Name = "LayoutControlItem39" - Me.LayoutControlItem39.Size = New System.Drawing.Size(804, 30) - Me.LayoutControlItem39.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem39.TextVisible = False - ' - 'LayoutControlItem42 - ' - Me.LayoutControlItem42.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LayoutControlItem42.AppearanceItemCaption.Options.UseFont = True - Me.LayoutControlItem42.Control = Me.SQL_RESULTTextBox1 - Me.LayoutControlItem42.Location = New System.Drawing.Point(635, 191) - Me.LayoutControlItem42.Name = "LayoutControlItem42" - Me.LayoutControlItem42.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem42.Size = New System.Drawing.Size(456, 56) - Me.LayoutControlItem42.Text = "SQL" - Me.LayoutControlItem42.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize - Me.LayoutControlItem42.TextSize = New System.Drawing.Size(18, 13) - Me.LayoutControlItem42.TextToControlDistance = 5 - ' 'EmptySpaceItem4 ' Me.EmptySpaceItem4.AllowHotTrack = False @@ -1831,6 +1824,26 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem43.Text = "Geändert wann" Me.LayoutControlItem43.TextSize = New System.Drawing.Size(163, 13) ' + 'LayoutControlItem44 + ' + Me.LayoutControlItem44.Control = Me.ListBox1 + Me.LayoutControlItem44.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem44.Name = "LayoutControlItem44" + Me.LayoutControlItem44.Size = New System.Drawing.Size(179, 247) + Me.LayoutControlItem44.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem44.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem44.TextToControlDistance = 0 + Me.LayoutControlItem44.TextVisible = False + ' + 'LayoutControlItem39 + ' + Me.LayoutControlItem39.Control = Me.SimpleButton2 + Me.LayoutControlItem39.Location = New System.Drawing.Point(352, 101) + Me.LayoutControlItem39.Name = "LayoutControlItem39" + Me.LayoutControlItem39.Size = New System.Drawing.Size(739, 30) + Me.LayoutControlItem39.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem39.TextVisible = False + ' 'LayoutControlItem45 ' Me.LayoutControlItem45.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1844,17 +1857,22 @@ Partial Class frmAdmin_Globix Me.LayoutControlItem45.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize Me.LayoutControlItem45.TextSize = New System.Drawing.Size(42, 13) Me.LayoutControlItem45.TextToControlDistance = 5 + Me.LayoutControlItem45.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never ' - 'LayoutControlItem44 + 'LayoutControlItem42 ' - Me.LayoutControlItem44.Control = Me.ListBox1 - Me.LayoutControlItem44.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem44.Name = "LayoutControlItem44" - Me.LayoutControlItem44.Size = New System.Drawing.Size(179, 247) - Me.LayoutControlItem44.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize - Me.LayoutControlItem44.TextSize = New System.Drawing.Size(0, 0) - Me.LayoutControlItem44.TextToControlDistance = 0 - Me.LayoutControlItem44.TextVisible = False + Me.LayoutControlItem42.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem42.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem42.Control = Me.SQL_RESULTTextBox1 + Me.LayoutControlItem42.Location = New System.Drawing.Point(635, 191) + Me.LayoutControlItem42.Name = "LayoutControlItem42" + Me.LayoutControlItem42.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem42.Size = New System.Drawing.Size(456, 56) + Me.LayoutControlItem42.Text = "SQL" + Me.LayoutControlItem42.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.AutoSize + Me.LayoutControlItem42.TextSize = New System.Drawing.Size(18, 13) + Me.LayoutControlItem42.TextToControlDistance = 5 + Me.LayoutControlItem42.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never ' 'XtraTabPageDynamicFolder ' @@ -2676,11 +2694,6 @@ Partial Class frmAdmin_Globix ' Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True ' - 'NotifyIcon1 - ' - Me.NotifyIcon1.Text = "NotifyIcon1" - Me.NotifyIcon1.Visible = True - ' 'frmAdmin_Globix ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2755,7 +2768,6 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem21, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem24, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() @@ -2771,6 +2783,7 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem46, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem63, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem64, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ListBoxAutoIndexe, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageRework.ResumeLayout(False) CType(Me.LayoutControlRework, System.ComponentModel.ISupportInitialize).EndInit() @@ -2794,15 +2807,15 @@ Partial Class frmAdmin_Globix CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem40, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem37, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.EmptySpaceItem4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ADDED_WHOAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem41, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.CHANGED_WHOItemAutoAttribut, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem43, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.LayoutControlItem44, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem39, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem45, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem42, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPageDynamicFolder.ResumeLayout(False) CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.LayoutControl1.ResumeLayout(False) @@ -3084,5 +3097,5 @@ Partial Class frmAdmin_Globix Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem Friend WithEvents TextEditGeaendertWann As DevExpress.XtraEditors.TextEdit Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents NotifyIcon1 As NotifyIcon + Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem End Class diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx index 4f2c6251..0831b69d 100644 --- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx @@ -151,6 +151,27 @@ YmFja2dyb3VuZD0ibmV3IDAgMCAzMiAzMiIgeG1sOnNwYWNlPSJwcmVzZXJ2ZSIgaWQ9IkxheWVyXzEi Pg0KICA8cG9seWdvbiBwb2ludHM9IjI1LDQgMTYsMTMgNyw0IDQsNyAxMywxNiA0LDI1IDcsMjggMTYs MTkgMjUsMjggMjgsMjUgMTksMTYgMjgsNyAiIGZpbGw9IiNEMjRDMkYiIC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9 + Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs + MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs + NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg + PC9nPg0KPC9zdmc+Cw== @@ -519,9 +540,6 @@ 311, 134 - - 599, 134 - 118 diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb index 8fdd6a1c..8e3079af 100644 --- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb +++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb @@ -140,7 +140,7 @@ Public Class frmAdmin_Globix TBDD_INDEX_AUTOMTableAdapter.Fill(GlobixDataset.TBDD_INDEX_AUTOM, PrimaryKey) AttributesAutomatic = GlobixDataset.TBDD_INDEX_AUTOM.Cast(Of DataRow). - ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX")) + ToDictionary(Of String, String)(Function(row) row.Item("INDEXNAME"), Function(row) row.Item("INDEXNAME")) Catch ex As Exception MessageBox.Show(ex.Message) @@ -162,11 +162,14 @@ Public Class frmAdmin_Globix End Sub Private Sub ResetMessages() labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub - Private Sub ShowStatus(Message As String) + Private Sub ShowStatus(Message As String, ocolor As Color) labelStatus.Caption = Message - labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bsiStatus.Caption = $"{Message} - {Now.ToString}" + bsiStatus.ItemAppearance.Normal.BackColor = ocolor + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData @@ -207,9 +210,10 @@ Public Class frmAdmin_Globix oPage.IsInsert = False - ShowStatus($"{oPage.Name} saved!") + ShowStatus($"{oPage.Name} saved - {Now.ToString}", Color.DodgerBlue) Catch ex As Exception ShowErrorMessage(ex) + ShowStatus($"{ex.Message} saved - {Now.ToString}", Color.Red) End Try 'Else ' ShowStatus("Keine Änderungen!") @@ -227,9 +231,11 @@ Public Class frmAdmin_Globix TBDD_INDEX_MANBindingSource.EndEdit() TBDD_INDEX_MANTableAdapter.Update(Pages.Current.DataTable) End If + + ShowStatus("Manual Attribut-Step saved", Color.DodgerBlue) Return True Catch ex As Exception - ShowBalloonTip(15000, "Error saving ManIndex", ex.Message, ToolTipIcon.Warning) + ShowStatus($"Error saving ManIndex {ex.Message} - {Now.ToString}", Color.Red) Return False End Try End Function @@ -244,16 +250,16 @@ Public Class frmAdmin_Globix End If TBDD_INDEX_AUTOMBindingSource.EndEdit() TBDD_INDEX_AUTOMTableAdapter.Update(Pages.Current.DataTable) + ShowStatus($"Auto Attribut-Step saved", Color.DodgerBlue) + End If Return True Catch ex As Exception Return False - ShowBalloonTip(15000, "Error saving AutoIndex", ex.Message, ToolTipIcon.Warning) + ShowStatus($"Error saving AutoIndex - {ex.Message}", Color.Red) + End Try End Function - Sub ShowBalloonTip(pTime As Integer, tipTitle As String, tipText As String, tipIcon As ToolTipIcon) - NotifyIcon1.ShowBalloonTip(pTime, tipTitle, tipText, tipIcon) - End Sub Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean Try TBGI_REGEX_DOCTYPEBindingSource.EndEdit() @@ -265,9 +271,12 @@ Public Class frmAdmin_Globix End If TBGI_REGEX_DOCTYPEBindingSource.EndEdit() TBGI_REGEX_DOCTYPETableAdapter.Update(Pages.Current.DataTable) + + ShowStatus($"Autoselect saved", Color.DodgerBlue) End If Return True Catch ex As Exception + ShowStatus($"Error saving autoselect - {ex.Message}", Color.Red) Return False End Try End Function @@ -286,12 +295,15 @@ Public Class frmAdmin_Globix My.DatabaseECM.ExecuteNonQuery(oSQL) IsInsert = False TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) + ShowStatus($"New FileFlow Profile {TextEditBezeichnung.Text} saved", Color.DodgerBlue) Return True Else + ShowStatus("Error Saving Fileflow Profile - Check the Log for further info", Color.Red) Return False End If Catch ex As Exception ShowErrorMessage(ex) + ShowStatus($"Error Saving Fileflow Profile {ex.Message}", Color.Red) Return False End Try @@ -305,7 +317,12 @@ Public Class frmAdmin_Globix ,[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}" - Return My.DatabaseECM.ExecuteNonQuery(oUpd) + If My.DatabaseECM.ExecuteNonQuery(oUpd) = True Then + ShowStatus($"FileFlow Profile {TextEditBezeichnung.Text} saved", Color.DodgerBlue) + Return True + Else + Return False + End If Catch ex As Exception ShowErrorMessage(ex) @@ -357,28 +374,26 @@ Public Class frmAdmin_Globix Private Sub btneditSQLmanIndex_Click(sender As Object, e As EventArgs) Handles btneditSQLmanIndex.Click If Save_manIndexe(Pages.Current) = True Then - Dim oSQLbefore = SQL_RESULTTextBox.Text - Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { - .SQLCommand = SQL_RESULTTextBox.Text, - .SQLConnection = CONNECTION_IDTextBox.Text, - .PlaceholdersManual = AttributesManual - } - oForm2.ShowDialog() + Try + Dim oSQLbefore = SQL_RESULTTextBox.Text + Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = SQL_RESULTTextBox.Text, + .SQLConnection = IIf(CONNECTION_IDTextBox.Text = "", 1, CONNECTION_IDTextBox.Text), + .PlaceholdersManual = AttributesManual + } + oForm2.ShowDialog() - 'Dim oForm As New frmSQLDesigner() With { - ' .SQLCommand = SQL_RESULTTextBox.Text, - ' .DesignType = "GI_ATTRIBUTE_MAN", - ' .ConnectionID = CONNECTION_IDTextBox.Text - '} - 'Dim oResult = oForm.ShowDialog() + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then + CONNECTION_IDTextBox.Text = oForm2.SQLConnection + SQL_RESULTTextBox.Text = oForm2.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + TextEditChangedWho_ManIndex.Text = My.Application.User.UserName + End If + Catch ex As Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try - If oSQLbefore <> oForm2.SQLCommand Then - CONNECTION_IDTextBox.Text = oForm2.SQLConnection - SQL_RESULTTextBox.Text = oForm2.SQLCommand - 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand - 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID - TextEditChangedWho_ManIndex.Text = My.Application.User.UserName - End If End If End Sub @@ -431,29 +446,21 @@ Public Class frmAdmin_Globix Private Sub SimpleButton2_Click_1(sender As Object, e As EventArgs) Handles SimpleButton2.Click If Save_AutoIndexe(Pages.Current) = True Then - Dim oSQLbefore = SQL_RESULTTextBox.Text + Dim oSQLbefore = SQL_RESULTTextBox1.Text Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { - .SQLCommand = SQL_RESULTTextBox.Text, - .SQLConnection = CONNECTION_IDTextBox.Text, - .PlaceholdersAutomatic = AttributesAutomatic + .SQLCommand = SQL_RESULTTextBox1.Text, + .SQLConnection = IIf(CONNECTION_IDTextBox1.Text = "", 1, CONNECTION_IDTextBox1.Text), + .PlaceholdersAutomatic = AttributesAutomatic, + .PlaceholdersManual = AttributesManual } oForm2.ShowDialog() - 'Dim oForm As New frmSQLDesigner() With { - ' .SQLCommand = oSQLbefore, .DesignType = "GI_ATTRIBUTE_AUTO", - ' .ConnectionID = CONNECTION_IDTextBox1.Text, - ' .AutoAttributID = GUIDTextBoxAutoAttribute.Text - ' } - 'Dim oResult = oForm.ShowDialog() - If oSQLbefore <> oForm2.SQLCommand Then + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then CONNECTION_IDTextBox1.Text = oForm2.SQLConnection SQL_RESULTTextBox1.Text = oForm2.SQLCommand - 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand - 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + SQL_ACTIVECheckBox.Checked = 1 CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName End If - Else - End If End Sub @@ -655,7 +662,7 @@ Public Class frmAdmin_Globix oPage.IsInsert = False - ShowStatus($"{oPage.Name} deleted!") + ' ShowStatus($"{oPage.Name} deleted!") Catch ex As Exception ShowErrorMessage(ex) End Try diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb index e52f377d..04d6e1d8 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb @@ -396,7 +396,7 @@ Partial Class frmAdmin_Doctype Me.Name = "frmAdmin_Doctype" Me.Ribbon = Me.RibbonControl1 Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "Dokumentarten Definition" + Me.Text = "Dokumentarten Konfiguration" CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAddDoctype.ResumeLayout(False) diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb index 8118c0b6..8860d065 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb @@ -53,7 +53,7 @@ Public Class frmAdmin_Doctype Private Sub BarButtonItemDTsave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemDTsave.ItemClick If NewUpdateDoctype(TextEditDoctypeSys.EditValue, TextEditDoctypeTranslate.EditValue, ComboBoxEditLanguage.EditValue) = True Then - ShowStatus("Sys Doctype successfully added/updated") + ShowStatus("Sys Doctype successfully added/updated", Color.DodgerBlue) End If End Sub Private Function NewUpdateDoctype(DoctypeSys As String, Term As String, Language As String) As Boolean @@ -68,8 +68,9 @@ Public Class frmAdmin_Doctype End Try End Function - Private Sub ShowStatus(Message As String) - labelStatus.Caption = Message + Private Sub ShowStatus(Message As String, ocolor As Color) + labelStatus.Caption = $"{Message} - {Now.ToString}" + labelStatus.ItemAppearance.Normal.BackColor = ocolor labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub @@ -89,7 +90,7 @@ Public Class frmAdmin_Doctype Private Sub BarButtonItemSaveChange_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemSaveChange.ItemClick If NewUpdateDoctype(SelSystitle, SelChangedTerm, SelLanguage) = True Then - ShowStatus("Doctype Translation successfully added/updated") + ShowStatus("Doctype Translation successfully added/updated", Color.DodgerBlue) End If End Sub End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb index 99f455c0..88ecabe0 100644 --- a/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb +++ b/GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBAttribute.vb @@ -36,7 +36,7 @@ Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick ResetMessages() If SaveData() And HasChanges Then - ShowStatus("Attribute saved!") + FillAttribute() End If End Sub @@ -45,8 +45,9 @@ labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End Sub - Private Sub ShowStatus(Message As String) - labelStatus.Caption = Message + Private Sub ShowStatus(Message As String, ocolor As Color) + labelStatus.Caption = $"{Message} - {Now.ToString}" + labelStatus.ItemAppearance.Normal.BackColor = ocolor labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always End Sub @@ -81,7 +82,10 @@ $"WHERE (GUID = {TextEdit1.Text})" If My.DatabaseIDB.ExecuteNonQuery(oUpdate) = False Then + ShowStatus($"Error saving Attribute {TextEdit2.Text} - Check Your log", Color.Red) Return False + Else + ShowStatus($"Attribute {TextEdit2.Text} saved successfully", Color.DodgerBlue) End If Else Dim oInsert As String = $"INSERT INTO TBIDB_ATTRIBUTE " & @@ -89,17 +93,20 @@ $"VALUES ('{TextEdit2.Text}',{ComboBoxEdit1.EditValue},{SpinEdit1.Value},'{CheckEdit2.Checked}','{My.Application.User.UserName}', '{TextEdit3.Text}','{CheckEditMulticontext.Checked}')" If My.DatabaseIDB.ExecuteNonQuery(oInsert) = True Then + ShowStatus($"Attribute {TextEdit2.Text} added successfully", Color.DodgerBlue) IsInsert = False Else + ShowStatus($"Error Insertung Attribute {TextEdit2.Text} - Check Your log", Color.Red) Return False End If End If ' VWIDB_BE_ATTRIBUTETableAdapter.Update(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE) End If - + FillAttribute() Return True Catch ex As Exception ShowErrorMessage(ex) + ShowStatus($"Unexpeced error saving attribute {TextEdit2.Text} - {ex.Message}", Color.Red) Return False End Try End Function diff --git a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb index 8d656b94..7ecd6da1 100644 --- a/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb +++ b/GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb @@ -440,6 +440,7 @@ Partial Class frmAdmin_Start Me.TreeListMenu.AppendNode(New Object() {"User List"}, 15, 5, 5, -1, "USERS_USERLIST") Me.TreeListMenu.AppendNode(New Object() {"Group List"}, 15, 12, 12, -1, "USERS_GROUPLIST") Me.TreeListMenu.AppendNode(New Object() {"User Relations"}, 17, 9, 9, -1, "USERS_USER_GROUP_RELATIONS") + Me.TreeListMenu.AppendNode(New Object() {"Common SQLs"}, -1, 3, 3, -1, "TBDIB_COMMON_SQL") Me.TreeListMenu.EndUnboundLoad() Me.TreeListMenu.OptionsBehavior.Editable = False Me.TreeListMenu.OptionsView.ShowColumns = False diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.Designer.vb b/GUIs.ZooFlow/Administration/frmSQLDesigner_old.Designer.vb deleted file mode 100644 index bfb2b629..00000000 --- a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.Designer.vb +++ /dev/null @@ -1,483 +0,0 @@ - _ -Partial Class frmSQLDesigner_old - Inherits DevExpress.XtraBars.Ribbon.RibbonForm - - '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() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLDesigner_old)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Me.Label14 = New System.Windows.Forms.Label() - Me.cmbConnection = New System.Windows.Forms.ComboBox() - Me.Label2 = New System.Windows.Forms.Label() - Me.cmbStatic = New System.Windows.Forms.ComboBox() - Me.btnAddStatic = New System.Windows.Forms.Button() - Me.btnAddUser = New System.Windows.Forms.Button() - Me.Label3 = New System.Windows.Forms.Label() - Me.cmbUser = New System.Windows.Forms.ComboBox() - Me.btnAddAttributeMan = New System.Windows.Forms.Button() - Me.lblAttributeMan = New System.Windows.Forms.Label() - Me.cmbAttributeMan = New System.Windows.Forms.ComboBox() - Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.dgvPlaceholders = New System.Windows.Forms.DataGridView() - Me.colPlaceholder = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.colReplace = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Label5 = New System.Windows.Forms.Label() - Me.btnAddAttributeAuto = New System.Windows.Forms.Button() - Me.cmbAttributeAuto = New System.Windows.Forms.ComboBox() - Me.lblAttributeAuto = New System.Windows.Forms.Label() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() - Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() - Me.RepositoryItemLookUpEdit3 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() - Me.bsiInfo = New DevExpress.XtraBars.BarStaticItem() - Me.BarButtonItem2 = 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.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() - Me.RepositoryItemLookUpEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() - Me.RepositoryItemLookUpEdit2 = New DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemLookUpEdit3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.RepositoryItemLookUpEdit2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.Location = New System.Drawing.Point(746, 161) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(76, 16) - Me.Label14.TabIndex = 83 - Me.Label14.Text = "Connection:" - ' - 'cmbConnection - ' - Me.cmbConnection.DisplayMember = "BEZEICHNUNG" - Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cmbConnection.FormattingEnabled = True - Me.cmbConnection.Location = New System.Drawing.Point(749, 183) - Me.cmbConnection.Name = "cmbConnection" - Me.cmbConnection.Size = New System.Drawing.Size(194, 24) - Me.cmbConnection.TabIndex = 82 - Me.cmbConnection.ValueMember = "GUID" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(746, 352) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(112, 16) - Me.Label2.TabIndex = 101 - Me.Label2.Text = "Umgebungsdaten:" - ' - 'cmbStatic - ' - Me.cmbStatic.FormattingEnabled = True - Me.cmbStatic.Items.AddRange(New Object() {"MACHINE", "DOMAIN"}) - Me.cmbStatic.Location = New System.Drawing.Point(749, 373) - Me.cmbStatic.Name = "cmbStatic" - Me.cmbStatic.Size = New System.Drawing.Size(194, 25) - Me.cmbStatic.TabIndex = 100 - ' - 'btnAddStatic - ' - Me.btnAddStatic.Image = CType(resources.GetObject("btnAddStatic.Image"), System.Drawing.Image) - Me.btnAddStatic.Location = New System.Drawing.Point(946, 373) - Me.btnAddStatic.Name = "btnAddStatic" - Me.btnAddStatic.Size = New System.Drawing.Size(32, 23) - Me.btnAddStatic.TabIndex = 102 - Me.btnAddStatic.UseVisualStyleBackColor = True - ' - 'btnAddUser - ' - Me.btnAddUser.Image = CType(resources.GetObject("btnAddUser.Image"), System.Drawing.Image) - Me.btnAddUser.Location = New System.Drawing.Point(946, 324) - Me.btnAddUser.Name = "btnAddUser" - Me.btnAddUser.Size = New System.Drawing.Size(32, 23) - Me.btnAddUser.TabIndex = 105 - Me.btnAddUser.UseVisualStyleBackColor = True - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(746, 305) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(99, 16) - Me.Label3.TabIndex = 104 - Me.Label3.Text = "Userparameter:" - ' - 'cmbUser - ' - Me.cmbUser.FormattingEnabled = True - Me.cmbUser.Items.AddRange(New Object() {"PRENAME", "SURNAME", "SHORTNAME", "LANGUAGE", "EMAIL", "USER_ID"}) - Me.cmbUser.Location = New System.Drawing.Point(749, 324) - Me.cmbUser.Name = "cmbUser" - Me.cmbUser.Size = New System.Drawing.Size(194, 25) - Me.cmbUser.TabIndex = 103 - ' - 'btnAddAttributeMan - ' - Me.btnAddAttributeMan.Image = CType(resources.GetObject("btnAddAttributeMan.Image"), System.Drawing.Image) - Me.btnAddAttributeMan.Location = New System.Drawing.Point(946, 229) - Me.btnAddAttributeMan.Name = "btnAddAttributeMan" - Me.btnAddAttributeMan.Size = New System.Drawing.Size(32, 23) - Me.btnAddAttributeMan.TabIndex = 108 - Me.btnAddAttributeMan.UseVisualStyleBackColor = True - ' - 'lblAttributeMan - ' - Me.lblAttributeMan.AutoSize = True - Me.lblAttributeMan.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAttributeMan.Location = New System.Drawing.Point(746, 210) - Me.lblAttributeMan.Name = "lblAttributeMan" - Me.lblAttributeMan.Size = New System.Drawing.Size(105, 16) - Me.lblAttributeMan.TabIndex = 107 - Me.lblAttributeMan.Text = "Attribute Manuell" - ' - 'cmbAttributeMan - ' - Me.cmbAttributeMan.FormattingEnabled = True - Me.cmbAttributeMan.Location = New System.Drawing.Point(749, 229) - Me.cmbAttributeMan.Name = "cmbAttributeMan" - Me.cmbAttributeMan.Size = New System.Drawing.Size(194, 25) - Me.cmbAttributeMan.TabIndex = 106 - ' - 'SQL_COMMANDTextBox - ' - Me.SQL_COMMANDTextBox.AcceptsReturn = True - Me.SQL_COMMANDTextBox.AcceptsTab = True - Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(12, 184) - Me.SQL_COMMANDTextBox.Multiline = True - Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" - Me.SQL_COMMANDTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical - Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(728, 212) - Me.SQL_COMMANDTextBox.TabIndex = 110 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(12, 164) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(99, 17) - Me.Label4.TabIndex = 109 - Me.Label4.Text = "SQL-Command:" - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.Label1.Location = New System.Drawing.Point(9, 401) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(65, 15) - Me.Label1.TabIndex = 113 - Me.Label1.Text = "Platzhalter:" - ' - 'dgvPlaceholders - ' - Me.dgvPlaceholders.AllowUserToAddRows = False - Me.dgvPlaceholders.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan - Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) - Me.dgvPlaceholders.Enabled = False - Me.dgvPlaceholders.Location = New System.Drawing.Point(12, 419) - Me.dgvPlaceholders.Name = "dgvPlaceholders" - Me.dgvPlaceholders.Size = New System.Drawing.Size(258, 133) - Me.dgvPlaceholders.TabIndex = 112 - ' - 'colPlaceholder - ' - Me.colPlaceholder.HeaderText = "Platzhalter" - Me.colPlaceholder.Name = "colPlaceholder" - Me.colPlaceholder.ReadOnly = True - ' - 'colReplace - ' - Me.colReplace.HeaderText = "Ersetzung" - Me.colReplace.Name = "colReplace" - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.Label5.Location = New System.Drawing.Point(284, 401) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(55, 15) - Me.Label5.TabIndex = 115 - Me.Label5.Text = "Ergebnis:" - ' - 'btnAddAttributeAuto - ' - Me.btnAddAttributeAuto.Image = CType(resources.GetObject("btnAddAttributeAuto.Image"), System.Drawing.Image) - Me.btnAddAttributeAuto.Location = New System.Drawing.Point(946, 277) - Me.btnAddAttributeAuto.Name = "btnAddAttributeAuto" - Me.btnAddAttributeAuto.Size = New System.Drawing.Size(32, 23) - Me.btnAddAttributeAuto.TabIndex = 120 - Me.btnAddAttributeAuto.UseVisualStyleBackColor = True - ' - 'cmbAttributeAuto - ' - Me.cmbAttributeAuto.FormattingEnabled = True - Me.cmbAttributeAuto.Location = New System.Drawing.Point(749, 277) - Me.cmbAttributeAuto.Name = "cmbAttributeAuto" - Me.cmbAttributeAuto.Size = New System.Drawing.Size(194, 25) - Me.cmbAttributeAuto.TabIndex = 118 - ' - 'lblAttributeAuto - ' - Me.lblAttributeAuto.AutoSize = True - Me.lblAttributeAuto.Location = New System.Drawing.Point(746, 257) - Me.lblAttributeAuto.Name = "lblAttributeAuto" - Me.lblAttributeAuto.Size = New System.Drawing.Size(89, 17) - Me.lblAttributeAuto.TabIndex = 121 - Me.lblAttributeAuto.Text = "Attribute Auto" - ' - 'RibbonControl1 - ' - Me.RibbonControl1.AutoSizeItems = True - Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarEditItem1, Me.bsiInfo, Me.BarButtonItem2}) - 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.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemLookUpEdit1, Me.RepositoryItemLookUpEdit2, Me.RepositoryItemLookUpEdit3}) - Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] - Me.RibbonControl1.Size = New System.Drawing.Size(1008, 158) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - ' - 'BarButtonItem1 - ' - Me.BarButtonItem1.Caption = "Testen" - Me.BarButtonItem1.Id = 3 - Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image) - Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image) - Me.BarButtonItem1.ItemInMenuAppearance.Hovered.BackColor = System.Drawing.Color.NavajoWhite - Me.BarButtonItem1.ItemInMenuAppearance.Hovered.Options.UseBackColor = True - Me.BarButtonItem1.Name = "BarButtonItem1" - Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large - ' - 'BarEditItem1 - ' - Me.BarEditItem1.Caption = "Verbindung" - Me.BarEditItem1.Edit = Me.RepositoryItemLookUpEdit3 - Me.BarEditItem1.EditWidth = 100 - Me.BarEditItem1.Id = 4 - Me.BarEditItem1.Name = "BarEditItem1" - Me.BarEditItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large - ' - 'RepositoryItemLookUpEdit3 - ' - Me.RepositoryItemLookUpEdit3.AutoHeight = False - Me.RepositoryItemLookUpEdit3.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemLookUpEdit3.Name = "RepositoryItemLookUpEdit3" - ' - 'bsiInfo - ' - Me.bsiInfo.Id = 6 - Me.bsiInfo.ItemAppearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.bsiInfo.ItemAppearance.Normal.Options.UseFont = True - Me.bsiInfo.Name = "bsiInfo" - ' - 'BarButtonItem2 - ' - Me.BarButtonItem2.Caption = "Speichern" - Me.BarButtonItem2.Id = 7 - Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) - Me.BarButtonItem2.ItemAppearance.Hovered.BackColor = System.Drawing.Color.PaleGoldenrod - Me.BarButtonItem2.ItemAppearance.Hovered.Options.UseBackColor = True - Me.BarButtonItem2.Name = "BarButtonItem2" - ' - '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 = "Aktionen" - ' - 'RibbonPageGroup2 - ' - Me.RibbonPageGroup2.ItemLinks.Add(Me.BarEditItem1) - Me.RibbonPageGroup2.Name = "RibbonPageGroup2" - Me.RibbonPageGroup2.Text = "RibbonPageGroup2" - ' - '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.Name = "RepositoryItemComboBox1" - ' - 'RepositoryItemLookUpEdit1 - ' - Me.RepositoryItemLookUpEdit1.AutoHeight = False - Me.RepositoryItemLookUpEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemLookUpEdit1.Name = "RepositoryItemLookUpEdit1" - ' - 'RepositoryItemLookUpEdit2 - ' - Me.RepositoryItemLookUpEdit2.AutoHeight = False - Me.RepositoryItemLookUpEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.RepositoryItemLookUpEdit2.Name = "RepositoryItemLookUpEdit2" - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInfo) - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 627) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1008, 24) - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'GridControl1 - ' - Me.GridControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.GridControl1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) - Me.GridControl1.Location = New System.Drawing.Point(287, 419) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(704, 196) - Me.GridControl1.TabIndex = 124 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - ' - 'frmSQLDesigner - ' - Me.Appearance.Options.UseFont = True - Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1008, 651) - Me.Controls.Add(Me.GridControl1) - Me.Controls.Add(Me.lblAttributeAuto) - Me.Controls.Add(Me.btnAddAttributeAuto) - Me.Controls.Add(Me.cmbAttributeAuto) - Me.Controls.Add(Me.Label5) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.dgvPlaceholders) - Me.Controls.Add(Me.SQL_COMMANDTextBox) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.btnAddAttributeMan) - Me.Controls.Add(Me.lblAttributeMan) - Me.Controls.Add(Me.cmbAttributeMan) - Me.Controls.Add(Me.btnAddUser) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.cmbUser) - Me.Controls.Add(Me.btnAddStatic) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.cmbStatic) - Me.Controls.Add(Me.Label14) - Me.Controls.Add(Me.cmbConnection) - Me.Controls.Add(Me.RibbonStatusBar1) - Me.Controls.Add(Me.RibbonControl1) - Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.IconOptions.Icon = CType(resources.GetObject("frmSQLDesigner.IconOptions.Icon"), System.Drawing.Icon) - Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) - Me.MinimizeBox = False - Me.Name = "frmSQLDesigner" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "SQL Designer" - CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemLookUpEdit3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemLookUpEdit1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.RepositoryItemLookUpEdit2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents Label14 As Label - Friend WithEvents cmbConnection As ComboBox - Friend WithEvents btnAddStatic As Button - Friend WithEvents Label2 As Label - Friend WithEvents cmbStatic As ComboBox - Friend WithEvents btnAddUser As Button - Friend WithEvents Label3 As Label - Friend WithEvents cmbUser As ComboBox - Friend WithEvents btnAddAttributeMan As Button - Friend WithEvents lblAttributeMan As Label - Friend WithEvents cmbAttributeMan As ComboBox - Friend WithEvents SQL_COMMANDTextBox As TextBox - Friend WithEvents Label4 As Label - Friend WithEvents Label1 As Label - Friend WithEvents dgvPlaceholders As DataGridView - Friend WithEvents colPlaceholder As DataGridViewTextBoxColumn - Friend WithEvents colReplace As DataGridViewTextBoxColumn - Friend WithEvents Label5 As Label - Friend WithEvents btnAddAttributeAuto As Button - Friend WithEvents cmbAttributeAuto As ComboBox - Friend WithEvents lblAttributeAuto As Label - 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 RibbonPageGroup2 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 BarEditItem1 As DevExpress.XtraBars.BarEditItem - Friend WithEvents RepositoryItemLookUpEdit2 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit - Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox - Friend WithEvents RepositoryItemLookUpEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit - Friend WithEvents RepositoryItemLookUpEdit3 As DevExpress.XtraEditors.Repository.RepositoryItemLookUpEdit - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents bsiInfo As DevExpress.XtraBars.BarStaticItem - Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem -End Class diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.resx b/GUIs.ZooFlow/Administration/frmSQLDesigner_old.resx deleted file mode 100644 index a84dcf64..00000000 --- a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.resx +++ /dev/null @@ -1,349 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn - yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF - TkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn - yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF - TkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn - yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF - TkSuQmCC - - - - True - - - True - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAFxJREFUOE/NjFEKgDAMQ3e23v88/Y1YOslqhE1hGHgfS5fXAHxCliuMD4q7o5Kn - yJTAzC72CM5PTBUwfXMT8OiJnwuYOmL6ZhBwlCBPkT2CSp4iUvAGWa4gy3nQDiNEflNl/3oXAAAAAElF - TkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAFBsYXk7U3RhcnQ7XWFAegAAAfdJ - REFUOE9joBqYsdOPfepWHyMol3TQvNBZcOo2n39Ttnovn7DBSx4qTDzIbTUXmbTZ9//2C13/J27y+j5h - o2dvxwo3Qag0YZBQZiDWs87j/6P3B/5ffLbo/9qTNf971ri/7V7lVlo51ZYdqgw3iC3WE2tf6fr/yvNl - /08+7P9/+tHE/0fuTPm/9FDJ//blLnfbljlHuYQoMUGVY4LIfB2x5iVO/089nPJ/y5W0/0futf8/8aAP - jLdfavs/a0fa/6aFjica5zs4QrWggrAsbbG6eQ7/j9zt/L/6fMT/Necj/2+7mvf/4J1WoFgXGK88XvV/ - wtro/9Uz7KKh2hAgKF1TrGKm7f89N2r+Lz8TjILXnI/5P/dAyv+2FUH/SydbHUlvMtEGamGE6IQCv2R1 - seLJVkDnF/xfdNIPjqfvD/3ftNz3f36P+Z2IfJ14oFIBIGYFYlQDvONVxfL7LP6vOZf8f94xz/+zDwX+ - b1jm/T+n0/RVdIluuZAYpyRQGTcQY2oGAY9oZbGsTtP/i06E/a9d6vY/o9X4a0ypbr+qvpASUJoHiEEa - cceCa4SiWFqL0f/UBoM/MaU6y0ydJQ2AwnxAzAbEII2YtiID10hF0dgKnZ32gXKgaOIHYlDiYQZi/BqR - AAsQcwExJ5RNtEYYAGkg7FQUwMAAAKo13SoioekfAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAFBsYXk7U3RhcnQ7XWFAegAAA/pJ - REFUWEfFln1QVFUchjXjmkw26R+W6X81fcwYojaxaoEps/KxJo3rR9mYaBI4mlqOTSjJsLK4JAiIuK4f - 6+KCkQKrQhgzrZmCsHy51oiRIK5m6DhZNs40zdjb755uTOecS4Mwa8/MO8N97jnnvfdcdu8OAfC/Rl8G - EalLFEwGEalLFEwGEalLFEwGEalLFEzyDLV/+XrFjuPxY7XjQSF1iYJJnmH2E3NA+XlnVfy7prefe0jz - A0LqEgWTPCE7vzChvssNx9crUFht8uYfjXtaO3ffSF2iYJJH2XE8Djd/8+PK7SYc9m0CHd/N98Suf98a - 8bA2pt9IXaJgkkfJ88Si504L/Nf3ofNWNZqulMPhTcb2ytjm7M+M4dq4fiF1iYJJHiWnfDau/9qI5kAB - y4WeUgRun4Wn2QI698e2I8YtG3dFPqKN/0+kLlEwyaNkf27E1V/OwBfI59J+4wj8P1Zh91crYSszXrSW - REdqc/pE6hIFkzxKVmk0um7VorF7u5TWqw5cvFGBYy020Lh7me5ZRWmOqMe0uRJSlyiY5FG2HJyJc9dc - qOuyof5yjm7U8xd6arDfuxqW4pmBDNdr8dp8DqlLFEzyKOnOGfB1F+Lo+WU43ZmFus5s3Zy9nAv/tWJU - t+Xg04qF2Lw/qjTV/uoYbR2G1CUKJnmUtD2RVLANZS0LUN62BN7vN+P0JVufaewuQvtPlSiqWQaae5PW - 6P3ykrpEwSSP8rH9FZzssKC0eZ4WMzzn34O3IwOnfsjqzTeXttJHdDc9Djdcp9aC5t1bXzDNSWsM+3up - AV7AhsJpqG1PhduXwKXE9wYOty5B1bdr6AK2oiXgRLXfStu/COtyDd+ZU14w0fxHKYO7gA/yDFSyDq6G - OVJKfGZ6LMvhOZeC9DIjFUfcSdwY/knoyBD12Y+gqN+WQ9WFVKQuUTDJo6zJeRmVbclw1sdxOdT0Jipa - k2A7ZgKN+TMpY3Ll1JjxL9Ic9a5DKNKLS+oSBZM8yirbS/QPuBR762JYXA0J7Nh+ch42HIhCSubkjoQV - z5pp7OOU4RR1y3vv+t9IXaJgkkdJsU6Bu3Eh9pyZjQP1c1HcYEbqwRlIzpxy960PJ1hHPzHiSRoXSuG2 - Ww+pSxRM8ihJlklw1iVQ5sJSPgurCgx4JzWsxhAzbhKdH0nR3W49pC5RMMmjLE8PR15tNNY6pmPppond - 8YnPLCY/iqK+gPrcbj2kLlEwyaMkpoVRcdjv81c/nztmfOg4cv3abj2kLlEwyROy+KMJJyJinjLQ3+pL - RqEM+GeZ1CUKJnnULVY/z/e93XpIXaJgkkctVO94UMX/IHWJgskgInWJgskgInWJ4kFHVz64YMhfkU05 - On2zdlYAAAAASUVORK5CYII= - - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANwDAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ - LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw - MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu - bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFzIj4NCiAgICA8cGF0aCBk - PSJNMTYsOWMwLTEuMSwwLjItMi4xLDAuNS0zSDh2OGg5LjVDMTYuNiwxMi42LDE2LDEwLjksMTYsOXog - TTEyLDEyaC0yVjhoMlYxMnogTTI2LDE4djExYzAsMC42LTAuNCwxLTEsMUgzICAgYy0wLjYsMC0xLTAu - NC0xLTFWN2MwLTAuNiwwLjQtMSwxLTFoM3YxMGgxMy4zYzAuMiwwLjIsMC40LDAuMywwLjcsMC41VjIw - SDZ2NmgxNnYtOEgyNnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMjUsMmMtMy45LDAt - NywzLjEtNyw3YzAsMy45LDMuMSw3LDcsN3M3LTMuMSw3LTdDMzIsNS4xLDI4LjksMiwyNSwyeiBNMjIs - MTBoLTJWOGgyVjEweiBNMjYsMTBoLTJWOGgyVjEweiAgICBNMjgsMTBWOGgydjJIMjh6IiBjbGFzcz0i - R3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= - - - - - AAABAAMAICAQAAEABADoAgAANgAAACAgAAABAAgAqAgAAB4DAAAgIAAAAQAgAKgQAADGCwAAKAAAACAA - AABAAAAAAQAEAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA - AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAP///////wAAAAAAAAAAD/// - ////////8AAAAAAAD//4d3d3d3d3j//wAAAAD/+Hd3d3d3d3d3d4//AAAA/3d3d3d3d3d3d3d3/wAAD/ - d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3 - /wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3 - d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3 - d3d3d3d3d3f/AAD/d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3d3d3d3d3d3d3f/AAD/ - d3d3d3d3d3d3d3d3/wAA/3d3d3d3d3d3d3d3d/8AAP93d3eI/////4h3d3f/AAD/d3f//////////3d3 - /wAA/3eP///////////4d/8AAP93j///////////+Hf/AAD/d3f//////////3d3/wAAD/d3d4j///// - iHd3f/AAAA//h3d3d3d3d3d3eP/wAAAAD//4d3d3d3d3j//wAAAAAAAP///////////wAAAAAAAAAAD/ - //////8AAAAAAP/AA//+AAB/+AAAH+AAAAfgAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA - AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA+AA - AAfgAAAH+AAAH/4AAH//wAP/KAAAACAAAABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAA - AABCQkIATU1NAG9vbwB5eXkAhoaGAJGRkQCamZkApKOkALOzswDFxMUAycnJANDPzwDm5OUA6+vrAPHv - 8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// - /wAAAAAAAAAAAAAAEREQEBAQEBAQEBERAAAAAAAAAAAAAAAAAAAAAAAQEBAQEBAQEBAQEBAQEBAQEBAA - AAAAAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQIDBgkOEBAQAAAAAAAAAAAREBALBAEBAQEBAQEBAQEBAQEB - AQEECxAQEQAAAAAAABAQBQEBAQEBAQEBAQEBAQEBAQEBAQEBBRAQAAAAAAAQEAUBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBBRAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAA - EBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQ - AAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBEBAAAAAAEBABAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEQEAAAAAAQEAEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBARAQAAAAABAQAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBEBAAAAAAEBABAQEBAQQICg0P - Dw8PDw8NCggEAQEBAQEQEAAAAAAQEAEBAgcNDw8PDw8PDw8PDw8PDw8NBwIBARAQAAAAABAOAQEMDw8P - Dw8PDw8PDw8PDw8PDw8PDAEBEBAAAAAAEA4BAQwPDw8PDw8PDw8PDw8PDw8PDw8MAQEQEAAAAAAQEAUB - AgcNDw8PDw8PDw8PDw8PDw8NBwIBBRAQAAAAAAAQDgUBAQEECAoNDw8PDw8PDQoIBAEBAQUOEAAAAAAA - ABEQEAsEAQEBAQEBAQEBAQEBAQEBAQQLEBARAAAAAAAAAAAQEBAOCQYDAQEBAQEBAQEDBgkOEBAQAAAA - AAAAAAAAAAAAEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAAAAAAAAAARERAQEBAQEBAQEREAAAAA - AAAAAAAA/8AD//4AAH/4AAAf4AAAB+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA - AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD4AAAB+AA - AAf4AAAf/gAAf//AA/8oAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYg9vb2cPb29p/29va/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29va/9vb2n/b29nD29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29hD29vZw9vb23/b29v/29vb/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbf9vb2cPb29hAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b2 - 9lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2n/b29v/29vb/ycnJ/3p6ev9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/enp6/8nJ - yf/29vb/9vb2//b29p8AAAAAAAAAAAAAAAAAAAAAAAAAAPb29nD29vb/9vb2/4aGhv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/4aGhv/29vb/9vb2//b29nAAAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 - 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA - AAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA - AAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2 - 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b2 - 9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAA - AAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAA - AAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 - 9v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2//b29v9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vb/9vb2/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 - 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv95eHj/pKOk/8XExf/m5OX/8e/w//Hv8P/x7/D/8e/w//Hv - 8P/x7/D/5uTl/8XExf+ko6T/eXh4/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA - AAAAAAAA9vb2//b29v9CQkL/QkJC/01NTf+amZn/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv - 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZmf9NTU3/QkJC/0JCQv/29vb/9vb2/wAA - AAAAAAAAAAAAAAAAAAD29vb/6+vr/0JCQv9CQkL/0M/P//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv - 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/9DPz/9CQkL/QkJC//b2 - 9v/29vb/AAAAAAAAAAAAAAAAAAAAAPb29v/r6+v/QkJC/0JCQv/Qz8//8e/w//Hv8P/x7/D/8e/w//Hv - 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/0M/P/0JC - Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb23/b29v+Ghob/QkJC/01NTf+amZn/5uTl//Hv - 8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/5uTl/5qZ - mf9NTU3/QkJC/4aGhv/29vb/9vb23wAAAAAAAAAAAAAAAAAAAAD29vZw9vb2/+vr6/+Ghob/QkJC/0JC - Qv9CQkL/eXh4/6SjpP/FxMX/5uTl//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/+bk5f/FxMX/pKOk/3l4 - eP9CQkL/QkJC/0JCQv+Ghob/6+vr//b29v/29vZwAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2//b2 - 9v/Jycn/enp6/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/QkJC/0JCQv96enr/ycnJ//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAD29vZQ9vb27/b29v/29vb/6+vr/7Ozs/+RkZH/b29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC - Qv9CQkL/b29v/5GRkf+zs7P/6+vr//b29v/29vb/9vb27/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAD29vYQ9vb2cPb29t/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb23/b29nD29vYQAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vZw9vb2n/b29r/29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29vb/9vb2//b29r/29vaf9vb2cPb29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAP8AAP/4AAAf8AAAD+AAAAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA - AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA - AAPgAAAH8AAAD/gAAB//AAD/ - - - \ No newline at end of file diff --git a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.vb b/GUIs.ZooFlow/Administration/frmSQLDesigner_old.vb deleted file mode 100644 index 28e45f53..00000000 --- a/GUIs.ZooFlow/Administration/frmSQLDesigner_old.vb +++ /dev/null @@ -1,217 +0,0 @@ -Imports DevExpress.XtraEditors -Imports DevExpress.XtraEditors.Repository -Imports DigitalData.Modules.Database - -Public Class frmSQLDesigner_old - Dim CurrentPosition As Integer = 0 - Dim CurrentPlaceholders As New Placeholders() - Dim CurrentTableType As String - Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '"\[%[0-9A-Za-z_-]{1,}\]" - - Public Sub New() - - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - - End Sub - Public Class Placeholders - Public Property RecordId As Integer - Public Property ParentRecordId As Integer - Public Property FormId As Integer - End Class - - Public Property SQLCommand() As String - Get - Return SQL_COMMANDTextBox.Text - End Get - Set(value As String) - SQL_COMMANDTextBox.Text = value - End Set - End Property - - Public Property ConnectionID - Public AutoAttributID - Public Property DesignType As String - Private IndicesMan As New List(Of Indice_Man)() - Public Class Indice_Man - Public Property ID() As Integer - Public Property Indice_name() As String - - End Class - - Private Sub frmSQLDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load - Dim oSQL - bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never - - If DesignType = "GI_ATTRIBUTE_MAN" Then - EnDisable_Man_Attribute(False) - Else - EnDisable_Man_Attribute(True) - oSQL = "Select * From TBDD_INDEX_MAN WHERE ACTIVE = 1" - Dim oDT = My.DatabaseECM.GetDatatable(oSQL) - cmbAttributeMan.DataSource = oDT - cmbAttributeMan.DisplayMember = oDT.Columns("WD_INDEX").ColumnName - - oSQL = $"Select * From TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND GUID <> {AutoAttributID}" - Dim oDTAA = My.DatabaseECM.GetDatatable(oSQL) - cmbAttributeAuto.DataSource = oDTAA - cmbAttributeAuto.DisplayMember = oDTAA.Columns("INDEXNAME").ColumnName - EnDisable_Auto_Attribute(True) - - End If - If DesignType = "SQL_OVERVIEW" Then - cmbConnection.Enabled = False - 'btnShowConnections.Enabled = False - Else - cmbConnection.Enabled = True - oSQL = "SELECT GUID, Bezeichnung FROM TBDD_CONNECTION WHERE AKTIV = 1" - Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL) - cmbConnection.DataSource = oDT - cmbConnection.DisplayMember = oDT.Columns("Bezeichnung").ColumnName - cmbConnection.ValueMember = oDT.Columns("GUID").ColumnName - - - IndicesMan.Add(New Indice_Man() With {.ID = 1, .Indice_name = "Manually"}) - - 'bind the lookup editor to the list - Dim oLU As RepositoryItemLookUpEdit = RepositoryItemLookUpEdit3 - oLU.DataSource = oDT - - oLU.DisplayMember = oDT.Columns("Bezeichnung").ColumnName - oLU.ValueMember = oDT.Columns("GUID").ColumnName - ' Enable the "best-fit" functionality mode in which columns have proportional widths and the popup window is resized to fit all the columns. - oLU.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFitResizePopup - ' Specify the dropdown height. - oLU.DropDownRows = oDT.Rows.Count - - ' Enable the automatic completion feature. In this mode, when the dropdown is closed, - ' the text in the edit box is automatically completed if it matches a DisplayMember field value of one of dropdown rows. - oLU.SearchMode = DevExpress.XtraEditors.Controls.SearchMode.AutoComplete - ' Specify the column against which an incremental search is performed in SearchMode.AutoComplete and SearchMode.OnlyInPopup modes - oLU.AutoSearchColumnIndex = 1 - If Not IsNothing(ConnectionID) Then - If IsNumeric(ConnectionID) Then - cmbConnection.SelectedValue = ConnectionID - End If - - End If - - 'btnShowConnections.Enabled = True - End If - - End Sub - Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click - CurrentPosition = SQL_COMMANDTextBox.SelectionStart - - If SQL_COMMANDTextBox.Text.Trim().Count = 0 Then - dgvPlaceholders.Enabled = False - Else - dgvPlaceholders.Enabled = True - End If - - CheckForPlaceholders() - End Sub - Sub EnDisable_Man_Attribute(bool As Boolean) - lblAttributeMan.Visible = bool - cmbAttributeMan.Visible = bool - btnAddAttributeMan.Visible = bool - End Sub - Sub EnDisable_Auto_Attribute(bool As Boolean) - lblAttributeAuto.Visible = bool - cmbAttributeAuto.Visible = bool - btnAddAttributeAuto.Visible = bool - End Sub - Private Sub CheckForPlaceholders() - Dim text As String = SQL_COMMANDTextBox.Text - dgvPlaceholders.Rows.Clear() - - Dim patterns As List(Of clsPatterns.Pattern) = clsPatterns.GetAllPatterns(text) - - For Each pattern In patterns - dgvPlaceholders.Rows.Add({pattern.ToString, ""}) - Next - - 'Dim count As Integer = 0 - 'Dim text As String = Me.Value - 'Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase) - 'Dim matches As MatchCollection = atPlaceholderRegex.Matches(text) - 'dgvPlaceholders.Rows.Clear() - 'For Each match As Match In matches - ' dgvPlaceholders.Rows.Add({match.Value, ""}) - 'Next - End Sub - Private Sub InsertAtSelection(str As String) - Dim altePosition As Integer = SQL_COMMANDTextBox.SelectionStart() - SQL_COMMANDTextBox.Text = SQL_COMMANDTextBox.Text.Insert(altePosition, str) - SQL_COMMANDTextBox.SelectionStart = altePosition + str.Length - End Sub - - - Private Sub btnAddAttributeMan_Click(sender As Object, e As EventArgs) Handles btnAddAttributeMan.Click - If cmbAttributeMan.SelectedIndex <> -1 Then - Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAttributeMan.Text) - InsertAtSelection(value) - End If - End Sub - - Private Sub btnAddStatic_Click(sender As Object, e As EventArgs) Handles btnAddStatic.Click - If cmbStatic.SelectedIndex <> -1 Then - Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbStatic.Text) - InsertAtSelection(value) - End If - End Sub - - Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click - If cmbUser.SelectedIndex <> -1 Then - Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_USER, cmbUser.Text) - InsertAtSelection(value) - End If - End Sub - - Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick - Try - Dim query As String = SQL_COMMANDTextBox.Text - - For Each row As DataGridViewRow In dgvPlaceholders.Rows - Dim placeholder As String = row.Cells(0).Value - Dim replacement As String = row.Cells(1).Value - - ' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen - If Not String.IsNullOrEmpty(replacement) Then - Dim pattern As New clsPatterns.Pattern(placeholder) - - query = clsPatterns.ReplacePattern(query, pattern.Type, replacement) - Else - MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung") - Exit Sub - End If - Next - 'MsgBox(cmbConnection.SelectedValue) - Dim oconString = My.DatabaseECM.Get_ConnectionStringforID(cmbConnection.SelectedValue) - 'MsgBox(oconString) - Dim decryptedConString = MSSQLServer.DecryptConnectionString(oconString) - 'MsgBox(decryptedConString) - Dim oDT = My.DatabaseECM.GetDatatableWithConnection(query, decryptedConString) - - - If oDT IsNot Nothing Then - GridControl1.DataSource = Nothing - GridControl1.DataSource = oDT - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick - SQLCommand = SQL_COMMANDTextBox.Text - ConnectionID = cmbConnection.SelectedValue - Me.Close() - End Sub - - Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click - - End Sub -End Class \ No newline at end of file diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb index 950fe289..3cc0c2a8 100644 --- a/GUIs.ZooFlow/ClassInit.vb +++ b/GUIs.ZooFlow/ClassInit.vb @@ -273,6 +273,8 @@ Public Class ClassInit oBaseSQL = oBaseSQL.Replace("@USRNAME", My.Application.User.UserName) oBaseSQL = oBaseSQL.Replace("@UserName", My.Application.User.UserName) oBaseSQL = oBaseSQL.Replace("@LANG_CODE", My.Application.User.Language) + oBaseSQL = oBaseSQL.Replace("{#INT#USERNAME}", My.Application.User.UserName) + If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then SQL_DocResultBase = oBaseSQL ElseIf oRow.Item("TITLE") = SQLCMD_AHW_LAYOUT_SELECT Then diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb index 73bbad40..fd5484d3 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb @@ -55,6 +55,8 @@ Partial Public Class DSIDB_Stammdaten Private tableTBIDB_DOCTYPE As TBIDB_DOCTYPEDataTable + Private tableTBIDB_COMMON_SQL As TBIDB_COMMON_SQLDataTable + Private relationFK_TYP_ID As Global.System.Data.DataRelation Private relationFK_OS_CAT_ID As Global.System.Data.DataRelation @@ -135,6 +137,9 @@ Partial Public Class DSIDB_Stammdaten If (Not (ds.Tables("TBIDB_DOCTYPE")) Is Nothing) Then MyBase.Tables.Add(New TBIDB_DOCTYPEDataTable(ds.Tables("TBIDB_DOCTYPE"))) End If + If (Not (ds.Tables("TBIDB_COMMON_SQL")) Is Nothing) Then + MyBase.Tables.Add(New TBIDB_COMMON_SQLDataTable(ds.Tables("TBIDB_COMMON_SQL"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -302,6 +307,16 @@ Partial Public Class DSIDB_Stammdaten End Get End Property + _ + Public ReadOnly Property TBIDB_COMMON_SQL() As TBIDB_COMMON_SQLDataTable + Get + Return Me.tableTBIDB_COMMON_SQL + End Get + End Property + _ + Private Function ShouldSerializeTBIDB_COMMON_SQL() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -780,6 +812,9 @@ Partial Public Class DSIDB_Stammdaten _ Public Delegate Sub TBIDB_DOCTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_DOCTYPERowChangeEvent) + _ + Public Delegate Sub TBIDB_COMMON_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_COMMON_SQLRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -6310,6 +6345,369 @@ Partial Public Class DSIDB_Stammdaten End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBIDB_COMMON_SQLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBIDB_COMMON_SQLRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBIDB_COMMON_SQL" + 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 TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + 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 ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + 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() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_COMMON_SQLRow + Get + Return CType(Me.Rows(index),TBIDB_COMMON_SQLRow) + End Get + End Property + + _ + Public Event TBIDB_COMMON_SQLRowChanging As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowChanged As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowDeleting As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Event TBIDB_COMMON_SQLRowDeleted As TBIDB_COMMON_SQLRowChangeEventHandler + + _ + Public Overloads Sub AddTBIDB_COMMON_SQLRow(ByVal row As TBIDB_COMMON_SQLRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBIDB_COMMON_SQLRow(ByVal TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_COMMON_SQLRow + Dim rowTBIDB_COMMON_SQLRow As TBIDB_COMMON_SQLRow = CType(Me.NewRow,TBIDB_COMMON_SQLRow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBIDB_COMMON_SQLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBIDB_COMMON_SQLRow) + Return rowTBIDB_COMMON_SQLRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_COMMON_SQLRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_COMMON_SQLRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBIDB_COMMON_SQLDataTable = CType(MyBase.Clone,TBIDB_COMMON_SQLDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBIDB_COMMON_SQLDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + 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.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + 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.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 200 + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.MaxLength = 100 + Me.columnCHANGED_WHO.MaxLength = 100 + End Sub + + _ + Public Function NewTBIDB_COMMON_SQLRow() As TBIDB_COMMON_SQLRow + Return CType(Me.NewRow,TBIDB_COMMON_SQLRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBIDB_COMMON_SQLRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBIDB_COMMON_SQLRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBIDB_COMMON_SQLRowChangedEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowChanged(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBIDB_COMMON_SQLRowChangingEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowChanging(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBIDB_COMMON_SQLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowDeleted(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBIDB_COMMON_SQLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBIDB_COMMON_SQLRowDeleting(Me, New TBIDB_COMMON_SQLRowChangeEvent(CType(e.Row,TBIDB_COMMON_SQLRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBIDB_COMMON_SQLRow(ByVal row As TBIDB_COMMON_SQLRow) + 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 DSIDB_Stammdaten = New DSIDB_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 = "TBIDB_COMMON_SQLDataTable" + 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. ''' @@ -8847,6 +9245,190 @@ Partial Public Class DSIDB_Stammdaten End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBIDB_COMMON_SQLRow + Inherits Global.System.Data.DataRow + + Private tableTBIDB_COMMON_SQL As TBIDB_COMMON_SQLDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBIDB_COMMON_SQL = CType(Me.Table,TBIDB_COMMON_SQLDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.TITLEColumn),String) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.TITLEColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_COMMAND in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_COMMON_SQL ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsSQL_COMMANDNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) + End Function + + _ + Public Sub SetSQL_COMMANDNull() + Me(Me.tableTBIDB_COMMON_SQL.SQL_COMMANDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBIDB_COMMON_SQL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBIDB_COMMON_SQL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -9386,6 +9968,42 @@ Partial Public Class DSIDB_Stammdaten End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBIDB_COMMON_SQLRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBIDB_COMMON_SQLRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBIDB_COMMON_SQLRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBIDB_COMMON_SQLRow + 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 DSIDB_StammdatenTableAdapters @@ -14377,6 +14995,389 @@ Namespace DSIDB_StammdatenTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBIDB_COMMON_SQLTableAdapter + 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 = "TBIDB_COMMON_SQL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + 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 [IDB].[dbo].[TBIDB_COMMON_SQL] WHERE (([GUID] = @Original_GUID) AND ("& _ + "[TITLE] = @Original_TITLE) AND ([ACTIVE] = @Original_ACTIVE) 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_AD"& _ + "DED_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)))" + 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_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", 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("@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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [IDB].[dbo].[TBIDB_COMMON_SQL] ([TITLE], [SQL_COMMAND], [ACTIVE], [AD"& _ + "DED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @SQL_COMM"& _ + "AND, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 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("@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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE IDB.dbo.TBIDB_COMMON_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, SQL_COM"& _ + "MAND = @SQL_COMMAND, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID ="& _ + " @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.NVarChar, 2147483647, 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("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DigitalData.GUIs.ZooFlow.Settings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ + "O, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM IDB.dbo.TBIDB_COMMON_SQL" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable) 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 DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable = New DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DSIDB_Stammdaten.TBIDB_COMMON_SQLDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DSIDB_Stammdaten) As Integer + Return Me.Adapter.Update(dataSet, "TBIDB_COMMON_SQL") + 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_TITLE As String, ByVal Original_ACTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ACTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CHANGED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_CHANGED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHEN,Date) + 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 TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + If (CHANGED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("CHANGED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN,Date) + 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 TITLE As String, ByVal SQL_COMMAND As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_COMMAND,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -14412,6 +15413,8 @@ Namespace DSIDB_StammdatenTableAdapters Private _tBIDB_DOCTYPETableAdapter As TBIDB_DOCTYPETableAdapter + Private _tBIDB_COMMON_SQLTableAdapter As TBIDB_COMMON_SQLTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -14581,6 +15584,20 @@ Namespace DSIDB_StammdatenTableAdapters End Set End Property + _ + Public Property TBIDB_COMMON_SQLTableAdapter() As TBIDB_COMMON_SQLTableAdapter + Get + Return Me._tBIDB_COMMON_SQLTableAdapter + End Get + Set + Me._tBIDB_COMMON_SQLTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -14644,6 +15661,10 @@ Namespace DSIDB_StammdatenTableAdapters AndAlso (Not (Me._tBIDB_DOCTYPETableAdapter.Connection) Is Nothing)) Then Return Me._tBIDB_DOCTYPETableAdapter.Connection End If + If ((Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBIDB_COMMON_SQLTableAdapter.Connection) Is Nothing)) Then + Return Me._tBIDB_COMMON_SQLTableAdapter.Connection + End If Return Nothing End Get Set @@ -14690,6 +15711,9 @@ Namespace DSIDB_StammdatenTableAdapters If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -14800,6 +15824,15 @@ Namespace DSIDB_StammdatenTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.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._tBIDB_COMMON_SQLTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If Return result End Function @@ -14898,6 +15931,14 @@ Namespace DSIDB_StammdatenTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBIDB_COMMON_SQLTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If Return result End Function @@ -14908,6 +15949,14 @@ Namespace DSIDB_StammdatenTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DSIDB_Stammdaten, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_COMMON_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBIDB_COMMON_SQLTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBIDB_DOCTYPETableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBIDB_DOCTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -15092,6 +16141,11 @@ Namespace DSIDB_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._tBIDB_COMMON_SQLTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBIDB_COMMON_SQLTableAdapter.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"& _ @@ -15225,6 +16279,15 @@ Namespace DSIDB_StammdatenTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_DOCTYPETableAdapter.Adapter) End If End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBIDB_COMMON_SQLTableAdapter, Me._tBIDB_COMMON_SQLTableAdapter.Connection) + Me._tBIDB_COMMON_SQLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_COMMON_SQLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBIDB_COMMON_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBIDB_COMMON_SQLTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBIDB_COMMON_SQLTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -15329,6 +16392,10 @@ Namespace DSIDB_StammdatenTableAdapters Me._tBIDB_DOCTYPETableAdapter.Connection = CType(revertConnections(Me._tBIDB_DOCTYPETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBIDB_DOCTYPETableAdapter.Transaction = Nothing End If + If (Not (Me._tBIDB_COMMON_SQLTableAdapter) Is Nothing) Then + Me._tBIDB_COMMON_SQLTableAdapter.Connection = CType(revertConnections(Me._tBIDB_COMMON_SQLTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBIDB_COMMON_SQLTableAdapter.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/DSIDB_Stammdaten.xsc b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc index 82618466..1734aeaa 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsc +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsc @@ -57,5 +57,16 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd index de8b6610..338b4c60 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xsd +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xsd @@ -938,6 +938,79 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR + + + + + + DELETE FROM [IDB].[dbo].[TBIDB_COMMON_SQL] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ([ACTIVE] = @Original_ACTIVE) 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))) + + + + + + + + + + + + + + + + + + INSERT INTO [IDB].[dbo].[TBIDB_COMMON_SQL] ([TITLE], [SQL_COMMAND], [ACTIVE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@TITLE, @SQL_COMMAND, @ACTIVE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM IDB.dbo.TBIDB_COMMON_SQL + + + + + + UPDATE IDB.dbo.TBIDB_COMMON_SQL +SET TITLE = @TITLE, SQL_COMMAND = @SQL_COMMAND, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, TITLE, SQL_COMMAND, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM IDB.dbo.TBIDB_COMMON_SQL WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + @@ -946,7 +1019,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -985,7 +1058,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1044,7 +1117,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1101,7 +1174,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1142,7 +1215,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1201,7 +1274,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1254,7 +1327,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1291,7 +1364,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1305,7 +1378,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1343,7 +1416,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1356,7 +1429,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1395,7 +1468,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1416,7 +1489,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1454,7 +1527,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1485,7 +1558,7 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR - + @@ -1522,6 +1595,44 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1576,12 +1687,16 @@ SELECT GUID, TITLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR + + + + - - - + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/DSIDB_Stammdaten.xss b/GUIs.ZooFlow/DSIDB_Stammdaten.xss index 9a16153f..9bc73e1d 100644 --- a/GUIs.ZooFlow/DSIDB_Stammdaten.xss +++ b/GUIs.ZooFlow/DSIDB_Stammdaten.xss @@ -4,25 +4,27 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - + 677 @@ -34,7 +36,7 @@ - + 896 @@ -46,7 +48,7 @@ - + 913 diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb index 3292e904..5057ba9d 100644 --- a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.Designer.vb @@ -863,6 +863,7 @@ Partial Public Class GlobixDataset Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 + Me.columnIDB_OBJECT_STORE_ID.DefaultValue = CType(1,Integer) Me.columnIDB_DOCTYPE_ID.AllowDBNull = false End Sub diff --git a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd index 3b84e0d7..335665d9 100644 --- a/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd +++ b/GUIs.ZooFlow/Modules/Globix/GlobixDataset.xsd @@ -399,7 +399,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -408,7 +408,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -495,12 +495,12 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + - + @@ -582,7 +582,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -639,7 +639,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -691,9 +691,9 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - + + + \ No newline at end of file diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj index cb74ffa9..76dfe4a7 100644 --- a/GUIs.ZooFlow/ZooFlow.vbproj +++ b/GUIs.ZooFlow/ZooFlow.vbproj @@ -215,12 +215,6 @@ Form - - frmSQLDesigner_old.vb - - - Form - frmAdmin_Globix.vb @@ -258,6 +252,12 @@ Form + + frmIDBCommonSQL.vb + + + Form + frmWaitForm.vb @@ -500,9 +500,6 @@ frmAdmin_SourceSQL.vb - - frmSQLDesigner_old.vb - frmAdmin_UserImport.vb @@ -515,6 +512,9 @@ Dialog1.vb + + frmIDBCommonSQL.vb + frmWaitForm.vb diff --git a/GUIs.ZooFlow/frmIDBCommonSQL.Designer.vb b/GUIs.ZooFlow/frmIDBCommonSQL.Designer.vb new file mode 100644 index 00000000..9242357a --- /dev/null +++ b/GUIs.ZooFlow/frmIDBCommonSQL.Designer.vb @@ -0,0 +1,462 @@ + _ +Partial Class frmIDBCommonSQL + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + '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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIDBCommonSQL)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.bsiStatus = 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.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBIDB_COMMON_SQLBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TBIDB_COMMON_SQLTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_COMMON_SQLTableAdapter() + Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager() + Me.EmptySpaceItem2 = New DevExpress.XtraLayout.EmptySpaceItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBIDB_COMMON_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.EmptySpaceItem2, 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.BarButtonItem2, Me.BarButtonItem3, Me.bsiStatus}) + 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.Size = New System.Drawing.Size(1059, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Abbrechen und schliessen" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Speichern" + Me.BarButtonItem3.Id = 3 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'bsiStatus + ' + Me.bsiStatus.Caption = "BarStaticItem1" + Me.bsiStatus.Id = 4 + Me.bsiStatus.Name = "bsiStatus" + Me.bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 453) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1059, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBIDB_COMMON_SQLBindingSource + Me.ListBox1.DisplayMember = "TITLE" + Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Left + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(0, 158) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(247, 295) + Me.ListBox1.TabIndex = 2 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBIDB_COMMON_SQLBindingSource + ' + Me.TBIDB_COMMON_SQLBindingSource.DataMember = "TBIDB_COMMON_SQL" + Me.TBIDB_COMMON_SQLBindingSource.DataSource = Me.DSIDB_Stammdaten + ' + 'DSIDB_Stammdaten + ' + Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten" + Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.SQL_COMMANDTextBox) + Me.LayoutControl1.Controls.Add(Me.ACTIVECheckBox) + Me.LayoutControl1.Controls.Add(Me.TITLETextBox) + Me.LayoutControl1.Controls.Add(Me.GUIDTextBox) + Me.LayoutControl1.Controls.Add(Me.LabelControl1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(247, 158) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(812, 295) + Me.LayoutControl1.TabIndex = 5 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(103, 232) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(694, 20) + Me.CHANGED_WHENTextBox.TabIndex = 12 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(103, 202) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(694, 20) + Me.CHANGED_WHOTextBox.TabIndex = 11 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SimpleButton1.Appearance.Options.UseFont = True + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.Location = New System.Drawing.Point(12, 149) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Padding = New System.Windows.Forms.Padding(5) + Me.SimpleButton1.Size = New System.Drawing.Size(788, 46) + Me.SimpleButton1.StyleController = Me.LayoutControl1 + Me.SimpleButton1.TabIndex = 10 + Me.SimpleButton1.Text = "SQL Designer" + ' + 'SQL_COMMANDTextBox + ' + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "SQL_COMMAND", True)) + Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(103, 122) + Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" + Me.SQL_COMMANDTextBox.Size = New System.Drawing.Size(694, 20) + Me.SQL_COMMANDTextBox.TabIndex = 9 + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBIDB_COMMON_SQLBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(12, 95) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(788, 20) + Me.ACTIVECheckBox.TabIndex = 8 + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'TITLETextBox + ' + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "TITLE", True)) + Me.TITLETextBox.Enabled = False + Me.TITLETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TITLETextBox.Location = New System.Drawing.Point(244, 68) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.Size = New System.Drawing.Size(553, 20) + Me.TITLETextBox.TabIndex = 7 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_COMMON_SQLBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(103, 68) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(43, 20) + Me.GUIDTextBox.TabIndex = 6 + ' + 'LabelControl1 + ' + Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LabelControl1.Appearance.Options.UseFont = True + Me.LabelControl1.Location = New System.Drawing.Point(12, 12) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(547, 17) + Me.LabelControl1.StyleController = Me.LayoutControl1 + Me.LabelControl1.TabIndex = 4 + Me.LabelControl1.Text = "Diese SQL-Befehle sind systemrelevanter Art und sollten nur bewusst angepasst wer" & + "den." + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.EmptySpaceItem1, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem2, Me.LayoutControlItem8, Me.LayoutControlItem9, Me.EmptySpaceItem2}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(812, 295) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.LabelControl1 + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Size = New System.Drawing.Size(792, 21) + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem1.TextVisible = False + ' + 'EmptySpaceItem1 + ' + Me.EmptySpaceItem1.AllowHotTrack = False + Me.EmptySpaceItem1.Location = New System.Drawing.Point(0, 247) + Me.EmptySpaceItem1.Name = "EmptySpaceItem1" + Me.EmptySpaceItem1.Size = New System.Drawing.Size(792, 28) + Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem3.Control = Me.GUIDTextBox + Me.LayoutControlItem3.Enabled = False + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 53) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(141, 30) + Me.LayoutControlItem3.Text = "ID:" + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem4.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem4.Control = Me.TITLETextBox + Me.LayoutControlItem4.Enabled = False + Me.LayoutControlItem4.Location = New System.Drawing.Point(141, 53) + 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 = "Titel:" + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.ACTIVECheckBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 83) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Size = New System.Drawing.Size(792, 24) + Me.LayoutControlItem5.Text = "ACTIVE:" + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem5.TextVisible = False + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem6.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem6.Control = Me.SQL_COMMANDTextBox + Me.LayoutControlItem6.Enabled = False + Me.LayoutControlItem6.Location = New System.Drawing.Point(0, 107) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem6.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem6.Text = "SQL Command:" + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.SimpleButton1 + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 137) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Size = New System.Drawing.Size(792, 50) + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem2.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem8.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem8.Control = Me.CHANGED_WHOTextBox + Me.LayoutControlItem8.Enabled = False + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 187) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem8.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem8.Text = "Geändert wer:" + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(76, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LayoutControlItem9.AppearanceItemCaption.Options.UseFont = True + Me.LayoutControlItem9.Control = Me.CHANGED_WHENTextBox + Me.LayoutControlItem9.Enabled = False + Me.LayoutControlItem9.Location = New System.Drawing.Point(0, 217) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem9.Size = New System.Drawing.Size(792, 30) + Me.LayoutControlItem9.Text = "Geändert wann:" + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(76, 13) + ' + 'TBIDB_COMMON_SQLTableAdapter + ' + Me.TBIDB_COMMON_SQLTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBIDB_ATTRIBUTE_TYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_ATTRIBUTETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_BUSINESS_ENTITYTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOG_USERTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_CATALOGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_COMMON_SQLTableAdapter = Me.TBIDB_COMMON_SQLTableAdapter + Me.TableAdapterManager.TBIDB_DOCTYPE_HANDLINGTableAdapter = Nothing + Me.TableAdapterManager.TBIDB_DOCTYPETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Nothing + Me.TableAdapterManager.TBIDB_OBJECT_STORETableAdapter = Nothing + Me.TableAdapterManager.TBZF_ADMIN_SOURCE_SQLTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.VWIDB_BE_ATTRIBUTETableAdapter = Nothing + ' + 'EmptySpaceItem2 + ' + Me.EmptySpaceItem2.AllowHotTrack = False + Me.EmptySpaceItem2.Location = New System.Drawing.Point(0, 21) + Me.EmptySpaceItem2.Name = "EmptySpaceItem2" + Me.EmptySpaceItem2.Size = New System.Drawing.Size(792, 32) + Me.EmptySpaceItem2.TextSize = New System.Drawing.Size(0, 0) + ' + 'frmIDBCommonSQL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1059, 477) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmIDBCommonSQL" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "System SQLs IDB" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBIDB_COMMON_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.EmptySpaceItem2, 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 BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents bsiStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents ListBox1 As ListBox + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem + Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten + Friend WithEvents TBIDB_COMMON_SQLBindingSource As BindingSource + Friend WithEvents TBIDB_COMMON_SQLTableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_COMMON_SQLTableAdapter + Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents SQL_COMMANDTextBox As TextBox + Friend WithEvents ACTIVECheckBox As CheckBox + Friend WithEvents TITLETextBox As TextBox + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents EmptySpaceItem2 As DevExpress.XtraLayout.EmptySpaceItem +End Class diff --git a/GUIs.ZooFlow/frmIDBCommonSQL.resx b/GUIs.ZooFlow/frmIDBCommonSQL.resx new file mode 100644 index 00000000..f59ceb88 --- /dev/null +++ b/GUIs.ZooFlow/frmIDBCommonSQL.resx @@ -0,0 +1,202 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw + MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu + bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8 + cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs + MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo + LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x + LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41 + LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu + MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu + M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs + MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu + Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + 177, 17 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOwDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRWRpdERhdGFT + b3VyY2UiPg0KICAgIDxwYXRoIGQ9Ik00LDEwVjZjMC0yLjIsNC41LTQsMTAtNHMxMCwxLjgsMTAsNHY0 + YzAsMi4yLTQuNSw0LTEwLDRTNCwxMi4yLDQsMTB6IE0yNCwxOEwyNCwxOEMyNCwxOCwyNCwxOCwyNCwx + OCAgIEMyNCwxOCwyNCwxOCwyNCwxOHogTTE0LDIwYzUuNSwwLDEwLTEuOCwxMC00di00YzAsMi4yLTQu + NSw0LTEwLDRTNCwxNC4yLDQsMTJ2NEM0LDE4LjIsOC41LDIwLDE0LDIweiBNMTUuMiwyNmw0LjgtNC44 + ICAgYy0xLjcsMC41LTMuNywwLjgtNiwwLjhjLTUuNSwwLTEwLTEuOC0xMC00djRjMCwyLjIsNC41LDQs + MTAsNEMxNC40LDI2LDE0LjgsMjYsMTUuMiwyNnoiIGNsYXNzPSJZZWxsb3ciIC8+DQogICAgPHBhdGgg + ZD0iTTI5LDIzbC04LDhsLTQtNGw4LThMMjksMjN6IE0zMCwyMmwxLjctMS43YzAuNC0wLjQsMC40LTEs + MC0xLjNMMjksMTYuM2MtMC40LTAuNC0xLTAuNC0xLjMsMEwyNiwxOEwzMCwyMnogICAgTTE2LDI4djRo + NEwxNiwyOHoiIGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + + 430, 17 + + + 677, 17 + + \ No newline at end of file diff --git a/GUIs.ZooFlow/frmIDBCommonSQL.vb b/GUIs.ZooFlow/frmIDBCommonSQL.vb new file mode 100644 index 00000000..847ad4bc --- /dev/null +++ b/GUIs.ZooFlow/frmIDBCommonSQL.vb @@ -0,0 +1,70 @@ +Imports DigitalData.GUIs.Common + +Public Class frmIDBCommonSQL + Private Sub TBIDB_COMMON_SQLBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBIDB_COMMON_SQLBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DSIDB_Stammdaten) + + End Sub + + Private Sub frmIDBCommonSQL_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Me.TBIDB_COMMON_SQLTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString + Me.TBIDB_COMMON_SQLTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_COMMON_SQL) + Catch ex As Exception + + End Try + + + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Me.Close() + End Sub + Private Function SaveSQL() As Boolean + Try + TBIDB_COMMON_SQLBindingSource.EndEdit() + If DSIDB_Stammdaten.TBIDB_COMMON_SQL.GetChanges() IsNot Nothing Then + CHANGED_WHOTextBox.Text = My.Application.User.UserName + TBIDB_COMMON_SQLBindingSource.EndEdit() + TBIDB_COMMON_SQLTableAdapter.Update(DSIDB_Stammdaten.TBIDB_COMMON_SQL) + End If + + ShowStatus("SQL-Command saved", Color.DodgerBlue) + Return True + Catch ex As Exception + ShowStatus($"Error saving SQL-Command {ex.Message} - {Now.ToString}", Color.Red) + Return False + End Try + End Function + Private Sub ShowStatus(Message As String, ocolor As Color) + bsiStatus.Caption = $"{Message} - {Now.ToString}" + bsiStatus.ItemAppearance.Normal.BackColor = ocolor + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + End Sub + + Private Sub TBIDB_COMMON_SQLBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBIDB_COMMON_SQLBindingSource.PositionChanged + bsiStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End Sub + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + SaveSQL() + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim oSQLbefore = SQL_COMMANDTextBox.Text + Dim oForm2 As New frmSQLEditor(My.LogConfig, My.DatabaseECM) With { + .SQLCommand = SQL_COMMANDTextBox.Text, + .SQLConnection = 2 + } + oForm2.ShowDialog() + + If oForm2.DialogResult = DialogResult.OK And oSQLbefore <> oForm2.SQLCommand Then + SQL_COMMANDTextBox.Text = oForm2.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@SQL_RESULT").Value = oForm.SQLCommand + 'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID + CHANGED_WHOTextBox.Text = My.Application.User.UserName + End If + End Sub +End Class \ No newline at end of file