ADMIN UsrParam, DHF Import

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -18,6 +18,10 @@ Public Class frmMitarbDetails
     Dim timas As cTimasAPI
     Dim dtTimas As New DataTable
 
+
+    Dim USRPARAM_Bind As cEasyBinding
+
+
     Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -46,6 +50,31 @@ Public Class frmMitarbDetails
 
     End Sub
 
+    Sub initUsrParamBinding(maId)
+        Try
+            With dgvUserParameter
+
+                Dim table = "tblMitarbeiter_UserParams"
+                USRPARAM_Bind = New cEasyBinding("ADMIN")
+                USRPARAM_Bind.initBinding("SELECT *  FROM " & table & " WHERE usrPr_maId='" & maId & "'", table)
+                .DataSource = USRPARAM_Bind.bindingdataTable
+                .AutoSize = True
+                USRPARAM_Bind.bindingdataTable.Columns("usrPr_maId").DefaultValue = maId
+
+                If .ColumnCount > 0 Then
+                    .Columns("usrPr_maId").Visible = False
+                    .Columns("usrPr_parameter").HeaderText = "Parameter"
+                    .Columns("usrPr_parameter").Width = 150
+                    .Columns("usrPr_value").HeaderText = "Wert"
+                    .ScrollBars = ScrollBars.Vertical
+                    .Columns("usrPr_value").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
     Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         cboFirmaFMZOLL.fillWithSQL("SELECT[Firma_ID],[Firma_Bez]  FROM [tblFirma] ", True, "FMZOLL", True)
@@ -222,6 +251,7 @@ Public Class frmMitarbDetails
 
             If Not IsNothing(mitarbeiter) Then
                 initMitarbeiter()
+                initUsrParamBinding(mid)
             Else
                 MsgBox("Fehler beim Laden der Daten!")
             End If
@@ -438,7 +468,11 @@ Public Class frmMitarbDetails
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         Dim newMid As Integer = 0
         If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+
+        USRPARAM_Bind.updateBinding()
+
         getMitarbeiter()
+
         If isUpdate Then
             mitarbeiter.mit_id = mid
             If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen(newMid) : Me.Close()