This commit is contained in:
2025-08-14 11:26:51 +02:00
5 changed files with 1077 additions and 963 deletions

View File

@@ -49,6 +49,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.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -109,6 +110,7 @@ Partial Class frmMain
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.btnMailroutine)
Me.Panel3.Controls.Add(Me.btnAPIZugang)
Me.Panel3.Controls.Add(Me.btnDatenarchiv)
@@ -133,7 +135,7 @@ Partial Class frmMain
'
Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMailroutine.Location = New System.Drawing.Point(12, 516)
Me.btnMailroutine.Location = New System.Drawing.Point(12, 637)
Me.btnMailroutine.Name = "btnMailroutine"
Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
Me.btnMailroutine.TabIndex = 43
@@ -145,7 +147,7 @@ Partial Class frmMain
'
Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIZugang.Location = New System.Drawing.Point(12, 437)
Me.btnAPIZugang.Location = New System.Drawing.Point(12, 558)
Me.btnAPIZugang.Name = "btnAPIZugang"
Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33)
Me.btnAPIZugang.TabIndex = 42
@@ -157,7 +159,7 @@ Partial Class frmMain
'
Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 319)
Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 393)
Me.btnDatenarchiv.Name = "btnDatenarchiv"
Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33)
Me.btnDatenarchiv.TabIndex = 41
@@ -169,7 +171,7 @@ Partial Class frmMain
'
Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFehler.Location = New System.Drawing.Point(12, 280)
Me.btnFehler.Location = New System.Drawing.Point(12, 354)
Me.btnFehler.Name = "btnFehler"
Me.btnFehler.Size = New System.Drawing.Size(94, 33)
Me.btnFehler.TabIndex = 40
@@ -181,7 +183,7 @@ Partial Class frmMain
'
Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPI.Location = New System.Drawing.Point(12, 241)
Me.btnAPI.Location = New System.Drawing.Point(12, 315)
Me.btnAPI.Name = "btnAPI"
Me.btnAPI.Size = New System.Drawing.Size(94, 33)
Me.btnAPI.TabIndex = 39
@@ -193,7 +195,7 @@ Partial Class frmMain
'
Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnHomepage.Location = New System.Drawing.Point(12, 358)
Me.btnHomepage.Location = New System.Drawing.Point(12, 479)
Me.btnHomepage.Name = "btnHomepage"
Me.btnHomepage.Size = New System.Drawing.Size(94, 33)
Me.btnHomepage.TabIndex = 38
@@ -216,7 +218,7 @@ Partial Class frmMain
'btnUpdate
'
Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdate.Location = New System.Drawing.Point(12, 476)
Me.btnUpdate.Location = New System.Drawing.Point(12, 597)
Me.btnUpdate.Name = "btnUpdate"
Me.btnUpdate.Size = New System.Drawing.Size(94, 34)
Me.btnUpdate.TabIndex = 37
@@ -261,7 +263,7 @@ Partial Class frmMain
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Location = New System.Drawing.Point(12, 397)
Me.Button6.Location = New System.Drawing.Point(12, 518)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(94, 34)
Me.Button6.TabIndex = 33
@@ -314,6 +316,18 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(12, 243)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 33)
Me.Button2.TabIndex = 44
Me.Button2.Text = "AuditFlow"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.UseVisualStyleBackColor = True
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -359,4 +373,5 @@ Partial Class frmMain
Friend WithEvents btnDatenarchiv As Button
Friend WithEvents btnAPIZugang As Button
Friend WithEvents btnMailroutine As Button
Friend WithEvents Button2 As Button
End Class

View File

@@ -1,4 +1,5 @@
Imports System.ComponentModel
Imports VERAG_PROG_ALLGEMEIN
'TEST
Public Class frmMain
Public Shared ConnStr As String
@@ -235,4 +236,9 @@ Public Class frmMain
usrCntl.Dock = DockStyle.Fill
button_Click(sender)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmAuditFlow
f.Show(Me)
End Sub
End Class