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

merge

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-04 11:01:40 +01:00
parent 5f73bb2e91 02caa6f5a2
commit 44e06dd2f0
20 changed files with 4305 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
GUIs.ZooFlow/Administration/ClassConstants.vb
View File

@@ -7,6 +7,7 @@
Public Const PAGE_IDB_SOURCE_SQL = "IDB_SOURCE_SQL"
Public Const PAGE_IDB_OBJECT_STORES = "IDB_OBJECT_STORES"
Public Const PAGE_IDB_DOCTYPE_CONFIG = "IDB_DOCTYPE_CONFIG"
Public Const PAGE_IDB_DOCTYPE = "DOCTYPE_DEF"
Public Const MODULE_GI = "GLOBIX"
Public Const PAGE_GI_PROFILES = "GI_PROFILES"

458
GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.Designer.vb generated Normal file
View File

@@ -0,0 +1,458 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAdmin_Doctype
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim RibbonPageGroupSave As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin_Doctype))
Me.BarButtonItemSaveChange = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemCancel = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItemDTsave = New DevExpress.XtraBars.BarButtonItem()
Me.labelStatus = 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.pnlAddDoctype = New DevExpress.XtraEditors.PanelControl()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.ComboBoxEditLanguage = New DevExpress.XtraEditors.ComboBoxEdit()
Me.TextEditDoctypeTranslate = New DevExpress.XtraEditors.TextEdit()
Me.TextEditDoctypeSys = New DevExpress.XtraEditors.TextEdit()
Me.Root = New DevExpress.XtraLayout.LayoutControlGroup()
Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem1 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBIDB_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.VirtualServerModeSource1 = New DevExpress.Data.VirtualServerModeSource(Me.components)
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSystemTitle = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colDoctype = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colLanguage = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colChangedWhen = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBIDB_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter()
RibbonPageGroupSave = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlAddDoctype.SuspendLayout()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonPageGroupSave
'
RibbonPageGroupSave.AllowTextClipping = False
RibbonPageGroupSave.ItemLinks.Add(Me.BarButtonItemSaveChange)
RibbonPageGroupSave.Name = "RibbonPageGroupSave"
RibbonPageGroupSave.Text = "Aktualisierung"
'
'BarButtonItemSaveChange
'
Me.BarButtonItemSaveChange.Caption = "Speichern"
Me.BarButtonItemSaveChange.Enabled = False
Me.BarButtonItemSaveChange.Id = 6
Me.BarButtonItemSaveChange.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemSaveChange.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemSaveChange.Name = "BarButtonItemSaveChange"
'
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItemCancel, Me.BarButtonItemDTsave, Me.labelStatus, Me.BarButtonItemSaveChange})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 7
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowDisplayOptionsMenuButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.Size = New System.Drawing.Size(980, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Hinzufügen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItemCancel
'
Me.BarButtonItemCancel.Caption = "Abbrechen"
Me.BarButtonItemCancel.Id = 3
Me.BarButtonItemCancel.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemCancel.Name = "BarButtonItemCancel"
Me.BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'BarButtonItemDTsave
'
Me.BarButtonItemDTsave.Caption = "Speichern"
Me.BarButtonItemDTsave.Id = 4
Me.BarButtonItemDTsave.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItemDTsave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.BarButtonItemDTsave.Name = "BarButtonItemDTsave"
Me.BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'labelStatus
'
Me.labelStatus.Caption = "BarStaticItem1"
Me.labelStatus.Id = 5
Me.labelStatus.ImageOptions.SvgImage = CType(resources.GetObject("labelStatus.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.labelStatus.Name = "labelStatus"
Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
Me.labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, RibbonPageGroupSave})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "Start"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemCancel)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItemDTsave)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "Dokumentart"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 681)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(980, 24)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'pnlAddDoctype
'
Me.pnlAddDoctype.Controls.Add(Me.LayoutControl1)
Me.pnlAddDoctype.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlAddDoctype.Location = New System.Drawing.Point(0, 158)
Me.pnlAddDoctype.Name = "pnlAddDoctype"
Me.pnlAddDoctype.Size = New System.Drawing.Size(980, 89)
Me.pnlAddDoctype.TabIndex = 2
Me.pnlAddDoctype.Visible = False
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.ComboBoxEditLanguage)
Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeTranslate)
Me.LayoutControl1.Controls.Add(Me.TextEditDoctypeSys)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(2, 2)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(976, 85)
Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1"
'
'ComboBoxEditLanguage
'
Me.ComboBoxEditLanguage.Location = New System.Drawing.Point(200, 45)
Me.ComboBoxEditLanguage.MenuManager = Me.RibbonControl1
Me.ComboBoxEditLanguage.Name = "ComboBoxEditLanguage"
Me.ComboBoxEditLanguage.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.ComboBoxEditLanguage.Size = New System.Drawing.Size(335, 20)
Me.ComboBoxEditLanguage.StyleController = Me.LayoutControl1
Me.ComboBoxEditLanguage.TabIndex = 8
'
'TextEditDoctypeTranslate
'
Me.TextEditDoctypeTranslate.Location = New System.Drawing.Point(723, 15)
Me.TextEditDoctypeTranslate.MenuManager = Me.RibbonControl1
Me.TextEditDoctypeTranslate.Name = "TextEditDoctypeTranslate"
Me.TextEditDoctypeTranslate.Size = New System.Drawing.Size(238, 20)
Me.TextEditDoctypeTranslate.StyleController = Me.LayoutControl1
Me.TextEditDoctypeTranslate.TabIndex = 5
'
'TextEditDoctypeSys
'
Me.TextEditDoctypeSys.Location = New System.Drawing.Point(200, 15)
Me.TextEditDoctypeSys.MenuManager = Me.RibbonControl1
Me.TextEditDoctypeSys.Name = "TextEditDoctypeSys"
Me.TextEditDoctypeSys.Size = New System.Drawing.Size(335, 20)
Me.TextEditDoctypeSys.StyleController = Me.LayoutControl1
Me.TextEditDoctypeSys.TabIndex = 4
'
'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.LayoutControlItem2, Me.LayoutControlItem3})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(976, 85)
Me.Root.TextVisible = False
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.TextEditDoctypeSys
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem1.Size = New System.Drawing.Size(530, 30)
Me.LayoutControlItem1.Text = "Systembezeichnung Dokumentart"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(173, 13)
'
'EmptySpaceItem1
'
Me.EmptySpaceItem1.AllowHotTrack = False
Me.EmptySpaceItem1.Location = New System.Drawing.Point(530, 30)
Me.EmptySpaceItem1.Name = "EmptySpaceItem1"
Me.EmptySpaceItem1.Size = New System.Drawing.Size(426, 35)
Me.EmptySpaceItem1.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.TextEditDoctypeTranslate
Me.LayoutControlItem2.Location = New System.Drawing.Point(530, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30)
Me.LayoutControlItem2.Text = "Übersetzung"
Me.LayoutControlItem2.TextAlignMode = DevExpress.XtraLayout.TextAlignModeItem.CustomSize
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(173, 13)
Me.LayoutControlItem2.TextToControlDistance = 5
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.ComboBoxEditLanguage
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(530, 35)
Me.LayoutControlItem3.Text = "Sprache"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(173, 13)
'
'TBIDB_LANGUAGEBindingSource
'
Me.TBIDB_LANGUAGEBindingSource.DataMember = "TBIDB_LANGUAGE"
Me.TBIDB_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'DSIDB_Stammdaten
'
Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridControl1
'
Me.GridControl1.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControl1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridControl1.Location = New System.Drawing.Point(0, 247)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.MenuManager = Me.RibbonControl1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(980, 434)
Me.GridControl1.TabIndex = 3
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'VWIDB_DOCTYPE_LANGUAGEBindingSource
'
Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE"
Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'GridView1
'
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colID, Me.colSystemTitle, Me.colDoctype, Me.colLanguage, Me.colAddedWhen, Me.colChangedWhen})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways
'
'colID
'
Me.colID.FieldName = "ID"
Me.colID.Name = "colID"
Me.colID.OptionsColumn.AllowEdit = False
Me.colID.OptionsColumn.AllowFocus = False
Me.colID.Visible = True
Me.colID.VisibleIndex = 0
'
'colSystemTitle
'
Me.colSystemTitle.FieldName = "SystemTitle"
Me.colSystemTitle.Name = "colSystemTitle"
Me.colSystemTitle.OptionsColumn.AllowEdit = False
Me.colSystemTitle.OptionsColumn.AllowFocus = False
Me.colSystemTitle.Visible = True
Me.colSystemTitle.VisibleIndex = 1
'
'colDoctype
'
Me.colDoctype.FieldName = "Doctype"
Me.colDoctype.Name = "colDoctype"
Me.colDoctype.Visible = True
Me.colDoctype.VisibleIndex = 2
'
'colLanguage
'
Me.colLanguage.FieldName = "Language"
Me.colLanguage.Name = "colLanguage"
Me.colLanguage.OptionsColumn.AllowEdit = False
Me.colLanguage.OptionsColumn.AllowFocus = False
Me.colLanguage.Visible = True
Me.colLanguage.VisibleIndex = 3
'
'colAddedWhen
'
Me.colAddedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm"
Me.colAddedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
Me.colAddedWhen.FieldName = "Added When"
Me.colAddedWhen.Name = "colAddedWhen"
Me.colAddedWhen.OptionsColumn.AllowEdit = False
Me.colAddedWhen.OptionsColumn.AllowFocus = False
Me.colAddedWhen.Visible = True
Me.colAddedWhen.VisibleIndex = 4
'
'colChangedWhen
'
Me.colChangedWhen.DisplayFormat.FormatString = "dd/MM/yyyy HH:mm"
Me.colChangedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
Me.colChangedWhen.FieldName = "Changed When"
Me.colChangedWhen.Name = "colChangedWhen"
Me.colChangedWhen.OptionsColumn.AllowEdit = False
Me.colChangedWhen.OptionsColumn.AllowFocus = False
Me.colChangedWhen.Visible = True
Me.colChangedWhen.VisibleIndex = 5
'
'TBIDB_LANGUAGETableAdapter
'
Me.TBIDB_LANGUAGETableAdapter.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_DOCTYPE_HANDLINGTableAdapter = Nothing
Me.TableAdapterManager.TBIDB_LANGUAGETableAdapter = Me.TBIDB_LANGUAGETableAdapter
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
'
'VWIDB_DOCTYPE_LANGUAGETableAdapter
'
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True
'
'frmAdmin_Doctype
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(980, 705)
Me.Controls.Add(Me.GridControl1)
Me.Controls.Add(Me.pnlAddDoctype)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmAdmin_Doctype"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Doctypes"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pnlAddDoctype, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlAddDoctype.ResumeLayout(False)
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.ComboBoxEditLanguage.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditDoctypeTranslate.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEditDoctypeSys.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VirtualServerModeSource1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents pnlAddDoctype As DevExpress.XtraEditors.PanelControl
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
Friend WithEvents TextEditDoctypeTranslate As DevExpress.XtraEditors.TextEdit
Friend WithEvents TextEditDoctypeSys As DevExpress.XtraEditors.TextEdit
Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup
Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents EmptySpaceItem1 As DevExpress.XtraLayout.EmptySpaceItem
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents VirtualServerModeSource1 As DevExpress.Data.VirtualServerModeSource
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents DSIDB_Stammdaten As DSIDB_Stammdaten
Friend WithEvents TBIDB_LANGUAGEBindingSource As BindingSource
Friend WithEvents TBIDB_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_LANGUAGETableAdapter
Friend WithEvents TableAdapterManager As DSIDB_StammdatenTableAdapters.TableAdapterManager
Friend WithEvents BarButtonItemCancel As DevExpress.XtraBars.BarButtonItem
Friend WithEvents ComboBoxEditLanguage As DevExpress.XtraEditors.ComboBoxEdit
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents BarButtonItemDTsave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem
Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource
Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter
Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colSystemTitle As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colDoctype As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colLanguage As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents BarButtonItemSaveChange As DevExpress.XtraBars.BarButtonItem
Friend WithEvents colChangedWhen As DevExpress.XtraGrid.Columns.GridColumn
End Class

