diff --git a/UID/frmMain.Designer.vb b/UID/frmMain.Designer.vb index 5df6668..e4e093a 100644 --- a/UID/frmMain.Designer.vb +++ b/UID/frmMain.Designer.vb @@ -52,7 +52,7 @@ Partial Class frmMain Me.btnMitarbeiter = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Button2 = New System.Windows.Forms.Button() + Me.btnFirm = New System.Windows.Forms.Button() Me.Panel3.SuspendLayout() Me.Panel2.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -113,7 +113,7 @@ Partial Class frmMain 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.White - Me.Panel3.Controls.Add(Me.Button2) + Me.Panel3.Controls.Add(Me.btnFirm) Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen) Me.Panel3.Controls.Add(Me.lblVersion) Me.Panel3.Controls.Add(Me.btnAuditFlow) @@ -358,17 +358,17 @@ Partial Class frmMain Me.PictureBox1.TabIndex = 31 Me.PictureBox1.TabStop = False ' - 'Button2 + 'btnFirm ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.Location = New System.Drawing.Point(12, 76) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(94, 33) - Me.Button2.TabIndex = 47 - Me.Button2.Text = "Firmen" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.UseVisualStyleBackColor = True + Me.btnFirm.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFirm.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnFirm.Location = New System.Drawing.Point(12, 76) + Me.btnFirm.Name = "btnFirm" + Me.btnFirm.Size = New System.Drawing.Size(94, 33) + Me.btnFirm.TabIndex = 47 + Me.btnFirm.Text = "Firmen" + Me.btnFirm.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnFirm.UseVisualStyleBackColor = True ' 'frmMain ' @@ -418,5 +418,5 @@ Partial Class frmMain Friend WithEvents btnAuditFlow As Button Friend WithEvents lblVersion As Label Friend WithEvents btnInterneBenachrichtigungen As Button - Friend WithEvents Button2 As Button + Friend WithEvents btnFirm As Button End Class diff --git a/UID/frmMain.vb b/UID/frmMain.vb index 7df8fed..2b990cf 100644 --- a/UID/frmMain.vb +++ b/UID/frmMain.vb @@ -36,6 +36,8 @@ Public Class frmMain btnFehler.Enabled = False btnDatenarchiv.Enabled = False btnMailroutine.Enabled = False + btnFirm.Enabled = False + btnInterneBenachrichtigungen.Enabled = False lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2 Dim uniqueberechtigungDP = True @@ -68,6 +70,8 @@ Public Class frmMain Button6.Enabled = True btnDatenarchiv.Enabled = True uniqueberechtigungDP = False + btnInterneBenachrichtigungen.Enabled = True + btnFirm.Enabled = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then @@ -270,7 +274,7 @@ Public Class frmMain f.Show(Me) End Sub - Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnFirm.Click Dim frm As New frmFirmenuebersicht frm.Show(Me)