You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
685 lines
34 KiB
685 lines
34 KiB
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
|