Kunedbearbeiten, etc.

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb

@@ -26,6 +26,8 @@ Partial Class frmTimasabfrage
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.rbHO = New System.Windows.Forms.RadioButton()
+        Me.rbBuero = New System.Windows.Forms.RadioButton()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.cboTyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.btnClose = New System.Windows.Forms.Button()
@@ -38,6 +40,8 @@ Partial Class frmTimasabfrage
         '
         Me.MyPanel1.BackColor = System.Drawing.Color.White
         Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MyPanel1.Controls.Add(Me.rbHO)
+        Me.MyPanel1.Controls.Add(Me.rbBuero)
         Me.MyPanel1.Controls.Add(Me.Button1)
         Me.MyPanel1.Controls.Add(Me.cboTyp)
         Me.MyPanel1.Controls.Add(Me.btnClose)
@@ -46,15 +50,37 @@ Partial Class frmTimasabfrage
         Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
         Me.MyPanel1.Name = "MyPanel1"
-        Me.MyPanel1.Size = New System.Drawing.Size(264, 84)
+        Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
         Me.MyPanel1.TabIndex = 3
         '
+        'rbHO
+        '
+        Me.rbHO.AutoSize = True
+        Me.rbHO.Location = New System.Drawing.Point(76, 46)
+        Me.rbHO.Name = "rbHO"
+        Me.rbHO.Size = New System.Drawing.Size(79, 17)
+        Me.rbHO.TabIndex = 9
+        Me.rbHO.TabStop = True
+        Me.rbHO.Text = "Homeoffice"
+        Me.rbHO.UseVisualStyleBackColor = True
+        '
+        'rbBuero
+        '
+        Me.rbBuero.AutoSize = True
+        Me.rbBuero.Location = New System.Drawing.Point(76, 23)
+        Me.rbBuero.Name = "rbBuero"
+        Me.rbBuero.Size = New System.Drawing.Size(47, 17)
+        Me.rbBuero.TabIndex = 8
+        Me.rbBuero.TabStop = True
+        Me.rbBuero.Text = "Büro"
+        Me.rbBuero.UseVisualStyleBackColor = True
+        '
         'Button1
         '
         Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Button1.Location = New System.Drawing.Point(6, 52)
+        Me.Button1.Location = New System.Drawing.Point(6, 71)
         Me.Button1.Margin = New System.Windows.Forms.Padding(0)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(57, 22)
@@ -74,10 +100,11 @@ Partial Class frmTimasabfrage
         Me.cboTyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboTyp.FormattingEnabled = True
         Me.cboTyp.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"})
-        Me.cboTyp.Location = New System.Drawing.Point(79, 23)
+        Me.cboTyp.Location = New System.Drawing.Point(201, 33)
         Me.cboTyp.Name = "cboTyp"
-        Me.cboTyp.Size = New System.Drawing.Size(84, 28)
+        Me.cboTyp.Size = New System.Drawing.Size(58, 28)
         Me.cboTyp.TabIndex = 4
+        Me.cboTyp.Visible = False
         '
         'btnClose
         '
@@ -101,7 +128,7 @@ Partial Class frmTimasabfrage
         Me.btn.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.btn.Location = New System.Drawing.Point(178, 52)
+        Me.btn.Location = New System.Drawing.Point(178, 71)
         Me.btn.Margin = New System.Windows.Forms.Padding(0)
         Me.btn.Name = "btn"
         Me.btn.Size = New System.Drawing.Size(76, 22)
@@ -122,13 +149,14 @@ Partial Class frmTimasabfrage
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(264, 84)
+        Me.ClientSize = New System.Drawing.Size(264, 103)
         Me.Controls.Add(Me.MyPanel1)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Name = "frmTimasabfrage"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmDatumsabfrage"
         Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -139,4 +167,6 @@ Partial Class frmTimasabfrage
     Friend WithEvents Label1 As Label
     Public WithEvents cboTyp As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Button1 As Button
+    Friend WithEvents rbHO As RadioButton
+    Friend WithEvents rbBuero As RadioButton
 End Class

VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb

@@ -1,6 +1,7 @@
 Public Class frmTimasabfrage
     Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
     Public Datum As Date = CDate(Now.ToShortDateString)
+    Public typ As Integer = -1
 
     Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -13,9 +14,6 @@
         mit = mit_
     End Sub
 
-
-
-
     Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load
 
         cboTyp.Items.Clear()
@@ -25,8 +23,10 @@
         If mit IsNot Nothing Then
             Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
             If mit.mit_homeoffice Then
+                rbHO.Checked = True
                 cboTyp.changeItem("Homeoffice")
             Else
+                rbHO.Checked = False
                 cboTyp.changeItem("Büro")
             End If
         End If
@@ -35,4 +35,27 @@
 
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        If typ = -1 Then
+            MsgBox("Bitte Typ auswählen")
+            DialogResult = Windows.Forms.DialogResult.None
+        Else
+            DialogResult = Windows.Forms.DialogResult.OK
+        End If
+
+    End Sub
+
+    Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged
+
+        If rbBuero.Checked Then
+            typ = 0
+        ElseIf rbHO.Checked Then
+            typ = 3
+        Else
+            typ = -1
+        End If
+
+    End Sub
+
 End Class