edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -61,6 +61,9 @@ Partial Class frmMitarbDetails
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.lkl = New System.Windows.Forms.LinkLabel()
Me.Label45 = New System.Windows.Forms.Label()
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
@@ -158,9 +161,6 @@ Partial Class frmMitarbDetails
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label52 = New System.Windows.Forms.Label()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -643,6 +643,37 @@ Partial Class frmMitarbDetails
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Firmendaten"
'
'cboALIASDomain
'
Me.cboALIASDomain._allowedValuesFreiText = Nothing
Me.cboALIASDomain._allowFreiText = False
Me.cboALIASDomain._value = ""
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'txtALIASUser
'
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
Me.txtALIASUser.Name = "txtALIASUser"
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
Me.txtALIASUser.TabIndex = 99
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(406, 21)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(167, 13)
Me.Label52.TabIndex = 98
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
'
'lkl
'
Me.lkl.AutoSize = True
@@ -704,7 +735,6 @@ Partial Class frmMitarbDetails
Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX", "BEIDE"})
Me.cboFirma.Location = New System.Drawing.Point(18, 76)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(177, 21)
@@ -1259,7 +1289,7 @@ Partial Class frmMitarbDetails
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(715, 679)
Me.TabPage3.Size = New System.Drawing.Size(715, 700)
Me.TabPage3.TabIndex = 1
Me.TabPage3.Text = "Programme"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1694,34 +1724,6 @@ Partial Class frmMitarbDetails
Me.Label7.TabIndex = 78
Me.Label7.Text = "Berechtigung:"
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(406, 21)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(167, 13)
Me.Label52.TabIndex = 98
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
'
'txtALIASUser
'
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
Me.txtALIASUser.Name = "txtALIASUser"
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
Me.txtALIASUser.TabIndex = 99
'
'cboALIASDomain
'
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

39
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -52,6 +52,9 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -60,6 +63,17 @@
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT"))
cboFirma.Items.Clear()
cboFirma.Items.Add("VERAG")
cboFirma.Items.Add("ATILLA")
cboFirma.Items.Add("IMEX")
cboFirma.Items.Add("UNISPED")
cboFirma.Items.Add("AMBAR")
cboFirma.Items.Add("FRONTOFFICE")
cboFirma.Items.Add("ALLE")
@@ -195,14 +209,12 @@
cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
If mitarbeiter.mit_firma = "VERAG" Then
cboFirma.SelectedIndex = 0
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
cboFirma.SelectedIndex = 1
ElseIf mitarbeiter.mit_firma = "IMEX" Then
cboFirma.SelectedIndex = 2
ElseIf mitarbeiter.mit_firma = "ALL" Then
cboFirma.SelectedIndex = 3
If mitarbeiter.mit_firma = "ALL" Then
cboFirma.Text = "ALLE"
Else
cboFirma.Text = mitarbeiter.mit_firma
End If
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
@@ -493,15 +505,10 @@
cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
End If
If cboFirma.SelectedIndex = 0 Then
mitarbeiter.mit_firma = "VERAG"
ElseIf cboFirma.SelectedIndex = 1 Then
mitarbeiter.mit_firma = "ATILLA"
ElseIf cboFirma.SelectedIndex = 2 Then
mitarbeiter.mit_firma = "IMEX"
ElseIf cboFirma.SelectedIndex = 3 Then
If cboFirma.Text = "ALLE" Then
mitarbeiter.mit_firma = "ALL"
Else
mitarbeiter.mit_firma = cboFirma.Text
End If
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""

137
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated
View File

