Initial commit
This commit is contained in:
684
Backup/EDOKA/Systemadministration/Domains/frmAdminMitarbeiter.vb
Normal file
684
Backup/EDOKA/Systemadministration/Domains/frmAdminMitarbeiter.vb
Normal file
@@ -0,0 +1,684 @@
|
||||
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
|
||||
Reference in New Issue
Block a user