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

MA Notfallkontakt

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-26 09:55:35 +01:00
parent 69384b1876
commit 04ea9e34d6
11 changed files with 535 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -98,6 +98,12 @@ Public Class cMitarbeiter
Property mit_timasMehrereFirmen As Boolean = False
Property mit_timasFirmen As Object = Nothing
Property mit_Notfall_Name As Object = Nothing
Property mit_Notfall_Handy As Object = Nothing
Property mit_Notfall_Mail As Object = Nothing
Dim SQL As New SQL
@@ -210,6 +216,9 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasFirmen", mit_timasFirmen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasMehrereFirmen", mit_timasMehrereFirmen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
@@ -416,6 +425,10 @@ Public Class cMitarbeiter
If Not dr.Item("mit_timasFirmen") Is DBNull.Value Then Me.mit_timasFirmen = dr.Item("mit_timasFirmen")
Me.mit_timasMehrereFirmen = dr.Item("mit_timasMehrereFirmen")
If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)

141
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb generated
View File

@@ -28,7 +28,6 @@ Partial Class frmMitarbeitersuche
Me.Button4 = New System.Windows.Forms.Button()
Me.btnClose = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
@@ -73,6 +72,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag = New System.Windows.Forms.Panel()
Me.lblGeburtstag = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblPosition = New System.Windows.Forms.Label()
@@ -83,7 +83,12 @@ Partial Class frmMitarbeitersuche
Me.lblFirma = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlNotfallkontakt = New System.Windows.Forms.Panel()
Me.lblNotfall_Mail = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.lblNotfall_Handy = New System.Windows.Forms.Label()
Me.lblNotfall_Name = New System.Windows.Forms.Label()
Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnlSrch.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout()
@@ -99,6 +104,7 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.pnlNotfallkontakt.SuspendLayout()
Me.SuspendLayout()
'
'pnlSrch
@@ -156,32 +162,6 @@ Partial Class frmMitarbeitersuche
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
'sbMitarbeiter
'
Me.sbMitarbeiter._allowFreitext = False
Me.sbMitarbeiter._AllowSetValue = False
Me.sbMitarbeiter._allowSpaceAsSplitter = True
Me.sbMitarbeiter._autoSizeGross = False
Me.sbMitarbeiter._hideIfListEmpty = True
Me.sbMitarbeiter._value = Nothing
Me.sbMitarbeiter.conn_art = "FMZOLL"
Me.sbMitarbeiter.dgvpos = "LEFT"
Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
Me.sbMitarbeiter.key_visible = False
Me.sbMitarbeiter.KEYPARAM = Nothing
Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
Me.sbMitarbeiter.Name = "sbMitarbeiter"
Me.sbMitarbeiter.searchActive = True
Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
Me.sbMitarbeiter.SQL_SELECT = Nothing
Me.sbMitarbeiter.SQL_WHERE = Nothing
Me.sbMitarbeiter.SQL_WhereParamList = Nothing
Me.sbMitarbeiter.TabIndex = 0
Me.sbMitarbeiter.usrcntl = Nothing
'
'pnlMain
'
Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
@@ -704,6 +684,11 @@ Partial Class frmMitarbeitersuche
Me.PictureBox1.TabIndex = 13
Me.PictureBox1.TabStop = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'MyPanel1
'
Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -716,6 +701,7 @@ Partial Class frmMitarbeitersuche
Me.MyPanel1.Controls.Add(Me.lblFirma)
Me.MyPanel1.Controls.Add(Me.Label4)
Me.MyPanel1.Controls.Add(Me.Label3)
Me.MyPanel1.Controls.Add(Me.pnlNotfallkontakt)
Me.MyPanel1.Location = New System.Drawing.Point(197, 188)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(578, 109)
@@ -735,7 +721,7 @@ Partial Class frmMitarbeitersuche
Me.lblPosition.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblPosition.Location = New System.Drawing.Point(158, 80)
Me.lblPosition.Name = "lblPosition"
Me.lblPosition.Size = New System.Drawing.Size(411, 25)
Me.lblPosition.Size = New System.Drawing.Size(209, 25)
Me.lblPosition.TabIndex = 10
Me.lblPosition.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
@@ -768,7 +754,7 @@ Partial Class frmMitarbeitersuche
Me.lblAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbteilung.Location = New System.Drawing.Point(158, 55)
Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(411, 25)
Me.lblAbteilung.Size = New System.Drawing.Size(209, 25)
Me.lblAbteilung.TabIndex = 8
Me.lblAbteilung.Text = "IT"
Me.lblAbteilung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -779,7 +765,7 @@ Partial Class frmMitarbeitersuche
Me.lblNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblNiederlassung.Location = New System.Drawing.Point(158, 30)
Me.lblNiederlassung.Name = "lblNiederlassung"
Me.lblNiederlassung.Size = New System.Drawing.Size(411, 25)
Me.lblNiederlassung.Size = New System.Drawing.Size(209, 25)
Me.lblNiederlassung.TabIndex = 7
Me.lblNiederlassung.Text = "SUBEN"
Me.lblNiederlassung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -790,7 +776,7 @@ Partial Class frmMitarbeitersuche
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblFirma.Location = New System.Drawing.Point(158, 5)
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Size = New System.Drawing.Size(411, 25)
Me.lblFirma.Size = New System.Drawing.Size(209, 25)
Me.lblFirma.TabIndex = 6
Me.lblFirma.Text = "VERAG"
Me.lblFirma.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -817,10 +803,88 @@ Partial Class frmMitarbeitersuche
Me.Label3.Text = "Niederlassung:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ContextMenuStrip1
'pnlNotfallkontakt
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
Me.pnlNotfallkontakt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Mail)
Me.pnlNotfallkontakt.Controls.Add(Me.Label17)
Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Handy)
Me.pnlNotfallkontakt.Controls.Add(Me.lblNotfall_Name)
Me.pnlNotfallkontakt.Location = New System.Drawing.Point(374, 5)
Me.pnlNotfallkontakt.Name = "pnlNotfallkontakt"
Me.pnlNotfallkontakt.Size = New System.Drawing.Size(200, 100)
Me.pnlNotfallkontakt.TabIndex = 49
Me.pnlNotfallkontakt.Visible = False
'
'lblNotfall_Mail
'
Me.lblNotfall_Mail.BackColor = System.Drawing.Color.Transparent
Me.lblNotfall_Mail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblNotfall_Mail.Location = New System.Drawing.Point(-1, 75)
Me.lblNotfall_Mail.Name = "lblNotfall_Mail"
Me.lblNotfall_Mail.Size = New System.Drawing.Size(202, 25)
Me.lblNotfall_Mail.TabIndex = 48
Me.lblNotfall_Mail.Text = "-"
Me.lblNotfall_Mail.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
Me.Label17.Location = New System.Drawing.Point(-4, 1)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(139, 24)
Me.Label17.TabIndex = 45
Me.Label17.Text = "Notfallkontakt:"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblNotfall_Handy
'
Me.lblNotfall_Handy.BackColor = System.Drawing.Color.Transparent
Me.lblNotfall_Handy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblNotfall_Handy.Location = New System.Drawing.Point(-1, 50)
Me.lblNotfall_Handy.Name = "lblNotfall_Handy"
Me.lblNotfall_Handy.Size = New System.Drawing.Size(202, 25)
Me.lblNotfall_Handy.TabIndex = 47
Me.lblNotfall_Handy.Text = "-"
Me.lblNotfall_Handy.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblNotfall_Name
'
Me.lblNotfall_Name.BackColor = System.Drawing.Color.Transparent
Me.lblNotfall_Name.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblNotfall_Name.Location = New System.Drawing.Point(-1, 25)
Me.lblNotfall_Name.Name = "lblNotfall_Name"
Me.lblNotfall_Name.Size = New System.Drawing.Size(202, 25)
Me.lblNotfall_Name.TabIndex = 46
Me.lblNotfall_Name.Text = "-"
Me.lblNotfall_Name.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'sbMitarbeiter
'
Me.sbMitarbeiter._allowFreitext = False
Me.sbMitarbeiter._AllowSetValue = False
Me.sbMitarbeiter._allowSpaceAsSplitter = True
Me.sbMitarbeiter._autoSizeGross = False
Me.sbMitarbeiter._hideIfListEmpty = True
Me.sbMitarbeiter._value = Nothing
Me.sbMitarbeiter.conn_art = "FMZOLL"
Me.sbMitarbeiter.dgvpos = "LEFT"
Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
Me.sbMitarbeiter.key_visible = False
Me.sbMitarbeiter.KEYPARAM = Nothing
Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
Me.sbMitarbeiter.Name = "sbMitarbeiter"
Me.sbMitarbeiter.searchActive = True
Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
Me.sbMitarbeiter.SQL_SELECT = Nothing
Me.sbMitarbeiter.SQL_WHERE = Nothing
Me.sbMitarbeiter.SQL_WhereParamList = Nothing
Me.sbMitarbeiter.TabIndex = 0
Me.sbMitarbeiter.usrcntl = Nothing
'
'frmMitarbeitersuche
'
@@ -856,6 +920,8 @@ Partial Class frmMitarbeitersuche
Me.pnlGeburtstag.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.pnlNotfallkontakt.ResumeLayout(False)
Me.pnlNotfallkontakt.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -920,4 +986,9 @@ Partial Class frmMitarbeitersuche
Friend WithEvents btnAkten As Windows.Forms.Button
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents ContextMenuStrip1 As Windows.Forms.ContextMenuStrip
Friend WithEvents pnlNotfallkontakt As Windows.Forms.Panel
Friend WithEvents lblNotfall_Mail As Windows.Forms.Label
Friend WithEvents Label17 As Windows.Forms.Label
Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
Friend WithEvents lblNotfall_Name As Windows.Forms.Label
End Class

