AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Filters, Fix Column Names, Improve Config

Browse Source
This commit is contained in:
Jonathan Jenne
2022-07-01 11:37:11 +02:00
parent 10565fb1da
commit fe4038f1c8
11 changed files with 1971 additions and 398 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
MultiTool.Form/frmConfig.vb
View File

@@ -5,14 +5,16 @@ Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Language
Imports DigitalData.GUIs.Common
Public Class frmConfig
Private ReadOnly TBMT_CONFIG_GENERAL As New DS_DD_ECM.TBMT_CONFIGDataTable
Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Common.Config)
Private ReadOnly FormHelper As FormHelper
Private ReadOnly GridBuilder As GridBuilder
Private BindingSource As BindingSource = TBEDIXMLITEMSBindingSource
Private View As GridView = GridViewSchema
Private View As GridView = GridViewItems
Private ReadOnly Property Config As Common.Config
@@ -28,10 +30,14 @@ Public Class frmConfig
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
FormHelper = New FormHelper(pLogConfig, Me)
ConfigManager = pConfigManager
GridBuilder = New GridBuilder(GridViewTables, GridViewItems)
End Sub
Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
GridBuilder.WithDefaults()
GridBuilder.WithReadOnlyOptions(GridViewTables)
Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With {
.InitialCatalog = "DD_ECM"
@@ -43,8 +49,11 @@ Public Class frmConfig
DS_DD_ECM.TBMT_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName
DS_DD_ECM.TBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName
TBMT_TABLESTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBMT_TABLESTableAdapter.Fill(Me.DS_DD_ECM.TBMT_TABLES)
TBMT_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS)
TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG)
@@ -114,7 +123,7 @@ Public Class frmConfig
End Sub
Private Sub Save()
GridViewSchema.PostEditor()
GridViewItems.PostEditor()
TBMT_CONFIGTableAdapter.Update(DS_DD_ECM.TBMT_CONFIG)
DS_DD_ECM.TBMT_CONFIG.AcceptChanges()
@@ -146,7 +155,7 @@ Public Class frmConfig
Select Case e.Page.Name
Case tabPageSchema.Name
BindingSource = TBEDIXMLITEMSBindingSource
View = GridViewSchema
View = GridViewItems
Case tabPageConfig.Name
BindingSource = TBMT_CONFIGBindingSource
@@ -169,4 +178,10 @@ Public Class frmConfig
End If
End If
End Sub
Private Sub GridViewTables_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewTables.FocusedRowChanged
Dim oRow As DataRow = GridViewTables.GetDataRow(GridViewTables.FocusedRowHandle)
Dim oTableId = oRow.Item("TABLE_ID")
TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS, oTableId)
End Sub
End Class