AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Nur 1 Datei erlaubt

Browse Source 
Receiver-Anzeige in Haupt-Form
Abbrechen-Button
This commit is contained in:
PitzM 2023-11-01 13:32:19 +01:00
parent dc24ae3631
commit a9c817f2ef
12 changed files with 1011 additions and 1066 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
EnvelopeGenerator.Common/Constants.vb
View File

@ -19,6 +19,11 @@
Signed = 1 Signed = 1
End Enum End Enum
Public Enum ReceiverStatus
Unsigned = 0
Signed = 1
End Enum
Public Enum EnvelopeHistoryActionType Public Enum EnvelopeHistoryActionType
Created = 0 Created = 0
Saved = 1 Saved = 1

3
EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb
View File

@ -1,4 +1,5 @@
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports EnvelopeGenerator.Common.Constants
Public Class EnvelopeReceiver Public Class EnvelopeReceiver
Public Property Id As Integer Public Property Id As Integer
@ -11,6 +12,8 @@ Public Class EnvelopeReceiver
Public Property Email As String Public Property Email As String
Public Property Status As ReceiverStatus
Public ReadOnly Property HasId As Boolean Public ReadOnly Property HasId As Boolean
Get Get
Return Id > 0 Return Id > 0

5
EnvelopeGenerator.Common/Models/ReceiverModel.vb
View File

@ -2,6 +2,8 @@
Imports System.Data.Common Imports System.Data.Common
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports DigitalData.Modules.Base Imports DigitalData.Modules.Base
Imports EnvelopeGenerator.Common.Constants
Public Class ReceiverModel Public Class ReceiverModel
Inherits BaseModel Inherits BaseModel
@ -15,7 +17,8 @@ Public Class ReceiverModel
.Email = pRow.ItemEx("EMAIL_ADDRESS", ""), .Email = pRow.ItemEx("EMAIL_ADDRESS", ""),
.Name = pRow.ItemEx("NAME", ""), .Name = pRow.ItemEx("NAME", ""),
.Sequence = pRow.ItemEx("SEQUENCE", 0), .Sequence = pRow.ItemEx("SEQUENCE", 0),
.Signature = pRow.ItemEx("SIGNATURE", "") .Signature = pRow.ItemEx("SIGNATURE", ""),
.Status = ReceiverStatus.Unsigned
} }
End Function End Function

6
EnvelopeGenerator.Common/Strings/Envelope.en.resx
View File

@ -171,9 +171,15 @@
<data name="Missing Subject" xml:space="preserve"> <data name="Missing Subject" xml:space="preserve">
<value>Missing Subject</value> <value>Missing Subject</value>
</data> </data>
<data name="Only one file is allowed" xml:space="preserve">
<value>Only one file is allowed!</value>
</data>
<data name="Recipient could not be deleted" xml:space="preserve"> <data name="Recipient could not be deleted" xml:space="preserve">
<value>Recipient could not be deleted!</value> <value>Recipient could not be deleted!</value>
</data> </data>
<data name="Should The Envelope Be Saved" xml:space="preserve">
<value>Should the envelope be saved?</value>
</data>
<data name="The envelope could not be deleted" xml:space="preserve"> <data name="The envelope could not be deleted" xml:space="preserve">
<value>The envelope could not be deleted!</value> <value>The envelope could not be deleted!</value>
</data> </data>

6
EnvelopeGenerator.Common/Strings/Envelope.resx
View File

@ -171,9 +171,15 @@
<data name="Missing Subject" xml:space="preserve"> <data name="Missing Subject" xml:space="preserve">
<value>Missing Subject</value> <value>Missing Subject</value>
</data> </data>
<data name="Only one file is allowed" xml:space="preserve">
<value>Es ist nur eine Datei zulässig!</value>
</data>
<data name="Recipient could not be deleted" xml:space="preserve"> <data name="Recipient could not be deleted" xml:space="preserve">
<value>Empfänger konnte nicht gelöscht werden!</value> <value>Empfänger konnte nicht gelöscht werden!</value>
</data> </data>
<data name="Should The Envelope Be Saved" xml:space="preserve">
<value>Soll der Umschlag gespeichert werden?</value>
</data>
<data name="The envelope could not be deleted" xml:space="preserve"> <data name="The envelope could not be deleted" xml:space="preserve">
<value>Der Umschlag konnte nicht gelöscht werden!</value> <value>Der Umschlag konnte nicht gelöscht werden!</value>
</data> </data>

18
EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb generated
View File