254
GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.resx Normal file
View File

@@ -0,0 +1,254 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="RibbonPageGroupSave.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="BarButtonItemSaveChange.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANwDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFzIj4NCiAgICA8cGF0aCBk
PSJNMTYsOWMwLTEuMSwwLjItMi4xLDAuNS0zSDh2OGg5LjVDMTYuNiwxMi42LDE2LDEwLjksMTYsOXog
TTEyLDEyaC0yVjhoMlYxMnogTTI2LDE4djExYzAsMC42LTAuNCwxLTEsMUgzICAgYy0wLjYsMC0xLTAu
NC0xLTFWN2MwLTAuNiwwLjQtMSwxLTFoM3YxMGgxMy4zYzAuMiwwLjIsMC40LDAuMywwLjcsMC41VjIw
SDZ2NmgxNnYtOEgyNnoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICA8cGF0aCBkPSJNMjUsMmMtMy45LDAt
NywzLjEtNyw3YzAsMy45LDMuMSw3LDcsN3M3LTMuMSw3LTdDMzIsNS4xLDI4LjksMiwyNSwyeiBNMjIs
MTBoLTJWOGgyVjEweiBNMjYsMTBoLTJWOGgyVjEweiAgICBNMjgsMTBWOGgydjJIMjh6IiBjbGFzcz0i
R3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItemCancel.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iU2F2ZUFuZENsb3NlIj4NCiAgICA8
cGF0aCBkPSJNNiwxNlY2SDNDMi40LDYsMiw2LjQsMiw3djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYs
MCwxLTAuNCwxLTFWMTZINnogTTYsMjZ2LTZoMTZ2Nkg2eiBNMTYsNkg4djhoOFY2eiAgICBNMTIsMTJo
LTJWOGgyVjEyeiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwYXRoIGQ9Ik0yOSwySDE5Yy0wLjUsMC0x
LDAuNS0xLDF2MTBjMCwwLjUsMC41LDEsMSwxaDEwYzAuNSwwLDEtMC41LDEtMVYzQzMwLDIuNSwyOS41
LDIsMjksMnogTTI3LjcsMTAuNCAgIGMwLjQsMC40LDAuNCwxLDAsMS4zYy0wLjQsMC40LTEsMC40LTEu
MywwTDI0LDkuM2wtMi40LDIuNGMtMC40LDAuNC0xLDAuNC0xLjMsMGMtMC40LTAuNC0wLjQtMSwwLTEu
M0wyMi43LDhsLTIuNC0yLjQgICBjLTAuNC0wLjQtMC40LTEsMC0xLjNjMC40LTAuNCwxLTAuNCwxLjMs
MEwyNCw2LjdsMi40LTIuNGMwLjQtMC40LDEtMC40LDEuMywwYzAuNCwwLjQsMC40LDEsMCwxLjNMMjUu
Myw4TDI3LjcsMTAuNHoiIGNsYXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="BarButtonItemDTsave.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
</value>
</data>
<data name="labelStatus.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABsDAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iQWJvdXQiPg0KICAgIDxwYXRoIGQ9
Ik0xNiwyQzguMywyLDIsOC4zLDIsMTZzNi4zLDE0LDE0LDE0czE0LTYuMywxNC0xNFMyMy43LDIsMTYs
MnogTTE2LDZjMS4xLDAsMiwwLjksMiwycy0wLjksMi0yLDJzLTItMC45LTItMiAgIFMxNC45LDYsMTYs
NnogTTIwLDI0aC04di0yaDJ2LThoLTJ2LTJoMmg0djEwaDJWMjR6IiBjbGFzcz0iQmx1ZSIgLz4NCiAg
PC9nPg0KPC9zdmc+Cw==
</value>
</data>
<metadata name="TBIDB_LANGUAGEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>374, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>214, 17</value>
</metadata>
<metadata name="VirtualServerModeSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="VWIDB_DOCTYPE_LANGUAGEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="TBIDB_LANGUAGETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>605, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>830, 17</value>
</metadata>
<metadata name="VWIDB_DOCTYPE_LANGUAGETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>311, 56</value>
</metadata>
</root>

