Allow delete of config, add F5 for loading data in windows

This commit is contained in:
Jonathan Jenne
2022-01-28 12:05:41 +01:00
parent 6d6dd725d9
commit 5a8440ff05
18 changed files with 316 additions and 166 deletions

View File

@@ -27,10 +27,10 @@ Partial Class frmConfig
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig))
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.tabPageSchema = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridSchema = New DevExpress.XtraGrid.GridControl()
Me.TBEDIXMLITEMSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DS_DD_ECM = New MultiTool.Form.DS_DD_ECM()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridViewSchema = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colXML_NAME = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colXML_TYPE_ID = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -47,9 +47,9 @@ Partial Class frmConfig
Me.colCHANGED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colCHANGED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.tabPageConfig = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl2 = New DevExpress.XtraGrid.GridControl()
Me.GridConfig = New DevExpress.XtraGrid.GridControl()
Me.TBEDI_XML_CONFIGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridViewConfig = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colKEY = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -62,6 +62,8 @@ Partial Class frmConfig
Me.colTEMPLATE_ID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -72,14 +74,14 @@ Partial Class frmConfig
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.tabPageSchema.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridSchema, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabPageConfig.SuspendLayout()
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBEDI_XML_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -95,21 +97,21 @@ Partial Class frmConfig
'
'tabPageSchema
'
Me.tabPageSchema.Controls.Add(Me.GridControl1)
Me.tabPageSchema.Controls.Add(Me.GridSchema)
Me.tabPageSchema.Name = "tabPageSchema"
Me.tabPageSchema.Size = New System.Drawing.Size(1091, 546)
Me.tabPageSchema.Text = "Schema"
'
'GridControl1
'GridSchema
'
Me.GridControl1.DataSource = Me.TBEDIXMLITEMSBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(1091, 546)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
Me.GridSchema.DataSource = Me.TBEDIXMLITEMSBindingSource
Me.GridSchema.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridSchema.Location = New System.Drawing.Point(0, 0)
Me.GridSchema.MainView = Me.GridViewSchema
Me.GridSchema.Name = "GridSchema"
Me.GridSchema.Size = New System.Drawing.Size(1091, 546)
Me.GridSchema.TabIndex = 0
Me.GridSchema.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSchema})
'
'TBEDIXMLITEMSBindingSource
'
@@ -121,11 +123,11 @@ Partial Class frmConfig
Me.DS_DD_ECM.DataSetName = "DS_DD_ECM"
Me.DS_DD_ECM.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridView1
'GridViewSchema
'
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colXML_NAME, Me.colXML_TYPE_ID, Me.colIS_READ_ONLY, Me.colIS_VISIBLE, Me.colORDER_KEY, Me.colIS_REQUIRED, Me.colIS_VIRTUAL, Me.colFUNCTION_ID, Me.colFUNCTION_PARAMETERS, Me.colXML_TABLE_ID, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridViewSchema.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colXML_NAME, Me.colXML_TYPE_ID, Me.colIS_READ_ONLY, Me.colIS_VISIBLE, Me.colORDER_KEY, Me.colIS_REQUIRED, Me.colIS_VIRTUAL, Me.colFUNCTION_ID, Me.colFUNCTION_PARAMETERS, Me.colXML_TABLE_ID, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1})
Me.GridViewSchema.GridControl = Me.GridSchema
Me.GridViewSchema.Name = "GridViewSchema"
'
'colGUID
'
@@ -246,33 +248,33 @@ Partial Class frmConfig
'
'tabPageConfig
'
Me.tabPageConfig.Controls.Add(Me.GridControl2)
Me.tabPageConfig.Controls.Add(Me.GridConfig)
Me.tabPageConfig.Name = "tabPageConfig"
Me.tabPageConfig.Size = New System.Drawing.Size(1091, 546)
Me.tabPageConfig.Text = "Konfiguration"
'
'GridControl2
'GridConfig
'
Me.GridControl2.DataSource = Me.TBEDI_XML_CONFIGBindingSource
Me.GridControl2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl2.Location = New System.Drawing.Point(0, 0)
Me.GridControl2.MainView = Me.GridView2
Me.GridControl2.MenuManager = Me.RibbonControl1
Me.GridControl2.Name = "GridControl2"
Me.GridControl2.Size = New System.Drawing.Size(1091, 546)
Me.GridControl2.TabIndex = 0
Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
Me.GridConfig.DataSource = Me.TBEDI_XML_CONFIGBindingSource
Me.GridConfig.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridConfig.Location = New System.Drawing.Point(0, 0)
Me.GridConfig.MainView = Me.GridViewConfig
Me.GridConfig.MenuManager = Me.RibbonControl1
Me.GridConfig.Name = "GridConfig"
Me.GridConfig.Size = New System.Drawing.Size(1091, 546)
Me.GridConfig.TabIndex = 0
Me.GridConfig.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewConfig})
'
'TBEDI_XML_CONFIGBindingSource
'
Me.TBEDI_XML_CONFIGBindingSource.DataMember = "TBEDI_XML_CONFIG"
Me.TBEDI_XML_CONFIGBindingSource.DataSource = Me.DS_DD_ECM
'
'GridView2
'GridViewConfig
'
Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colKEY, Me.colVALUE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colCOMMENT, Me.colACTIVE, Me.colTEMPLATE_ID})
Me.GridView2.GridControl = Me.GridControl2
Me.GridView2.Name = "GridView2"
Me.GridViewConfig.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colKEY, Me.colVALUE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colCOMMENT, Me.colACTIVE, Me.colTEMPLATE_ID})
Me.GridViewConfig.GridControl = Me.GridConfig
Me.GridViewConfig.Name = "GridViewConfig"
'
'colGUID1
'
@@ -343,9 +345,9 @@ Partial Class frmConfig
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 2
Me.RibbonControl1.MaxItemId = 4
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
@@ -362,6 +364,20 @@ Partial Class frmConfig
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Neuer Eintrag"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_addcircled
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarButtonItem3
'
Me.BarButtonItem3.Caption = "Eintrag löschen"
Me.BarButtonItem3.Id = 3
Me.BarButtonItem3.ImageOptions.SvgImage = Global.MultiTool.Form.My.Resources.Resources.actions_deletecircled1
Me.BarButtonItem3.Name = "BarButtonItem3"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -370,7 +386,9 @@ Partial Class frmConfig
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
@@ -421,14 +439,14 @@ Partial Class frmConfig
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.tabPageSchema.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridSchema, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBEDIXMLITEMSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS_DD_ECM, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewSchema, System.ComponentModel.ISupportInitialize).EndInit()
Me.tabPageConfig.ResumeLayout(False)
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridConfig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBEDI_XML_CONFIGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewConfig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -442,8 +460,8 @@ Partial Class frmConfig
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents tabPageSchema As XtraTabPage
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridSchema As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewSchema As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DS_DD_ECM As DS_DD_ECM
Friend WithEvents TBEDIXMLITEMSBindingSource As BindingSource
Friend WithEvents TBEDI_XML_TEMPLATE_ITEMSTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_TEMPLATE_ITEMSTableAdapter
@@ -451,8 +469,8 @@ Partial Class frmConfig
Friend WithEvents TBEDI_XML_CONFIGTableAdapter As DS_DD_ECMTableAdapters.TBEDI_XML_CONFIGTableAdapter
Friend WithEvents TableAdapterManager As DS_DD_ECMTableAdapters.TableAdapterManager
Friend WithEvents tabPageConfig As XtraTabPage
Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridConfig As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewConfig As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colKEY As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn
@@ -478,4 +496,6 @@ Partial Class frmConfig
Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colTEMPLATE_ID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
End Class