Index: PlanScan/PlanScan.dproj =================================================================== diff -u -r362 -r364 --- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 362) +++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 364) @@ -106,6 +106,11 @@ TFrame + +
frmKlantinstellingen
+ dfm + TFrame +
Cfg_2 Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r363 -r364 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 363) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 364) @@ -2,47 +2,50 @@ 2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas - 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm - 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj - 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm + 2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas + 2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas + 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history 2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas 2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas= 2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas 2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas 2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= 2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas - 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas 2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/03/02 09:30:33.000.825,=E:\svn\Delphi\PlanScan\WS.pas 2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= - 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas 2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\LoginScherm.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm 2020/04/20 08:48:05.000.552,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm - 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm - 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm + 2020/04/20 08:48:21.000.787,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas + 2020/04/20 09:19:59.000.705,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm 2020/04/20 09:21:17.000.241,=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:46:18.000.858,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.dfm=E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm + 2020/04/20 10:49:21.000.229,E:\svn\Delphi\PlanScan\Unit1.pas=E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas 2020/04/21 13:47:35.000.169,=E:\svn\Delphi\PlanScan\WS.pas 2020/04/21 13:47:43.000.211,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/04/21 13:47:54.000.335,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas 2020/04/28 16:29:21.000.325,=E:\svn\Delphi\PlanScan\WS.pas 2020/04/28 16:29:32.000.030,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= - 2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas + 2020/04/28 16:29:49.000.701,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas + 2020/05/06 15:48:04.623,=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/05/06 15:48:51.604,E:\svn\Delphi\PlanScan\UI\frameKlantinstellingen.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm @@ -54,6 +57,8 @@ + + Index: PlanScan/UI/frameKlantinstellingen.pas =================================================================== diff -u --- PlanScan/UI/frameKlantinstellingen.pas (revision 0) +++ PlanScan/UI/frameKlantinstellingen.pas (revision 364) @@ -0,0 +1,29 @@ +unit frameKlantinstellingen; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, + Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, + Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Datasnap.DBClient; + +type + TfrmKlantinstellingen = class(TFrame) + cdsKlantinstellingen: TClientDataSet; + dbgGebruikers: TDBGrid; + Panel1: TPanel; + btnKlantinstellingenToevoegen: TButton; + dsKlantinstellingen: TDataSource; + btnKlantinstellingenWijzigen: TButton; + btnKlantinstellingenVerwijderen: TButton; + private + { Private declarations } + public + { Public declarations } + end; + +implementation + +{$R *.dfm} + +end. Index: PlanScan/PlanScan.dpr =================================================================== diff -u -r360 -r364 --- PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 360) +++ PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 364) @@ -15,7 +15,8 @@ MidasLib, frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame}, frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame}, - DnaCodeService in 'WS\DnaCodeService.pas'; + DnaCodeService in 'WS\DnaCodeService.pas', + frameKlantinstellingen in 'UI\frameKlantinstellingen.pas' {frmKlantinstellingen: TFrame}; {$R *.res} Index: PlanScan/UI/frameKlantinstellingen.dfm =================================================================== diff -u --- PlanScan/UI/frameKlantinstellingen.dfm (revision 0) +++ PlanScan/UI/frameKlantinstellingen.dfm (revision 364) @@ -0,0 +1,102 @@ +object frmKlantinstellingen: TfrmKlantinstellingen + Left = 0 + Top = 0 + Width = 640 + Height = 480 + TabOrder = 0 + object dbgGebruikers: TDBGrid + Left = 0 + Top = 0 + Width = 513 + Height = 480 + Align = alClient + Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'cdsKlantinstellingenKlantId' + Title.Caption = 'KlantId' + Visible = True + end + item + Expanded = False + FieldName = 'cdsKlantinstellingenKlantnaam' + Title.Caption = 'Naam' + Visible = True + end + item + Expanded = False + FieldName = 'cdsKlantinstellingenIsExport' + Title.Caption = 'Export' + Visible = True + end> + end + object Panel1: TPanel + Left = 513 + Top = 0 + Width = 127 + Height = 480 + Align = alRight + BevelEdges = [] + BevelOuter = bvNone + TabOrder = 1 + object btnKlantinstellingenToevoegen: TButton + Left = 6 + Top = 6 + Width = 115 + Height = 25 + Caption = 'Toevoegen' + TabOrder = 0 + end + object btnKlantinstellingenWijzigen: TButton + Left = 6 + Top = 46 + Width = 115 + Height = 25 + Caption = 'Wijzigen' + TabOrder = 1 + end + object btnKlantinstellingenVerwijderen: TButton + Left = 6 + Top = 85 + Width = 115 + Height = 25 + Caption = 'Verwijderen' + TabOrder = 2 + end + end + object cdsKlantinstellingen: TClientDataSet + Aggregates = <> + FieldDefs = < + item + Name = 'cdsKlantinstellingenKlantId' + DataType = ftString + Size = 10 + end + item + Name = 'cdsKlantinstellingenKlantnaam' + DataType = ftString + Size = 50 + end + item + Name = 'cdsKlantinstellingenIsExport' + DataType = ftBoolean + end> + IndexDefs = <> + Params = <> + StoreDefs = True + Left = 120 + Top = 240 + end + object dsKlantinstellingen: TDataSource + DataSet = cdsKlantinstellingen + Left = 120 + Top = 192 + end +end