Initial commit

BEA - Kopie (2)/Diverse Formulare/frmAbout.designer.vb

@@ -0,0 +1,138 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAbout
+    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(frmAbout))
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.lblversiondatum = New System.Windows.Forms.Label()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblVersion = New System.Windows.Forms.Label()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(117, 335)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 2
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.lblversiondatum)
+        Me.Panel1.Controls.Add(Me.PictureBox2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.lblVersion)
+        Me.Panel1.Location = New System.Drawing.Point(3, 5)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(301, 324)
+        Me.Panel1.TabIndex = 6
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(7, 3)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(286, 44)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 3
+        Me.PictureBox1.TabStop = False
+        '
+        'lblversiondatum
+        '
+        Me.lblversiondatum.BackColor = System.Drawing.Color.White
+        Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblversiondatum.Location = New System.Drawing.Point(44, 299)
+        Me.lblversiondatum.Name = "lblversiondatum"
+        Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
+        Me.lblversiondatum.TabIndex = 2
+        Me.lblversiondatum.Text = "Version "
+        Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.ErrorImage = CType(resources.GetObject("PictureBox2.ErrorImage"), System.Drawing.Image)
+        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
+        Me.PictureBox2.Location = New System.Drawing.Point(7, 53)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(286, 195)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.TabIndex = 4
+        Me.PictureBox2.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(6, 251)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(287, 24)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Berechtigungs-Administration"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'lblVersion
+        '
+        Me.lblVersion.BackColor = System.Drawing.Color.White
+        Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVersion.Location = New System.Drawing.Point(47, 275)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.Size = New System.Drawing.Size(197, 24)
+        Me.lblVersion.TabIndex = 1
+        Me.lblVersion.Text = "Version "
+        Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'frmAbout
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(307, 364)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.btnOK)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmAbout"
+        Me.Text = "Über..."
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents lblversiondatum As System.Windows.Forms.Label
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents lblVersion As System.Windows.Forms.Label
+End Class

BEA - Kopie (2)/Diverse Formulare/frmAbout.vb

@@ -0,0 +1,12 @@
+Public Class frmAbout
+
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
+        Me.lblversiondatum.Text = Globals.Versionsdatum
+
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmExportContainer.Designer.vb