95
GUIs.ZooFlow/Administration/IDB/frmAdmin_Doctype.vb Normal file
View File

@@ -0,0 +1,95 @@
Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid.Views.Grid
Public Class frmAdmin_Doctype
Public Property HasChanges As Boolean = False
Public Property IsInsert As Boolean = False
Public Property PrimaryKey As Integer
Dim SelSystitle As String
Dim SelLanguage As String
Dim SelChangedTerm As String
Private Sub frmAdmin_Doctype_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE". Sie können sie bei Bedarf verschieben oder entfernen.
TBIDB_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.TBIDB_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_LANGUAGE)
For Each orow As DataRow In DSIDB_Stammdaten.TBIDB_LANGUAGE
ComboBoxEditLanguage.Properties.Items.Add(orow.Item("LANG_CODE"))
Next
Load_Doctypes()
End Sub
Sub Load_Doctypes()
Try
VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
pnlAddDoctype.Visible = True
BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End Sub
Public Sub New(PrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert
End Sub
Private Sub BarButtonItemCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemCancel.ItemClick
pnlAddDoctype.Visible = True
BarButtonItemCancel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
BarButtonItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
BarButtonItemDTsave.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
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")
End If
End Sub
Private Function NewUpdateDoctype(DoctypeSys As String, Term As String, Language As String) As Boolean
Try
Dim oSQL = $"EXEC PRIDB_NEW_DOCTYPE '{DoctypeSys}','{Term}','{My.Application.User.UserName}','{Language}'"
If My.DatabaseIDB.ExecuteNonQuery(oSQL) = True Then
Load_Doctypes()
Return True
End If
Catch ex As Exception
End Try
End Function
Private Sub ShowStatus(Message As String)
labelStatus.Caption = Message
labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End Sub
Private Sub GridView1_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles GridView1.CellValueChanged
Dim oView As GridView = sender
Dim cellValue As String = e.Value.ToString()
SelChangedTerm = cellValue
BarButtonItemSaveChange.Enabled = True
End Sub
Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
Dim oView As GridView = sender
SelSystitle = oView.GetFocusedRowCellValue(oView.Columns(2)).ToString()
SelLanguage = oView.GetFocusedRowCellValue(oView.Columns("Language")).ToString()
BarButtonItemSaveChange.Enabled = False
End Sub
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")
End If
End Sub
End Class

166
GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.Designer.vb generated
View File

@@ -33,10 +33,8 @@ Partial Class frmAdmin_DoctypeConfig
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.LookUpEdit1 = New DevExpress.XtraEditors.LookUpEdit()
Me.TBIDB_DOCTYPE_HANDLINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DSIDB_Stammdaten = New DigitalData.GUIs.ZooFlow.DSIDB_Stammdaten()
Me.VWIDB_DOCTYPES_DEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TextEdit5 = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit4 = New DevExpress.XtraEditors.TextEdit()
Me.TextEdit3 = New DevExpress.XtraEditors.TextEdit()
@@ -51,18 +49,18 @@ Partial Class frmAdmin_DoctypeConfig
Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBIDB_DOCTYPE_HANDLINGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPE_HANDLINGTableAdapter()
Me.TableAdapterManager = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TableAdapterManager()
Me.TBIDB_CATALOGTableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_CATALOGTableAdapter()
Me.VWIDB_DOCTYPES_DETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter()
Me.TBIDB_DOCTYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBIDB_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter()
Me.DOCTYPEComboBox = New System.Windows.Forms.ComboBox()
Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControl1.SuspendLayout()
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -76,7 +74,8 @@ Partial Class frmAdmin_DoctypeConfig
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
@@ -88,7 +87,7 @@ Partial Class frmAdmin_DoctypeConfig
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(874, 160)
Me.RibbonControl1.Size = New System.Drawing.Size(948, 158)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonItem1
@@ -129,10 +128,10 @@ Partial Class frmAdmin_DoctypeConfig
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 502)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 574)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(874, 22)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(948, 24)
'
'RibbonPage2
'
@@ -141,7 +140,7 @@ Partial Class frmAdmin_DoctypeConfig
'
'LayoutControl1
'
Me.LayoutControl1.Controls.Add(Me.LookUpEdit1)
Me.LayoutControl1.Controls.Add(Me.DOCTYPEComboBox)
Me.LayoutControl1.Controls.Add(Me.TextEdit5)
Me.LayoutControl1.Controls.Add(Me.TextEdit4)
Me.LayoutControl1.Controls.Add(Me.TextEdit3)
@@ -149,27 +148,13 @@ Partial Class frmAdmin_DoctypeConfig
Me.LayoutControl1.Controls.Add(Me.CHANGED_ACTIONComboBox)
Me.LayoutControl1.Controls.Add(Me.TextEdit1)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 160)
Me.LayoutControl1.Location = New System.Drawing.Point(0, 158)
Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(874, 342)
Me.LayoutControl1.Size = New System.Drawing.Size(948, 416)
Me.LayoutControl1.TabIndex = 2
Me.LayoutControl1.Text = "LayoutControl1"
'
'LookUpEdit1
'
Me.LookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True))
Me.LookUpEdit1.Location = New System.Drawing.Point(400, 15)
Me.LookUpEdit1.MenuManager = Me.RibbonControl1
Me.LookUpEdit1.Name = "LookUpEdit1"
Me.LookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.LookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPES_DEBindingSource
Me.LookUpEdit1.Properties.DisplayMember = "Doctype"
Me.LookUpEdit1.Properties.ValueMember = "Doctype"
Me.LookUpEdit1.Size = New System.Drawing.Size(459, 20)
Me.LookUpEdit1.StyleController = Me.LayoutControl1
Me.LookUpEdit1.TabIndex = 11
'
'TBIDB_DOCTYPE_HANDLINGBindingSource
'
Me.TBIDB_DOCTYPE_HANDLINGBindingSource.DataMember = "TBIDB_DOCTYPE_HANDLING"
@@ -180,52 +165,47 @@ Partial Class frmAdmin_DoctypeConfig
Me.DSIDB_Stammdaten.DataSetName = "DSIDB_Stammdaten"
Me.DSIDB_Stammdaten.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'VWIDB_DOCTYPES_DEBindingSource
'
Me.VWIDB_DOCTYPES_DEBindingSource.DataMember = "VWIDB_DOCTYPES_DE"
Me.VWIDB_DOCTYPES_DEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'TextEdit5
'
Me.TextEdit5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHEN", True))
Me.TextEdit5.Location = New System.Drawing.Point(586, 106)
Me.TextEdit5.Location = New System.Drawing.Point(619, 107)
Me.TextEdit5.MenuManager = Me.RibbonControl1
Me.TextEdit5.Name = "TextEdit5"
Me.TextEdit5.Properties.ReadOnly = True
Me.TextEdit5.Size = New System.Drawing.Size(273, 20)
Me.TextEdit5.Size = New System.Drawing.Size(314, 20)
Me.TextEdit5.StyleController = Me.LayoutControl1
Me.TextEdit5.TabIndex = 5
'
'TextEdit4
'
Me.TextEdit4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "CHANGED_WHO", True))
Me.TextEdit4.Location = New System.Drawing.Point(160, 106)
Me.TextEdit4.Location = New System.Drawing.Point(157, 107)
Me.TextEdit4.MenuManager = Me.RibbonControl1
Me.TextEdit4.Name = "TextEdit4"
Me.TextEdit4.Properties.ReadOnly = True
Me.TextEdit4.Size = New System.Drawing.Size(271, 20)
Me.TextEdit4.Size = New System.Drawing.Size(310, 20)
Me.TextEdit4.StyleController = Me.LayoutControl1
Me.TextEdit4.TabIndex = 10
'
'TextEdit3
'
Me.TextEdit3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHEN", True))
Me.TextEdit3.Location = New System.Drawing.Point(586, 76)
Me.TextEdit3.Location = New System.Drawing.Point(619, 77)
Me.TextEdit3.MenuManager = Me.RibbonControl1
Me.TextEdit3.Name = "TextEdit3"
Me.TextEdit3.Properties.ReadOnly = True
Me.TextEdit3.Size = New System.Drawing.Size(273, 20)
Me.TextEdit3.Size = New System.Drawing.Size(314, 20)
Me.TextEdit3.StyleController = Me.LayoutControl1
Me.TextEdit3.TabIndex = 9
'
'TextEdit2
'
Me.TextEdit2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True))
Me.TextEdit2.Location = New System.Drawing.Point(160, 76)
Me.TextEdit2.Location = New System.Drawing.Point(157, 77)
Me.TextEdit2.MenuManager = Me.RibbonControl1
Me.TextEdit2.Name = "TextEdit2"
Me.TextEdit2.Properties.ReadOnly = True
Me.TextEdit2.Size = New System.Drawing.Size(271, 20)
Me.TextEdit2.Size = New System.Drawing.Size(310, 20)
Me.TextEdit2.StyleController = Me.LayoutControl1
Me.TextEdit2.TabIndex = 8
'
@@ -235,9 +215,9 @@ Partial Class frmAdmin_DoctypeConfig
Me.CHANGED_ACTIONComboBox.DataSource = Me.TBIDB_CATALOGBindingSource
Me.CHANGED_ACTIONComboBox.DisplayMember = "CAT_STRING"
Me.CHANGED_ACTIONComboBox.FormattingEnabled = True
Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(160, 45)
Me.CHANGED_ACTIONComboBox.Location = New System.Drawing.Point(157, 46)
Me.CHANGED_ACTIONComboBox.Name = "CHANGED_ACTIONComboBox"
Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(699, 21)
Me.CHANGED_ACTIONComboBox.Size = New System.Drawing.Size(776, 21)
Me.CHANGED_ACTIONComboBox.TabIndex = 7
Me.CHANGED_ACTIONComboBox.ValueMember = "GUID"
'
@@ -249,13 +229,13 @@ Partial Class frmAdmin_DoctypeConfig
'TextEdit1
'
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "GUID", True))
Me.TextEdit1.Location = New System.Drawing.Point(160, 15)
Me.TextEdit1.Location = New System.Drawing.Point(157, 15)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White
Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True
Me.TextEdit1.Properties.ReadOnly = True
Me.TextEdit1.Size = New System.Drawing.Size(85, 20)
Me.TextEdit1.Size = New System.Drawing.Size(157, 20)
Me.TextEdit1.StyleController = Me.LayoutControl1
Me.TextEdit1.TabIndex = 4
'
@@ -263,9 +243,9 @@ Partial Class frmAdmin_DoctypeConfig
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem7})
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem4, Me.LayoutControlItem2, Me.LayoutControlItem5, Me.LayoutControlItem3, Me.LayoutControlItem6, Me.LayoutControlItem9})
Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(874, 342)
Me.Root.Size = New System.Drawing.Size(948, 416)
Me.Root.TextVisible = False
'
'LayoutControlItem1
@@ -274,70 +254,60 @@ Partial Class frmAdmin_DoctypeConfig
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem1.Size = New System.Drawing.Size(240, 30)
Me.LayoutControlItem1.Size = New System.Drawing.Size(309, 31)
Me.LayoutControlItem1.Text = "ID"
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(130, 13)
'
'LayoutControlItem4
'
Me.LayoutControlItem4.Control = Me.CHANGED_ACTIONComboBox
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 31)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem4.Size = New System.Drawing.Size(854, 31)
Me.LayoutControlItem4.Text = "Verhalten Datei geändert:"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem4.Size = New System.Drawing.Size(928, 31)
Me.LayoutControlItem4.Text = "Verhalten Datei geändert"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(130, 13)
'
'LayoutControlItem2
'
Me.LayoutControlItem2.Control = Me.TextEdit2
Me.LayoutControlItem2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "ADDED_WHO", True))
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 61)
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 62)
Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem2.Size = New System.Drawing.Size(426, 30)
Me.LayoutControlItem2.Size = New System.Drawing.Size(462, 30)
Me.LayoutControlItem2.Text = "Erstellt wer"
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(130, 13)
'
'LayoutControlItem5
'
Me.LayoutControlItem5.Control = Me.TextEdit4
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 91)
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 92)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem5.Size = New System.Drawing.Size(426, 231)
Me.LayoutControlItem5.Size = New System.Drawing.Size(462, 304)
Me.LayoutControlItem5.Text = "Geändert wer"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(130, 13)
'
'LayoutControlItem3
'
Me.LayoutControlItem3.Control = Me.TextEdit3
Me.LayoutControlItem3.Location = New System.Drawing.Point(426, 61)
Me.LayoutControlItem3.Location = New System.Drawing.Point(462, 62)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem3.Size = New System.Drawing.Size(428, 30)
Me.LayoutControlItem3.Size = New System.Drawing.Size(466, 30)
Me.LayoutControlItem3.Text = "Erstellt wann"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(130, 13)
'
'LayoutControlItem6
'
Me.LayoutControlItem6.Control = Me.TextEdit5
Me.LayoutControlItem6.Location = New System.Drawing.Point(426, 91)
Me.LayoutControlItem6.Location = New System.Drawing.Point(462, 92)
Me.LayoutControlItem6.Name = "LayoutControlItem6"
Me.LayoutControlItem6.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem6.Size = New System.Drawing.Size(428, 231)
Me.LayoutControlItem6.Size = New System.Drawing.Size(466, 304)
Me.LayoutControlItem6.Text = "Geändert wann"
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(133, 13)
'
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.LookUpEdit1
Me.LayoutControlItem7.Location = New System.Drawing.Point(240, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem7.Size = New System.Drawing.Size(614, 30)
Me.LayoutControlItem7.Text = "Dokumentart"
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(133, 13)
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(130, 13)
'
'TBIDB_DOCTYPE_HANDLINGTableAdapter
'
@@ -349,8 +319,11 @@ Partial Class frmAdmin_DoctypeConfig
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_DOCTYPE_HANDLINGTableAdapter = Me.TBIDB_DOCTYPE_HANDLINGTableAdapter
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
@@ -360,15 +333,41 @@ Partial Class frmAdmin_DoctypeConfig
'
Me.TBIDB_CATALOGTableAdapter.ClearBeforeFill = True
'
'VWIDB_DOCTYPES_DETableAdapter
'TBIDB_DOCTYPEBindingSource
'
Me.VWIDB_DOCTYPES_DETableAdapter.ClearBeforeFill = True
Me.TBIDB_DOCTYPEBindingSource.DataMember = "TBIDB_DOCTYPE"
Me.TBIDB_DOCTYPEBindingSource.DataSource = Me.DSIDB_Stammdaten
'
'TBIDB_DOCTYPETableAdapter
'
Me.TBIDB_DOCTYPETableAdapter.ClearBeforeFill = True
'
'DOCTYPEComboBox
'
Me.DOCTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBIDB_DOCTYPE_HANDLINGBindingSource, "DOCTYPE", True))
Me.DOCTYPEComboBox.DataSource = Me.TBIDB_DOCTYPEBindingSource
Me.DOCTYPEComboBox.DisplayMember = "TITLE"
Me.DOCTYPEComboBox.FormattingEnabled = True
Me.DOCTYPEComboBox.Location = New System.Drawing.Point(466, 15)
Me.DOCTYPEComboBox.Name = "DOCTYPEComboBox"
Me.DOCTYPEComboBox.Size = New System.Drawing.Size(467, 21)
Me.DOCTYPEComboBox.TabIndex = 12
'
'LayoutControlItem9
'
Me.LayoutControlItem9.Control = Me.DOCTYPEComboBox
Me.LayoutControlItem9.Location = New System.Drawing.Point(309, 0)
Me.LayoutControlItem9.Name = "LayoutControlItem9"
Me.LayoutControlItem9.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
Me.LayoutControlItem9.Size = New System.Drawing.Size(619, 31)
Me.LayoutControlItem9.Text = "Dokumentart"
Me.LayoutControlItem9.TextSize = New System.Drawing.Size(130, 13)
'
'frmAdmin_DoctypeConfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(874, 524)
Me.ClientSize = New System.Drawing.Size(948, 598)
Me.Controls.Add(Me.LayoutControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
@@ -380,10 +379,8 @@ Partial Class frmAdmin_DoctypeConfig
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControl1.ResumeLayout(False)
CType(Me.LookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_DOCTYPE_HANDLINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSIDB_Stammdaten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_DOCTYPES_DEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
@@ -397,7 +394,8 @@ Partial Class frmAdmin_DoctypeConfig
CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBIDB_DOCTYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -430,9 +428,9 @@ Partial Class frmAdmin_DoctypeConfig
Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents VWIDB_DOCTYPES_DEBindingSource As BindingSource
Friend WithEvents VWIDB_DOCTYPES_DETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPES_DETableAdapter
Friend WithEvents LookUpEdit1 As DevExpress.XtraEditors.LookUpEdit
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TBIDB_DOCTYPEBindingSource As BindingSource
Friend WithEvents TBIDB_DOCTYPETableAdapter As DSIDB_StammdatenTableAdapters.TBIDB_DOCTYPETableAdapter
Friend WithEvents DOCTYPEComboBox As ComboBox
Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem
End Class

9
GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.resx
View File

@@ -183,12 +183,15 @@
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="VWIDB_DOCTYPES_DEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="TBIDB_DOCTYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>233, 56</value>
</metadata>
<metadata name="TBIDB_CATALOGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>918, 17</value>
</metadata>
<metadata name="DSIDB_Stammdaten.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBIDB_DOCTYPE_HANDLINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>464, 17</value>
</metadata>
@@ -198,8 +201,8 @@
<metadata name="TBIDB_CATALOGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="VWIDB_DOCTYPES_DETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>485, 56</value>
<metadata name="TBIDB_DOCTYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>453, 56</value>
</metadata>
<data name="frmAdmin_DoctypeConfig.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

6
GUIs.ZooFlow/Administration/IDB/frmAdmin_DoctypeConfig.vb
View File

@@ -31,15 +31,17 @@
End Sub
Private Sub frmAdmin_DoctypeConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.TBIDB_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen.
'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPES_DE". Sie können sie bei Bedarf verschieben oder entfernen.
Try
TBIDB_CATALOGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBIDB_DOCTYPE_HANDLINGTableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
VWIDB_DOCTYPES_DETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBIDB_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.TBIDB_CATALOGTableAdapter.FillByDOCTYPE_CHANGED(Me.DSIDB_Stammdaten.TBIDB_CATALOG)
Me.TBIDB_DOCTYPE_HANDLINGTableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING, PrimaryKey)
Me.VWIDB_DOCTYPES_DETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPES_DE)
Me.TBIDB_DOCTYPETableAdapter.Fill(Me.DSIDB_Stammdaten.TBIDB_DOCTYPE)
If IsInsert Then
Me.DSIDB_Stammdaten.TBIDB_DOCTYPE_HANDLING.ADDED_WHOColumn.DefaultValue = My.Application.User.UserName
TBIDB_DOCTYPE_HANDLINGBindingSource.AddNew()

7
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -94,6 +94,13 @@ Public Class frmAdmin_Start
If Handle_LoadPage(e.Node.Tag.ToString) Then
RibbonPageGroup1.Enabled = True
CurrentPage = e.Node.Tag.ToString
btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Select Case CurrentPage
Case PAGE_IDB_DOCTYPE
btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Select
End If
Catch ex As Exception