@ -226,6 +226,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Es ist nur eine Datei zulässig! ähnelt.
'''</summary>
Public Shared ReadOnly Property Only_one_file_is_allowed() As String
Get
Return ResourceManager.GetString("Only one file is allowed", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Empfänger konnte nicht gelöscht werden! ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Empfänger konnte nicht gelöscht werden! ähnelt.
'''</summary> '''</summary>
@ -235,6 +244,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Soll der Umschlag gespeichert werden? ähnelt.
'''</summary>
Public Shared ReadOnly Property Should_The_Envelope_Be_Saved() As String
Get
Return ResourceManager.GetString("Should The Envelope Be Saved", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die Der Umschlag konnte nicht gelöscht werden! ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die Der Umschlag konnte nicht gelöscht werden! ähnelt.
'''</summary> '''</summary>

100
EnvelopeGenerator.Form/frmEnvelopeEditor.Designer.vb generated
View File

@ -138,37 +138,25 @@ Partial Public Class frmEnvelopeEditor
' '
'SplitContainerControl1.Panel1 'SplitContainerControl1.Panel1
' '
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl3) Me.SplitContainerControl1.Panel1.Controls.Add(Me.LayoutControl3)
resources.ApplyResources(Me.SplitContainerControl1.Panel1, "SplitContainerControl1.Panel1")
' '
'SplitContainerControl1.Panel2 'SplitContainerControl1.Panel2
' '
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2) Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
Me.SplitContainerControl1.SplitterPosition = 251 Me.SplitContainerControl1.SplitterPosition = 251
' '
'LayoutControl3 'LayoutControl3
' '
resources.ApplyResources(Me.LayoutControl3, "LayoutControl3")
Me.LayoutControl3.Controls.Add(Me.GridDocuments) Me.LayoutControl3.Controls.Add(Me.GridDocuments)
resources.ApplyResources(Me.LayoutControl3, "LayoutControl3")
Me.LayoutControl3.Name = "LayoutControl3" Me.LayoutControl3.Name = "LayoutControl3"
Me.LayoutControl3.Root = Me.LayoutControlGroup4 Me.LayoutControl3.Root = Me.LayoutControlGroup4
' '
'GridDocuments 'GridDocuments
' '
resources.ApplyResources(Me.GridDocuments, "GridDocuments") resources.ApplyResources(Me.GridDocuments, "GridDocuments")
Me.GridDocuments.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridDocuments.EmbeddedNavigator.AccessibleDescription")
Me.GridDocuments.EmbeddedNavigator.AccessibleName = resources.GetString("GridDocuments.EmbeddedNavigator.AccessibleName")
Me.GridDocuments.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridDocuments.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridDocuments.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridDocuments.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridDocuments.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridDocuments.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridDocuments.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridDocuments.EmbeddedNavigator.ToolTip = resources.GetString("GridDocuments.EmbeddedNavigator.ToolTip")
Me.GridDocuments.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridDocuments.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridDocuments.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridDocuments.EmbeddedNavigator.ToolTipTitle")
Me.GridDocuments.MainView = Me.ViewDocuments Me.GridDocuments.MainView = Me.ViewDocuments
Me.GridDocuments.MenuManager = Me.RibbonControl1 Me.GridDocuments.MenuManager = Me.RibbonControl1
Me.GridDocuments.Name = "GridDocuments" Me.GridDocuments.Name = "GridDocuments"
@ -182,11 +170,6 @@ Partial Public Class frmEnvelopeEditor
Me.ViewDocuments.OptionsTiles.ItemSize = New System.Drawing.Size(200, 290) Me.ViewDocuments.OptionsTiles.ItemSize = New System.Drawing.Size(200, 290)
Me.ViewDocuments.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical Me.ViewDocuments.OptionsTiles.Orientation = System.Windows.Forms.Orientation.Vertical
Me.ViewDocuments.TileColumns.Add(TableColumnDefinition1) Me.ViewDocuments.TileColumns.Add(TableColumnDefinition1)
'
'
'
Me.ViewDocuments.TileHtmlTemplate.Styles = resources.GetString("ViewDocuments.TileHtmlTemplate.Styles")
Me.ViewDocuments.TileHtmlTemplate.Template = resources.GetString("ViewDocuments.TileHtmlTemplate.Template")
TableRowDefinition1.Length.Value = 152.0R TableRowDefinition1.Length.Value = 152.0R
TableRowDefinition2.Length.Value = 20.0R TableRowDefinition2.Length.Value = 20.0R
Me.ViewDocuments.TileRows.Add(TableRowDefinition1) Me.ViewDocuments.TileRows.Add(TableRowDefinition1)
@ -206,7 +189,6 @@ Partial Public Class frmEnvelopeEditor
TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter TileViewItemElement2.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.MiddleCenter
Me.ViewDocuments.TileTemplate.Add(TileViewItemElement1) Me.ViewDocuments.TileTemplate.Add(TileViewItemElement1)
Me.ViewDocuments.TileTemplate.Add(TileViewItemElement2) Me.ViewDocuments.TileTemplate.Add(TileViewItemElement2)
resources.ApplyResources(Me.ViewDocuments, "ViewDocuments")
' '
'colFilename 'colFilename
' '
@ -222,13 +204,9 @@ Partial Public Class frmEnvelopeEditor
' '
'RibbonControl1 'RibbonControl1
' '
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.ExpandCollapseItem.Id = 0 Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
Me.RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage = CType(resources.GetObject("RibbonControl1.ExpandCollapseItem.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RibbonControl1.ExpandCollapseItem.SearchTags = resources.GetString("RibbonControl1.ExpandCollapseItem.SearchTags")
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnCancel, Me.btnNewFile, Me.btnDeleteFile, Me.btnSendEnvelope, Me.btnEditFields, Me.btnDeleteReceiver, Me.btnEditData}) Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.btnSave, Me.btnCancel, Me.btnNewFile, Me.btnDeleteFile, Me.btnSendEnvelope, Me.btnEditFields, Me.btnDeleteReceiver, Me.btnEditData})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 10 Me.RibbonControl1.MaxItemId = 10
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
@ -237,8 +215,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnSave, "btnSave") resources.ApplyResources(Me.btnSave, "btnSave")
Me.btnSave.Id = 1 Me.btnSave.Id = 1
Me.btnSave.ImageOptions.ImageIndex = CType(resources.GetObject("btnSave.ImageOptions.ImageIndex"), Integer)
Me.btnSave.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnSave.ImageOptions.LargeImageIndex"), Integer)
Me.btnSave.ImageOptions.SvgImage = CType(resources.GetObject("btnSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnSave.ImageOptions.SvgImage = CType(resources.GetObject("btnSave.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
' '
@ -246,8 +222,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnCancel, "btnCancel") resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Id = 2 Me.btnCancel.Id = 2
Me.btnCancel.ImageOptions.ImageIndex = CType(resources.GetObject("btnCancel.ImageOptions.ImageIndex"), Integer)
Me.btnCancel.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnCancel.ImageOptions.LargeImageIndex"), Integer)
Me.btnCancel.ImageOptions.SvgImage = CType(resources.GetObject("btnCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnCancel.ImageOptions.SvgImage = CType(resources.GetObject("btnCancel.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnCancel.Name = "btnCancel" Me.btnCancel.Name = "btnCancel"
' '
@ -255,8 +229,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnNewFile, "btnNewFile") resources.ApplyResources(Me.btnNewFile, "btnNewFile")
Me.btnNewFile.Id = 3 Me.btnNewFile.Id = 3
Me.btnNewFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnNewFile.ImageOptions.ImageIndex"), Integer)
Me.btnNewFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnNewFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnNewFile.ImageOptions.SvgImage = CType(resources.GetObject("btnNewFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnNewFile.ImageOptions.SvgImage = CType(resources.GetObject("btnNewFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnNewFile.Name = "btnNewFile" Me.btnNewFile.Name = "btnNewFile"
' '
@ -264,8 +236,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnDeleteFile, "btnDeleteFile") resources.ApplyResources(Me.btnDeleteFile, "btnDeleteFile")
Me.btnDeleteFile.Id = 4 Me.btnDeleteFile.Id = 4
Me.btnDeleteFile.ImageOptions.ImageIndex = CType(resources.GetObject("btnDeleteFile.ImageOptions.ImageIndex"), Integer)
Me.btnDeleteFile.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnDeleteFile.ImageOptions.LargeImageIndex"), Integer)
Me.btnDeleteFile.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnDeleteFile.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteFile.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnDeleteFile.Name = "btnDeleteFile" Me.btnDeleteFile.Name = "btnDeleteFile"
' '
@ -273,8 +243,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnSendEnvelope, "btnSendEnvelope") resources.ApplyResources(Me.btnSendEnvelope, "btnSendEnvelope")
Me.btnSendEnvelope.Id = 6 Me.btnSendEnvelope.Id = 6
Me.btnSendEnvelope.ImageOptions.ImageIndex = CType(resources.GetObject("btnSendEnvelope.ImageOptions.ImageIndex"), Integer)
Me.btnSendEnvelope.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnSendEnvelope.ImageOptions.LargeImageIndex"), Integer)
Me.btnSendEnvelope.ImageOptions.SvgImage = CType(resources.GetObject("btnSendEnvelope.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnSendEnvelope.ImageOptions.SvgImage = CType(resources.GetObject("btnSendEnvelope.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnSendEnvelope.Name = "btnSendEnvelope" Me.btnSendEnvelope.Name = "btnSendEnvelope"
' '
@ -282,8 +250,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnEditFields, "btnEditFields") resources.ApplyResources(Me.btnEditFields, "btnEditFields")
Me.btnEditFields.Id = 7 Me.btnEditFields.Id = 7
Me.btnEditFields.ImageOptions.ImageIndex = CType(resources.GetObject("btnEditFields.ImageOptions.ImageIndex"), Integer)
Me.btnEditFields.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnEditFields.ImageOptions.LargeImageIndex"), Integer)
Me.btnEditFields.ImageOptions.SvgImage = CType(resources.GetObject("btnEditFields.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnEditFields.ImageOptions.SvgImage = CType(resources.GetObject("btnEditFields.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnEditFields.Name = "btnEditFields" Me.btnEditFields.Name = "btnEditFields"
' '
@ -291,8 +257,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnDeleteReceiver, "btnDeleteReceiver") resources.ApplyResources(Me.btnDeleteReceiver, "btnDeleteReceiver")
Me.btnDeleteReceiver.Id = 8 Me.btnDeleteReceiver.Id = 8
Me.btnDeleteReceiver.ImageOptions.ImageIndex = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.ImageIndex"), Integer)
Me.btnDeleteReceiver.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.LargeImageIndex"), Integer)
Me.btnDeleteReceiver.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnDeleteReceiver.ImageOptions.SvgImage = CType(resources.GetObject("btnDeleteReceiver.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnDeleteReceiver.Name = "btnDeleteReceiver" Me.btnDeleteReceiver.Name = "btnDeleteReceiver"
' '
@ -300,8 +264,6 @@ Partial Public Class frmEnvelopeEditor
' '
resources.ApplyResources(Me.btnEditData, "btnEditData") resources.ApplyResources(Me.btnEditData, "btnEditData")
Me.btnEditData.Id = 9 Me.btnEditData.Id = 9
Me.btnEditData.ImageOptions.ImageIndex = CType(resources.GetObject("btnEditData.ImageOptions.ImageIndex"), Integer)
Me.btnEditData.ImageOptions.LargeImageIndex = CType(resources.GetObject("btnEditData.ImageOptions.LargeImageIndex"), Integer)
Me.btnEditData.ImageOptions.SvgImage = CType(resources.GetObject("btnEditData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.btnEditData.ImageOptions.SvgImage = CType(resources.GetObject("btnEditData.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.btnEditData.Name = "btnEditData" Me.btnEditData.Name = "btnEditData"
' '
@ -347,7 +309,6 @@ Partial Public Class frmEnvelopeEditor
' '
'LayoutControlGroup4 'LayoutControlGroup4
' '
resources.ApplyResources(Me.LayoutControlGroup4, "LayoutControlGroup4")
Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup4.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup4.GroupBordersVisible = False Me.LayoutControlGroup4.GroupBordersVisible = False
Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup5}) Me.LayoutControlGroup4.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup5})
@ -358,15 +319,14 @@ Partial Public Class frmEnvelopeEditor
' '
'LayoutControlGroup5 'LayoutControlGroup5
' '
resources.ApplyResources(Me.LayoutControlGroup5, "LayoutControlGroup5")
Me.LayoutControlGroup5.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5}) Me.LayoutControlGroup5.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem5})
Me.LayoutControlGroup5.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup5.Name = "LayoutControlGroup5" Me.LayoutControlGroup5.Name = "LayoutControlGroup5"
Me.LayoutControlGroup5.Size = New System.Drawing.Size(251, 526) Me.LayoutControlGroup5.Size = New System.Drawing.Size(251, 526)
resources.ApplyResources(Me.LayoutControlGroup5, "LayoutControlGroup5")
' '
'LayoutControlItem5 'LayoutControlItem5
' '
resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
Me.LayoutControlItem5.Control = Me.GridDocuments Me.LayoutControlItem5.Control = Me.GridDocuments
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem5.Name = "LayoutControlItem5" Me.LayoutControlItem5.Name = "LayoutControlItem5"
@ -382,44 +342,32 @@ Partial Public Class frmEnvelopeEditor
' '
'SplitContainerControl2.Panel1 'SplitContainerControl2.Panel1
' '
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
Me.SplitContainerControl2.Panel1.Controls.Add(Me.PanelControl1) Me.SplitContainerControl2.Panel1.Controls.Add(Me.PanelControl1)
resources.ApplyResources(Me.SplitContainerControl2.Panel1, "SplitContainerControl2.Panel1")
' '
'SplitContainerControl2.Panel2 'SplitContainerControl2.Panel2
' '
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
Me.SplitContainerControl2.Panel2.Controls.Add(Me.PanelControl2) Me.SplitContainerControl2.Panel2.Controls.Add(Me.PanelControl2)
resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
Me.SplitContainerControl2.SplitterPosition = 253 Me.SplitContainerControl2.SplitterPosition = 253
' '
'PanelControl1 'PanelControl1
' '
resources.ApplyResources(Me.PanelControl1, "PanelControl1")
Me.PanelControl1.Controls.Add(Me.LayoutControl2) Me.PanelControl1.Controls.Add(Me.LayoutControl2)
resources.ApplyResources(Me.PanelControl1, "PanelControl1")
Me.PanelControl1.Name = "PanelControl1" Me.PanelControl1.Name = "PanelControl1"
' '
'LayoutControl2 'LayoutControl2
' '
resources.ApplyResources(Me.LayoutControl2, "LayoutControl2")
Me.LayoutControl2.Controls.Add(Me.GridReceivers) Me.LayoutControl2.Controls.Add(Me.GridReceivers)
resources.ApplyResources(Me.LayoutControl2, "LayoutControl2")
Me.LayoutControl2.Name = "LayoutControl2" Me.LayoutControl2.Name = "LayoutControl2"
Me.LayoutControl2.Root = Me.LayoutControlGroup2 Me.LayoutControl2.Root = Me.LayoutControlGroup2
' '
'GridReceivers 'GridReceivers
' '
resources.ApplyResources(Me.GridReceivers, "GridReceivers")
Me.GridReceivers.DataSource = Me.EnvelopeReceiverBindingSource Me.GridReceivers.DataSource = Me.EnvelopeReceiverBindingSource
Me.GridReceivers.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridReceivers.EmbeddedNavigator.AccessibleDescription") resources.ApplyResources(Me.GridReceivers, "GridReceivers")
Me.GridReceivers.EmbeddedNavigator.AccessibleName = resources.GetString("GridReceivers.EmbeddedNavigator.AccessibleName")
Me.GridReceivers.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridReceivers.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridReceivers.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridReceivers.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridReceivers.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridReceivers.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridReceivers.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridReceivers.EmbeddedNavigator.ToolTip = resources.GetString("GridReceivers.EmbeddedNavigator.ToolTip")
Me.GridReceivers.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridReceivers.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridReceivers.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridReceivers.EmbeddedNavigator.ToolTipTitle")
Me.GridReceivers.MainView = Me.ViewReceivers Me.GridReceivers.MainView = Me.ViewReceivers
Me.GridReceivers.MenuManager = Me.RibbonControl1 Me.GridReceivers.MenuManager = Me.RibbonControl1
Me.GridReceivers.Name = "GridReceivers" Me.GridReceivers.Name = "GridReceivers"
@ -434,27 +382,26 @@ Partial Public Class frmEnvelopeEditor
'ViewReceivers 'ViewReceivers
' '
Me.ViewReceivers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple Me.ViewReceivers.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
resources.ApplyResources(Me.ViewReceivers, "ViewReceivers") Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colEmail, Me.colName})
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colName, Me.colEmail})
Me.ViewReceivers.GridControl = Me.GridReceivers Me.ViewReceivers.GridControl = Me.GridReceivers
Me.ViewReceivers.Name = "ViewReceivers" Me.ViewReceivers.Name = "ViewReceivers"
Me.ViewReceivers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True] Me.ViewReceivers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True]
Me.ViewReceivers.OptionsView.NewItemRowPosition = DevExpress.XtraGrid.Views.Grid.NewItemRowPosition.Bottom Me.ViewReceivers.OptionsView.NewItemRowPosition = DevExpress.XtraGrid.Views.Grid.NewItemRowPosition.Bottom
Me.ViewReceivers.OptionsView.ShowGroupPanel = False Me.ViewReceivers.OptionsView.ShowGroupPanel = False
Me.ViewReceivers.SortInfo.AddRange(New DevExpress.XtraGrid.Columns.GridColumnSortInfo() {New DevExpress.XtraGrid.Columns.GridColumnSortInfo(Me.colEmail, DevExpress.Data.ColumnSortOrder.Ascending)})
' '
'colName 'colName
' '
resources.ApplyResources(Me.colName, "colName")
Me.colName.FieldName = "Name" Me.colName.FieldName = "Name"
Me.colName.Name = "colName" Me.colName.Name = "colName"
resources.ApplyResources(Me.colName, "colName")
' '
'colEmail 'colEmail
' '
resources.ApplyResources(Me.colEmail, "colEmail")
Me.colEmail.ColumnEdit = Me.RepositoryItemEmailEdit Me.colEmail.ColumnEdit = Me.RepositoryItemEmailEdit
Me.colEmail.FieldName = "Email" Me.colEmail.FieldName = "Email"
Me.colEmail.Name = "colEmail" Me.colEmail.Name = "colEmail"
Me.colEmail.Summary.AddRange(New DevExpress.XtraGrid.GridSummaryItem() {New DevExpress.XtraGrid.GridColumnSummaryItem()}) resources.ApplyResources(Me.colEmail, "colEmail")
' '
'RepositoryItemEmailEdit 'RepositoryItemEmailEdit
' '
@ -463,7 +410,6 @@ Partial Public Class frmEnvelopeEditor
' '
'LayoutControlGroup2 'LayoutControlGroup2
' '
resources.ApplyResources(Me.LayoutControlGroup2, "LayoutControlGroup2")
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.LayoutControlGroup2.GroupBordersVisible = False Me.LayoutControlGroup2.GroupBordersVisible = False
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3}) Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3})
@ -474,15 +420,14 @@ Partial Public Class frmEnvelopeEditor
' '
'LayoutControlGroup3 'LayoutControlGroup3
' '
resources.ApplyResources(Me.LayoutControlGroup3, "LayoutControlGroup3")
Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2}) Me.LayoutControlGroup3.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem2})
Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup3.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup3.Name = "LayoutControlGroup3" Me.LayoutControlGroup3.Name = "LayoutControlGroup3"
Me.LayoutControlGroup3.Size = New System.Drawing.Size(899, 249) Me.LayoutControlGroup3.Size = New System.Drawing.Size(899, 249)
resources.ApplyResources(Me.LayoutControlGroup3, "LayoutControlGroup3")
' '
'LayoutControlItem2 'LayoutControlItem2
' '
resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2")
Me.LayoutControlItem2.Control = Me.GridReceivers Me.LayoutControlItem2.Control = Me.GridReceivers
Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Name = "LayoutControlItem2"
@ -492,15 +437,15 @@ Partial Public Class frmEnvelopeEditor
' '
'PanelControl2 'PanelControl2
' '
resources.ApplyResources(Me.PanelControl2, "PanelControl2")
Me.PanelControl2.Controls.Add(Me.LayoutControl1) Me.PanelControl2.Controls.Add(Me.LayoutControl1)
resources.ApplyResources(Me.PanelControl2, "PanelControl2")
Me.PanelControl2.Name = "PanelControl2" Me.PanelControl2.Name = "PanelControl2"
' '
'LayoutControl1 'LayoutControl1
' '
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Controls.Add(Me.txtSubject) Me.LayoutControl1.Controls.Add(Me.txtSubject)
Me.LayoutControl1.Controls.Add(Me.txtMessage) Me.LayoutControl1.Controls.Add(Me.txtMessage)
resources.ApplyResources(Me.LayoutControl1, "LayoutControl1")
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root Me.LayoutControl1.Root = Me.Root
' '
@ -520,7 +465,6 @@ Partial Public Class frmEnvelopeEditor
' '
'Root 'Root
' '
resources.ApplyResources(Me.Root, "Root")
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1})
@ -531,34 +475,34 @@ Partial Public Class frmEnvelopeEditor
' '
'LayoutControlGroup1 'LayoutControlGroup1
' '
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3}) Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem3})
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlGroup1.Name = "LayoutControlGroup1" Me.LayoutControlGroup1.Name = "LayoutControlGroup1"
Me.LayoutControlGroup1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlGroup1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlGroup1.Size = New System.Drawing.Size(899, 259) Me.LayoutControlGroup1.Size = New System.Drawing.Size(899, 259)
resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1")
' '
'LayoutControlItem1 'LayoutControlItem1
' '
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.Control = Me.txtSubject Me.LayoutControlItem1.Control = Me.txtSubject
Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem1.Name = "LayoutControlItem1" Me.LayoutControlItem1.Name = "LayoutControlItem1"
Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem1.Size = New System.Drawing.Size(873, 56) Me.LayoutControlItem1.Size = New System.Drawing.Size(873, 56)
resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1")
Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(42, 13) Me.LayoutControlItem1.TextSize = New System.Drawing.Size(45, 13)
' '
'LayoutControlItem3 'LayoutControlItem3
' '
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
Me.LayoutControlItem3.Control = Me.txtMessage Me.LayoutControlItem3.Control = Me.txtMessage
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 56) Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 56)
Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.LayoutControlItem3.Size = New System.Drawing.Size(873, 156) Me.LayoutControlItem3.Size = New System.Drawing.Size(873, 156)
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(42, 13) Me.LayoutControlItem3.TextSize = New System.Drawing.Size(45, 13)
' '
'FrmEditorBindingSource 'FrmEditorBindingSource
' '

