16-08-23

EnvelopeGenerator.Form/frmMain.vb

@@ -5,6 +5,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Base
 Imports DigitalData.GUIs.Common
 Imports EnvelopeGenerator.Common
+Imports DevExpress.XtraSplashScreen
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -74,8 +75,16 @@ Public Class frmMain
     End Function
 
     Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
-        Dim oForm As New frmEnvelopeEditor() With {.State = State}
-        oForm.ShowDialog()
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+            Dim oForm As New frmEnvelopeEditor() With {.State = State}
+            oForm.ShowDialog()
+            GridEnvelopes.DataSource = Controller.ListEnvelopes()
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+            SplashScreenManager.CloseOverlayForm(oHandle)
+        End Try
     End Sub
 
     Private Sub btnEditEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditEnvelope.ItemClick
@@ -92,6 +101,20 @@ Public Class frmMain
         GridEnvelopes.DataSource = Controller.ListEnvelopes()
     End Sub
 
+    Private Sub DeleteEnvelope(pRowHandle As Integer)
+        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(pRowHandle)
+
+        If MsgBox("Wollen Sie diesen Umschlag wirklich löschen?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
+            Exit Sub
+        End If
+
+        If Controller.DeleteEnvelope(oEnvelope) Then
+            GridEnvelopes.DataSource = Controller.ListEnvelopes()
+        Else
+            MsgBox("Umschlag konnte nicht gelöscht werden!", MsgBoxStyle.Critical, Text)
+        End If
+    End Sub
+
     Private Sub ViewEnvelopes_DoubleClick(sender As Object, e As EventArgs) Handles ViewEnvelopes.DoubleClick
         Dim oSelectedRows = ViewEnvelopes.GetSelectedRows()
         If oSelectedRows.Count > 0 Then
@@ -99,4 +122,10 @@ Public Class frmMain
         End If
     End Sub
 
+    Private Sub btnDeleteEnvelope_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDeleteEnvelope.ItemClick
+        Dim oSelectedRows = ViewEnvelopes.GetSelectedRows()
+        If oSelectedRows.Count > 0 Then
+            DeleteEnvelope(oSelectedRows.First)
+        End If
+    End Sub
 End Class