MA Notfallkontakt

2025-03-26 09:55:35 +01:00
parent 69384b1876
commit 04ea9e34d6
11 changed files with 535 additions and 308 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
@@ -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