@@ -0,0 +1,129 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmExportContainer
+    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(frmExportContainer))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        Me.Typ = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.Bezeichnung = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.Key = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ToolStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.ToolStripButton1, Me.ToolStripButton2})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(296, 25)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton1.Text = "Daten aufbereiten"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Text = "Inhalt löschen"
+        '
+        'ListView1
+        '
+        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Typ, Me.Bezeichnung, Me.Key})
+        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ListView1.Location = New System.Drawing.Point(0, 25)
+        Me.ListView1.Name = "ListView1"
+        Me.ListView1.Size = New System.Drawing.Size(296, 567)
+        Me.ListView1.TabIndex = 7
+        Me.ListView1.UseCompatibleStateImageBehavior = False
+        Me.ListView1.View = System.Windows.Forms.View.Details
+        '
+        'Typ
+        '
+        Me.Typ.Text = "Typ"
+        '
+        'Bezeichnung
+        '
+        Me.Bezeichnung.Text = "Bezeichnung"
+        '
+        'Key
+        '
+        Me.Key.Text = "KeyValue"
+        '
+        'frmExportContainer
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(296, 592)
+        Me.Controls.Add(Me.ListView1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmExportContainer"
+        Me.Text = "ExportContainer"
+        Me.TopMost = True
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ListView1 As System.Windows.Forms.ListView
+    Friend WithEvents Typ As System.Windows.Forms.ColumnHeader
+    Friend WithEvents Bezeichnung As System.Windows.Forms.ColumnHeader
+    Friend WithEvents Key As System.Windows.Forms.ColumnHeader
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
+End Class

BEA - Kopie (2)/Diverse Formulare/frmExportContainer.vb

@@ -0,0 +1,67 @@
+Public Class frmExportContainer
+
+    Dim WithEvents evh As _Generic_Event_Handler.Generic_Event_Handler = Globals.Generic_Event_Handler
+
+    Private Sub frmExportContainer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub evh_Export_Vorbereiten_Clicked(Type As String, Bezeichnung As String, Keyvalue As String) Handles evh.Export_Vorbereiten_Clicked
+        Dim arr(3) As String
+        arr(0) = Type
+        arr(1) = Bezeichnung
+        arr(2) = Keyvalue
+        Dim li As New ListViewItem(arr)
+        Me.ListView1.Items.Add(li)
+    End Sub
+
+    Private Sub frmExportContainer_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
+        Me.ListView1.Columns(0).Width = Me.ListView1.Width / 3
+        Me.ListView1.Columns(1).Width = Me.ListView1.Width / 3
+        Me.ListView1.Columns(2).Width = Me.ListView1.Width / 3
+
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Globals.ExcelExport_Form_exists = False
+        Me.Close()
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Dim frmf As New frmFortschritt
+        frmf.Show()
+        frmf.ProgressBar1.Value = 0
+        frmf.ProgressBar1.Maximum = Me.ListView1.Items.Count
+        Dim ds As New DataSet
+        Dim dc As New _DataClass.DataClass
+        ds.Tables.Clear()
+        Dim i As Integer = 1
+
+        For Each lvi As ListViewItem In Me.ListView1.Items
+            frmf.ProgressBar1.Value = frmf.ProgressBar1.Value + 1
+            Application.DoEvents()
+            Dim dt As New DataTable
+            dt = dc.Get_Data_for_ExcelExport(lvi.SubItems(0).Text, lvi.SubItems(2).Text)
+
+            If i = 1 Then
+                ds.Tables.Add(dt.Copy)
+            Else
+                For Each r As DataRow In dt.Rows
+                    ds.Tables(0).ImportRow(r)
+                Next
+            End If
+            i = i + 1
+        Next
+
+        Dim rpt As New _FRReporting.frmAuswertung("ExcelExport", ds, Globals.clsapplication.sTmp_filepath.Value)
+
+        rpt.MdiParent = Me.MdiParent
+        rpt.Show()
+        frmf.Close()
+        frmf.Dispose()
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        Me.ListView1.Items.Clear()
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmFortschritt.Designer.vb

@@ -0,0 +1,49 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmFortschritt
+    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(frmFortschritt))
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.SuspendLayout()
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(12, 12)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(481, 23)
+        Me.ProgressBar1.TabIndex = 0
+        '
+        'frmFortschritt
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(505, 51)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmFortschritt"
+        Me.Text = "Fortschritt"
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+End Class

BEA - Kopie (2)/Diverse Formulare/frmFortschritt.vb

@@ -0,0 +1,6 @@
+Public Class frmFortschritt
+
+    Private Sub frmFortschritt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmLogin.designer.vb

@@ -0,0 +1,89 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmLogin
+    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(frmLogin))
+        Me.lblBitteAnmelden = New System.Windows.Forms.Label()
+        Me.cbMitarbeiter = New System.Windows.Forms.ComboBox()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.btnAnmelden = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'lblBitteAnmelden
+        '
+        Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
+        Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
+        Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
+        Me.lblBitteAnmelden.TabIndex = 3
+        Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
+        '
+        'cbMitarbeiter
+        '
+        Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
+        Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cbMitarbeiter.FormattingEnabled = True
+        Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
+        Me.cbMitarbeiter.Name = "cbMitarbeiter"
+        Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
+        Me.cbMitarbeiter.TabIndex = 4
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
+        Me.btnAbbruch.TabIndex = 6
+        Me.btnAbbruch.Text = "&Abbruch"
+        '
+        'btnAnmelden
+        '
+        Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
+        Me.btnAnmelden.Name = "btnAnmelden"
+        Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
+        Me.btnAnmelden.TabIndex = 5
+        Me.btnAnmelden.Text = "&Anmelden"
+        '
+        'frmLogin
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(308, 129)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnAnmelden)
+        Me.Controls.Add(Me.cbMitarbeiter)
+        Me.Controls.Add(Me.lblBitteAnmelden)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmLogin"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Benutzerauswahl"
+        Me.TopMost = True
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
+    Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents btnAnmelden As System.Windows.Forms.Button
+End Class

BEA - Kopie (2)/Diverse Formulare/frmLogin.resx

