Grid zur Profilübersicht bei NI - ClassNIProfile, frmNIHauptseite

This commit is contained in:
OlgunR 2025-10-21 10:51:49 +02:00
parent 6422510d01
commit 7e03b01d8f
7 changed files with 77 additions and 5 deletions

View File

@ -1 +1,2 @@
DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@ -92,6 +92,9 @@
<Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Config">
<HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
</Reference>
@ -526,6 +529,7 @@
<EmbeddedResource Include="frmUebersicht.resx">
<DependentUpon>frmUebersicht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>

View File

@ -49,6 +49,9 @@ Partial Class frmNIHauptseite
Me.Label4 = New System.Windows.Forms.Label()
Me.numIntervall = New System.Windows.Forms.NumericUpDown()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.gridProfileOverview = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
Me.timRun = New System.Windows.Forms.Timer(Me.components)
Me.DS_More = New ToolCollection.DS_More()
Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -67,6 +70,10 @@ Partial Class frmNIHauptseite
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlInfos.SuspendLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -240,7 +247,7 @@ Partial Class frmNIHauptseite
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(14, 30)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(83, 13)
Me.Label8.Size = New System.Drawing.Size(84, 13)
Me.Label8.TabIndex = 30
Me.Label8.Text = "In Bearbeitung"
'
@ -334,14 +341,37 @@ Partial Class frmNIHauptseite
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.gridProfileOverview)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(766, 521)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Konfigurationen"
Me.TabPage2.Text = "Profilübersicht"
Me.TabPage2.UseVisualStyleBackColor = True
'
'gridProfileOverview
'
Me.gridProfileOverview.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridProfileOverview.Location = New System.Drawing.Point(3, 3)
Me.gridProfileOverview.MainView = Me.GridView1
Me.gridProfileOverview.Name = "gridProfileOverview"
Me.gridProfileOverview.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckEdit1})
Me.gridProfileOverview.Size = New System.Drawing.Size(760, 515)
Me.gridProfileOverview.TabIndex = 0
Me.gridProfileOverview.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.GridControl = Me.gridProfileOverview
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'RepositoryItemCheckEdit1
'
Me.RepositoryItemCheckEdit1.AutoHeight = False
Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1"
'
'timRun
'
Me.timRun.Interval = 60
@ -426,6 +456,10 @@ Partial Class frmNIHauptseite
Me.pnlInfos.ResumeLayout(False)
Me.pnlInfos.PerformLayout()
CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -472,4 +506,7 @@ Partial Class frmNIHauptseite
Friend WithEvents TBTC_MOVE_RENAMEBindingSource As BindingSource
Friend WithEvents TBTC_MOVE_RENAMETableAdapter As MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter
Friend WithEvents TableAdapterManager1 As MyDatasetTableAdapters.TableAdapterManager
Friend WithEvents gridProfileOverview As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit
End Class

View File

@ -120,6 +120,9 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 56</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 56</value>
</metadata>
<data name="Label6.Text" xml:space="preserve">
<value>Es wird empfohlen, das Intervall nicht auf weniger als 30 Minuten zu setzen, da der nächste Nachindexierungsdurchlauf nur gestartet werden kann, wenn der vorherige beendet wurde. Wenn zu erwarten ist, dass viele Dokumente nachindexiert werden sollen, sollte der Intervall für diesen Durchlauf entsprechend hoch gesetzt werden ( &gt; 2 Stunden).</value>
</data>

View File

@ -122,7 +122,34 @@ Public Class frmNIHauptseite
End If
End Sub
Private Sub LoadProfilesIntoGrid()
ClassNIProfile.Init()
Dim dtProfiles As New DataTable
dtProfiles.Columns.Add("Aktiv", GetType(String))
dtProfiles.Columns.Add("Name", GetType(String))
dtProfiles.Columns.Add("Objekttyp", GetType(String))
If ClassNIProfile.Profile IsNot Nothing Then
For Each profile As ClassNIProfil In ClassNIProfile.Profile
Dim row As DataRow = dtProfiles.NewRow()
row("Aktiv") = If(Convert.ToBoolean(profile.Aktiv), "Aktiv", "Inaktiv")
row("Name") = profile.Profilname
row("Objekttyp") = profile.DokumenttypString
dtProfiles.Rows.Add(row)
Next
End If
Me.gridProfileOverview.DataSource = dtProfiles
End Sub
Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
LoadProfilesIntoGrid()
'Try
' 'LoadAllModules()
' TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString

View File

@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAaABAAGgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAagBAAGoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA