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

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

Browse Source
This commit is contained in:
Jonathan Jenne
2022-01-28 12:05:41 +01:00
parent 6d6dd725d9
commit 5a8440ff05
18 changed files with 316 additions and 166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
MultiTool.Form/frmConfig.vb
View File

@@ -1,4 +1,6 @@
Imports System.Data.SqlClient
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
@@ -7,6 +9,11 @@ Public Class frmConfig
Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
Private ReadOnly FormHelper As FormHelper
Private BindingSource As BindingSource = TBEDIXMLITEMSBindingSource
Private TableAdapter = TBEDI_XML_TEMPLATE_ITEMSTableAdapter
Private View As GridView = GridViewSchema
Private AddingNew As Boolean = False
Private ReadOnly Property Config As MultiTool.Shared.Config
Get
Return ConfigManager?.Config
@@ -29,23 +36,67 @@ Public Class frmConfig
.InitialCatalog = "DD_ECM"
}
' Default Values
DS_DD_ECM.TBEDI_XML_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName
DS_DD_ECM.TBEDI_XML_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName
DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName
DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
TBEDI_XML_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBEDI_XML_CONFIGTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_CONFIG)
TBEDI_XML_CONFIGTableAdapter.Fill(DS_DD_ECM.TBEDI_XML_CONFIG)
End Sub
Private Sub Save()
TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG)
DS_DD_ECM.TBEDI_XML_CONFIG.AcceptChanges()
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS.AcceptChanges()
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Try
TBEDI_XML_CONFIGBindingSource.EndEdit()
TBEDI_XML_CONFIGTableAdapter.Update(DS_DD_ECM.TBEDI_XML_CONFIG)
TBEDIXMLITEMSBindingSource.EndEdit()
TBEDI_XML_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_TEMPLATE_ITEMS)
Save()
Catch ex As Exception
FormHelper.ShowError(ex, "Speichern der Konfiguration")
End Try
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
BindingSource.AddNew()
End Sub
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
Select Case e.Page.Name
Case tabPageSchema.Name
BindingSource = TBEDIXMLITEMSBindingSource
View = GridViewSchema
Case tabPageConfig.Name
BindingSource = TBEDI_XML_CONFIGBindingSource
View = GridViewConfig
End Select
End Sub
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
If View.FocusedRowHandle <> GridControl.InvalidRowHandle Then
Dim oResult = MsgBox("Wollen Sie den ausgewählten Eintrag löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Eintrag löschen?")
If oResult = MsgBoxResult.Yes Then
Dim oRow As DataRow = View.GetDataRow(View.FocusedRowHandle)
BindingSource.RemoveCurrent()
BindingSource.EndEdit()
Save()
End If
End If
End Sub
End Class