@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
+        AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIAAAAAAAAAAAAAIi
+        IiJyIiIiIAAAAAAAACIndyInd3ciIiIAAAAAAAIid3cvJ3d3ciIiAAAAAAACJ3d3f4J3d3ciIgAAAAAA
+        Ind3co/3d3d3ciIAAAAAACJ3d3L//yd3d3IgAAAAAAACd3dy//+Cd3dyIAAAAAAAAnd3cv//9yd3cgAA
+        AAAAAAIneHf///9ndyAAAAAAAAAAInh3hzM3giIAAAAAAAAAAAAiIzMzMzMgAAAAAAAAAAAAAAMzMzMz
+        MAAAAAAAAAAAAAAzu7u7uzMAAAAAAAAAAAABO7u7u7uzAAAAAAAAAAAAA7u7u7u7uzAAAAAAAAAAAAO7
+        u7u7u7swAAAAAAAAAAATu7u7u7u7sQAAAAAAAAAAE7u7u7u7u7MAAAAAAAAAADu7u7u7u7uzAAAAAAAA
+        AAAbu7u7u7u7swAAAAAAAAAAG7u7u7u7u7MAAAAAAAAAABO7Mzu7u7szAAAAAAAAAAADMzMzMzMzMwAA
+        AAAAAAAAAzM3eIdzMzMAAAAAAAAAAAAzeIiIiHMxAAAAAAAAAAAAM4iIiIdzMAAAAAAAAAAAAAM4iIiI
+        MwAAAAAAAAAAAAAAM4iIczAAAAAAAAAAAAAAAAATMxAAAAAAAAD/4AAf/gAAD/gAAA/wAAAP8AAAD/AA
+        AA/wAAAP8AAAD/AAAA/wAAAf8AAAH/gAAD/4AAB//gAA//+AAH//gAB//wAAP/8AAD//AAA//wAAP/8A
+        AB//AAAf/wAAH/8AAB//AAAf/wAAP/+AAD//gAA//8AAP//AAH//4AD///gD/w==
+</value>
+  </data>
+</root>

BEA - Kopie (2)/Diverse Formulare/frmLogin.vb

@@ -0,0 +1,41 @@
+''' <summary>
+''' Form für den Login. Wird nur angezeigt, sofern in der Tabelle Application Show-Login = true
+''' </summary>
+''' <remarks></remarks>
+Public Class frmLogin
+
+    Dim m_mitarbeiternr As Integer
+    Property Mitarbeiternr() As Integer
+        Get
+            Return m_mitarbeiternr
+        End Get
+        Set(ByVal value As Integer)
+            m_mitarbeiternr = value
+        End Set
+    End Property
+
+    Dim tmp_madaten As New DataTable
+    Dim tmp_clsmitarbeiter As New DB.MyMitarbeiter
+    Dim conn As New DB.clsConnectionProvider
+
+    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        conn = Globals.conn
+        tmp_clsmitarbeiter.cpMainConnectionProvider = conn
+        conn.OpenConnection()
+        tmp_madaten = tmp_clsmitarbeiter.SelectAllwithFullname
+        Me.cbMitarbeiter.DataSource = tmp_madaten
+        Me.cbMitarbeiter.DisplayMember = "Fullname"
+        Me.cbMitarbeiter.ValueMember = "Mitarbeiternr"
+        conn.CloseConnection(True)
+    End Sub
+
+    Private Sub btnAnmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnmelden.Click
+        Me.Mitarbeiternr = Me.cbMitarbeiter.SelectedValue
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+    End Sub
+
+    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
+        Me.Mitarbeiternr = -1
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmMsgBox.designer.vb