@@ -33,6 +33,12 @@ Partial Class usrCntlMitarbeiter
Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.txtSuche = New System.Windows.Forms.TextBox()
@@ -40,18 +46,24 @@ Partial Class usrCntlMitarbeiter
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.TabPage6.SuspendLayout()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button6
@@ -116,6 +128,9 @@ Partial Class usrCntlMitarbeiter
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Controls.Add(Me.TabPage6)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
@@ -165,6 +180,69 @@ Partial Class usrCntlMitarbeiter
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
Me.dgvATILLA.TabIndex = 25
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.dgvIMEX)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True
'
'dgvIMEX
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.dgvUNISPED)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(881, 622)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "UNISPED"
Me.TabPage4.UseVisualStyleBackColor = True
'
'dgvUNISPED
'
Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
Me.dgvUNISPED.Name = "dgvUNISPED"
Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
Me.dgvUNISPED.TabIndex = 25
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.dgvAMBAR)
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(881, 622)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "AMBAR"
Me.TabPage5.UseVisualStyleBackColor = True
'
'dgvAMBAR
'
Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
Me.dgvAMBAR.Name = "dgvAMBAR"
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
Me.dgvAMBAR.TabIndex = 25
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbx)
@@ -232,26 +310,26 @@ Partial Class usrCntlMitarbeiter
Me.Panel3.Size = New System.Drawing.Size(889, 648)
Me.Panel3.TabIndex = 27
'
'TabPage3
'TabPage6
'
Me.TabPage3.Controls.Add(Me.dgvIMEX)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(881, 622)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True
Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage6.Size = New System.Drawing.Size(881, 622)
Me.TabPage6.TabIndex = 5
Me.TabPage6.Text = "FRONT-OFFICE"
Me.TabPage6.UseVisualStyleBackColor = True
'
'dgvIMEX
'dgvFRONTOFFICE
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
Me.dgvFRONTOFFICE.TabIndex = 26
'
'usrCntlMitarbeiter
'
@@ -269,11 +347,17 @@ Partial Class usrCntlMitarbeiter
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False)
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False)
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -296,5 +380,10 @@ Partial Class usrCntlMitarbeiter
Friend WithEvents cbx As System.Windows.Forms.CheckBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents dgvIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage4 As TabPage
Friend WithEvents TabPage5 As TabPage
Friend WithEvents dgvUNISPED As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvAMBAR As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage6 As TabPage
Friend WithEvents dgvFRONTOFFICE As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class