1540
EnvelopeGenerator.Form/frmEnvelopeEditor.resx
View File

File diff suppressed because it is too large Load Diff

15
EnvelopeGenerator.Form/frmEnvelopeEditor.vb
View File

@ -1,4 +1,5 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports System.Runtime.Remoting.Messaging
Imports DevExpress.XtraEditors Imports DevExpress.XtraEditors
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
@ -22,6 +23,13 @@ Partial Public Class frmEnvelopeEditor
End Sub End Sub
Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick Private Sub btnNewFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNewFile.ItemClick
' prüfen ob es schon eine Datei gibt
If Documents.Count > 0 Then
MsgBox(Resources.Envelope.Only_one_file_is_allowed, MsgBoxStyle.Information, Text)
Return
End If
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim oDocument = Controller.CreateDocument(OpenFileDialog1.FileName) Dim oDocument = Controller.CreateDocument(OpenFileDialog1.FileName)
@ -237,7 +245,14 @@ Partial Public Class frmEnvelopeEditor
End Sub End Sub
Private Sub btnCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCancel.ItemClick Private Sub btnCancel_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCancel.ItemClick
' Speichern?
Dim oMessage = Resources.Envelope.Should_The_Envelope_Be_Saved
If MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.Yes Then
SaveEnvelope(False)
End If
' Schließen
Me.Close()
End Sub End Sub
Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick

137
EnvelopeGenerator.Form/frmMain.Designer.vb generated
View File

@ -21,13 +21,10 @@ Partial Class frmMain
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True) 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)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.btnCreateEnvelope = New DevExpress.XtraBars.BarButtonItem() Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.btnEditEnvelope = New DevExpress.XtraBars.BarButtonItem() Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.btnDeleteEnvelope = New DevExpress.XtraBars.BarButtonItem() Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl() Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl()
Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView() Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn() Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
@ -35,15 +32,89 @@ Partial Class frmMain
Me.colTitle = New DevExpress.XtraGrid.Columns.GridColumn() Me.colTitle = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSubject = New DevExpress.XtraGrid.Columns.GridColumn() Me.colSubject = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colAddedWhen = 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.GridEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplashScreenManager1 'SplashScreenManager1
' '
SplashScreenManager1.ClosingDelay = 500 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 'RibbonControl
' '
Me.RibbonControl.ExpandCollapseItem.Id = 0 Me.RibbonControl.ExpandCollapseItem.Id = 0
@ -95,50 +166,6 @@ Partial Class frmMain
Me.RibbonStatusBar.Name = "RibbonStatusBar" Me.RibbonStatusBar.Name = "RibbonStatusBar"
Me.RibbonStatusBar.Ribbon = Me.RibbonControl 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 'frmMain
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -149,9 +176,10 @@ Partial Class frmMain
Me.Name = "frmMain" Me.Name = "frmMain"
Me.Ribbon = Me.RibbonControl Me.Ribbon = Me.RibbonControl
Me.StatusBar = Me.RibbonStatusBar 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.GridEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ViewEnvelopes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -171,4 +199,7 @@ Partial Class frmMain
Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colAddedWhen As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colContractType As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colContractType As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colStatus 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 End Class