@@ -0,0 +1,181 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMsgBox
+    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(frmMsgBox))
+        Me.btnYes = New System.Windows.Forms.Button()
+        Me.btnno = New System.Windows.Forms.Button()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtmsg = New System.Windows.Forms.TextBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.imgQuestion = New System.Windows.Forms.PictureBox()
+        Me.imgInformation = New System.Windows.Forms.PictureBox()
+        Me.imgExclamation = New System.Windows.Forms.PictureBox()
+        Me.imgCritical = New System.Windows.Forms.PictureBox()
+        Me.Panel1.SuspendLayout()
+        CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnYes
+        '
+        Me.btnYes.Location = New System.Drawing.Point(71, 84)
+        Me.btnYes.Name = "btnYes"
+        Me.btnYes.Size = New System.Drawing.Size(75, 23)
+        Me.btnYes.TabIndex = 0
+        Me.btnYes.Text = "&Ja"
+        Me.btnYes.UseVisualStyleBackColor = True
+        '
+        'btnno
+        '
+        Me.btnno.Location = New System.Drawing.Point(162, 84)
+        Me.btnno.Name = "btnno"
+        Me.btnno.Size = New System.Drawing.Size(75, 23)
+        Me.btnno.TabIndex = 1
+        Me.btnno.Text = "&Nein"
+        Me.btnno.UseVisualStyleBackColor = True
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbbruch.TabIndex = 2
+        Me.btnAbbruch.Text = "&Abbrechen"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtmsg
+        '
+        Me.txtmsg.BackColor = System.Drawing.Color.White
+        Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtmsg.Location = New System.Drawing.Point(67, 20)
+        Me.txtmsg.Multiline = True
+        Me.txtmsg.Name = "txtmsg"
+        Me.txtmsg.ReadOnly = True
+        Me.txtmsg.Size = New System.Drawing.Size(258, 44)
+        Me.txtmsg.TabIndex = 3
+        Me.txtmsg.TabStop = False
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(133, 84)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 5
+        Me.btnOK.Text = "&OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.imgQuestion)
+        Me.Panel1.Controls.Add(Me.imgInformation)
+        Me.Panel1.Controls.Add(Me.imgExclamation)
+        Me.Panel1.Controls.Add(Me.txtmsg)
+        Me.Panel1.Controls.Add(Me.imgCritical)
+        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(337, 78)
+        Me.Panel1.TabIndex = 6
+        '
+        'imgQuestion
+        '
+        Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
+        Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
+        Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
+        Me.imgQuestion.Name = "imgQuestion"
+        Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
+        Me.imgQuestion.TabIndex = 7
+        Me.imgQuestion.TabStop = False
+        '
+        'imgInformation
+        '
+        Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
+        Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
+        Me.imgInformation.Location = New System.Drawing.Point(12, 20)
+        Me.imgInformation.Name = "imgInformation"
+        Me.imgInformation.Size = New System.Drawing.Size(39, 36)
+        Me.imgInformation.TabIndex = 6
+        Me.imgInformation.TabStop = False
+        '
+        'imgExclamation
+        '
+        Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
+        Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
+        Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
+        Me.imgExclamation.Name = "imgExclamation"
+        Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
+        Me.imgExclamation.TabIndex = 5
+        Me.imgExclamation.TabStop = False
+        '
+        'imgCritical
+        '
+        Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
+        Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
+        Me.imgCritical.Location = New System.Drawing.Point(12, 20)
+        Me.imgCritical.Name = "imgCritical"
+        Me.imgCritical.Size = New System.Drawing.Size(39, 36)
+        Me.imgCritical.TabIndex = 4
+        Me.imgCritical.TabStop = False
+        '
+        'frmMsgBox
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(337, 116)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnno)
+        Me.Controls.Add(Me.btnYes)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmMsgBox"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "BEA"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnYes As System.Windows.Forms.Button
+    Friend WithEvents btnno As System.Windows.Forms.Button
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents txtmsg As System.Windows.Forms.TextBox
+    Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
+    Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
+    Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
+End Class

BEA - Kopie (2)/Diverse Formulare/frmMsgBox.vb

@@ -0,0 +1,26 @@
+Public Class frmMsgBox
+
+    Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Yes
+        Me.Close()
+    End Sub
+
+    Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
+        Me.DialogResult = Windows.Forms.DialogResult.No
+        Me.Close()
+    End Sub
+
+    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmSplash.designer.vb

