diff --git a/GUIs.Monitor/Config.vb b/GUIs.Monitor/Config.vb index aa127cc9..da4b3c1f 100644 --- a/GUIs.Monitor/Config.vb +++ b/GUIs.Monitor/Config.vb @@ -3,4 +3,6 @@ Public Class Config Public Property ConnectionString As String = String.Empty + + Public Property SearchKeySQL As String = "SELECT ATTR_ID, ATTR_TITLE, TYPE_NAME FROM IDB_TEST.dbo.VWIDB_BE_ATTRIBUTE WHERE LANG_CODE = 'de-DE'" End Class diff --git a/GUIs.Monitor/Monitor.vbproj b/GUIs.Monitor/Monitor.vbproj index c37dc41b..15a22406 100644 --- a/GUIs.Monitor/Monitor.vbproj +++ b/GUIs.Monitor/Monitor.vbproj @@ -45,7 +45,10 @@ + + + @@ -53,7 +56,18 @@ + + + + False + ..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll + + + False + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll + + ..\packages\NLog.4.7.5\lib\net45\NLog.dll @@ -86,10 +100,10 @@ - - frmStart.vb + + frmMonitor.vb - + Form @@ -98,8 +112,8 @@ True - - frmStart.vb + + frmMonitor.vb @@ -144,6 +158,10 @@ {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} Database + + {d3c8cfed-d6f6-43a8-9bdf-454145d0352f} + Language + {903b2d7d-3b80-4be9-8713-7447b704e1b0} Logging diff --git a/GUIs.Monitor/My Project/Application.Designer.vb b/GUIs.Monitor/My Project/Application.Designer.vb index f5e0494e..a6150f2a 100644 --- a/GUIs.Monitor/My Project/Application.Designer.vb +++ b/GUIs.Monitor/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.DigitalData.GUIs.Monitor.frmStart + Me.MainForm = Global.DigitalData.GUIs.Monitor.frmMonitor End Sub End Class End Namespace diff --git a/GUIs.Monitor/My Project/Application.myapp b/GUIs.Monitor/My Project/Application.myapp index a1da81d5..fb6ccec4 100644 --- a/GUIs.Monitor/My Project/Application.myapp +++ b/GUIs.Monitor/My Project/Application.myapp @@ -1,7 +1,7 @@  true - frmStart + frmMonitor false 0 true diff --git a/GUIs.Monitor/My Project/licenses.licx b/GUIs.Monitor/My Project/licenses.licx index 7e6b1ada..0dbb2d55 100644 --- a/GUIs.Monitor/My Project/licenses.licx +++ b/GUIs.Monitor/My Project/licenses.licx @@ -1,7 +1,9 @@ -DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/GUIs.Monitor/frmMonitor.Designer.vb b/GUIs.Monitor/frmMonitor.Designer.vb new file mode 100644 index 00000000..c4902e72 --- /dev/null +++ b/GUIs.Monitor/frmMonitor.Designer.vb @@ -0,0 +1,649 @@ +Imports DigitalData.GUIs.Common.Base + + +Partial Class frmMonitor + 'Inherits DevExpress.XtraBars.Ribbon.RibbonForm + Inherits BaseRibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.cmbSearchKeys = New DevExpress.XtraEditors.ComboBoxEdit() + Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.DateEdit1 = New DevExpress.XtraEditors.DateEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutItemSearchValue_Text = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutItemSearchValue_Date = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageFile1 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageFile2 = New DevExpress.XtraTab.XtraTabPage() + Me.DocumentViewer2 = New DigitalData.Controls.DocumentViewer.DocumentViewer() + Me.XtraTabPageHtml1 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl1 = New DevExpress.XtraRichEdit.RichEditControl() + Me.XtraTabPageHtml2 = New DevExpress.XtraTab.XtraTabPage() + Me.RichEditControl2 = New DevExpress.XtraRichEdit.RichEditControl() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.TreeListResults = New DevExpress.XtraTreeList.TreeList() + Me.SvgImageCollection1 = New DevExpress.Utils.SvgImageCollection(Me.components) + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.SplitContainerControl3 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageSQL1 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL2 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl3 = New DevExpress.XtraGrid.GridControl() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL3 = New DevExpress.XtraTab.XtraTabPage() + Me.GridControl4 = New DevExpress.XtraGrid.GridControl() + Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabPageSQL4 = New DevExpress.XtraTab.XtraTabPage() + Me.SplitContainerControl2 = New DevExpress.XtraEditors.SplitContainerControl() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageFile1.SuspendLayout() + Me.XtraTabPageFile2.SuspendLayout() + Me.XtraTabPageHtml1.SuspendLayout() + Me.XtraTabPageHtml2.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl3.SuspendLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl3.SuspendLayout() + Me.XtraTabPageSQL1.SuspendLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL2.SuspendLayout() + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL3.SuspendLayout() + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPageSQL4.SuspendLayout() + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl2.SuspendLayout() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 2 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(1379, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'buttonSearch + ' + Me.buttonSearch.Caption = "Suchen" + Me.buttonSearch.Id = 1 + Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted + Me.buttonSearch.Name = "buttonSearch" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Daten" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 747) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(1379, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.TextEdit1) + Me.LayoutControl1.Controls.Add(Me.cmbSearchKeys) + Me.LayoutControl1.Controls.Add(Me.TextEdit2) + Me.LayoutControl1.Controls.Add(Me.DateEdit1) + Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + Me.LayoutControl1.Size = New System.Drawing.Size(235, 564) + Me.LayoutControl1.TabIndex = 0 + Me.LayoutControl1.Text = "LayoutControl1" + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(15, 77) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(205, 20) + Me.TextEdit1.StyleController = Me.LayoutControl1 + Me.TextEdit1.TabIndex = 4 + ' + 'cmbSearchKeys + ' + Me.cmbSearchKeys.Location = New System.Drawing.Point(15, 31) + Me.cmbSearchKeys.MenuManager = Me.RibbonControl1 + Me.cmbSearchKeys.Name = "cmbSearchKeys" + Me.cmbSearchKeys.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbSearchKeys.Size = New System.Drawing.Size(205, 20) + Me.cmbSearchKeys.StyleController = Me.LayoutControl1 + Me.cmbSearchKeys.TabIndex = 5 + ' + 'TextEdit2 + ' + Me.TextEdit2.Location = New System.Drawing.Point(15, 169) + Me.TextEdit2.MenuManager = Me.RibbonControl1 + Me.TextEdit2.Name = "TextEdit2" + Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.TextEdit2.Size = New System.Drawing.Size(205, 20) + Me.TextEdit2.StyleController = Me.LayoutControl1 + Me.TextEdit2.TabIndex = 6 + ' + 'DateEdit1 + ' + Me.DateEdit1.EditValue = Nothing + Me.DateEdit1.Location = New System.Drawing.Point(15, 123) + Me.DateEdit1.MenuManager = Me.RibbonControl1 + Me.DateEdit1.Name = "DateEdit1" + Me.DateEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Properties.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.DateEdit1.Size = New System.Drawing.Size(205, 20) + Me.DateEdit1.StyleController = Me.LayoutControl1 + Me.DateEdit1.TabIndex = 7 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutItemSearchValue_Text, Me.LayoutControlItem2, Me.LayoutItemSearchValue_Date, Me.LayoutControlItem3}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(235, 564) + Me.Root.TextVisible = False + ' + 'LayoutItemSearchValue_Text + ' + Me.LayoutItemSearchValue_Text.Control = Me.TextEdit1 + Me.LayoutItemSearchValue_Text.Location = New System.Drawing.Point(0, 46) + Me.LayoutItemSearchValue_Text.Name = "LayoutItemSearchValue_Text" + Me.LayoutItemSearchValue_Text.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Text.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Text.Text = "Suchwert" + Me.LayoutItemSearchValue_Text.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Text.TextSize = New System.Drawing.Size(58, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.cmbSearchKeys + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem2.Size = New System.Drawing.Size(215, 46) + Me.LayoutControlItem2.Text = "Attribut" + Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(58, 13) + ' + 'LayoutItemSearchValue_Date + ' + Me.LayoutItemSearchValue_Date.Control = Me.DateEdit1 + Me.LayoutItemSearchValue_Date.Location = New System.Drawing.Point(0, 92) + Me.LayoutItemSearchValue_Date.Name = "LayoutItemSearchValue_Date" + Me.LayoutItemSearchValue_Date.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutItemSearchValue_Date.Size = New System.Drawing.Size(215, 46) + Me.LayoutItemSearchValue_Date.Text = "Suchwert" + Me.LayoutItemSearchValue_Date.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutItemSearchValue_Date.TextSize = New System.Drawing.Size(58, 13) + Me.LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.TextEdit2 + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 138) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) + Me.LayoutControlItem3.Size = New System.Drawing.Size(215, 406) + Me.LayoutControlItem3.Text = "Auswertung" + Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(58, 13) + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageFile1 + Me.XtraTabControl1.Size = New System.Drawing.Size(409, 564) + Me.XtraTabControl1.TabIndex = 1 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageFile1, Me.XtraTabPageFile2, Me.XtraTabPageHtml1, Me.XtraTabPageHtml2}) + ' + 'XtraTabPageFile1 + ' + Me.XtraTabPageFile1.Controls.Add(Me.DocumentViewer1) + Me.XtraTabPageFile1.Name = "XtraTabPageFile1" + Me.XtraTabPageFile1.Size = New System.Drawing.Size(407, 539) + Me.XtraTabPageFile1.Text = "File 1" + ' + 'DocumentViewer1 + ' + Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer1.FileLoaded = False + Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer1.Name = "DocumentViewer1" + Me.DocumentViewer1.Size = New System.Drawing.Size(407, 539) + Me.DocumentViewer1.TabIndex = 0 + ' + 'XtraTabPageFile2 + ' + Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2) + Me.XtraTabPageFile2.Name = "XtraTabPageFile2" + Me.XtraTabPageFile2.Size = New System.Drawing.Size(407, 539) + Me.XtraTabPageFile2.Text = "File 2" + ' + 'DocumentViewer2 + ' + Me.DocumentViewer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.DocumentViewer2.FileLoaded = False + Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0) + Me.DocumentViewer2.Name = "DocumentViewer2" + Me.DocumentViewer2.Size = New System.Drawing.Size(407, 539) + Me.DocumentViewer2.TabIndex = 1 + ' + 'XtraTabPageHtml1 + ' + Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1) + Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1" + Me.XtraTabPageHtml1.Size = New System.Drawing.Size(407, 539) + Me.XtraTabPageHtml1.Text = "HTML 1" + ' + 'RichEditControl1 + ' + Me.RichEditControl1.ActiveViewType = DevExpress.XtraRichEdit.RichEditViewType.Simple + Me.RichEditControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl1.LayoutUnit = DevExpress.XtraRichEdit.DocumentLayoutUnit.Pixel + Me.RichEditControl1.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl1.MenuManager = Me.RibbonControl1 + Me.RichEditControl1.Name = "RichEditControl1" + Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden + Me.RichEditControl1.Size = New System.Drawing.Size(407, 539) + Me.RichEditControl1.TabIndex = 0 + Me.RichEditControl1.Text = "RichEditControl1" + ' + 'XtraTabPageHtml2 + ' + Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2) + Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2" + Me.XtraTabPageHtml2.Size = New System.Drawing.Size(407, 539) + Me.XtraTabPageHtml2.Text = "HTML 2" + ' + 'RichEditControl2 + ' + Me.RichEditControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichEditControl2.Location = New System.Drawing.Point(0, 0) + Me.RichEditControl2.MenuManager = Me.RibbonControl1 + Me.RichEditControl2.Name = "RichEditControl2" + Me.RichEditControl2.Size = New System.Drawing.Size(407, 539) + Me.RichEditControl2.TabIndex = 1 + Me.RichEditControl2.Text = "RichEditControl2" + ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(0, 0) + Me.GridControl1.TabIndex = 0 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' + 'TreeListResults + ' + Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill + Me.TreeListResults.Location = New System.Drawing.Point(0, 0) + Me.TreeListResults.MenuManager = Me.RibbonControl1 + Me.TreeListResults.Name = "TreeListResults" + Me.TreeListResults.Size = New System.Drawing.Size(713, 554) + Me.TreeListResults.StateImageList = Me.SvgImageCollection1 + Me.TreeListResults.TabIndex = 4 + ' + 'SvgImageCollection1 + ' + Me.SvgImageCollection1.Add("default", "image://svgimages/outlook inspired/about.svg") + Me.SvgImageCollection1.Add("sql", "image://svgimages/icon builder/actions_database.svg") + Me.SvgImageCollection1.Add("file", "image://svgimages/pdf viewer/documentpdf.svg") + Me.SvgImageCollection1.Add("mail", "image://svgimages/icon builder/actions_envelopeclose.svg") + Me.SvgImageCollection1.Add("success", "image://svgimages/icon builder/actions_checkcircled.svg") + Me.SvgImageCollection1.Add("failure", "image://svgimages/icon builder/actions_deletecircled.svg") + Me.SvgImageCollection1.Add("warning", "image://svgimages/business objects/bo_attention.svg") + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1 + Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl1) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl3) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(958, 564) + Me.SplitContainerControl1.SplitterPosition = 235 + Me.SplitContainerControl1.TabIndex = 9 + ' + 'SplitContainerControl3 + ' + Me.SplitContainerControl3.Collapsed = True + Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl3.Horizontal = False + Me.SplitContainerControl3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl3.Name = "SplitContainerControl3" + Me.SplitContainerControl3.Panel1.Controls.Add(Me.TreeListResults) + Me.SplitContainerControl3.Panel1.Text = "Panel1" + Me.SplitContainerControl3.Panel2.Controls.Add(Me.XtraTabControl3) + Me.SplitContainerControl3.Panel2.Text = "Panel2" + Me.SplitContainerControl3.Size = New System.Drawing.Size(713, 564) + Me.SplitContainerControl3.SplitterPosition = 181 + Me.SplitContainerControl3.TabIndex = 5 + ' + 'XtraTabControl3 + ' + Me.XtraTabControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPageSQL1 + Me.XtraTabControl3.Size = New System.Drawing.Size(0, 0) + Me.XtraTabControl3.TabIndex = 0 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSQL1, Me.XtraTabPageSQL2, Me.XtraTabPageSQL3, Me.XtraTabPageSQL4}) + ' + 'XtraTabPageSQL1 + ' + Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2) + Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1" + Me.XtraTabPageSQL1.Size = New System.Drawing.Size(0, 0) + Me.XtraTabPageSQL1.Text = "SQL 1" + ' + 'GridControl2 + ' + 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(0, 0) + Me.GridControl2.TabIndex = 1 + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + ' + 'XtraTabPageSQL2 + ' + Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3) + Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2" + Me.XtraTabPageSQL2.Size = New System.Drawing.Size(0, 0) + Me.XtraTabPageSQL2.Text = "SQL 2" + ' + 'GridControl3 + ' + Me.GridControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl3.Location = New System.Drawing.Point(0, 0) + Me.GridControl3.MainView = Me.GridView3 + Me.GridControl3.MenuManager = Me.RibbonControl1 + Me.GridControl3.Name = "GridControl3" + Me.GridControl3.Size = New System.Drawing.Size(0, 0) + Me.GridControl3.TabIndex = 1 + Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) + ' + 'GridView3 + ' + Me.GridView3.GridControl = Me.GridControl3 + Me.GridView3.Name = "GridView3" + ' + 'XtraTabPageSQL3 + ' + Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4) + Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3" + Me.XtraTabPageSQL3.Size = New System.Drawing.Size(0, 0) + Me.XtraTabPageSQL3.Text = "SQL 3" + ' + 'GridControl4 + ' + Me.GridControl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl4.Location = New System.Drawing.Point(0, 0) + Me.GridControl4.MainView = Me.GridView4 + Me.GridControl4.MenuManager = Me.RibbonControl1 + Me.GridControl4.Name = "GridControl4" + Me.GridControl4.Size = New System.Drawing.Size(0, 0) + Me.GridControl4.TabIndex = 1 + Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) + ' + 'GridView4 + ' + Me.GridView4.GridControl = Me.GridControl4 + Me.GridView4.Name = "GridView4" + ' + 'XtraTabPageSQL4 + ' + Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1) + Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4" + Me.XtraTabPageSQL4.Size = New System.Drawing.Size(0, 0) + Me.XtraTabPageSQL4.Text = "SQL 4" + ' + 'SplitContainerControl2 + ' + Me.SplitContainerControl2.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2 + Me.SplitContainerControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControl2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControl2.Name = "SplitContainerControl2" + Me.SplitContainerControl2.Panel1.Controls.Add(Me.SplitContainerControl1) + Me.SplitContainerControl2.Panel1.Text = "Panel1" + Me.SplitContainerControl2.Panel2.Controls.Add(Me.XtraTabControl1) + Me.SplitContainerControl2.Panel2.Text = "Panel2" + Me.SplitContainerControl2.Size = New System.Drawing.Size(1377, 564) + Me.SplitContainerControl2.SplitterPosition = 958 + Me.SplitContainerControl2.TabIndex = 10 + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl2.Location = New System.Drawing.Point(0, 158) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(1379, 589) + Me.XtraTabControl2.TabIndex = 11 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage4}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.SplitContainerControl2) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1377, 564) + Me.XtraTabPage3.Text = "XtraTabPage3" + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564) + Me.XtraTabPage4.Text = "XtraTabPage4" + ' + 'frmMonitor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1379, 771) + Me.Controls.Add(Me.XtraTabControl2) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line + Me.Name = "frmMonitor" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "Monitor" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbSearchKeys.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DateEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Text, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutItemSearchValue_Date, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageFile1.ResumeLayout(False) + Me.XtraTabPageFile2.ResumeLayout(False) + Me.XtraTabPageHtml1.ResumeLayout(False) + Me.XtraTabPageHtml2.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TreeListResults, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SvgImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.SplitContainerControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl3.ResumeLayout(False) + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl3.ResumeLayout(False) + Me.XtraTabPageSQL1.ResumeLayout(False) + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL2.ResumeLayout(False) + CType(Me.GridControl3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL3.ResumeLayout(False) + CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPageSQL4.ResumeLayout(False) + CType(Me.SplitContainerControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl2.ResumeLayout(False) + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit + Friend WithEvents cmbSearchKeys As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutItemSearchValue_Text As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents buttonSearch As DevExpress.XtraBars.BarButtonItem + Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents TreeListResults As DevExpress.XtraTreeList.TreeList + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageFile1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageFile2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPageHtml2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents SplitContainerControl3 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageSQL1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl3 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GridControl4 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView4 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabPageSQL4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents SplitContainerControl2 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DocumentViewer1 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents DocumentViewer2 As Controls.DocumentViewer.DocumentViewer + Friend WithEvents RichEditControl1 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents RichEditControl2 As DevExpress.XtraRichEdit.RichEditControl + Friend WithEvents DateEdit1 As DevExpress.XtraEditors.DateEdit + Friend WithEvents LayoutItemSearchValue_Date As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection +End Class diff --git a/GUIs.Monitor/frmStart.resx b/GUIs.Monitor/frmMonitor.resx similarity index 97% rename from GUIs.Monitor/frmStart.resx rename to GUIs.Monitor/frmMonitor.resx index d361575c..f722219e 100644 --- a/GUIs.Monitor/frmStart.resx +++ b/GUIs.Monitor/frmMonitor.resx @@ -117,7 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 17, 17 \ No newline at end of file diff --git a/GUIs.Monitor/frmMonitor.vb b/GUIs.Monitor/frmMonitor.vb new file mode 100644 index 00000000..4307caba --- /dev/null +++ b/GUIs.Monitor/frmMonitor.vb @@ -0,0 +1,410 @@ +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DevExpress.XtraTreeList.Nodes +Imports DigitalData.Controls.SQLConfig +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Config +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Language.Utils +Imports DevExpress.XtraTab +Imports DigitalData.Controls.DocumentViewer +Imports DevExpress.XtraEditors +Imports DevExpress.XtraRichEdit + +Public Class frmMonitor + Public Property LogConfig As LogConfig + Public Property ConfigManager As ConfigManager(Of Config) + Public Property Database As MSSQLServer + + Private ReadOnly SearchKeys As New List(Of SearchKey) + + Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"} + Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"} + Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"} + Private ReadOnly DataColumns As List(Of String) = SQLColumns. + Concat(DocViewColumns). + Concat(HtmlViewColumns). + ToList + + Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3"} + + Private SQLResultGrids As List(Of GridControl) + Private SQLResultTabs As List(Of XtraTabPage) + + Private FileResultViewers As List(Of DocumentViewer) + Private FileResultTabs As List(Of XtraTabPage) + + Private HtmlResultViewers As List(Of RichEditControl) + Private HtmlResultTabs As List(Of XtraTabPage) + + Private Enum NodeImage + [Default] = 0 + SQL = 1 + File = 2 + Mail = 3 + Success = 4 + Failure = 5 + Warning = 6 + End Enum + + Private GridBuilder As GridBuilder + + Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") + ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath) + Init(LogConfig) + + If ConfigManager.Config.ConnectionString = String.Empty Then + Dim oSQLConfig As New frmSQLConfig(LogConfig) + If oSQLConfig.ShowDialog() = DialogResult.OK Then + ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString + ConfigManager.Save() + Else + ShowErrorMessage("No Database configured. Application will close!") + Application.Exit() + + End If + End If + + Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString) + GridBuilder = New GridBuilder(New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}) + GridBuilder. + WithDefaults(). + WithDefaults(TreeListResults). + WithReadOnlyOptions(). + WithReadOnlyOptions(TreeListResults) + + SQLResultGrids = New List(Of GridControl) From {GridControl1, GridControl2, GridControl3, GridControl4} + SQLResultTabs = New List(Of XtraTabPage) From {XtraTabPageSQL1, XtraTabPageSQL2, XtraTabPageSQL3, XtraTabPageSQL4} + + FileResultViewers = New List(Of DocumentViewer) From {DocumentViewer1, DocumentViewer2} + FileResultTabs = New List(Of XtraTabPage) From {XtraTabPageFile1, XtraTabPageFile2} + + HtmlResultViewers = New List(Of RichEditControl) From {RichEditControl1, RichEditControl2} + HtmlResultTabs = New List(Of XtraTabPage) From {XtraTabPageHtml1, XtraTabPageHtml2} + + LoadSearchKeys() + + Dim oLicense = LoadGDPicture() + + For Each oViewer As DocumentViewer In FileResultViewers + oViewer.Init(LogConfig, oLicense) + Next + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Function LoadGDPicture() As String + Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'" + Return Database.GetScalarValue(oSQL) + End Function + + Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick + InitTreeList() + LoadData() + End Sub + + Private Function LoadData() As Boolean + Try + Dim oSQL As String = "EXEC PRDD_MONITORING_GET_TREEVIEW_RESULT 'TYPE1','sdsdd',2" + Dim oTable As DataTable = Database.GetDatatable(oSQL) + + TreeListResults.DataSource = oTable + TreeListResults.PopulateColumns() + + For Each oColumn In TreeListResults.Columns + oColumn.Visible = DisplayColumns.Contains(oColumn.FieldName) + Next + + For Each oNode As TreeListNode In TreeListResults.Nodes + ExpandNodes(oNode) + Next + + Return True + Catch ex As Exception + ShowErrorMessage(ex) + Return False + End Try + End Function + + Private Sub LoadSearchKeys() + Try + Dim oSQL = ConfigManager.Config.SearchKeySQL + Dim oTable = Database.GetDatatable(oSQL) + + For Each oRow As DataRow In oTable.Rows + SearchKeys.Add(New SearchKey With { + .Id = CInt(oRow.Item(0)), + .Title = oRow.Item(1).ToString, + .TypeName = oRow.Item(2).ToString + }) + Next + + cmbSearchKeys.Properties.Items.Clear() + cmbSearchKeys.Properties.Items.AddRange(SearchKeys) + Catch ex As Exception + ShowErrorMessage(ex) + End Try + End Sub + + Private Sub InitTreeList() + TreeListResults.KeyFieldName = "GUID" + TreeListResults.ParentFieldName = "PARENT_ID" + End Sub + + Private Sub cmbSearchKeys_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbSearchKeys.SelectedValueChanged + Dim oItem As SearchKey = CType(cmbSearchKeys.SelectedItem, SearchKey) + + Select Case oItem.TypeName + Case "VARCHAR" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + + Case "DATE" + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + + Case Else + LayoutItemSearchValue_Date.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never + LayoutItemSearchValue_Text.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always + + End Select + End Sub + + Private Sub TreeListResults_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeListResults.FocusedNodeChanged + If e.Node Is Nothing Then + Exit Sub + End If + + Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + + Dim oSQLCommands = oValues. + Where(Function(v) v.Key.StartsWith("SELECT")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oFilePaths = oValues. + Where(Function(v) v.Key.StartsWith("DOCVIEW")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oHtmlDocuments = oValues. + Where(Function(v) v.Key.StartsWith("HTML")). + Where(Function(v) v.Value IsNot Nothing). + ToDictionary(Function(v) v.Key, Function(v) v.Value) + + Dim oAllTabs = SQLResultTabs. + Concat(FileResultTabs). + Concat(HtmlResultTabs) + For Each oTabPage In oAllTabs + oTabPage.PageVisible = False + Next + + SplitContainerControl3.Collapsed = oSQLCommands.Count = 0 + SplitContainerControl2.Collapsed = (oFilePaths.Count + oHtmlDocuments.Count) = 0 + + For Each oSQLCommand As KeyValuePair(Of String, String) In oSQLCommands + Try + Dim oTable As DataTable = Database.GetDatatable(oSQLCommand.Value) + + If oTable Is Nothing Then + Continue For + End If + + Dim oGridIndex = Integer.Parse(oSQLCommand.Key.Last()) - 1 + Dim oGridControl As GridControl = SQLResultGrids.Item(oGridIndex) + + FillResultGrid(oGridControl, oTable) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oFilePaths + Try + Dim oPath = oFile.Value + + If oPath Is Nothing Then + Continue For + End If + + If IO.File.Exists(oPath) Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As DocumentViewer = FileResultViewers.Item(oViewerIndex) + + FillResultViewer(oViewer, oPath) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + + For Each oFile As KeyValuePair(Of String, String) In oHtmlDocuments + Try + Dim oHtml = oFile.Value + + If oHtml Is Nothing Then + Continue For + End If + + Dim oViewerIndex = Integer.Parse(oFile.Key.Last()) - 1 + Dim oViewer As RichEditControl = HtmlResultViewers.Item(oViewerIndex) + + FillResultHtmlViewer(oViewer, oHtml) + Catch ex As Exception + Logger.Error(ex) + Continue For + End Try + Next + End Sub + + Private Sub ExpandNodes(RootNode As TreeListNode) + For Each oNode As TreeListNode In RootNode.Nodes + ExpandNodes(oNode) + + Dim oColumn = TreeListResults.Columns.Item("COLOR") + Dim oColorString = NotNull(oNode.GetValue(oColumn), Nothing) + + If oColorString IsNot Nothing AndAlso oColorString = "Red" Then + oNode.Expand() + ExpandParentNode(oNode) + End If + Next + End Sub + + Private Sub ExpandParentNode(ChildNode As TreeListNode) + If ChildNode.ParentNode IsNot Nothing Then + ChildNode.ParentNode.Expand() + ExpandParentNode(ChildNode.ParentNode) + End If + End Sub + + Private Sub FillResultHtmlViewer(RichEditControl As RichEditControl, Html As String) + RichEditControl.HtmlText = Html + + Dim oTabPage = DirectCast(RichEditControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultViewer(DocumentViewer As DocumentViewer, Path As String) + DocumentViewer.LoadFile(Path) + + Dim oTabPage = DirectCast(DocumentViewer.Parent, XtraTabPage) + oTabPage.PageVisible = True + XtraTabControl1.SelectedTabPage = oTabPage + End Sub + + Private Sub FillResultGrid(GridControl As GridControl, Table As DataTable) + GridControl.DataSource = Table + + Dim oTabPage = DirectCast(GridControl.Parent, XtraTabPage) + oTabPage.PageVisible = True + XtraTabControl3.SelectedTabPage = oTabPage + End Sub + + Private Function GetValuesFromNode(Node As TreeListNode, ColumnNames As List(Of String)) As Dictionary(Of String, String) + Dim oValues As New Dictionary(Of String, String) + + For Each oColumnName In ColumnNames + Dim oValue = MaybeGetValueForColumn(Node, oColumnName) + oValues.Add(oColumnName, oValue) + Next + + Return oValues + End Function + + Private Function MaybeGetValueForColumn(Node As TreeListNode, FieldName As String) As String + Dim oColumn = TreeListResults.Columns.Item(FieldName) + + If oColumn Is Nothing Then + Return Nothing + End If + + Dim oValue = Node.GetValue(oColumn).ToString + + If oValue Is String.Empty Then + Return Nothing + Else + Return oValue + End If + End Function + + Private Sub TreeListResults_CustomDrawNodeCell(sender As Object, e As DevExpress.XtraTreeList.CustomDrawNodeCellEventArgs) Handles TreeListResults.CustomDrawNodeCell + Dim oColumn = TreeListResults.Columns.Item("COLOR") + Dim oColorString = NotNull(e.Node.GetValue(oColumn), Nothing) + + If oColorString Is Nothing Then + Exit Sub + End If + + Dim oColor As Color = Nothing + + Select Case oColorString.ToString + Case "Green" + oColor = Color.LightGreen + Case "Red" + oColor = Color.LightCoral + End Select + + e.Appearance.BackColor = oColor + e.Appearance.Options.UseBackColor = True + e.Handled = False + End Sub + + Private Sub TreeListResults_GetStateImage(sender As Object, e As DevExpress.XtraTreeList.GetStateImageEventArgs) Handles TreeListResults.GetStateImage + Dim oValues As Dictionary(Of String, String) = GetValuesFromNode(e.Node, DataColumns) + Dim oSQLCommands = oValues. + Where(Function(v) v.Key.StartsWith("SELECT")). + Where(Function(v) v.Value IsNot Nothing). + Count() + + Dim oFilePaths = oValues. + Where(Function(v) v.Key.StartsWith("DOCVIEW")). + Where(Function(v) v.Value IsNot Nothing). + Count() + + Dim oHtmlDocuments = oValues. + Where(Function(v) v.Key.StartsWith("HTML")). + Where(Function(v) v.Value IsNot Nothing). + Count() + + Dim oColumn = TreeListResults.Columns.Item("COLOR") + Dim oColorString = NotNull(e.Node.GetValue(oColumn), Nothing) + + If oSQLCommands > 0 Then + e.NodeImageIndex = NodeImage.SQL + ElseIf oFilePaths > 0 Then + e.NodeImageIndex = NodeImage.File + ElseIf oHtmlDocuments > 0 Then + e.NodeImageIndex = NodeImage.Mail + Else + If oColorString Is Nothing Then + e.NodeImageIndex = NodeImage.Default + ElseIf oColorString = "Red" Then + e.NodeImageIndex = NodeImage.Failure + ElseIf oColorString = "Green" Then + e.NodeImageIndex = NodeImage.Success + ElseIf oColorString = "Yellow" Then + e.NodeImageIndex = NodeImage.Warning + End If + End If + End Sub +End Class + +Friend Class SearchKey + Public Id As Integer + Public Title As String + Public TypeName As String + + Public Overrides Function ToString() As String + Return Title + End Function +End Class diff --git a/GUIs.Monitor/frmStart.Designer.vb b/GUIs.Monitor/frmStart.Designer.vb deleted file mode 100644 index f48105bd..00000000 --- a/GUIs.Monitor/frmStart.Designer.vb +++ /dev/null @@ -1,365 +0,0 @@ -Imports DigitalData.GUIs.Common.Base - - -Partial Class frmStart - 'Inherits DevExpress.XtraBars.Ribbon.RibbonForm - Inherits BaseRibbonForm - - 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. - 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. - 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ - Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() - Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem() - Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() - Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() - Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components) - Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel() - Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer() - Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() - Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() - Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() - Me.TextEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() - Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() - Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() - Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() - Me.DockPanel2 = New DevExpress.XtraBars.Docking.DockPanel() - Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer() - Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() - Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() - Me.TreeListResults = New DevExpress.XtraTreeList.TreeList() - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.DockPanel1.SuspendLayout() - Me.DockPanel1_Container.SuspendLayout() - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.LayoutControl1.SuspendLayout() - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.DockPanel2.SuspendLayout() - Me.DockPanel2_Container.SuspendLayout() - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.XtraTabControl1.SuspendLayout() - Me.XtraTabPage1.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TreeListResults, 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.buttonSearch}) - Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 2 - Me.RibbonControl1.Name = "RibbonControl1" - Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.Size = New System.Drawing.Size(1085, 159) - Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 - ' - 'buttonSearch - ' - Me.buttonSearch.Caption = "Suchen" - Me.buttonSearch.Id = 1 - Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted - Me.buttonSearch.Name = "buttonSearch" - ' - 'RibbonPage1 - ' - Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) - Me.RibbonPage1.Name = "RibbonPage1" - Me.RibbonPage1.Text = "RibbonPage1" - ' - 'RibbonPageGroup1 - ' - Me.RibbonPageGroup1.ItemLinks.Add(Me.buttonSearch) - Me.RibbonPageGroup1.Name = "RibbonPageGroup1" - Me.RibbonPageGroup1.Text = "RibbonPageGroup1" - ' - 'RibbonStatusBar1 - ' - Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 654) - Me.RibbonStatusBar1.Name = "RibbonStatusBar1" - Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 - Me.RibbonStatusBar1.Size = New System.Drawing.Size(1085, 22) - ' - 'RibbonPage2 - ' - Me.RibbonPage2.Name = "RibbonPage2" - Me.RibbonPage2.Text = "RibbonPage2" - ' - 'DockManager1 - ' - Me.DockManager1.Form = Me - Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.DockPanel1, Me.DockPanel2}) - Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"}) - ' - 'DockPanel1 - ' - Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) - Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left - Me.DockPanel1.ID = New System.Guid("52706dba-4c71-4145-b8a3-5f5423d32fce") - Me.DockPanel1.Location = New System.Drawing.Point(0, 159) - Me.DockPanel1.Name = "DockPanel1" - Me.DockPanel1.Options.ShowCloseButton = False - Me.DockPanel1.Options.ShowMaximizeButton = False - Me.DockPanel1.OriginalSize = New System.Drawing.Size(200, 200) - Me.DockPanel1.Size = New System.Drawing.Size(200, 495) - Me.DockPanel1.Text = "Suche" - ' - 'DockPanel1_Container - ' - Me.DockPanel1_Container.Controls.Add(Me.LayoutControl1) - Me.DockPanel1_Container.Location = New System.Drawing.Point(3, 46) - Me.DockPanel1_Container.Name = "DockPanel1_Container" - Me.DockPanel1_Container.Size = New System.Drawing.Size(193, 446) - Me.DockPanel1_Container.TabIndex = 0 - ' - 'LayoutControl1 - ' - Me.LayoutControl1.Controls.Add(Me.TextEdit1) - Me.LayoutControl1.Controls.Add(Me.ComboBoxEdit1) - Me.LayoutControl1.Controls.Add(Me.TextEdit2) - Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) - Me.LayoutControl1.Name = "LayoutControl1" - Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(193, 446) - Me.LayoutControl1.TabIndex = 0 - Me.LayoutControl1.Text = "LayoutControl1" - ' - 'TextEdit1 - ' - Me.TextEdit1.Location = New System.Drawing.Point(15, 123) - Me.TextEdit1.MenuManager = Me.RibbonControl1 - Me.TextEdit1.Name = "TextEdit1" - Me.TextEdit1.Size = New System.Drawing.Size(163, 20) - Me.TextEdit1.StyleController = Me.LayoutControl1 - Me.TextEdit1.TabIndex = 4 - ' - 'ComboBoxEdit1 - ' - Me.ComboBoxEdit1.Location = New System.Drawing.Point(15, 31) - Me.ComboBoxEdit1.MenuManager = Me.RibbonControl1 - Me.ComboBoxEdit1.Name = "ComboBoxEdit1" - Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.ComboBoxEdit1.Size = New System.Drawing.Size(163, 20) - Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 - Me.ComboBoxEdit1.TabIndex = 5 - ' - 'TextEdit2 - ' - Me.TextEdit2.Location = New System.Drawing.Point(15, 77) - Me.TextEdit2.MenuManager = Me.RibbonControl1 - Me.TextEdit2.Name = "TextEdit2" - Me.TextEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) - Me.TextEdit2.Size = New System.Drawing.Size(163, 20) - Me.TextEdit2.StyleController = Me.LayoutControl1 - Me.TextEdit2.TabIndex = 6 - ' - 'Root - ' - Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] - Me.Root.GroupBordersVisible = False - Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) - Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(193, 446) - Me.Root.TextVisible = False - ' - 'LayoutControlItem1 - ' - Me.LayoutControlItem1.Control = Me.TextEdit1 - Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 92) - Me.LayoutControlItem1.Name = "LayoutControlItem1" - Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem1.Size = New System.Drawing.Size(173, 334) - Me.LayoutControlItem1.Text = "Suchwert" - Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem1.TextSize = New System.Drawing.Size(63, 13) - ' - 'LayoutControlItem2 - ' - Me.LayoutControlItem2.Control = Me.ComboBoxEdit1 - Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) - Me.LayoutControlItem2.Name = "LayoutControlItem2" - Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem2.Size = New System.Drawing.Size(173, 46) - Me.LayoutControlItem2.Text = "Attribut" - Me.LayoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem2.TextSize = New System.Drawing.Size(63, 13) - ' - 'LayoutControlItem3 - ' - Me.LayoutControlItem3.Control = Me.TextEdit2 - Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 46) - Me.LayoutControlItem3.Name = "LayoutControlItem3" - Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5) - Me.LayoutControlItem3.Size = New System.Drawing.Size(173, 46) - Me.LayoutControlItem3.Text = "Auswertung" - Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top - Me.LayoutControlItem3.TextSize = New System.Drawing.Size(63, 13) - ' - 'DockPanel2 - ' - Me.DockPanel2.Controls.Add(Me.DockPanel2_Container) - Me.DockPanel2.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right - Me.DockPanel2.ID = New System.Guid("157c74a2-d255-4e6b-b789-bde43010b2af") - Me.DockPanel2.Location = New System.Drawing.Point(633, 159) - Me.DockPanel2.Name = "DockPanel2" - Me.DockPanel2.Options.ShowCloseButton = False - Me.DockPanel2.Options.ShowMaximizeButton = False - Me.DockPanel2.OriginalSize = New System.Drawing.Size(452, 200) - Me.DockPanel2.Size = New System.Drawing.Size(452, 495) - Me.DockPanel2.Text = "Details" - ' - 'DockPanel2_Container - ' - Me.DockPanel2_Container.Controls.Add(Me.XtraTabControl1) - Me.DockPanel2_Container.Location = New System.Drawing.Point(4, 46) - Me.DockPanel2_Container.Name = "DockPanel2_Container" - Me.DockPanel2_Container.Size = New System.Drawing.Size(445, 446) - Me.DockPanel2_Container.TabIndex = 0 - ' - 'XtraTabControl1 - ' - Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) - Me.XtraTabControl1.Name = "XtraTabControl1" - Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 - Me.XtraTabControl1.Size = New System.Drawing.Size(445, 446) - Me.XtraTabControl1.TabIndex = 1 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) - ' - 'XtraTabPage1 - ' - Me.XtraTabPage1.Controls.Add(Me.GridControl1) - Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(443, 423) - Me.XtraTabPage1.Text = "XtraTabPage1" - ' - 'GridControl1 - ' - Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControl1.Location = New System.Drawing.Point(0, 0) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.MenuManager = Me.RibbonControl1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(443, 423) - Me.GridControl1.TabIndex = 0 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - ' - 'XtraTabPage2 - ' - Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(443, 423) - Me.XtraTabPage2.Text = "XtraTabPage2" - ' - 'TreeListResults - ' - Me.TreeListResults.Dock = System.Windows.Forms.DockStyle.Fill - Me.TreeListResults.Location = New System.Drawing.Point(200, 159) - Me.TreeListResults.MenuManager = Me.RibbonControl1 - Me.TreeListResults.Name = "TreeListResults" - Me.TreeListResults.Size = New System.Drawing.Size(433, 495) - Me.TreeListResults.TabIndex = 4 - ' - 'frmStart - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1085, 676) - Me.Controls.Add(Me.TreeListResults) - Me.Controls.Add(Me.DockPanel2) - Me.Controls.Add(Me.DockPanel1) - Me.Controls.Add(Me.RibbonStatusBar1) - Me.Controls.Add(Me.RibbonControl1) - Me.IconOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.charttype_line - Me.Name = "frmStart" - Me.Ribbon = Me.RibbonControl1 - Me.StatusBar = Me.RibbonStatusBar1 - Me.Text = "Monitor" - CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit() - Me.DockPanel1.ResumeLayout(False) - Me.DockPanel1_Container.ResumeLayout(False) - CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.LayoutControl1.ResumeLayout(False) - CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() - Me.DockPanel2.ResumeLayout(False) - Me.DockPanel2_Container.ResumeLayout(False) - CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() - Me.XtraTabControl1.ResumeLayout(False) - Me.XtraTabPage1.ResumeLayout(False) - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TreeListResults, 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 DockManager1 As DevExpress.XtraBars.Docking.DockManager - Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel - Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer - Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl - Friend WithEvents TextEdit1 As DevExpress.XtraEditors.TextEdit - Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup - Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem - Friend WithEvents buttonSearch As DevExpress.XtraBars.BarButtonItem - Friend WithEvents TextEdit2 As DevExpress.XtraEditors.ComboBoxEdit - Friend WithEvents DockPanel2 As DevExpress.XtraBars.Docking.DockPanel - Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer - Friend WithEvents TreeListResults As DevExpress.XtraTreeList.TreeList - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage - Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage -End Class diff --git a/GUIs.Monitor/frmStart.vb b/GUIs.Monitor/frmStart.vb deleted file mode 100644 index 0592924d..00000000 --- a/GUIs.Monitor/frmStart.vb +++ /dev/null @@ -1,61 +0,0 @@ -Imports DigitalData.Controls.SQLConfig -Imports DigitalData.Modules.Config -Imports DigitalData.Modules.Database -Imports DigitalData.Modules.Logging - -Public Class frmStart - Public Property LogConfig As LogConfig - Public Property ConfigManager As ConfigManager(Of Config) - Public Property Database As MSSQLServer - - Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Try - LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor") - ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath) - Init(LogConfig) - - If ConfigManager.Config.ConnectionString = String.Empty Then - Dim oSQLConfig As New frmSQLConfig(LogConfig) - If oSQLConfig.ShowDialog() = DialogResult.OK Then - ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString - ConfigManager.Save() - Else - ShowErrorMessage("No Database configured. Application will close!") - Application.Exit() - - End If - End If - - Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString) - - - - Catch ex As Exception - ShowErrorMessage(ex) - End Try - End Sub - - Private Sub buttonSearch_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles buttonSearch.ItemClick - InitTreeList() - LoadData() - End Sub - - Private Function LoadData() As Boolean - Try - Dim oSQL As String = "EXEC PRDD_MONITORING_GET_TREEVIEW_RESULT 'TYPE1','sdsdd',2" - Dim oTable As DataTable = Database.GetDatatable(oSQL) - - TreeListResults.DataSource = oTable - - Return True - Catch ex As Exception - ShowErrorMessage(ex) - Return False - End Try - End Function - - Private Sub InitTreeList() - TreeListResults.KeyFieldName = "GUID" - TreeListResults.ParentFieldName = "PARENT_ID" - End Sub -End Class \ No newline at end of file