225
EnvelopeGenerator.Form/frmMain.resx
View File

@ -117,6 +117,93 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="ColEmail.Caption" xml:space="preserve">
<value>Email</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ColEmail.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColEmail.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="ColReceiverStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="ColReceiverStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="ColReceiverStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridEnvelopes.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridEnvelopes.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="colContractType.Caption" xml:space="preserve">
<value>Typ</value>
</data>
<data name="colContractType.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colContractType.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="colContractType.Width" type="System.Int32, mscorlib">
<value>133</value>
</data>
<data name="colStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="colStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="colStatus.Width" type="System.Int32, mscorlib">
<value>54</value>
</data>
<data name="colTitle.Caption" xml:space="preserve">
<value>Titel</value>
</data>
<data name="colTitle.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colTitle.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="colTitle.Width" type="System.Int32, mscorlib">
<value>159</value>
</data>
<data name="colSubject.Caption" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="colSubject.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSubject.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colSubject.Width" type="System.Int32, mscorlib">
<value>159</value>
</data>
<data name="colAddedWhen.Caption" xml:space="preserve">
<value>Erstellt am</value>
</data>
<data name="colAddedWhen.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colAddedWhen.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="colAddedWhen.Width" type="System.Int32, mscorlib">
<value>51</value>
</data>
<data name="btnCreateEnvelope.Caption" xml:space="preserve"> <data name="btnCreateEnvelope.Caption" xml:space="preserve">
<value>Neuer Umschlag</value> <value>Neuer Umschlag</value>
</data> </data>
@ -183,7 +270,6 @@
IC8+DQogIDwvZz4NCjwvc3ZnPgs= IC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value> </value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
@ -226,74 +312,6 @@
<data name="&gt;&gt;RibbonControl.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GridEnvelopes.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridEnvelopes.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 158</value>
</data>
<data name="colContractType.Caption" xml:space="preserve">
<value>Typ</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="colContractType.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colContractType.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="colContractType.Width" type="System.Int32, mscorlib">
<value>70</value>
</data>
<data name="colStatus.Caption" xml:space="preserve">
<value>Status</value>
</data>
<data name="colStatus.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colStatus.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="colStatus.Width" type="System.Int32, mscorlib">
<value>70</value>
</data>
<data name="colTitle.Caption" xml:space="preserve">
<value>Titel</value>
</data>
<data name="colTitle.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colTitle.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="colTitle.Width" type="System.Int32, mscorlib">
<value>350</value>
</data>
<data name="colSubject.Caption" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="colSubject.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSubject.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colSubject.Width" type="System.Int32, mscorlib">
<value>350</value>
</data>
<data name="colAddedWhen.Caption" xml:space="preserve">
<value>Erstellt am</value>
</data>
<data name="colAddedWhen.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colAddedWhen.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="colAddedWhen.Width" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="GridEnvelopes.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridEnvelopes.Size" type="System.Drawing.Size, System.Drawing">
<value>1088, 499</value> <value>1088, 499</value>
</data> </data>
@ -312,6 +330,9 @@
<data name="&gt;&gt;GridEnvelopes.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GridEnvelopes.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="ViewReceivers.ViewCaption" xml:space="preserve">
<value>Empfänger</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@ -330,35 +351,23 @@
<data name="&gt;&gt;SplashScreenManager1.Type" xml:space="preserve"> <data name="&gt;&gt;SplashScreenManager1.Type" xml:space="preserve">
<value>DevExpress.XtraSplashScreen.SplashScreenManager, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraSplashScreen.SplashScreenManager, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnCreateEnvelope.Name" xml:space="preserve"> <data name="&gt;&gt;ViewReceivers.Name" xml:space="preserve">
<value>btnCreateEnvelope</value> <value>ViewReceivers</value>
</data> </data>
<data name="&gt;&gt;btnCreateEnvelope.Type" xml:space="preserve"> <data name="&gt;&gt;ViewReceivers.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnEditEnvelope.Name" xml:space="preserve"> <data name="&gt;&gt;ColEmail.Name" xml:space="preserve">
<value>btnEditEnvelope</value> <value>ColEmail</value>
</data> </data>
<data name="&gt;&gt;btnEditEnvelope.Type" xml:space="preserve"> <data name="&gt;&gt;ColEmail.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnDeleteEnvelope.Name" xml:space="preserve"> <data name="&gt;&gt;ColReceiverStatus.Name" xml:space="preserve">
<value>btnDeleteEnvelope</value> <value>ColReceiverStatus</value>
</data> </data>
<data name="&gt;&gt;btnDeleteEnvelope.Type" xml:space="preserve"> <data name="&gt;&gt;ColReceiverStatus.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;ViewEnvelopes.Name" xml:space="preserve"> <data name="&gt;&gt;ViewEnvelopes.Name" xml:space="preserve">
<value>ViewEnvelopes</value> <value>ViewEnvelopes</value>
@ -396,6 +405,36 @@
<data name="&gt;&gt;colAddedWhen.Type" xml:space="preserve"> <data name="&gt;&gt;colAddedWhen.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;btnCreateEnvelope.Name" xml:space="preserve">
<value>btnCreateEnvelope</value>
</data>
<data name="&gt;&gt;btnCreateEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Name" xml:space="preserve">
<value>btnEditEnvelope</value>
</data>
<data name="&gt;&gt;btnEditEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Name" xml:space="preserve">
<value>btnDeleteEnvelope</value>
</data>
<data name="&gt;&gt;btnDeleteEnvelope.Type" xml:space="preserve">
<value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
<value>RibbonPage1</value>
</data>
<data name="&gt;&gt;RibbonPage1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Name" xml:space="preserve">
<value>RibbonPageGroup1</value>
</data>
<data name="&gt;&gt;RibbonPageGroup1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value> <value>frmMain</value>
</data> </data>