@@ -0,0 +1,136 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSplash
+    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()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.lblVersion = New System.Windows.Forms.Label()
+        Me.lblversiondatum = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Timer1
+        '
+        Me.Timer1.Enabled = True
+        Me.Timer1.Interval = 3000
+        '
+        'lblVersion
+        '
+        Me.lblVersion.BackColor = System.Drawing.Color.White
+        Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVersion.Location = New System.Drawing.Point(47, 275)
+        Me.lblVersion.Name = "lblVersion"
+        Me.lblVersion.Size = New System.Drawing.Size(197, 24)
+        Me.lblVersion.TabIndex = 1
+        Me.lblVersion.Text = "Version "
+        Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'lblversiondatum
+        '
+        Me.lblversiondatum.BackColor = System.Drawing.Color.White
+        Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblversiondatum.Location = New System.Drawing.Point(44, 299)
+        Me.lblversiondatum.Name = "lblversiondatum"
+        Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
+        Me.lblversiondatum.TabIndex = 2
+        Me.lblversiondatum.Text = "Version "
+        Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(7, 3)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(286, 44)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox1.TabIndex = 3
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.ErrorImage = CType(resources.GetObject("PictureBox2.ErrorImage"), System.Drawing.Image)
+        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
+        Me.PictureBox2.Location = New System.Drawing.Point(7, 53)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(286, 195)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.TabIndex = 4
+        Me.PictureBox2.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(6, 251)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(287, 24)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Berechtigungs-Administration"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.lblversiondatum)
+        Me.Panel1.Controls.Add(Me.PictureBox2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.lblVersion)
+        Me.Panel1.Location = New System.Drawing.Point(5, 4)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(301, 324)
+        Me.Panel1.TabIndex = 5
+        '
+        'frmSplash
+        '
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.BackColor = System.Drawing.SystemColors.Control
+        Me.ClientSize = New System.Drawing.Size(310, 334)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmSplash"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmSplash"
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Timer1 As System.Windows.Forms.Timer
+    Friend WithEvents lblVersion As System.Windows.Forms.Label
+    Friend WithEvents lblversiondatum As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+End Class

BEA - Kopie (2)/Diverse Formulare/frmSplash.vb

@@ -0,0 +1,15 @@
+Public Class frmSplash
+
+    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+        Me.Close()
+    End Sub
+
+    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
+
+    End Sub
+
+    Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
+        Me.lblVersiondatum.text = Globals.Versionsdatum
+    End Sub
+End Class

BEA - Kopie (2)/Diverse Formulare/frmTempBerechtigung.Designer.vb

@@ -0,0 +1,195 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmTempBerechtigung
+    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()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTempBerechtigung))
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.InaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PerosnAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FunktionstelleAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BerechtigungAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PlattformAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(957, 24)
+        Me.MenuStrip1.TabIndex = 5
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.MergeAction = System.Windows.Forms.MergeAction.MatchOnly
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'SchliessenToolStripMenuItem
+        '
+        Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
+        Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
+        Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(957, 27)
+        Me.ToolStrip1.TabIndex = 6
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(24, 24)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(24, 24)
+        Me.ToolStripButton1.Text = "Excel-Export"
+        '
+        'C1Daten
+        '
+        Me.C1Daten.AlternatingRows = True
+        Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
+        Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Daten.FetchRowStyles = True
+        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, 51)
+        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(957, 389)
+        Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
+        Me.C1Daten.TabIndex = 7
+        Me.C1Daten.Text = "C1TrueDBGrid1"
+        Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InaktivierenToolStripMenuItem, Me.PerosnAnzeigenToolStripMenuItem, Me.FunktionstelleAnzeigenToolStripMenuItem, Me.BerechtigungAnzeigenToolStripMenuItem, Me.PlattformAnzeigenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(199, 114)
+        '
+        'InaktivierenToolStripMenuItem
+        '
+        Me.InaktivierenToolStripMenuItem.Name = "InaktivierenToolStripMenuItem"
+        Me.InaktivierenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
+        Me.InaktivierenToolStripMenuItem.Text = "Inaktivieren"
+        '
+        'PerosnAnzeigenToolStripMenuItem
+        '
+        Me.PerosnAnzeigenToolStripMenuItem.Name = "PerosnAnzeigenToolStripMenuItem"
+        Me.PerosnAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
+        Me.PerosnAnzeigenToolStripMenuItem.Text = "Person anzeigen"
+        '
+        'FunktionstelleAnzeigenToolStripMenuItem
+        '
+        Me.FunktionstelleAnzeigenToolStripMenuItem.Name = "FunktionstelleAnzeigenToolStripMenuItem"
+        Me.FunktionstelleAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
+        Me.FunktionstelleAnzeigenToolStripMenuItem.Text = "Funktionstelle anzeigen"
+        '
+        'BerechtigungAnzeigenToolStripMenuItem
+        '
+        Me.BerechtigungAnzeigenToolStripMenuItem.Name = "BerechtigungAnzeigenToolStripMenuItem"
+        Me.BerechtigungAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
+        Me.BerechtigungAnzeigenToolStripMenuItem.Text = "Berechtigung anzeigen"
+        '
+        'PlattformAnzeigenToolStripMenuItem
+        '
+        Me.PlattformAnzeigenToolStripMenuItem.Name = "PlattformAnzeigenToolStripMenuItem"
+        Me.PlattformAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(198, 22)
+        Me.PlattformAnzeigenToolStripMenuItem.Text = "Plattform anzeigen"
+        '
+        'frmTempBerechtigung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(957, 440)
+        Me.Controls.Add(Me.C1Daten)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmTempBerechtigung"
+        Me.Text = "Temporäre Berechtigungen"
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents InaktivierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents PerosnAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents FunktionstelleAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BerechtigungAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents PlattformAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

