Index: PlanScan/Main.pas
===================================================================
diff -u -r348 -r349
--- PlanScan/Main.pas	(.../Main.pas)	(revision 348)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 349)
@@ -7,32 +7,26 @@
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids,
   Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer,
   CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls,
-  DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes;
+  DnaCodeService, Vcl.ExtCtrls, GebruikerService, frameDnaCodes, frameGebruikers;
 
 type
   TfmMain = class(TForm)
     CacheQuery1: TCacheQuery;
-    pcMain: TPageControl;
-    tsDnaCodes: TTabSheet;
-    tsGebruikers: TTabSheet;
-    Panel1: TPanel;
-    btnGebruikerAfmelden: TButton;
-    dbgGebruikers: TDBGrid;
-    cdsGebruikers: TClientDataSet;
-    dsGebruikers: TDataSource;
-    pnlLinks: TPanel;
     frmDnaCodes: TfrmDnaCodes;
+    pnlLinks: TPanel;
     Panel2: TPanel;
     pnlKnoppen: TPanel;
+    pnlFrames: TPanel;
+    frmGebruikers: TfrmGebruikers;
+    pcFrames: TPageControl;
+    tsDnaCodes: TTabSheet;
+    tsGebruikers: TTabSheet;
     procedure tsGebruikersShow(Sender: TObject);
-    procedure btnGebruikerAfmeldenClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     fUiContext: TUiContext;
-    procedure VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
-    procedure ZoekAlleGebruikers();
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
   end;
@@ -47,30 +41,13 @@
 
 {$R *.dfm}
 
-procedure TfmMain.btnGebruikerAfmeldenClick(Sender: TObject);
-var
-  rijteller: integer;
-begin
-  if dbgGebruikers.SelectedRows.Count > 0 then begin
-    for rijteller := 0 to dbgGebruikers.SelectedRows.Count-1 do begin
-      dbgGebruikers.DataSource.DataSet.GotoBookmark(Pointer(dbgGebruikers.SelectedRows.Items[rijteller]));
-      if dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersInitialen').AsString = UiContexT.Initialen then
-        ShowMessage('Je kan jezelf hier niet afmelden')
-      else
-        TAgent.Create(UiContext).GebruikerAfmelden(dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersInitialen').AsString,dbgGebruikers.DataSource.DataSet.FieldByName('cdsGebruikersLoginCode').AsString)
-    end;
-  end;
-  ZoekAlleGebruikers();
-end;
-
 procedure TfmMain.FormCreate(Sender: TObject);
 begin
   UiContext := TUiContext.Create();
   if ParamStr(1) <> '' then
     UiContext.ServerName := Copy(ParamStr(1),Pos('=',ParamStr(1))+1,length(ParamStr(1)))
   else
     UiContext.ServerName := 'tve-w10';
-  pcMain.ActivePage := tsDnaCodes;
 end;
 
 procedure TfmMain.FormShow(Sender: TObject);
@@ -90,6 +67,7 @@
         UiContext.Initialen := fLoginScherm.edtInitialen.Text;
         UiContext.LoginCode := fLoginScherm.edtLoginCode.Text;
         Self.Caption := 'PlanScan '+UiContext.Initialen;
+        pcFrames.ActivePageIndex := 0;
       end;
     except
       on E: Exception do begin
@@ -113,52 +91,7 @@
 begin
   UiContext.LoginCode := '1513';
   UiContext.Initialen := 'TSN';
-  ZoekAlleGebruikers();
+  //ZoekAlleGebruikers();
 end;
 
-procedure TfmMain.ZoekAlleGebruikers();
-var
-  fZoekGebruikersResponse: ZoekGebruikersResponse;
-begin
-  fZoekGebruikersResponse := TAgent.Create(UiContext).ZoekAlleGebruikers();
-  try
-    if fZoekGebruikersResponse.Header.Status = '200' then begin
-      VulGebruikersGridMetData(fZoekGebruikersResponse.Gebruikers);
-    end else begin
-      ShowMessage(fZoekGebruikersResponse.Header.Omschrijving);
-    end;
-  finally
-    fZoekGebruikersResponse.Free;
-  end;
-end;
-
-procedure TfmMain.VulGebruikersGridMetData(Gebruikers: ArrayOfGebruikerGebruiker);
-var
-  ii: integer;
-  AangemeldSindsAsString: string;
-  LaatsteActiviteitAsString: string;
-begin
-  cdsGebruikers.Close;
-  cdsGebruikers.CreateDataSet;
-
-  ii := 0;
-  while ii <= length(Gebruikers)-1 do begin
-    if Gebruikers[ii].AangemeldSinds = nil then
-      AangemeldSindsAsString := ''
-    else
-      AangemeldSindsAsString := DateTimeToStr(Gebruikers[ii].AangemeldSinds.AsUTCDateTime);
-    if Gebruikers[ii].LaatsteActiviteit = nil then
-      LaatsteActiviteitAsString := ''
-    else
-      LaatsteActiviteitAsString := DateTimeToStr(Gebruikers[ii].LaatsteActiviteit.AsUTCDateTime);
-
-    cdsGebruikers.InsertRecord([Gebruikers[ii].Initialen,
-                                Gebruikers[ii].ComputerNaam,
-                                AangemeldSindsAsString,
-                                LaatsteActiviteitAsString,
-                                Gebruikers[ii].LoginCode]);
-    ii := ii + 1;
-  end;
-end;
-
 end.