WIP: Config UI

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -1,5 +1,15 @@
 Imports DD_LIB_Standards
 Public Class frmAdministration
+
+    Class ProfileType
+        Public Name As String
+        Public Id As Int16
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
     Dim PID As Integer
     Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
         Save_Profile()
@@ -9,11 +19,8 @@ Public Class frmAdministration
     End Sub
     Sub Load_Profiles()
         Try
-            Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
-            If MyDataset.TBCW_PROFILES.Rows.Count >= 1 Then
-                grpbxProfiles.Enabled = True
-            End If
+            TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
         Catch ex As Exception
             MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -35,6 +42,13 @@ Public Class frmAdministration
     End Sub
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Load_Profiles()
+
+        PROFILE_TYPEComboBox.DataSource = New List(Of ProfileType) From {
+            New ProfileType() With {.Id = 0, .Name = "Daten und Dokumente"},
+            New ProfileType() With {.Id = 1, .Name = "Nur Dokumente"},
+            New ProfileType() With {.Id = 2, .Name = "Nur Daten"}
+        }
+
         lbllicenseCount.Text = LICENSE_COUNT
         If LICENSE_DATE.ToString.Contains("2099") Then
             lblLicenseDate.Text = "Unlimited"
@@ -181,10 +195,6 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
-
-    End Sub
-
     Private Sub Load_Profile_Process()
         Try
             If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
@@ -223,7 +233,7 @@ Public Class frmAdministration
             End Try
             Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID)
             If clsDatabase.Execute_non_Query(del) = True Then
-                Load_Profile_Process
+                Load_Profile_Process()
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -284,12 +294,4 @@ Public Class frmAdministration
         End Try
         Refresh_Free_Users(GUIDTextBox.Text)
     End Sub
-
-    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
-        grpbxProfiles.Enabled = True
-    End Sub
-
-    Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged
-
-    End Sub
 End Class