Projektdateien hinzufügen.

Aviso/Auswertung/usrctlMAUebersicht.vb

@@ -0,0 +1,99 @@
+Imports Gemeinsames
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrctlMAUebersicht
+
+
+    Dim SQL As New Statistik
+
+    Sub init()
+        DataGridView1.Rows.Clear()
+        DataGridView1.Columns(0).Visible = False
+        Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
+        If Not listMaAVG Is Nothing Then
+            For Each l In listMaAVG
+                DataGridView1.Rows.Add(l.mit_id, l.mit_name, l.mit_avg, l.mit_count)
+            Next
+        End If
+    End Sub
+
+    Private Sub Panel1_Paint() 'sender As Object, e As PaintEventArgs) Handles Panel1.Paint
+        Panel1.Controls.Clear()
+      
+
+        Dim t As New TableLayoutPanel
+        Panel1.Controls.Add(t)
+        Panel1.Width = 800
+        Panel1.Height = 500
+        Panel1.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
+
+
+        t.Width = 800
+        t.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single
+
+        t.AutoScroll = True
+        t.AutoSize = True
+        t.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
+
+
+        t.Dock = DockStyle.Fill
+
+        t.Controls.Clear()
+        t.ColumnStyles.Clear()
+        t.RowStyles.Clear()
+
+        t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 30))
+        t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 70))
+        t.ColumnCount = 2
+
+        Dim l1 As New Label
+        l1.Text = "Mitarbeiter"
+        Dim l2 As New Label
+        l2.Text = "In Bearbeitung"
+        t.Controls.Add(l1, 0, 0)
+        t.Controls.Add(l2, 1, 0)
+        t.Controls.Add(l2, 1, 0)
+
+        Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
+
+
+        Dim i As Integer = 0
+        If Not listMaAVG Is Nothing Then
+            For Each l In listMaAVG
+                t.RowStyles.Add(New RowStyle(SizeType.AutoSize, 70))
+
+                'MsgBox("Test" & l.mit_name)
+                Dim p_left As New Panel
+                Dim p_right As New Panel
+                p_left.Dock = DockStyle.Fill
+                p_right.Dock = DockStyle.Fill
+                p_left.AutoSize = True '.Height = 20
+                p_right.AutoSize = True '#.Height = 20
+
+                't.RowCount = 2
+
+                Dim l3 As New Label
+                l3.Text = l.mit_name
+                Dim l4 As New Label
+                l4.Text = CStr(l.mit_avg) & " min"
+                p_left.Controls.Add(l3)
+                p_right.Controls.Add(l4)
+
+
+
+                t.Controls.Add(p_left, 0, i + 1)
+                t.Controls.Add(p_right, 1, i + 1)
+                i += 1
+            Next
+        End If
+    End Sub
+
+
+    Private Sub usrctlMAUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        init()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        init()
+    End Sub
+End Class