BEA - Kopie (2)/Diverse Formulare/frmTempBerechtigung.vb

@@ -0,0 +1,207 @@
+Public Class frmTempBerechtigung
+
+    Dim dc As New _DataClass.DataClass
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+    Dim sec As New Utils.MySecurity
+
+    Private Sub frmTempBerechtigung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Refresh_Data()
+        sec.Set_Form_Security(Me)
+    End Sub
+
+    Sub Refresh_Data()
+        Dim dt As New DataTable
+        dt = dc.Get_Temp_Berechtgungen()
+        Me.C1Daten.DataSource = Nothing
+        Me.C1Daten.DataSource = dt
+        Me.C1Daten.DataMember = dt.TableName
+        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Daten, "TempBerechtigung", dt)
+    End Sub
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Me.SaveFileDialog1.AddExtension = True
+        Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xlsx")
+        Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xlsx"
+
+        Me.SaveFileDialog1.ShowDialog()
+        If Me.SaveFileDialog1.FileName <> "" Then
+            Dim tdt As New DataTable
+            tdt = Me.C1Daten.DataSource.Copy
+            tdt.Rows.Clear()
+            For i As Integer = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
+                If C1Daten.Splits(0).Rows(i).Visible = True Then
+                    Dim dr As DataRow = tdt.NewRow
+                    For ii As Integer = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
+                        C1Daten.Bookmark = i
+
+                        dr.Item(ii) = C1Daten.Columns(ii).Value
+                    Next ii
+                    tdt.Rows.Add(dr)
+                End If
+
+            Next i
+            Try
+                Me.C1Daten.Bookmark = 0
+            Catch
+            End Try
+
+            If Me.SaveFileDialog1.FileName.EndsWith(".xlsx") Or Me.SaveFileDialog1.FileName.EndsWith("XLSX") Then
+                Me.DatatableToExcel(tdt, Me.SaveFileDialog1.FileName)
+                'Me.DatatableToExcel(Me.C1Daten.DataSource, Me.SaveFileDialog1.FileName)
+            Else
+                Me.C1Daten.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", True, System.Text.Encoding.Default.BodyName)
+            End If
+        End If
+        Exit Sub
+    End Sub
+
+
+    Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, ByVal aOutputFilename As String) As Boolean
+        Application.DoEvents()
+        Dim f As New FrmFortschritt
+        Dim app As New Object
+        Dim wb As New Object
+        Dim ws As New Object
+        Try
+            f.Show()
+            Application.DoEvents()
+            f.ProgressBar1.Minimum = 0
+            f.ProgressBar1.Maximum = aDataTable.Rows.Count
+            f.ProgressBar1.Step = 1
+            f.ProgressBar1.Value = 0
+            app = CreateObject("Excel.application")
+            'Dim wb As Object
+            'Dim ws As Object
+            '        Dim app As New Excel.ApplicationClass
+            '       Dim wb As Excel.Workbook
+            '      Dim ws As Excel.Worksheet
+            wb = app.Workbooks.add()
+            'wb = app.Workbooks.Add()
+            ws = wb.ActiveSheet()
+            Dim dc As DataColumn
+            Dim dr As DataRow
+            Dim colIndex As Integer
+            Dim rowIndex As Integer
+            ' Columns erstellen
+            For Each dc In aDataTable.Columns
+                colIndex += 1
+                app.Cells(1, colIndex) = dc.ColumnName
+            Next
+            ' Rows hinzufügen
+            For Each dr In aDataTable.Rows
+                f.ProgressBar1.Value = rowIndex
+                rowIndex += 1
+                colIndex = 0
+                For Each dc In aDataTable.Columns
+                    colIndex += 1
+                    app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
+                Next
+            Next
+            ws.Columns.AutoFit()
+            wb.SaveAs(aOutputFilename)
+            app.Workbooks.Open(aOutputFilename)
+            ' Excel anzeigen wenn fertig exportiert
+            app.Visible = True
+            ws = Nothing
+            wb = Nothing
+            app = Nothing
+
+            f.Close()
+            Return True
+        Catch ex As Exception
+            f.Close()
+            MsgBox(ex.Message)
+        End Try
+
+
+    End Function
+
+    Private Sub PerosnAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PerosnAnzeigenToolStripMenuItem.Click
+        Dim f As New frmUebersichtRE(C1Daten.Columns("Personalnr").Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub FunktionstelleAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FunktionstelleAnzeigenToolStripMenuItem.Click
+        Dim f As New frmUebersichtRE(C1Daten.Columns("Funktionstellenr").Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub InaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InaktivierenToolStripMenuItem.Click
+        If MsgBox("Temporäre Berechtigung inaktivieren?", vbYesNo) = MsgBoxResult.Yes Then
+            dc.Delete_temp_Berechtigung(C1Daten.Columns("NrTempBerechtigung").Value, Globals.clsmitarbeiter.iMitarbeiternr.Value)
+            Me.Refresh_Data()
+        End If
+    End Sub
+
+    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
+        FunktionstelleAnzeigenToolStripMenuItem.Enabled = False
+        BerechtigungAnzeigenToolStripMenuItem.Enabled = False
+        PlattformAnzeigenToolStripMenuItem.Enabled = False
+        If C1Daten.Columns("Datatype").Value = "Funktionstelle" Then
+            FunktionstelleAnzeigenToolStripMenuItem.Enabled = True
+        End If
+        If C1Daten.Columns("Datatype").Value = "Berechtigung" Then
+            BerechtigungAnzeigenToolStripMenuItem.Enabled = True
+        End If
+        If C1Daten.Columns("Datatype").Value = "Plattform" Then
+            PlattformAnzeigenToolStripMenuItem.Enabled = True
+        End If
+
+
+    End Sub
+
+    Private Sub BerechtigungAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungAnzeigenToolStripMenuItem.Click
+        Dim f As New frmUebersichtRE(C1Daten.Columns("Funktionstellenr").Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub PlattformAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlattformAnzeigenToolStripMenuItem.Click
+        Dim f As New frmUebersichtRE(C1Daten.Columns("Funktionstellenr").Value)
+        f.MdiParent = Me.MdiParent
+        f.Show()
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
+
+    End Sub
+
+    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
+        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
+    End Sub
+
+    Private Sub C1Daten_FetchRowStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1Daten.FetchRowStyle
+        Try
+            Dim d As DateTime = Me.C1Daten.Columns("Termin").CellValue(e.Row)
+            Dim tage As Integer = DateDiff(DateInterval.Day, d, Now) * -1
+            If tage > My.Settings.Tage Then
+                If My.Settings.Foreground_gueltig <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_gueltig)
+            End If
+            If tage >= 0 And tage <= My.Settings.Tage Then
+                If My.Settings.Foreground_vor_ablauf <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_vor_ablauf)
+                If My.Settings.Background_vor_ablauf <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_vor_ablauf)
+            End If
+            If tage < 0 Then
+                If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
+                If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
+            End If
+            If d < Now Then
+                If My.Settings.Foreground_abgelaufen <> "" Then e.CellStyle.ForeColor = ColorTranslator.FromHtml(My.Settings.Foreground_abgelaufen)
+                If My.Settings.Background_abgelaufen <> "" Then e.CellStyle.BackColor = ColorTranslator.FromHtml(My.Settings.Background_abgelaufen)
+
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+End Class