Initial commit

.svn/pristine/d8/d8258720e9d5619e9affb0b15edda710164c584c.svn-base

@@ -0,0 +1,37 @@
+Public Class FilterClass
+
+    Dim m_columname As String
+    Dim m_filtervalue As String
+    Property Columname() As String
+        Get
+            Return m_columname
+        End Get
+        Set(ByVal value As String)
+            m_columname = value
+        End Set
+    End Property
+
+    Property FilterValue() As String
+        Get
+            Return m_filtervalue
+        End Get
+        Set(ByVal value As String)
+            m_filtervalue = value
+        End Set
+    End Property
+
+    Sub New(ByVal columname As String, ByVal filtervalue As String)
+        MyBase.New()
+        Me.Columname = columname
+        Me.FilterValue = filtervalue
+    End Sub
+
+    Sub New()
+        MyBase.New()
+    End Sub
+    Public Sub add(ByVal columname As String, ByVal filtervalue As String)
+        Me.Columname = columname
+        Me.FilterValue = filtervalue
+    End Sub
+End Class
+

.svn/pristine/d8/d8736fbe4848d63b96d898a33ab5de7c579c4792.svn-base

@@ -0,0 +1,128 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Demo_Mailgenerierung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Demo_Mailgenerierung))
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.Panel1.SuspendLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.DateTimePicker1)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(844, 67)
+        Me.Panel1.TabIndex = 14
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(238, 13)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Start"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(5, 51)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(46, 13)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Resultat"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(97, 12)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(103, 20)
+        Me.DateTimePicker1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(2, 18)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Simulationsdatum"
+        '
+        'C1Daten
+        '
+        Me.C1Daten.AllowUpdate = False
+        Me.C1Daten.AlternatingRows = True
+        Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
+        Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Daten.FilterBar = True
+        Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
+        Me.C1Daten.Location = New System.Drawing.Point(0, 67)
+        Me.C1Daten.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
+        Me.C1Daten.Name = "C1Daten"
+        Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Daten.Size = New System.Drawing.Size(844, 341)
+        Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Daten.TabIndex = 15
+        Me.C1Daten.Text = "C1TrueDBGrid1"
+        Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
+        Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
+        '
+        'Demo_Mailgenerierung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(844, 408)
+        Me.Controls.Add(Me.C1Daten)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "Demo_Mailgenerierung"
+        Me.Text = "Demo_Mailgenerierung"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+End Class