239
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -33,6 +33,12 @@ Public Class usrCntlMitarbeiter
showVERAGATILLA("ATILLA")
ElseIf TabControl1.SelectedIndex = 2 Then
showVERAGATILLA("IMEX")
ElseIf TabControl1.SelectedIndex = 3 Then
showVERAGATILLA("UNISPED")
ElseIf TabControl1.SelectedIndex = 4 Then
showVERAGATILLA("AMBAR")
ElseIf TabControl1.SelectedIndex = 5 Then
showVERAGATILLA("FRONTOFFICE")
End If
End Sub
@@ -64,7 +70,7 @@ Public Class usrCntlMitarbeiter
If dgvVERAG.RowCount = 0 Then
dgvVERAG.DataSource = Nothing
Else
sortVERAG()
sortDGV(dgvVERAG)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
@@ -79,7 +85,7 @@ Public Class usrCntlMitarbeiter
If dgvATILLA.RowCount = 0 Then
dgvATILLA.DataSource = Nothing
Else
sortATILLA()
sortDGV(dgvATILLA)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
@@ -94,111 +100,67 @@ Public Class usrCntlMitarbeiter
If dgvIMEX.RowCount = 0 Then
dgvIMEX.DataSource = Nothing
Else
sortIMEX()
sortDGV(dgvIMEX)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "UNISPED" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvUNISPED.SET_SQL(sql, "ADMIN")
dgvUNISPED.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvUNISPED.RowCount = 0 Then
dgvUNISPED.DataSource = Nothing
Else
sortDGV(dgvUNISPED)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvUNISPED.Sort(dgvUNISPED.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "AMBAR" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvAMBAR.SET_SQL(sql, "ADMIN")
dgvAMBAR.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvAMBAR.RowCount = 0 Then
dgvAMBAR.DataSource = Nothing
Else
sortDGV(dgvAMBAR)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvAMBAR.Sort(dgvAMBAR.Columns(3), ListSortDirection.Ascending)
End If
ElseIf firma = "FRONTOFFICE" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvFRONTOFFICE.SET_SQL(sql, "ADMIN")
dgvFRONTOFFICE.LOAD()
'Tabelle Kommt/Geht bereinigen
If dgvFRONTOFFICE.RowCount = 0 Then
dgvFRONTOFFICE.DataSource = Nothing
Else
sortDGV(dgvFRONTOFFICE)
'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit)
dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
End If
End If
End Sub
Private Sub sortVERAG()
With dgvVERAG
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortATILLA()
With dgvATILLA
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToOrderColumns = False
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.RowTemplate.ReadOnly = True
.RowHeadersVisible = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.AllowUserToOrderColumns = True
.Columns(0).Visible = False 'ID nicht anzeigen
.Columns(1).Width = 150
.Columns(1).HeaderText = "Username"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Width = 100
.Columns(2).HeaderText = "Vorname"
.Columns(3).Width = 130
.Columns(3).HeaderText = "Nachname"
.Columns(4).Width = 85
.Columns(4).HeaderText = "Niederlassung"
.Columns(5).Width = 85
.Columns(5).HeaderText = "Abteilung"
.Columns(6).Width = 120
.Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
End With
End Sub
Private Sub sortIMEX()
With dgvIMEX
Private Sub sortDGV(dgv As DataGridView)
With dgv
.RowTemplate.Height = 20
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
.AllowUserToAddRows = False
@@ -248,6 +210,9 @@ Public Class usrCntlMitarbeiter
Case 0 : Firma = "VERAG"
Case 1 : Firma = "ATILLA"
Case 2 : Firma = "IMEX"
Case 3 : Firma = "UNISPED"
Case 4 : Firma = "AMBAR"
Case 5 : Firma = "FRONTOFFICE"
End Select
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
frmMitarbDetails.Show()
@@ -285,6 +250,31 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 3 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvUNISPED.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvUNISPED.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 4 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvAMBAR.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvAMBAR.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
ElseIf TabControl1.SelectedIndex = 5 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvFRONTOFFICE.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes
UID.delData(Convert.ToInt32(dgvFRONTOFFICE.CurrentRow.Cells(0).Value))
Tabelle_anzeigen()
Case vbNo
End Select
End If
@@ -304,33 +294,13 @@ Public Class usrCntlMitarbeiter
End Sub
Private Sub dgvVERAG_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellDoubleClick
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvVERAG.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvATILLA_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATILLA.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvATILLA.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvATILLA.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvIMEX.CurrentRow.Cells(0).Value
frmMitarbDetails.ShowDialog(Me)
dgvIMEX.RELOAD()
sender.RELOAD()
Me.Cursor = Cursors.Default
' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub
@@ -341,25 +311,26 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
End Sub
Private Sub dgvVERAG_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVERAG.CellContentClick
End Sub
Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
Dim dgv As DataGridView = Nothing
Select Case TabControl1.SelectedIndex
Case 0 : dgv = dgvVERAG
Case 1 : dgv = dgvATILLA
Case 2 : dgv = dgvIMEX
Case 3 : dgv = dgvUNISPED
Case 4 : dgv = dgvAMBAR
Case 5 : dgv = dgvFRONTOFFICE
End Select
If e.KeyCode = Keys.Return Then
If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count > 0 Then
dgvVERAG_CellContentClick(dgvVERAG, New DataGridViewCellEventArgs(0, dgvVERAG.SelectedRows(0).Index))
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvATILLA.SelectedRows.Count > 0 Then
dgvATILLA_CellContentClick(dgvATILLA, New DataGridViewCellEventArgs(0, dgvATILLA.SelectedRows(0).Index))
End If
If dgv.SelectedRows.Count > 0 Then
dgvIMEX_CellContentClick(dgv, New DataGridViewCellEventArgs(0, dgv.SelectedRows(0).Index))
End If
ElseIf TabControl1.SelectedIndex = 1 Then
If dgvIMEX.SelectedRows.Count > 0 Then
dgvIMEX_CellContentClick(dgvIMEX, New DataGridViewCellEventArgs(0, dgvIMEX.SelectedRows(0).Index))
End If
End If
End Sub