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

Admin

Browse Source
This commit is contained in:
d.breimaier
2026-07-28 09:14:56 +02:00
parent 27399f7cb8
commit 4caa0c2073
2 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
UID/frmMain.Designer.vb generated
View File

@@ -52,7 +52,7 @@ Partial Class frmMain
Me.btnMitarbeiter = New System.Windows.Forms.Button() Me.btnMitarbeiter = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() 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.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,7 +113,7 @@ Partial Class frmMain
'Panel3 'Panel3
' '
Me.Panel3.BackColor = System.Drawing.Color.White 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.btnInterneBenachrichtigungen)
Me.Panel3.Controls.Add(Me.lblVersion) Me.Panel3.Controls.Add(Me.lblVersion)
Me.Panel3.Controls.Add(Me.btnAuditFlow) Me.Panel3.Controls.Add(Me.btnAuditFlow)
@@ -358,17 +358,17 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31 Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False Me.PictureBox1.TabStop = False
' '
'Button2 'btnFirm
' '
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnFirm.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnFirm.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(12, 76) Me.btnFirm.Location = New System.Drawing.Point(12, 76)
Me.Button2.Name = "Button2" Me.btnFirm.Name = "btnFirm"
Me.Button2.Size = New System.Drawing.Size(94, 33) Me.btnFirm.Size = New System.Drawing.Size(94, 33)
Me.Button2.TabIndex = 47 Me.btnFirm.TabIndex = 47
Me.Button2.Text = "Firmen" Me.btnFirm.Text = "Firmen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnFirm.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.UseVisualStyleBackColor = True Me.btnFirm.UseVisualStyleBackColor = True
' '
'frmMain 'frmMain
' '
@@ -418,5 +418,5 @@ Partial Class frmMain
Friend WithEvents btnAuditFlow As Button Friend WithEvents btnAuditFlow As Button
Friend WithEvents lblVersion As Label Friend WithEvents lblVersion As Label
Friend WithEvents btnInterneBenachrichtigungen As Button Friend WithEvents btnInterneBenachrichtigungen As Button
Friend WithEvents Button2 As Button Friend WithEvents btnFirm As Button
End Class End Class

6
UID/frmMain.vb
View File

@@ -36,6 +36,8 @@ Public Class frmMain
btnFehler.Enabled = False btnFehler.Enabled = False
btnDatenarchiv.Enabled = False btnDatenarchiv.Enabled = False
btnMailroutine.Enabled = False btnMailroutine.Enabled = False
btnFirm.Enabled = False
btnInterneBenachrichtigungen.Enabled = False
lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2 lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
Dim uniqueberechtigungDP = True Dim uniqueberechtigungDP = True
@@ -68,6 +70,8 @@ Public Class frmMain
Button6.Enabled = True Button6.Enabled = True
btnDatenarchiv.Enabled = True btnDatenarchiv.Enabled = True
uniqueberechtigungDP = False uniqueberechtigungDP = False
btnInterneBenachrichtigungen.Enabled = True
btnFirm.Enabled = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
@@ -270,7 +274,7 @@ Public Class frmMain
f.Show(Me) f.Show(Me)
End Sub 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 Dim frm As New frmFirmenuebersicht
frm.Show(Me) frm.Show(Me)