22
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -100,6 +100,11 @@ Public Class frmMitarbeitersuche
pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse
lblNotfall_Name.Text = If(MA.mit_Notfall_Name, "")
lblNotfall_Handy.Text = If(MA.mit_Notfall_Handy, "")
lblNotfall_Mail.Text = If(MA.mit_Notfall_Mail, "")
lblMotto.Text = MA.mit_MAVerzeichnis_Motto
If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """"
pnlMotto.Visible = (lblMotto.Text <> "")
@@ -169,10 +174,11 @@ Public Class frmMitarbeitersuche
'requestDone = Not callTimasSaldo
initTimasData()
pnlNotfallkontakt.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then
btnEdit.Visible = True
pnlNotfallkontakt.Visible = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
pnlZeiten.Visible = True
Else
@@ -186,11 +192,15 @@ Public Class frmMitarbeitersuche
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
btnEdit.Visible = True
btnSettings.Visible = True
pnlNotfallkontakt.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MA_TeamBearbeiten", "SDL") Then
If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
btnSettings.Visible = True
pnlNotfallkontakt.Visible = True
End If
End If
@@ -230,6 +240,12 @@ Public Class frmMitarbeitersuche
pic.BackgroundImage = My.Resources.personGray_m
picGeschlecht.Visible = False
pnlZeiten.Visible = False
lblNotfall_Name.Text = ""
lblNotfall_Handy.Text = ""
lblNotfall_Mail.Text = ""
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -237,15 +253,19 @@ Public Class frmMitarbeitersuche
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
If sbMitarbeiter._value = "" Then Exit Sub
Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value)
f.ShowDialog(Me)
initMA()
End Sub
Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If mit_id > 0 Then
sbMitarbeiter.SET_VALUE(mit_id)
sbMitarbeiter._value = mit_id
initMA()
End If
End Sub

484
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb generated
View File

@@ -26,9 +26,14 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch = New System.Windows.Forms.Panel()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlHoverPic = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button()
Me.txtMotto = New System.Windows.Forms.TextBox()
Me.txtNotfall_Name = New System.Windows.Forms.TextBox()
Me.cbxMotto = New System.Windows.Forms.CheckBox()
Me.cbxGeburtsdatumOhneJahr = New System.Windows.Forms.CheckBox()
Me.txtHandynummer = New System.Windows.Forms.TextBox()
@@ -41,17 +46,20 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.lblWohnadresse = New System.Windows.Forms.Label()
Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.pnlHoverPic = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtNotfall_Handy = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtNotfall_Mail = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtMotto = New System.Windows.Forms.TextBox()
Me.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHoverPic.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlSrch
@@ -85,10 +93,18 @@ Partial Class frmMitarbeitersucheBearbeiten
'pnlMain
'
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlMain.Controls.Add(Me.txtMotto)
Me.pnlMain.Controls.Add(Me.Label6)
Me.pnlMain.Controls.Add(Me.Label5)
Me.pnlMain.Controls.Add(Me.txtNotfall_Mail)
Me.pnlMain.Controls.Add(Me.Label4)
Me.pnlMain.Controls.Add(Me.txtNotfall_Handy)
Me.pnlMain.Controls.Add(Me.Label3)
Me.pnlMain.Controls.Add(Me.Label2)
Me.pnlMain.Controls.Add(Me.pnlHoverPic)
Me.pnlMain.Controls.Add(Me.cbxAllowFoto)
Me.pnlMain.Controls.Add(Me.btn)
Me.pnlMain.Controls.Add(Me.txtMotto)
Me.pnlMain.Controls.Add(Me.txtNotfall_Name)
Me.pnlMain.Controls.Add(Me.cbxMotto)
Me.pnlMain.Controls.Add(Me.cbxGeburtsdatumOhneJahr)
Me.pnlMain.Controls.Add(Me.txtHandynummer)
@@ -104,196 +120,21 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(703, 364)
Me.pnlMain.Size = New System.Drawing.Size(703, 525)
Me.pnlMain.TabIndex = 1
'
'cbxAllowFoto
'
Me.cbxAllowFoto.AutoSize = True
Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 187)
Me.cbxAllowFoto.Name = "cbxAllowFoto"
Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
Me.cbxAllowFoto.TabIndex = 33
Me.cbxAllowFoto.Text = "Foto anzeigen"
Me.cbxAllowFoto.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btn.Location = New System.Drawing.Point(357, 261)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(333, 51)
Me.btn.TabIndex = 32
Me.btn.Text = "Speichern"
Me.btn.UseVisualStyleBackColor = True
'
'txtMotto
'
Me.txtMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtMotto.Location = New System.Drawing.Point(357, 210)
Me.txtMotto.Name = "txtMotto"
Me.txtMotto.Size = New System.Drawing.Size(333, 29)
Me.txtMotto.TabIndex = 31
'
'cbxMotto
'
Me.cbxMotto.AutoSize = True
Me.cbxMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxMotto.Location = New System.Drawing.Point(186, 212)
Me.cbxMotto.Name = "cbxMotto"
Me.cbxMotto.Size = New System.Drawing.Size(75, 28)
Me.cbxMotto.TabIndex = 30
Me.cbxMotto.Text = "Motto"
Me.cbxMotto.UseVisualStyleBackColor = True
'
'cbxGeburtsdatumOhneJahr
'
Me.cbxGeburtsdatumOhneJahr.AutoSize = True
Me.cbxGeburtsdatumOhneJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxGeburtsdatumOhneJahr.Location = New System.Drawing.Point(489, 110)
Me.cbxGeburtsdatumOhneJahr.Name = "cbxGeburtsdatumOhneJahr"
Me.cbxGeburtsdatumOhneJahr.Size = New System.Drawing.Size(114, 28)
Me.cbxGeburtsdatumOhneJahr.TabIndex = 29
Me.cbxGeburtsdatumOhneJahr.Text = "ohne Jahr"
Me.cbxGeburtsdatumOhneJahr.UseVisualStyleBackColor = True
'
'txtHandynummer
'
Me.txtHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtHandynummer.Location = New System.Drawing.Point(357, 176)
Me.txtHandynummer.Name = "txtHandynummer"
Me.txtHandynummer.Size = New System.Drawing.Size(333, 29)
Me.txtHandynummer.TabIndex = 28
'
'txtSpitzname
'
Me.txtSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtSpitzname.Location = New System.Drawing.Point(357, 142)
Me.txtSpitzname.Name = "txtSpitzname"
Me.txtSpitzname.Size = New System.Drawing.Size(333, 29)
Me.txtSpitzname.TabIndex = 27
'
'lblGeburtstag
'
Me.lblGeburtstag.AutoSize = True
Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblGeburtstag.Location = New System.Drawing.Point(353, 111)
Me.lblGeburtstag.Name = "lblGeburtstag"
Me.lblGeburtstag.Size = New System.Drawing.Size(110, 24)
Me.lblGeburtstag.TabIndex = 12
Me.lblGeburtstag.Text = "01.01.2020"
Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'cbxHandynummer
'
Me.cbxHandynummer.AutoSize = True
Me.cbxHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxHandynummer.Location = New System.Drawing.Point(186, 178)
Me.cbxHandynummer.Name = "cbxHandynummer"
Me.cbxHandynummer.Size = New System.Drawing.Size(155, 28)
Me.cbxHandynummer.TabIndex = 26
Me.cbxHandynummer.Text = "Handynummer"
Me.cbxHandynummer.UseVisualStyleBackColor = True
'
'cbxSpitzname
'
Me.cbxSpitzname.AutoSize = True
Me.cbxSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxSpitzname.Location = New System.Drawing.Point(186, 144)
Me.cbxSpitzname.Name = "cbxSpitzname"
Me.cbxSpitzname.Size = New System.Drawing.Size(117, 28)
Me.cbxSpitzname.TabIndex = 25
Me.cbxSpitzname.Text = "Spitzname"
Me.cbxSpitzname.UseVisualStyleBackColor = True
'
'cbxGeburtsdatum
'
Me.cbxGeburtsdatum.AutoSize = True
Me.cbxGeburtsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxGeburtsdatum.Location = New System.Drawing.Point(186, 110)
Me.cbxGeburtsdatum.Name = "cbxGeburtsdatum"
Me.cbxGeburtsdatum.Size = New System.Drawing.Size(147, 28)
Me.cbxGeburtsdatum.TabIndex = 24
Me.cbxGeburtsdatum.Text = "Geburtsdatum"
Me.cbxGeburtsdatum.UseVisualStyleBackColor = True
'
'cbxWohnort
'
Me.cbxWohnort.AutoSize = True
Me.cbxWohnort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxWohnort.Location = New System.Drawing.Point(186, 76)
Me.cbxWohnort.Name = "cbxWohnort"
Me.cbxWohnort.Size = New System.Drawing.Size(101, 28)
Me.cbxWohnort.TabIndex = 23
Me.cbxWohnort.Text = "Wohnort"
Me.cbxWohnort.UseVisualStyleBackColor = True
'
'lblWohnadresse
'
Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblWohnadresse.Location = New System.Drawing.Point(353, 76)
Me.lblWohnadresse.Name = "lblWohnadresse"
Me.lblWohnadresse.Size = New System.Drawing.Size(341, 28)
Me.lblWohnadresse.TabIndex = 11
Me.lblWohnadresse.Text = "A 4975 Suben"
'
'lblName
'
Me.lblName.BackColor = System.Drawing.Color.Transparent
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.lblName.Location = New System.Drawing.Point(178, 6)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(452, 52)
Me.lblName.TabIndex = 1
Me.lblName.Text = "Max Mustermann"
Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(7, 3)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(165, 178)
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'pnlHoverPic
'
Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis)
Me.pnlHoverPic.Controls.Add(Me.Label1)
Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232)
Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 280)
Me.pnlHoverPic.Name = "pnlHoverPic"
Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
Me.pnlHoverPic.TabIndex = 37
Me.pnlHoverPic.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(4, 1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 24)
Me.Label1.TabIndex = 36
Me.Label1.Text = "Hover-Pic:"
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
Me.PictureBox2.TabIndex = 35
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
@@ -305,6 +146,17 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
Me.PictureBox2.TabIndex = 35
Me.PictureBox2.TabStop = False
'
'txtKonfigHinweis
'
Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White
@@ -316,13 +168,257 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.txtKonfigHinweis.TabIndex = 38
Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" &
"önnen. Sie können die Einstellungen jederzeit ändern."
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(4, 1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 24)
Me.Label1.TabIndex = 36
Me.Label1.Text = "Hover-Pic:"
'
'cbxAllowFoto
'
Me.cbxAllowFoto.AutoSize = True
Me.cbxAllowFoto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxAllowFoto.Location = New System.Drawing.Point(7, 235)
Me.cbxAllowFoto.Name = "cbxAllowFoto"
Me.cbxAllowFoto.Size = New System.Drawing.Size(150, 28)
Me.cbxAllowFoto.TabIndex = 33
Me.cbxAllowFoto.Text = "Foto anzeigen"
Me.cbxAllowFoto.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btn.Location = New System.Drawing.Point(357, 449)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(333, 51)
Me.btn.TabIndex = 32
Me.btn.Text = "Speichern"
Me.btn.UseVisualStyleBackColor = True
'
'txtNotfall_Name
'
Me.txtNotfall_Name.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtNotfall_Name.Location = New System.Drawing.Point(357, 348)
Me.txtNotfall_Name.Name = "txtNotfall_Name"
Me.txtNotfall_Name.Size = New System.Drawing.Size(333, 29)
Me.txtNotfall_Name.TabIndex = 31
'
'cbxMotto
'
Me.cbxMotto.AutoSize = True
Me.cbxMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxMotto.Location = New System.Drawing.Point(186, 260)
Me.cbxMotto.Name = "cbxMotto"
Me.cbxMotto.Size = New System.Drawing.Size(75, 28)
Me.cbxMotto.TabIndex = 30
Me.cbxMotto.Text = "Motto"
Me.cbxMotto.UseVisualStyleBackColor = True
'
'cbxGeburtsdatumOhneJahr
'
Me.cbxGeburtsdatumOhneJahr.AutoSize = True
Me.cbxGeburtsdatumOhneJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxGeburtsdatumOhneJahr.Location = New System.Drawing.Point(489, 158)
Me.cbxGeburtsdatumOhneJahr.Name = "cbxGeburtsdatumOhneJahr"
Me.cbxGeburtsdatumOhneJahr.Size = New System.Drawing.Size(114, 28)
Me.cbxGeburtsdatumOhneJahr.TabIndex = 29
Me.cbxGeburtsdatumOhneJahr.Text = "ohne Jahr"
Me.cbxGeburtsdatumOhneJahr.UseVisualStyleBackColor = True
'
'txtHandynummer
'
Me.txtHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtHandynummer.Location = New System.Drawing.Point(357, 224)
Me.txtHandynummer.Name = "txtHandynummer"
Me.txtHandynummer.Size = New System.Drawing.Size(333, 29)
Me.txtHandynummer.TabIndex = 28
'
'txtSpitzname
'
Me.txtSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtSpitzname.Location = New System.Drawing.Point(357, 190)
Me.txtSpitzname.Name = "txtSpitzname"
Me.txtSpitzname.Size = New System.Drawing.Size(333, 29)
Me.txtSpitzname.TabIndex = 27
'
'lblGeburtstag
'
Me.lblGeburtstag.AutoSize = True
Me.lblGeburtstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblGeburtstag.Location = New System.Drawing.Point(353, 159)
Me.lblGeburtstag.Name = "lblGeburtstag"
Me.lblGeburtstag.Size = New System.Drawing.Size(110, 24)
Me.lblGeburtstag.TabIndex = 12
Me.lblGeburtstag.Text = "01.01.2020"
Me.lblGeburtstag.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'cbxHandynummer
'
Me.cbxHandynummer.AutoSize = True
Me.cbxHandynummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxHandynummer.Location = New System.Drawing.Point(186, 226)
Me.cbxHandynummer.Name = "cbxHandynummer"
Me.cbxHandynummer.Size = New System.Drawing.Size(155, 28)
Me.cbxHandynummer.TabIndex = 26
Me.cbxHandynummer.Text = "Handynummer"
Me.cbxHandynummer.UseVisualStyleBackColor = True
'
'cbxSpitzname
'
Me.cbxSpitzname.AutoSize = True
Me.cbxSpitzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxSpitzname.Location = New System.Drawing.Point(186, 192)
Me.cbxSpitzname.Name = "cbxSpitzname"
Me.cbxSpitzname.Size = New System.Drawing.Size(117, 28)
Me.cbxSpitzname.TabIndex = 25
Me.cbxSpitzname.Text = "Spitzname"
Me.cbxSpitzname.UseVisualStyleBackColor = True
'
'cbxGeburtsdatum
'
Me.cbxGeburtsdatum.AutoSize = True
Me.cbxGeburtsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxGeburtsdatum.Location = New System.Drawing.Point(186, 158)
Me.cbxGeburtsdatum.Name = "cbxGeburtsdatum"
Me.cbxGeburtsdatum.Size = New System.Drawing.Size(147, 28)
Me.cbxGeburtsdatum.TabIndex = 24
Me.cbxGeburtsdatum.Text = "Geburtsdatum"
Me.cbxGeburtsdatum.UseVisualStyleBackColor = True
'
'cbxWohnort
'
Me.cbxWohnort.AutoSize = True
Me.cbxWohnort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.cbxWohnort.Location = New System.Drawing.Point(186, 124)
Me.cbxWohnort.Name = "cbxWohnort"
Me.cbxWohnort.Size = New System.Drawing.Size(101, 28)
Me.cbxWohnort.TabIndex = 23
Me.cbxWohnort.Text = "Wohnort"
Me.cbxWohnort.UseVisualStyleBackColor = True
'
'lblWohnadresse
'
Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblWohnadresse.Location = New System.Drawing.Point(353, 124)
Me.lblWohnadresse.Name = "lblWohnadresse"
Me.lblWohnadresse.Size = New System.Drawing.Size(341, 28)
Me.lblWohnadresse.TabIndex = 11
Me.lblWohnadresse.Text = "A 4975 Suben"
'
'lblName
'
Me.lblName.BackColor = System.Drawing.Color.Transparent
Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.lblName.Location = New System.Drawing.Point(178, 54)
Me.lblName.Name = "lblName"
Me.lblName.Size = New System.Drawing.Size(452, 52)
Me.lblName.TabIndex = 1
Me.lblName.Text = "Max Mustermann"
Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'pic
'
Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(7, 51)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(165, 178)
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
Me.Label2.Location = New System.Drawing.Point(186, 309)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(139, 24)
Me.Label2.TabIndex = 38
Me.Label2.Text = "Notfallkontakt:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label3.Location = New System.Drawing.Point(189, 350)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(66, 24)
Me.Label3.TabIndex = 39
Me.Label3.Text = "Name:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label4.Location = New System.Drawing.Point(189, 379)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(141, 24)
Me.Label4.TabIndex = 41
Me.Label4.Text = "Handynummer:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'txtNotfall_Handy
'
Me.txtNotfall_Handy.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtNotfall_Handy.Location = New System.Drawing.Point(357, 376)
Me.txtNotfall_Handy.Name = "txtNotfall_Handy"
Me.txtNotfall_Handy.Size = New System.Drawing.Size(333, 29)
Me.txtNotfall_Handy.TabIndex = 40
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label5.Location = New System.Drawing.Point(189, 406)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(68, 24)
Me.Label5.TabIndex = 43
Me.Label5.Text = "E-Mail:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'txtNotfall_Mail
'
Me.txtNotfall_Mail.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtNotfall_Mail.Location = New System.Drawing.Point(357, 404)
Me.txtNotfall_Mail.Name = "txtNotfall_Mail"
Me.txtNotfall_Mail.Size = New System.Drawing.Size(333, 29)
Me.txtNotfall_Mail.TabIndex = 42
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label6.Location = New System.Drawing.Point(354, 309)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(334, 34)
Me.Label6.TabIndex = 44
Me.Label6.Text = "Nur für mich und berechtigte Personen einsehbar. " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Im Notfall wird der angegebene" &
" Kontakt verständigt."
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'txtMotto
'
Me.txtMotto.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.txtMotto.Location = New System.Drawing.Point(357, 258)
Me.txtMotto.Name = "txtMotto"
Me.txtMotto.Size = New System.Drawing.Size(333, 29)
Me.txtMotto.TabIndex = 45
'
'frmMitarbeitersucheBearbeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(703, 364)
Me.ClientSize = New System.Drawing.Size(703, 525)
Me.Controls.Add(Me.pnlSrch)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -333,11 +429,11 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch.ResumeLayout(False)
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHoverPic.ResumeLayout(False)
Me.pnlHoverPic.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -350,7 +446,7 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents lblWohnadresse As Windows.Forms.Label
Friend WithEvents btnClose As Windows.Forms.Button
Friend WithEvents btn As Windows.Forms.Button
Friend WithEvents txtMotto As Windows.Forms.TextBox
Friend WithEvents txtNotfall_Name As Windows.Forms.TextBox
Friend WithEvents cbxMotto As Windows.Forms.CheckBox
Friend WithEvents cbxGeburtsdatumOhneJahr As Windows.Forms.CheckBox
Friend WithEvents txtHandynummer As Windows.Forms.TextBox
@@ -365,4 +461,12 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
Friend WithEvents pnlHoverPic As Windows.Forms.Panel
Friend WithEvents txtKonfigHinweis As Windows.Forms.TextBox
Friend WithEvents Label5 As Windows.Forms.Label
Friend WithEvents txtNotfall_Mail As Windows.Forms.TextBox
Friend WithEvents Label4 As Windows.Forms.Label
Friend WithEvents txtNotfall_Handy As Windows.Forms.TextBox
Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents Label2 As Windows.Forms.Label
Public WithEvents Label6 As Windows.Forms.Label
Friend WithEvents txtMotto As Windows.Forms.TextBox
End Class

12
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
View File

@@ -44,6 +44,11 @@ Public Class frmMitarbeitersucheBearbeiten
cbxAllowFoto.Checked = MA.mit_MAVerzeichnis_allowFoto
txtNotfall_Name.Text = If(MA.mit_Notfall_Name, "")
txtNotfall_Handy.Text = If(MA.mit_Notfall_Handy, "")
txtNotfall_Mail.Text = If(MA.mit_Notfall_Mail, "")
txtSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "")
txtHandynummer.Text = If(MA.mit_mobiltel, "")
@@ -138,6 +143,13 @@ Public Class frmMitarbeitersucheBearbeiten
MA.mit_MAVerzeichnis_allowHandynummer = cbxHandynummer.Checked
MA.mit_MAVerzeichnis_allowFoto = cbxAllowFoto.Checked
MA.mit_Notfall_Name = txtNotfall_Name.Text
MA.mit_Notfall_Handy = txtNotfall_Handy.Text
MA.mit_Notfall_Mail = txtNotfall_Mail.Text
If MA.mit_id = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
MA.mit_MAVerzeichnis_SettingsTstmp = Now
End If