Imports EDOKALib
Imports System.Text.RegularExpressions
Imports System.Collections.ObjectModel
Imports System.Collections.Generic
Imports System.Data

Public Class frmAdminMitarbeiter
	Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

	Public Sub New()
		MyBase.New()

		' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
		InitializeComponent()

		' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

	End Sub

	' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If Not (components Is Nothing) Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(disposing)
	End Sub

	' Für Windows Form-Designer erforderlich
	Private components As System.ComponentModel.IContainer

	'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
	'Sie kann mit dem Windows Form-Designer modifiziert werden.
	'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
	Friend WithEvents sptHorizontal As System.Windows.Forms.Splitter
	Friend WithEvents pnlTop As System.Windows.Forms.Panel
	Friend WithEvents cmdNew As System.Windows.Forms.Button
	Friend WithEvents cmdEdit As System.Windows.Forms.Button
	Friend WithEvents Label1 As System.Windows.Forms.Label
	Friend WithEvents grdMitarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents Label2 As System.Windows.Forms.Label
	Friend WithEvents pnlBottom As System.Windows.Forms.Panel
	Friend WithEvents pnlRight As System.Windows.Forms.Panel
	Friend WithEvents grdFunktionsgruppen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents Label4 As System.Windows.Forms.Label
	Friend WithEvents sptVertikal As System.Windows.Forms.Splitter
	Friend WithEvents pnlLeft As System.Windows.Forms.Panel
	Friend WithEvents Label3 As System.Windows.Forms.Label
	Friend WithEvents grdTeams As C1.Win.C1TrueDBGrid.C1TrueDBGrid
	Friend WithEvents cmdAlleAnzeigen As System.Windows.Forms.Button
	Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
	Friend WithEvents tbMenu As System.Windows.Forms.ToolBar
	Friend WithEvents cmdClose As System.Windows.Forms.ToolBarButton
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmAdminMitarbeiter))
		Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
		Me.sptHorizontal = New System.Windows.Forms.Splitter()
		Me.pnlTop = New System.Windows.Forms.Panel()
		Me.cmdAlleAnzeigen = New System.Windows.Forms.Button()
		Me.cmdNew = New System.Windows.Forms.Button()
		Me.cmdEdit = New System.Windows.Forms.Button()
		Me.Label1 = New System.Windows.Forms.Label()
		Me.grdMitarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.Label2 = New System.Windows.Forms.Label()
		Me.pnlBottom = New System.Windows.Forms.Panel()
		Me.pnlRight = New System.Windows.Forms.Panel()
		Me.grdFunktionsgruppen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.Label4 = New System.Windows.Forms.Label()
		Me.sptVertikal = New System.Windows.Forms.Splitter()
		Me.pnlLeft = New System.Windows.Forms.Panel()
		Me.Label3 = New System.Windows.Forms.Label()
		Me.grdTeams = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
		Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
		Me.tbMenu = New System.Windows.Forms.ToolBar()
		Me.cmdClose = New System.Windows.Forms.ToolBarButton()
		Me.pnlTop.SuspendLayout()
		CType(Me.grdMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.pnlBottom.SuspendLayout()
		Me.pnlRight.SuspendLayout()
		CType(Me.grdFunktionsgruppen, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.pnlLeft.SuspendLayout()
		CType(Me.grdTeams, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'sptHorizontal
		'
		Me.sptHorizontal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.sptHorizontal.Cursor = System.Windows.Forms.Cursors.HSplit
		Me.sptHorizontal.Dock = System.Windows.Forms.DockStyle.Top
		Me.sptHorizontal.Location = New System.Drawing.Point(0, 472)
		Me.sptHorizontal.Name = "sptHorizontal"
		Me.sptHorizontal.Size = New System.Drawing.Size(656, 3)
		Me.sptHorizontal.TabIndex = 10
		Me.sptHorizontal.TabStop = False
		'
		'pnlTop
		'
		Me.pnlTop.Controls.AddRange(New System.Windows.Forms.Control() {Me.tbMenu, Me.cmdAlleAnzeigen, Me.cmdNew, Me.cmdEdit, Me.Label1, Me.grdMitarbeiter, Me.Label2})
		Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
		Me.pnlTop.Name = "pnlTop"
		Me.pnlTop.Size = New System.Drawing.Size(656, 472)
		Me.pnlTop.TabIndex = 13
		'
		'cmdAlleAnzeigen
		'
		Me.cmdAlleAnzeigen.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
		Me.cmdAlleAnzeigen.Location = New System.Drawing.Point(24, 440)
		Me.cmdAlleAnzeigen.Name = "cmdAlleAnzeigen"
		Me.cmdAlleAnzeigen.Size = New System.Drawing.Size(152, 23)
		Me.cmdAlleAnzeigen.TabIndex = 5
		Me.cmdAlleAnzeigen.Text = "Alle Mitarbeiter anzeigen"
		'
		'cmdNew
		'
		Me.cmdNew.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
		Me.cmdNew.Location = New System.Drawing.Point(552, 440)
		Me.cmdNew.Name = "cmdNew"
		Me.cmdNew.Size = New System.Drawing.Size(88, 23)
		Me.cmdNew.TabIndex = 3
		Me.cmdNew.Text = "&Neu..."
		'
		'cmdEdit
		'
		Me.cmdEdit.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
		Me.cmdEdit.Location = New System.Drawing.Point(456, 440)
		Me.cmdEdit.Name = "cmdEdit"
		Me.cmdEdit.Size = New System.Drawing.Size(88, 23)
		Me.cmdEdit.TabIndex = 2
		Me.cmdEdit.Text = "&Bearbeiten..."
		'
		'Label1
		'
		Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.Location = New System.Drawing.Point(8, 40)
		Me.Label1.Name = "Label1"
		Me.Label1.Size = New System.Drawing.Size(248, 23)
		Me.Label1.TabIndex = 1
		Me.Label1.Text = "Mitarbeiterverwaltung"
		'
		'grdMitarbeiter
		'
		Me.grdMitarbeiter.AllowFilter = True
		Me.grdMitarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdMitarbeiter.AllowSort = True
		Me.grdMitarbeiter.AllowUpdate = False
		Me.grdMitarbeiter.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdMitarbeiter.CaptionHeight = 17
		Me.grdMitarbeiter.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdMitarbeiter.CollapseColor = System.Drawing.Color.Black
		Me.grdMitarbeiter.DataChanged = False
		Me.grdMitarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdMitarbeiter.ExpandColor = System.Drawing.Color.Black
		Me.grdMitarbeiter.FilterBar = True
		Me.grdMitarbeiter.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdMitarbeiter.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
		Me.grdMitarbeiter.Location = New System.Drawing.Point(24, 104)
		Me.grdMitarbeiter.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdMitarbeiter.Name = "grdMitarbeiter"
		Me.grdMitarbeiter.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdMitarbeiter.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdMitarbeiter.PreviewInfo.ZoomFactor = 75
		Me.grdMitarbeiter.PrintInfo.ShowOptionsDialog = False
		Me.grdMitarbeiter.RecordSelectorWidth = 16
		GridLines1.Color = System.Drawing.Color.DarkGray
		GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdMitarbeiter.RowDivider = GridLines1
		Me.grdMitarbeiter.RowHeight = 15
		Me.grdMitarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdMitarbeiter.ScrollTips = False
		Me.grdMitarbeiter.Size = New System.Drawing.Size(616, 328)
		Me.grdMitarbeiter.TabIndex = 0
		Me.grdMitarbeiter.Text = "C1TrueDBGrid1"
		Me.grdMitarbeiter.WrapCellPointer = True
		Me.grdMitarbeiter.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
		"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 612, 324</Cl" & _
		"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
		"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
		"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
		"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
		"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
		" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
		"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
		"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
		"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
		"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
		"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
		"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
		"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
		" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
		"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
		"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
		"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 612, 324</ClientAr" & _
		"ea></Blob>"
		'
		'Label2
		'
		Me.Label2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.Label2.Location = New System.Drawing.Point(24, 64)
		Me.Label2.Name = "Label2"
		Me.Label2.Size = New System.Drawing.Size(608, 32)
		Me.Label2.TabIndex = 4
		Me.Label2.Text = "Auf dieser Übersicht sind alle Mitarbeiter zu sehen. Über die Schaltflächen ""Neu." & _
		"."" und ""Bearbeiten..."" können Sie neue Benutzer erfassen, bzw bestehende editier" & _
		"en."
		'
		'pnlBottom
		'
		Me.pnlBottom.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlRight, Me.sptVertikal, Me.pnlLeft})
		Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Fill
		Me.pnlBottom.Location = New System.Drawing.Point(0, 472)
		Me.pnlBottom.Name = "pnlBottom"
		Me.pnlBottom.Size = New System.Drawing.Size(656, 110)
		Me.pnlBottom.TabIndex = 14
		'
		'pnlRight
		'
		Me.pnlRight.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdFunktionsgruppen, Me.Label4})
		Me.pnlRight.Dock = System.Windows.Forms.DockStyle.Fill
		Me.pnlRight.Location = New System.Drawing.Point(491, 0)
		Me.pnlRight.Name = "pnlRight"
		Me.pnlRight.Size = New System.Drawing.Size(165, 110)
		Me.pnlRight.TabIndex = 2
		'
		'grdFunktionsgruppen
		'
		Me.grdFunktionsgruppen.AllowFilter = True
		Me.grdFunktionsgruppen.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdFunktionsgruppen.AllowSort = True
		Me.grdFunktionsgruppen.AllowUpdate = False
		Me.grdFunktionsgruppen.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdFunktionsgruppen.CaptionHeight = 17
		Me.grdFunktionsgruppen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdFunktionsgruppen.CollapseColor = System.Drawing.Color.Black
		Me.grdFunktionsgruppen.DataChanged = False
		Me.grdFunktionsgruppen.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdFunktionsgruppen.ExpandColor = System.Drawing.Color.Black
		Me.grdFunktionsgruppen.FilterBar = True
		Me.grdFunktionsgruppen.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdFunktionsgruppen.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
		Me.grdFunktionsgruppen.Location = New System.Drawing.Point(8, 40)
		Me.grdFunktionsgruppen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdFunktionsgruppen.Name = "grdFunktionsgruppen"
		Me.grdFunktionsgruppen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdFunktionsgruppen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdFunktionsgruppen.PreviewInfo.ZoomFactor = 75
		Me.grdFunktionsgruppen.PrintInfo.ShowOptionsDialog = False
		Me.grdFunktionsgruppen.RecordSelectorWidth = 16
		GridLines2.Color = System.Drawing.Color.DarkGray
		GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdFunktionsgruppen.RowDivider = GridLines2
		Me.grdFunktionsgruppen.RowHeight = 15
		Me.grdFunktionsgruppen.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdFunktionsgruppen.ScrollTips = False
		Me.grdFunktionsgruppen.Size = New System.Drawing.Size(149, 54)
		Me.grdFunktionsgruppen.TabIndex = 4
		Me.grdFunktionsgruppen.Text = "C1TrueDBGrid1"
		Me.grdFunktionsgruppen.WrapCellPointer = True
		Me.grdFunktionsgruppen.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
		"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 145, 50</Cli" & _
		"entRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><" & _
		"EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Sty" & _
		"le8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Fo" & _
		"oter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle pare" & _
		"nt=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" " & _
		"/><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me" & _
		"=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selecte" & _
		"dStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1" & _
		".Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /" & _
		"><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><St" & _
		"yle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Sty" & _
		"le parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style p" & _
		"arent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style " & _
		"parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Sty" & _
		"le parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Named" & _
		"Styles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout>" & _
		"<DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 145, 50</ClientArea" & _
		"></Blob>"
		'
		'Label4
		'
		Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label4.Location = New System.Drawing.Point(8, 8)
		Me.Label4.Name = "Label4"
		Me.Label4.Size = New System.Drawing.Size(280, 23)
		Me.Label4.TabIndex = 3
		Me.Label4.Text = "Zugewiesene Funktionsgruppen"
		'
		'sptVertikal
		'
		Me.sptVertikal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.sptVertikal.Location = New System.Drawing.Point(488, 0)
		Me.sptVertikal.Name = "sptVertikal"
		Me.sptVertikal.Size = New System.Drawing.Size(3, 110)
		Me.sptVertikal.TabIndex = 1
		Me.sptVertikal.TabStop = False
		'
		'pnlLeft
		'
		Me.pnlLeft.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.grdTeams})
		Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
		Me.pnlLeft.Name = "pnlLeft"
		Me.pnlLeft.Size = New System.Drawing.Size(488, 110)
		Me.pnlLeft.TabIndex = 0
		'
		'Label3
		'
		Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label3.Location = New System.Drawing.Point(8, 8)
		Me.Label3.Name = "Label3"
		Me.Label3.Size = New System.Drawing.Size(248, 23)
		Me.Label3.TabIndex = 2
		Me.Label3.Text = "Zugewiesene Teams"
		'
		'grdTeams
		'
		Me.grdTeams.AllowFilter = True
		Me.grdTeams.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
		Me.grdTeams.AllowSort = True
		Me.grdTeams.AllowUpdate = False
		Me.grdTeams.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
					Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.grdTeams.CaptionHeight = 17
		Me.grdTeams.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
		Me.grdTeams.CollapseColor = System.Drawing.Color.Black
		Me.grdTeams.DataChanged = False
		Me.grdTeams.DeadAreaBackColor = System.Drawing.Color.Empty
		Me.grdTeams.ExpandColor = System.Drawing.Color.Black
		Me.grdTeams.FilterBar = True
		Me.grdTeams.GroupByCaption = "Drag a column header here to group by that column"
		Me.grdTeams.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
		Me.grdTeams.Location = New System.Drawing.Point(24, 40)
		Me.grdTeams.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
		Me.grdTeams.Name = "grdTeams"
		Me.grdTeams.PreviewInfo.Location = New System.Drawing.Point(0, 0)
		Me.grdTeams.PreviewInfo.Size = New System.Drawing.Size(0, 0)
		Me.grdTeams.PreviewInfo.ZoomFactor = 75
		Me.grdTeams.PrintInfo.ShowOptionsDialog = False
		Me.grdTeams.RecordSelectorWidth = 16
		GridLines3.Color = System.Drawing.Color.DarkGray
		GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
		Me.grdTeams.RowDivider = GridLines3
		Me.grdTeams.RowHeight = 15
		Me.grdTeams.RowSubDividerColor = System.Drawing.Color.DarkGray
		Me.grdTeams.ScrollTips = False
		Me.grdTeams.Size = New System.Drawing.Size(448, 54)
		Me.grdTeams.TabIndex = 1
		Me.grdTeams.Text = "C1TrueDBGrid1"
		Me.grdTeams.WrapCellPointer = True
		Me.grdTeams.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
		"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
		"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
		"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
		"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
		"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
		"or:Highlight;}Style1{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
		"enter;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:C" & _
		"ontrolText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
		"tyle13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
		"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
		"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
		"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 444, 50</Cli" & _
		"entRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><" & _
		"EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Sty" & _
		"le8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Fo" & _
		"oter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle pare" & _
		"nt=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" " & _
		"/><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me" & _
		"=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selecte" & _
		"dStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1" & _
		".Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /" & _
		"><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><St" & _
		"yle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Sty" & _
		"le parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style p" & _
		"arent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style " & _
		"parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Sty" & _
		"le parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Named" & _
		"Styles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout>" & _
		"<DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 444, 50</ClientArea" & _
		"></Blob>"
		'
		'ImageList1
		'
		Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
		Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
		Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
		Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
		'
		'tbMenu
		'
		Me.tbMenu.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
					Or System.Windows.Forms.AnchorStyles.Right)
		Me.tbMenu.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.cmdClose})
		Me.tbMenu.Dock = System.Windows.Forms.DockStyle.None
		Me.tbMenu.DropDownArrows = True
		Me.tbMenu.ImageList = Me.ImageList1
		Me.tbMenu.Name = "tbMenu"
		Me.tbMenu.ShowToolTips = True
		Me.tbMenu.Size = New System.Drawing.Size(648, 25)
		Me.tbMenu.TabIndex = 15
		'
		'cmdClose
		'
		Me.cmdClose.ImageIndex = 0
		Me.cmdClose.Tag = "close"
		'
		'frmAdminMitarbeiter
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.ClientSize = New System.Drawing.Size(656, 582)
		Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.sptHorizontal, Me.pnlBottom, Me.pnlTop})
		Me.Name = "frmAdminMitarbeiter"
		Me.Text = "frmAdminMitarbeiter"
		Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
		Me.pnlTop.ResumeLayout(False)
		CType(Me.grdMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
		Me.pnlBottom.ResumeLayout(False)
		Me.pnlRight.ResumeLayout(False)
		CType(Me.grdFunktionsgruppen, System.ComponentModel.ISupportInitialize).EndInit()
		Me.pnlLeft.ResumeLayout(False)
		CType(Me.grdTeams, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)

	End Sub

#End Region

#Region "Private Methods"

	'''<summary>Lädt alle Mitarbeiter zu der ausgewählten FunktionsGruppe</summary>
	Private Function FunktionsGruppenSelectedChanged()
		Try
			If grdFunktionsgruppen.Splits(0).Rows.Count = 0 Then
				Return 1
            End If

			'alle teams zu selektiertem mitarbeiter laden
			Dim itemNr As Integer
			itemNr = grdFunktionsgruppen.Columns("funktionsgruppenr").Value

			Dim ds As New DataSet()
			BusinessFacade.Mitarbeiter.GetListeByFunktionsGruppeNr(itemNr, ds)
			grdMitarbeiter.DataSource = ds.Tables(0)
            'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)

			'keine teams anzeigen
			grdTeams.DataSource = Nothing
		Catch ex As Exception
			Throw ex
		End Try
	End Function

	'''<summary>Lädt alle Mitarbeiter zum ausgewählten Team</summary>
	Private Function TeamSelectedChanged()
		Try
			If grdTeams.Splits(0).Rows.Count = 0 Then
				Return 1
			End If

			'alle teams zu selektiertem mitarbeiter laden
			Dim itemNr As Integer
			itemNr = grdTeams.Columns("teamnr").Value

			Dim ds As New DataSet()
			BusinessFacade.Mitarbeiter.GetListeByTeamNr(itemNr, ds)
			grdMitarbeiter.DataSource = ds.Tables(0)
            'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)

			'keine funktionsgruppe anzeigen
			grdFunktionsgruppen.DataSource = Nothing
		Catch ex As Exception
			Throw ex
		End Try
	End Function

#End Region

#Region "Event handlers"

	Private Sub tbMenu_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbMenu.ButtonClick
		Try
			Close()
        Catch ex As Exception

            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(300), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.tbMenu_ButtonClick: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub frmAdminMitarbeiter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try

			'Alle Mitarbeiter laden
			Dim dsMitarbeiter As New DataSet()
			BusinessFacade.Mitarbeiter.GetListe(dsMitarbeiter)
			grdMitarbeiter.DataSource = dsMitarbeiter.Tables(0)

			cmdAlleAnzeigen_Click(Nothing, Nothing)

			'Spalten Definitionen laden
            'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)
            'BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdTeams)
            'BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdFunktionsgruppen)

		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(300), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.frmAdminMitarbeiter_Load: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
		Try
			If grdMitarbeiter.Splits(0).Rows.Count = 0 Then
				Return
			End If

			Dim mitarbeiterNr As Integer
			mitarbeiterNr = grdMitarbeiter.Columns("mitarbeiternr").Value

			Dim mitarbeiterEditWindow As New frmAdminMitarbeiterEdit(mitarbeiterNr)

			mitarbeiterEditWindow.MdiParent = Me.ParentForm
			mitarbeiterEditWindow.WindowState = FormWindowState.Normal
			mitarbeiterEditWindow.Show()

			cmdAlleAnzeigen_Click(Nothing, Nothing)
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdEdit_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNew.Click
		Try
			Dim mitarbeiterEditWindow As New frmAdminMitarbeiterEdit()

			mitarbeiterEditWindow.MdiParent = Me.ParentForm
			mitarbeiterEditWindow.WindowState = FormWindowState.Normal
			mitarbeiterEditWindow.Show()

			cmdAlleAnzeigen_Click(Nothing, Nothing)

		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdNew_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdMitarbeiter_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdMitarbeiter.DoubleClick
		Try
			cmdEdit_Click(Nothing, Nothing)
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdMitarbeiter_DoubleClick: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdMitarbeiter_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdMitarbeiter.RowColChange
		Try
			'nur ausführen wenn die row geändert wird
			If e.LastRow <> grdMitarbeiter.Bookmark Then
				If grdMitarbeiter.Splits(0).Rows.Count = 0 Then
					Return
				End If

				'alle teams zu selektiertem mitarbeiter laden
				Dim itemNr As Integer
				itemNr = grdMitarbeiter.Columns("mitarbeiternr").Value

				'gefilterte teams anzeigen
				Dim dsTeams As New DataSet()
				BusinessFacade.TeamMitarbeiter.GetListe(itemNr, dsTeams)
				grdTeams.DataSource = dsTeams.Tables(0)
                'BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdTeams)

				'gefilterte funktionsgruppen anzeigen
				Dim dsFunktionsGruppen As New DataSet()
				BusinessFacade.MitarbeiterFunktionsgruppe.GetListeByMitarbeiterNr(itemNr, dsFunktionsGruppen)
				grdFunktionsgruppen.DataSource = dsFunktionsGruppen.Tables(0)
                'BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdFunktionsgruppen)

			End If
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdMitarbeiter_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdTeams_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdTeams.RowColChange
		Try
			'nur ausführen wenn die row geändert wird
			If e.LastRow <> grdTeams.Bookmark Then
				TeamSelectedChanged()
			End If
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdTeams_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdFunktionsgruppen_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdFunktionsgruppen.RowColChange
		Try
			'nur ausführen wenn die row geändert wird
			If e.LastRow <> grdFunktionsgruppen.Bookmark Then
				FunktionsGruppenSelectedChanged()
			End If
        Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
            TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdFunktionsgruppen_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdTeams_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdTeams.Click
		Try
			TeamSelectedChanged()
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdTeams_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub grdFunktionsgruppen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdFunktionsgruppen.Click
		Try
			FunktionsGruppenSelectedChanged()
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdFunktionsgruppen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

	Private Sub cmdAlleAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlleAnzeigen.Click
		Try
			'wieder alle mitarbeiter anzeigen
			Dim ds As New DataSet()
			BusinessFacade.Mitarbeiter.GetListe(ds)
			grdMitarbeiter.DataSource = ds.Tables(0)

			'Spalten Definitionen laden
            'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)

			grdMitarbeiter.Columns("aktiv").FilterText = "True"
			grdMitarbeiter.FilterActive = True
		Catch ex As Exception
            MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
			TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdAlleAnzeigen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
		End Try
	End Sub

#End Region

End Class