Index: PlanScan/Main.dfm
===================================================================
diff -u -r348 -r349
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 348)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 349)
@@ -26,100 +26,14 @@
       000001004F0300004F0300000000000001010C5175657279204C6F6F6B757000
       00000000FFFFFFFF}
   end
-  object pcMain: TPageControl
-    Left = 197
-    Top = 184
-    Width = 368
-    Height = 184
-    ActivePage = tsDnaCodes
-    MultiLine = True
-    TabOrder = 1
-    TabPosition = tpLeft
-    object tsDnaCodes: TTabSheet
-      Caption = 'DnaCodes'
-      ExplicitWidth = 427
-      ExplicitHeight = 352
-    end
-    object tsGebruikers: TTabSheet
-      Caption = 'Gebruikers'
-      ImageIndex = 1
-      OnShow = tsGebruikersShow
-      ExplicitWidth = 427
-      ExplicitHeight = 352
-      object Panel1: TPanel
-        Left = 213
-        Top = 0
-        Width = 127
-        Height = 176
-        Align = alRight
-        BevelEdges = []
-        BevelOuter = bvNone
-        TabOrder = 0
-        ExplicitLeft = 300
-        ExplicitHeight = 352
-        object btnGebruikerAfmelden: TButton
-          Left = 6
-          Top = 6
-          Width = 115
-          Height = 25
-          Caption = 'Afmelden'
-          TabOrder = 0
-          OnClick = btnGebruikerAfmeldenClick
-        end
-      end
-      object dbgGebruikers: TDBGrid
-        Left = 0
-        Top = 0
-        Width = 213
-        Height = 176
-        Align = alClient
-        DataSource = dsGebruikers
-        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
-        TabOrder = 1
-        TitleFont.Charset = DEFAULT_CHARSET
-        TitleFont.Color = clWindowText
-        TitleFont.Height = -11
-        TitleFont.Name = 'Tahoma'
-        TitleFont.Style = []
-        Columns = <
-          item
-            Expanded = False
-            FieldName = 'cdsGebruikersInitialen'
-            Title.Caption = 'Initialen'
-            Visible = True
-          end
-          item
-            Expanded = False
-            FieldName = 'cdsGebruikersComputernaam'
-            Title.Caption = 'Computernaam'
-            Width = 150
-            Visible = True
-          end
-          item
-            Expanded = False
-            FieldName = 'cdsGebruikersAangemeldSinds'
-            Title.Caption = 'Aangemeld sinds'
-            Width = 112
-            Visible = True
-          end
-          item
-            Expanded = False
-            FieldName = 'cdsGebruikersLaatsteActiviteit'
-            Title.Caption = 'Laatste activiteit'
-            Width = 155
-            Visible = True
-          end>
-      end
-    end
-  end
   object pnlLinks: TPanel
     Left = 0
     Top = 0
     Width = 185
     Height = 408
     Align = alLeft
     BevelOuter = bvNone
-    TabOrder = 2
+    TabOrder = 1
     ExplicitLeft = 8
     ExplicitTop = 73
     ExplicitHeight = 41
@@ -144,71 +58,86 @@
       Color = 1513421
       ParentBackground = False
       TabOrder = 1
-      ExplicitLeft = 6
-      ExplicitTop = 248
-      ExplicitHeight = 41
     end
   end
-  inline frmDnaCodes: TfrmDnaCodes
-    Left = 296
+  object pnlFrames: TPanel
+    Left = 185
     Top = 0
-    Width = 402
+    Width = 513
     Height = 408
-    Align = alRight
-    TabOrder = 3
-    ExplicitLeft = 296
-    ExplicitWidth = 402
-    ExplicitHeight = 408
-    inherited dbgDnaCodes: TDBGrid
-      Width = 275
-      Height = 367
-    end
-    inherited pnlActies: TPanel
-      Left = 275
-      Height = 367
-    end
-    inherited pnlZoekKnoppen: TPanel
-      Width = 402
-      ExplicitWidth = 640
-    end
-  end
-  object cdsGebruikers: TClientDataSet
-    Aggregates = <>
-    FieldDefs = <
-      item
-        Name = 'cdsGebruikersInitialen'
-        DataType = ftString
-        Size = 10
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 2
+    ExplicitLeft = 208
+    ExplicitTop = 169
+    ExplicitWidth = 185
+    ExplicitHeight = 41
+    object pcFrames: TPageControl
+      Left = 0
+      Top = 0
+      Width = 513
+      Height = 408
+      Align = alClient
+      TabOrder = 0
+      object tsDnaCodes: TTabSheet
+        Caption = 'DnaCodes'
+        TabVisible = False
+        ExplicitTop = 24
+        ExplicitWidth = 281
+        ExplicitHeight = 165
+        inline frmDnaCodes: TfrmDnaCodes
+          Left = 0
+          Top = 0
+          Width = 505
+          Height = 398
+          Align = alClient
+          TabOrder = 0
+          ExplicitWidth = 281
+          ExplicitHeight = 165
+          inherited dbgDnaCodes: TDBGrid
+            Width = 378
+            Height = 357
+          end
+          inherited pnlActies: TPanel
+            Left = 378
+            Height = 357
+            ExplicitLeft = 154
+            ExplicitHeight = 124
+          end
+          inherited pnlZoekKnoppen: TPanel
+            Width = 505
+            ExplicitWidth = 281
+          end
+        end
       end
-      item
-        Name = 'cdsGebruikersComputernaam'
-        DataType = ftString
-        Size = 30
+      object tsGebruikers: TTabSheet
+        Caption = 'Gebruikers'
+        ImageIndex = 1
+        TabVisible = False
+        ExplicitTop = 24
+        ExplicitWidth = 281
+        ExplicitHeight = 165
+        inline frmGebruikers: TfrmGebruikers
+          Left = 0
+          Top = 0
+          Width = 505
+          Height = 398
+          Align = alClient
+          TabOrder = 0
+          ExplicitWidth = 513
+          ExplicitHeight = 408
+          inherited dbgGebruikers: TDBGrid
+            Width = 378
+            Height = 398
+          end
+          inherited Panel1: TPanel
+            Left = 378
+            Height = 398
+            ExplicitLeft = 386
+            ExplicitHeight = 408
+          end
+        end
       end
-      item
-        Name = 'cdsGebruikersAangemeldSinds'
-        DataType = ftString
-        Size = 20
-      end
-      item
-        Name = 'cdsGebruikersLaatsteActiviteit'
-        DataType = ftString
-        Size = 20
-      end
-      item
-        Name = 'cdsGebruikersLoginCode'
-        DataType = ftString
-        Size = 20
-      end>
-    IndexDefs = <>
-    Params = <>
-    StoreDefs = True
-    Left = 120
-    Top = 240
+    end
   end
-  object dsGebruikers: TDataSource
-    DataSet = cdsGebruikers
-    Left = 120
-    Top = 192
-  end
 end