17
EnvelopeGenerator.Form/frmMain.vb
View File

@ -13,6 +13,7 @@ Public Class frmMain
Private Database As MSSQLServer Private Database As MSSQLServer
Private ConfigManager As ConfigManager(Of Config) Private ConfigManager As ConfigManager(Of Config)
Private TempFiles As TempFiles Private TempFiles As TempFiles
Private FormHelper As FormHelper
Private GridBuilder As GridBuilder Private GridBuilder As GridBuilder
@ -23,12 +24,26 @@ Public Class frmMain
Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log") Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log")
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator") LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
Logger = LogConfig.GetLogger() Logger = LogConfig.GetLogger()
FormHelper = New FormHelper(LogConfig, Me)
TempFiles = New TempFiles(LogConfig) TempFiles = New TempFiles(LogConfig)
TempFiles.Create() TempFiles.Create()
Try Try
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath) ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
If ConfigManager.Config.ConnectionString = String.Empty Then
Dim oSQLConfig As New frmSQLConfig(LogConfig)
If oSQLConfig.ShowDialog() = DialogResult.OK Then
ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
ConfigManager.Save()
Application.Restart()
Else
FormHelper.ShowErrorMessage(New ApplicationException("No Database configured. Application will close!"), "Form Load")
Application.Exit()
End If
End If
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString) Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
Database = New MSSQLServer(LogConfig, oConnectionString) Database = New MSSQLServer(LogConfig, oConnectionString)