Nur 1 Datei erlaubt

Receiver-Anzeige in Haupt-Form Abbrechen-Button
2023-11-01 13:32:19 +01:00
parent dc24ae3631
commit a9c817f2ef
12 changed files with 1011 additions and 1066 deletions
--- a/EnvelopeGenerator.Form/frmMain.Designer.vb
+++ b/EnvelopeGenerator.Form/frmMain.Designer.vb
@@ -21,13 +21,10 @@ Partial Class frmMain
    Private Sub InitializeComponent()
        Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
-        Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem()
-        Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem()
-        Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem()
-        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl()
        Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -35,15 +32,89 @@ Partial Class frmMain
        Me.colTitle = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colSubject = New DevExpress.XtraGrid.Columns.GridColumn()
        Me.colAddedWhen = New DevExpress.XtraGrid.Columns.GridColumn()
-        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem()
+        Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'SplashScreenManager1
        '
        SplashScreenManager1.ClosingDelay = 500
        '
+        'ViewReceivers
+        '
+        Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColEmail, Me.ColReceiverStatus})
+        Me.ViewReceivers.GridControl = Me.GridEnvelopes
+        Me.ViewReceivers.Name = "ViewReceivers"
+        resources.ApplyResources(Me.ViewReceivers, "ViewReceivers")
+        '
+        'ColEmail
+        '
+        resources.ApplyResources(Me.ColEmail, "ColEmail")
+        Me.ColEmail.FieldName = "Email"
+        Me.ColEmail.Name = "ColEmail"
+        '
+        'ColReceiverStatus
+        '
+        resources.ApplyResources(Me.ColReceiverStatus, "ColReceiverStatus")
+        Me.ColReceiverStatus.FieldName = "Status"
+        Me.ColReceiverStatus.Name = "ColReceiverStatus"
+        '
+        'GridEnvelopes
+        '
+        resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
+        GridLevelNode1.LevelTemplate = Me.ViewReceivers
+        GridLevelNode1.RelationName = "Receivers"
+        Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridEnvelopes.MainView = Me.ViewEnvelopes
+        Me.GridEnvelopes.MenuManager = Me.RibbonControl
+        Me.GridEnvelopes.Name = "GridEnvelopes"
+        Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewEnvelopes, Me.ViewReceivers})
+        '
+        'ViewEnvelopes
+        '
+        Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
+        Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
+        Me.ViewEnvelopes.Name = "ViewEnvelopes"
+        '
+        'colContractType
+        '
+        resources.ApplyResources(Me.colContractType, "colContractType")
+        Me.colContractType.FieldName = "ContractTypeTranslated"
+        Me.colContractType.Name = "colContractType"
+        '
+        'colStatus
+        '
+        resources.ApplyResources(Me.colStatus, "colStatus")
+        Me.colStatus.FieldName = "StatusTranslated"
+        Me.colStatus.Name = "colStatus"
+        '
+        'colTitle
+        '
+        resources.ApplyResources(Me.colTitle, "colTitle")
+        Me.colTitle.FieldName = "Title"
+        Me.colTitle.Name = "colTitle"
+        '
+        'colSubject
+        '
+        resources.ApplyResources(Me.colSubject, "colSubject")
+        Me.colSubject.FieldName = "Subject"
+        Me.colSubject.Name = "colSubject"
+        '
+        'colAddedWhen
+        '
+        resources.ApplyResources(Me.colAddedWhen, "colAddedWhen")
+        Me.colAddedWhen.FieldName = "AddedWhen"
+        Me.colAddedWhen.Name = "colAddedWhen"
+        '
        'RibbonControl
        '
        Me.RibbonControl.ExpandCollapseItem.Id = 0
@@ -95,50 +166,6 @@ Partial Class frmMain
        Me.RibbonStatusBar.Name = "RibbonStatusBar"
        Me.RibbonStatusBar.Ribbon = Me.RibbonControl
        '
-        'GridEnvelopes
-        '
-        resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
-        Me.GridEnvelopes.MainView = Me.ViewEnvelopes
-        Me.GridEnvelopes.MenuManager = Me.RibbonControl
-        Me.GridEnvelopes.Name = "GridEnvelopes"
-        Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewEnvelopes})
-        '
-        'ViewEnvelopes
-        '
-        Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colContractType, Me.colStatus, Me.colTitle, Me.colSubject, Me.colAddedWhen})
-        Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
-        Me.ViewEnvelopes.Name = "ViewEnvelopes"
-        '
-        'colContractType
-        '
-        resources.ApplyResources(Me.colContractType, "colContractType")
-        Me.colContractType.FieldName = "ContractTypeTranslated"
-        Me.colContractType.Name = "colContractType"
-        '
-        'colStatus
-        '
-        resources.ApplyResources(Me.colStatus, "colStatus")
-        Me.colStatus.FieldName = "StatusTranslated"
-        Me.colStatus.Name = "colStatus"
-        '
-        'colTitle
-        '
-        resources.ApplyResources(Me.colTitle, "colTitle")
-        Me.colTitle.FieldName = "Title"
-        Me.colTitle.Name = "colTitle"
-        '
-        'colSubject
-        '
-        resources.ApplyResources(Me.colSubject, "colSubject")
-        Me.colSubject.FieldName = "Subject"
-        Me.colSubject.Name = "colSubject"
-        '
-        'colAddedWhen
-        '
-        resources.ApplyResources(Me.colAddedWhen, "colAddedWhen")
-        Me.colAddedWhen.FieldName = "AddedWhen"
-        Me.colAddedWhen.Name = "colAddedWhen"
-        '
        'frmMain
        '
        resources.ApplyResources(Me, "$this")
@@ -149,9 +176,10 @@ Partial Class frmMain
        Me.Name = "frmMain"
        Me.Ribbon = Me.RibbonControl
        Me.StatusBar = Me.RibbonStatusBar
-        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ViewReceivers, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -171,4 +199,7 @@ Partial Class frmMain
    Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents colContractType As DevExpress.XtraGrid.Columns.GridColumn
    Friend WithEvents colStatus As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ViewReceivers As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ColEmail As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ColReceiverStatus As DevExpress.XtraGrid.Columns.GridColumn
 End Class