Index: AAPClient/ProScan.dpr =================================================================== diff -u -r99 -r112 --- AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 99) +++ AAPClient/ProScan.dpr (.../ProScan.dpr) (revision 112) @@ -15,7 +15,8 @@ InfoLogScherm in 'UI\InfoLogScherm.pas' {fmInfoLogScherm}, UiContext in 'UI\UiContext.pas', HernoemPalletScherm in 'UI\HernoemPalletScherm.pas' {fmHernoemPalletScherm}, - DnaCodeService in 'WS\DnaCodeService.pas'; + DnaCodeService in 'WS\DnaCodeService.pas', + LoginScherm2 in 'UI\LoginScherm2.pas' {fmLoginScherm2}; {$R *.res} @@ -24,5 +25,6 @@ Application.MainFormOnTaskbar := True; Application.CreateForm(TfmProScanHoofdscherm, fmProScanHoofdscherm); Application.CreateForm(TfmHernoemPalletScherm, fmHernoemPalletScherm); + Application.CreateForm(TfmLoginScherm2, fmLoginScherm2); Application.Run; end. Index: AAPClient/UI/LoginScherm2.dfm =================================================================== diff -u --- AAPClient/UI/LoginScherm2.dfm (revision 0) +++ AAPClient/UI/LoginScherm2.dfm (revision 112) @@ -0,0 +1,478 @@ +object fmLoginScherm2: TfmLoginScherm2 + Left = 0 + Top = 0 + ActiveControl = btnLogin + BorderStyle = bsNone + Caption = 'LoginScherm' + ClientHeight = 640 + ClientWidth = 480 + Color = 1513421 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Image1: TImage + Left = 24 + Top = 136 + Width = 433 + Height = 113 + Picture.Data = { + 0954506E67496D61676589504E470D0A1A0A0000000D49484452000001AE0000 + 007108060000008DEA47D400000185694343504943432070726F66696C650000 + 28917D913D48C3401CC55FD38A1F541D2C28E290A13A59101571942A16C14269 + 2BB4EA6072E917346948525C1C05D782831F8B550717675D1D5C0541F003C4C5 + D549D1454AFC5F526811E3C1713FDEDD7BDCBD03847A99A96660025035CB48C6 + A26226BB2A76BEA21B7EF421804189997A3CB59886E7F8BA878FAF77119EE57D + EECFD1ABE44C06F844E239A61B16F106F1CCA6A573DE270EB1A2A4109F138F1B + 7441E247AECB2EBF712E382CF0CC90914ECE138788C5421BCB6DCC8A864A3C4D + 1C56548DF2858CCB0AE72DCE6AB9CA9AF7E42F0CE6B49514D7698E208625C491 + 800819559450868508AD1A292692B41FF5F00F3BFE04B9647295C0C8B1800A54 + 488E1FFC0F7E776BE6A726DDA46014E878B1ED8F51A0731768D46CFBFBD8B61B + 2780FF19B8D25AFE4A1D98FD24BDD6D2C24740FF367071DDD2E43DE07207187A + D2254372243F4D219F07DECFE89BB2C0C02DD0B3E6F6D6DCC7E90390A6AE966F + 80834360AC40D9EB1EEFEE6AEFEDDF33CDFE7E000C24727EB4299B2700000006 + 624B474400FF00FF00FFA0BDA7930000000970485973000017110000171101CA + 26F33F0000000774494D4507E309030E070EE1C698D900002EBA4944415478DA + ED9D077C14C50287FF7B97DE494F486881141242AF2A3654401151B161011BE0 + 434050B081D815155414B1A0522C0856548A8A1469D2534820812484944BEFC9 + E5CABED90B20E5666FF76E0FEE92F9DE4F9F7073B3B37B33F3CDCC4EE1F68545 + F06030180C06C349E098B8180C0683E14C307131180C06C3A960E26230180C86 + 53C1C4C5A0C26B8A60B067FCE41FD7D068920BF597FA56190C8613C1C4C5A0E2 + FFECD388993AD5AED748EFCC41DB104172E2A5BE5B0683E12C307131A8F8CD7A + 125D67CCB0EB35D23B117135327131180CE9307131A83071D906AFA90017E40F + B8A82F7552188C56051317830A13970DE80CF09D74371AFED903C3919C4B9D1A + 06A355C1C4C5A0C2C46525A444B9A98B9054A047CAE831D0FFBBF752A788C168 + 55307131A830715901C741E5A24562FA31B8FAF92365D428E8F7ECBBD4A96230 + 5A154C5C0C2A4C5CF2316A484F2BEB003CBAF632FD99898BC1501E262E061526 + 2E1990F41B8BCBD0F1A7A508197DDF99BF66E262309487898B4185894B3A7C69 + 2D42E6DC8D0EF33E39E7EF99B8180CE561E2625061E29288AB0BBC46DF88B8F7 + 3F00A73A77EA3B131783A13C4C5C0C2A4C5C1230F25047F3E8B9230B70F7BDE0 + 63262E06437998B8185498B82CC379AAD07DFB0EB8477630FB39131783A13C4C + 5C0C2A4C5CE2089B1077DBF70FFCFA5C460DC3C4C560280F1317830A13171DBE + BA01D1DF7F81D0916344C331713118CAC3C4C5A0C2C4651E5E538AD0B7A7217A + E6DB16C332713118CAC3C4C5A0C2C47521BC8183D7F57D90F0D55A49E199B818 + 0CE561E2625061E2BA10B5A608C9BA46702E1E92C233713118CAC3C4C5A0C2C4 + 75166A15F8C21224E6A5C3A34337C95F63E262309487898B418589EB3F843D08 + E377FD0E9F8123647D8F898BC1501E262E061526AE16783D87F64BDE46F8ED77 + CBFE2E131783A13C4C5C0C2A4C5C2D6BB5029E998298D71659F57D262E064379 + 98B81854DABCB8380E1ED70F42C2D26FC1B9B85A1505131783A13C4C5C0C2A6D + 5A5CA454A84B8A9054550AB57FB0D5D130713118144899E78B1BE13EA00A21CF + 7F07B70E71D0D756A17CFEA3A85B7B04AAB008FA5799B81834DAB2B838CE80EE + 29A9700F09B5291E262E0683424D2D42E64D46E4E4D9285EFA26AA97BE05AF91 + 77207ADE972859F3398A1E7E1A68E76BF6AB4C5C0C2A6D555CC20CC2B83D7FC3 + B7DF5536C7C5C4C560988383FFD4C98818753534BFFC0CFF8183C0A954D0D754 + E2C49807D1E5DFED684ADF8EC209B3C099E979317131A8B44571F19A06447CF1 + 2222C74F53243E262E06E342F4A471D8336B3FD26FB81BD12B9741B7F76768F3 + F3E135E05A7806FB20FBEAB1E8AD6F464A8F70182ADC2FF83E1317834A5B1317 + 5FAB43C0B844C47CB259B13899B8188CF320C671732F42B7FD25484F4A44F40F + 3FA3FCA921A8DB01F8CF9E86F05BAEC7E1C137226EC34A68366C47FD573F5D10 + 051317834A9B1297AB0BDCAF1884EE2BBE02A7B66E06A13998B8188CF320C671 + 0F2842CC360D0EC7C723EAC79FE0E9AB86AEAE097EF1B1C87DF129542E5E85CE + DF2C40C5FE1CD42D5F7341144C5C0C2A6D465CA404F02545E8535302CE3744D1 + A899B8188C0BD1698AD0AFA204294306236AE90A94CFB905F55B0DF09E780B22 + C60C43E6B0BBD1B7BC1047C6DF09EDBFD9177C9F898B41A54D888B23176EAC47 + FCDEEDF0EA9AA878F44C5C0CC685F0658D8858BE102EAA5AA0C30054BE7227EA + 7736C2E3BA5E88FDF01314FEB21E81BDE370A4EFD5962767F08D068B17E43CD4 + CA5632CD46F0069A3B7970EEE47A2A2B2F68E4C16B8D961E21384F17056F48EA + BDFD07E742EECF5565F565E8BF1BB9372F17538FC21ADA82B8849D313AFEF61D + 82478EB54BFC761357B3017C6589E9A775215947D589FC7FF2207243A77E6C22 + 647DCA2E187301FDA92220F4264DF9C10EF04D06ABF399253857AEE526ED91EE + 7A1DF8BA32D37F0B5750FB907F9D559C782DE91D185BB227072F70C17E2490CC + CC2AF4E8B5F4E76373F9B7F0EC45E317D65235E861AF0228766DAEA408F1C7B3 + 5197FA2F4ABF5A8EE655EBE1326200FC6F7D10C1570E407A6C1FA822224DF5F8 + 05DF3D2D2EBEDE00BF9131E08D22153D4943434A318C55CDCADC15B994679F10 + A87D3DCD5F8E14BEC6AC72E88BEAAC8A5E1DEE05CF6EE28B473922C5BA6D27C8 + 7D2B5CEA487C9E7D23484170B318545F5E8FA6F472ABF20EA756C1FBB2E8FF2A + ACF3EEAD66ED31707ED655566D415CE10B5F43E4DDE3ED16BFE2E23A35ACE93D + A227421E9904BFABC6C0C5BF657853E83C9EA9C0B8FFB284BEAA140D07B7A064 + E987A8FE7A2B5441618A8A8023159377FFF6F22B74893497D4A1F94885B29112 + 9B1BCB3508B87F1882C64D80DF901BA1F2A2AC1952A9504F9E5FD5C6EF51B1EA + 7B341FAC2102F339F5C02DA36AE70EAFC4306A1E375436A1F190C6BAE747C4E0 + D39F54EE2E6AFAAD92F89B524BCC5E9FAFD1C36F548CF2F59FD47B237FEF3F76 + 28A2A63F0FF74E89E4B7CE23F9F46D685E5A05CE9F5E6F9D119781B43C7B1565 + C3353C463421798B5E47F9ABD6EDDB76C14323D7ECCB0BCD1B7A213A44328721 + 547EC5C66BEA10FDDD7B081D3BC16258CD9ACF51F0C86CC05DB997F2BCA61CDD + 8FEE25E2EC6131ACB1AE12FB7D03A10A8F342B20315C84F3A144BEB39B3C3F57 + 9115E862B46671F19A1A04CCBA0D316F7E097B5E5C297109D387031FBB0DC113 + 9E826FD7CE500758B730DA585F85BA63C750F6EDC7287FFD53A8AD285BE7A38E + ED849E9B3691CC28ED8C32B9946CD9829377CADFE0F802F43C6924162374FEF3 + 081A7E1B7CE2E388743D6547A32BC9475D6E3ECABE7803D54BD6527B05A7F1BE + EB46C4BDFB29F5F3BA7F37E0C8C0E16687C4C410D61B7658FD29426F7F58345C + DE8297503E7F89F97B21710C9459E7C841CABDF1155A1875FF354C4833085CB8 + BF685DF85F8F4BD3889079F7A0C30B1F8A26A47CDB16E48DB9D3E6161B5FA743 + BB71BDD0E5E33FA861B459079042BA8B6A2B2A5EE147EDA7AD07DCBC2C86D592 + B0872F1B48D2A4B7E99ECEB93F4D05120EEF8057421F49E1CB7EF80479B74D94 + 9D795D4A89B8448623FF25E27261E23A17613A6EEF2824ADDB2DB9D56C2DB68A + 8BD794C1EDE6AB10F3D65BF08AEDA968DA9A8BF37074EAE368FE7923D02ED0EA + 78D4DD3AA2C7C68D5079FA5A1D87189ABFFE42C1B8FB6C8BA4AC185E0FDC4E1A + 2A0BE01A1CA558DA8A3F9A87938FBD0A55187D528FF71D2310BBF013706AF3BD + A29A1DBF21EBB29B64977DCF811D90F0F32ED130B5BBD62373F0086A1D2A3488 + 06D8515CD6DE9B25CE79C7E5929C80E4DFD791FFA00F6F3566A7E130E945D89A + 10D3F94669BBE19338801AA6F08B8F5034690EB8769687DBCEC16044D0E3A3D0 + 71EEA792BF923EE62668B7EF17EBFCC942AEB878831EE9A387A2796FAEACEB30 + 71C9872379AF4775195CFC82EC7E2DABC5459E87B1B81E912BDF41F8EDE3A072 + 97DF339002AFD3A274ED2AD2687A006A2B7AFC020E2D2EB50AC6C20274DDB909 + 01FDAF207F56F01D1F6F442AA937743B0E88BE87575C5CA6BC5184C463E9F0EC + D29D1A4C5F5D89B4CBFAC358DE48FD5D5B85B8B8000F246EDD0EB750B18B1871 + 805383B7718841A83C7A363743E56A7E788E371A7064C61434ACFAD98A97BE7A + 743F78081EE1D21F56D59FAB9175DD1D56F5EECCA65FA6B8048A572FC7C93B1E + 26AD37E99BBA3271C980542E7C51151232FE81577CEF8B70412BC525F4028B0B + 11FDE30A84DC72EF454967CDCE8D3876FB9DA47EF32645DCD284A67371587191 + E7A80A5521FE87DFE01193AC78BAB4E4373A3CB02F78AD78E6555A5CC22B96C8 + E51F20E2BEFF8986CB7B6316CAE77F09B8D165DD2AC485462DBAEEFA1B7E09E2 + 3FF289E7C6A174FE3A7041D68F697BDE7405E23F16167B9A7FA84622B5D42477 + 186AE4DFB03A3E06C91B368073B73C4C783629C24CAC4B282E81B4300ECD905E + 9133714947E8E577DDF01502AEBFC7FE173B8535E2326A2AD1E1BB0F103AF6A1 + 8B964E81BAFD7F23A3EF35B21B6F8E2A2EE1F74ECA390C8F4E09764957F1CAF7 + 5038ED35C0552D1A4E697179DE48EACE4FE875A740C5BA55383EF22ED11DD605 + 5A87B88C3CFC6FED8198251B45BFD4947F0C691DBA5A7C285448451BF8DC93E8 + 347D26FD86F7FC85A30386C9BE86208CF08533D07EFA6BB29355F0ED7268A63F + 6DC3E33C371DD688AB36752FB2AEBA9E1406698D02262E69F0060EA12FCF42F4 + 2465F620948A6C713534206A1991D618E93DAD868CBD68CC2F42535DB3694448 + 457A96AE1E2EF08A08827722C97F322620946D588B1377DD0FC8189AB4242EDE + A083A1F4A49030AB9E61C9D6ED289EF2A4F42F90BCC4151721212793482B4EFA + F7783D1AD2F79346B3B6E58FE461BAFA07C0A36357F20C2F6C04EF177AC612CA + 9692E232C9382F0B1EA4FEA586696E444A9F04182B74A29346042C898BD737C3 + 505E68D5BB604EA546F5AE3F9033EA413B8B0B2DB30BFB5B30B0F0C3A62678C0 + 506F5D624CBB6F6FFF1DBE434650C364DF7F19AA7FCA92BDEEC43429C3D82CCC + D1959DAE3A228D23C943C9430EB0FA819EC65A71F1DA06A48EBC0EFAF41C49E1 + 99B82450D704CFE17D91B0E60FDBE392892C71690DF01A3D14F15FAE82A597AD + 46924FAAB6AE45CEF5779946D239F76070FEAE2DCF5158BFD860005F5F6AFA2C + FCE589887CF25DA83D24348648459576D718346FDE27790296257135A66EC321 + 52AED49262BB102115722A3E5E5382C8954B1031EE61098179E84963A1E0D587 + A179FD5BB34F5D1838F58C0242E6CE43E0D82970F5F641F5D6DF913DEC56490D + 6BC5C4A5D7A3D3AA8F1178ED18D160999773A431134E646BB9505912577DFA5E + A427F5B7BA780ADFB366B6B4C578CF17976938E5CFEF1170EDADD42F99DE3F3D + 31190DAB7EB5EAA296E4A8AF2CC6C1C008AB7A74FEE34720E68DA5F46BD75640 + ED4B9F41758054F4BC02AD036BC525D0782C0DA95D7B48120E139705D42AB8F6 + 8D45E2AAB5A462F5B6EBBD98438EB884B2D7B7A9814848BCB7D3782C13D94F4C + 41F3DABF2455E87C751354211CC29E9E81C8C79EB3185E5F518403419192870C + 2D8A2B7D07D2922E53ECFDB1F8CDF2F0EA5D8CF8F5D22ACA63331E41F5BB9F81 + F70C02E72B32094C680C5490DFC65003F77B6E21BD997AE80EA449BA8622E2E2 + 55F0ECDB0109BFEF10BD56E9869F7162CC43E0FCA44D68B324AE868CFDC8E83E + 84A4CDFA59A7F6E0C22D9FC89F0266FC0F5D668B67F0934B174333751EF9B165 + CED23118D16EC255E83CFF5B6A90EABD3B903DF466C90FFF0CCD4674FA6D0D02 + 075F6E3EDEEDEBD05C5A2EFAC2BB72E3B7387EC3DD36776D6D119740D6CC8750 + FBF53A8B135398B844E05B56E727E667C12DAAABEDF15981647191B4462C7A0D + 11778C170DD674321799D19D6114261EC969C49E9AA518B260363A3EF1ACC5E0 + 273E7C03652FBF2F296A871297CA8084DD3BE119DD453498B1A91E996387A371 + 7B0E38377993514C0895BDC4E1339BC5256C1C125C89E4FD15A2C3BEBA9202A4 + 8445C9AABB5A8FB820AC71698FC45FB683731599169FB907690903E467466102 + C8CE4DF0EB4E5F9372F28B0F50F28CFC7754428BB54F4D1954BEE6A739E7BCF7 + 2E9A0B7210F7C642EA78BBADC3A0A7B1555C35FB76206BD0287041EEA2E198B8 + 44E0F588DDF2077CE2955DFF2407A9E212668A25E566C0BD633C358CBEB21469 + D75E0D63A1F5BB4818351A442D7901E113E78A86AB3BB41B477A5D4F2A2CCBBD + 54871117A980DD06F541D2CFC248905886E2717870249AB278BB6D257536B68A + 8B2F6B42B75D6BE1D7EF32EA358C8D75481D7E030C47A4BD62384DAB12975088 + 92CB35700D145F9D6FCDAE1652A6DCA74670D0F132276554362168DA0DE834FF + 1BF39FEB7448BB261186435948AED041E542E929921F316BEE73A8FDEC4B9BF6 + 5E1315176F24E969222D3DF1598F59F70F41CD8FD9E0BCE9BD5A262EF3088D98 + 4EBFAF46F088DBED9A7E4B481197B0D7A4DF0DA1E8F65DAA68B8FCF7E6A1F4C5 + C5A2D39B2D22F4125CD4E871683F29DFE2CB2EA4966F471197F00A226E2BA9E0 + AFB849345CC94F2B913F6E86FCD1222BB1455C425D1CF5F51284DD3D51F41AF9 + A4B75E3A6701E0216F94AA9589AB16E16F3D84F64FBE2BFAE5824573A079F113 + D17DB2CEC7A5473C92D7098B9CCDF7249A0BB27128AA9BEC4C6E6AB116E6C23D + A2A3D9CF9B0A8E232D2AC65406BB6D5F07BF21C3A97155AC5F8DE323EEB07ED6 + 24C4C5C51B0CC89B3D169DDEFE41340E7D5D15527CDB89CE5C62E23243931EC1 + 731F458719AFD835ED5290242E9277BB67A7C03386BE3D98F0DE695F50A4D5DB + 779D834E8FC885CF20FCFE274483152F791E0593DF2195563BD1708E222E616D + 686F0B930084198E07840D162EC6B0E529AC16978E87CF3DD721F6FD65A2C392 + 151B56E1D8F0BBAC7ABEAD4A5C02A67D040DCD808A3E3BAF3EE7388EF41F20BA + D3C6B971D6206CFE64443DF516354CCEAC89A8786F0DB876EE92E23C8DFBE058 + 745FFD073817F3E9CD997A332A3EDB01CEC715EAD262F4B490C1F7918C62CB7B + 2E4BE2CA98341E11778D45BB6B6F168984F4FEE63C83DACF5750A7B532719DF7 + C81A0CF0BD9A47ECCF1A5CFAD329A589CB25D280A4DDF9A4A8D1CBD1C9CF1643 + 33FD0553FE5502D3EC5B0B65405F538583FEED2C36E01C455CC1CF4E4187A9E2 + EFEF4EBC3415A52F2C933404AA14D68ACB2462225AA8E83D4343632D52136260 + D4BA5A3573AF158AAB0C0919FFC22BBE17FDA1559723F5DA6B603C592AE96242 + 573E39FF08DCA362CD7E2EBC304D19761D8CC772650DD3099555C89BCFA0C3E4 + E9E6AF5B5582FDEDC2A03EF5425B28B489D9A9A4859B448DB378E522144E7BD9 + 7432AE355812D7D12726921E9516894B978BB6A69A4F921E6834BD07CAC47516 + A46270EDD61E891BFF86CACD3E5B24C9458AB8BCEFBD1571F3DF231594F98A4D + D80EECC89407D1F0E39F8AA5CB347BF8AF1F10700D7D6AB5E97D6FB237293FE2 + AF0C1C425CA40C74F8FE5B040FBD927E3F42FD72CD301873F2EC76048B39648B + 4BA5025F548AA4E263700FA3EFABC86B1B91E2E105434824F98E7537D4EAC425 + 10415A791137DD221A41C6BDB7A371FD76D3F6FA96708FAB46E2967AEAE78DF9 + 2790D1BF1FF92F79B210849894B9079E71FDCC7E5EB16D33726FB9EBBF7361C8 + 1D477DBB12A1575F434FCBC913C81CD89F541AD6AD3EB12CAE4751B7E87374DB + FE1BFC868C148DAB60D1F3D0BCF8A9D9215926AEFF100A61DF9213508744DB35 + CD72B0282E9D11412F3E8D8E53A65383980492E80143AD8215BFE9BACF90EBD2 + 1764F37A1D0EDF713DB43B8E8846E508E2923219AAA9201F194299D6DB7F42C6 + D9C81597A951F1C7D7081826BE237EEE1BB351F1EE0A9BD2D62AC5E535240CF1 + 3F1C108DA0F2D7CF716CD44396DF07918A29E4F5B9881E3F891AA4F8AB0F5038 + F52579BD1C927A8FA82274DF477FF8B96F3E878A855F9CF3779E838290F013FD + 65B83079E2D09542EB2CC7AA2EB81471D5AF5A075549117A59D8C55E575986B4 + 0183C0D7355CD05264E282A9C7CA97572176D746F8F6B9CC868894C792B8844A + AAF32F5F2168147D1B2AA3DE80FDA44CD8F2CED51C3E13EE42ECAB6FD377B430 + 1A71F4D999A8332D88A663515C29DB70A8A7FC05C8A6C5AB12EF59788EBDCB0B + A10EA487AFDCB1093923EF903D81C156E4884BD8E125ECD56710F5E814D1388B + 572CC6C9FBFF67739EB0B800396D0FD27B0C905D3C39A8A00A0F577CE1F199F8 + C5C4656AC1569740ED17221A8994F741C2992BDD76FE0ABFBE83A961D2134825 + 5621B312D336A3CB6FAB1030E45ADA957180535DB0A858CABD157D340F058FBD + 423287FCB38F2489EBBB96755AD1CB3E41C870F19950F9A47555F2CCA20B76F5 + 707A717521BF79BD6DE2326D3AFAE9DB887878A6F591D80929E28ADD46CAC5E5 + 3752C3D46CFD0959578E517CDB1CF78131E8BE66133857FA7BB3EC050B5133FF + 2DD1782C894BD88248979B2E6BCB274EE582B2F53FA078EE124953D6A5BCB3CB + 9BF730CA3FFCD5B428FD6222595C9E01F0BA7930E2BFFD5D34BEDAF414640D18 + 02F8FAD99C364BE2326AC96F77E2B0BC2D9F546A94FDB00CC54F2DB65B4F4D54 + 5CBCA61A61F3FF87A8A7E68B4672ECD94751FDB9F82E1AC2705EDFBA4AA8BCCD + 6FA7D474743F52E3FACA1E4EE0BC55E8BE7D37DCC3DB9BFDBCEC9BF7917BCFB4 + 0B5A2692EECDA0C31E1737AB8638248B8BA0120EF1B4D432E10D38480AB3F1BC + B438BBB8A4EEF746855486C1739EA4BEDFBCD4581297E900D71319708DA6AFDF + 2A59F136F2EF9F452A817045D3E696D00E891B0F88AED73CBE7001AADE785BB4 + 6161AF4D764B7FFA12F90FCDB23C02A333C2B38711099B4B44831D1EC4A129E7 + E21F5A2A555CEEA3AE46F7EF7E85CA833EFAA23D9E8AB49864C51A31F6DA64B7 + 94E4D9BCFB9F527C94E034A2E2321D0BD0B50B7A6EFA93646EFA2CBFF2EDDB90 + 37FA0EEA7B2EBEAE190177F747CCA7EBA871E4BD371F652F2D24D79191AB8403 + 0107F644D22FF478D3468D40F3BF872ECCAC12EF2D6BDABDA85DB549F6839523 + 2EA1B518F9F12B887C547CB792E2EFBE44E19467CFD9C6CED9C5B55338A1D9CA + EF0A77ED37E91EC47DF8A5E8ECD74B891471F52E3E4E7EA3CED430056F3D8EE2 + 59C24C381F45D3A6AA227947D80ECA9D9EFF8BBEFC08858F3C2FBA10DE7EE2FA + 82886BB66571351BE1D5D705F17F9C140D961E437AF7758E29AE4C22AEBE1545 + 50B7A3374E84133352BAB8C38828621C8322696B9DE21202787048D8B11B1E91 + F4D92DDA134790D6319EDA0A102AE684941DF0EE617E9850EA4B6073F176FEF1 + 6304DDF2A8D9CF9B4B0A913EF472F0554D56DF5BD996BF71E2F67B48E99497DB + E5884B4015EC83C4CD5BE11A4CCFB87C7303F6B97B9F93199C5D5C75FFAE0727 + 7139C5850F8447DDBE6DA65977B2311AE0D36F287C068E90FF5D19581297948A + A3E0EDA9287EEA0B52BE9415834A4BF28E8688CB8D2EA5C22F16A368E25C7081 + F4DFE8528B8BAF6946BB0707A0CB07E2436C4AED432A1729E23A42C4D569CD17 + 08B96D3C3D22A311D9CFCD40CDD255A20757CAA1D58A0B5A1DA297BF8B9051E3 + 4483A5F723AD99DC70B3BD2EB567117A1CA51F1AA9ABD02025285C76F7B765AD + 197D9D43CD81DDC8BE6624406B51927B8B22F7162A726FBAA25C1C8AEC6CD5F1 + 2A72C485663D2217BD80F071E287C3556EFA19C7AEBDE54C7A9C5D5CB650B8EC + 23148D7F0CD61C5BCD93766BC4EB93D0FEE98FEC9A4667179733F4B8840D1322 + DE79189133168A86736471094385AA600EDDF7A6C3BD23FDFC3063430D324787 + A0E950A022F26ABDE222B808EBAF2CDC5CE5866F707CF83D66E5E3FBC87DE8F6 + D2EBC21B57B3DF2D984F0AE66CF90533E0E19BD1E59525D4CF8F8E698FBA1D46 + FA8B4561A8D1A70849C7C4EFEDC84D49A8DF5E4A04287D5E946C71E1D47BC0FA + 4AA8BCE8C7AA08BD8BF41B87A2F960AEE9CF6D555C15BF7F8D63378EB37A8A75 + CBEE3013D0FE49691BC95A8B12E22AFAE069143EFEBE22C7ED9C8DAA89E49D12 + 7171E52E7A17152FBE29BADCC56EE2FA7919F2273C65718B2BBE528BE0A9D7A0 + E35BAB45C339F250A169724678248CC585E85D5D06B55F10353E5D6505D287F4 + 81B1B2D9E6B4D94D5C2BDF41DE7D4F5E5A7109156AF7035BE1DDEB0A6A18A3B6 + 0929ED3D61743937A1464D353AAEF98074812750BEA8C33EB59BFC978DC4471D + BE5D86E06BAE33FB315F5B86BD7E21162BB69635607BE119D7971AA63E632F32 + BAF797F52358232EE879F83F351931B3E688CEE229FF650572468F27E9096B93 + E2D2E6A4233DA9274960A8D50B491D455C42FEEB99970EB70EDDA9616AFE598B + AC2B6E567C56A14B700D92F6978B8A2B7BC102D4CC7F5B341E4BE26ACA3E88EC + D73F84CA5BC689E4A43761C83E0CDD9E54CB33DA84775CFD5C11BF315F34589A + 2F87662F0716D7A9DFD7FBFA64C42D5F2F1A677DCA0E64F4BCCCEED3E11B8F1D + C6F1051F91B4CB18D510F6B8CCDC0FDDDE23164F87B61649E21224D16EF63474 + 9E399B1AC47446D7F4C7D0B07AED399589E9EC2D6D1D693599DF62A5F6D0BF38 + DAFB3A70A1F2B66011E2ED53590C754098D9CF8BBFFA1827EF9D01CEC742BC75 + 7A842C9E2B3A2B8DD7EB91D233188672E905CF2A71A1659B97E4DA2AA87DFC45 + E34FEDC841D7140197B2B6252E614D5B7A60088C6191B065FB038712574E2ADC + 3AD1777169CC4A457A6CB2E2AD57F77E1DD0FDC7ADF45985BC1147E73E8BBA4F + 978BC673C91720EB88B8483B267E53B168B0BC39F7A35C38DDDD51A7C39FB500 + 39E2837968FFBF1744E32DFC72118A66BC06CECD7A13B7CA05C867E3D62B0289 + 6B778A4E9DD57CF3294EDEF3E47FFB801979F80CF543EC1AFAA48B934B17A1E4 + B9D765259A6FD0C3FFE618745DB99312C088FCF75F43D3BEAD92E2738FED8EE8 + 67DEA1662C6112C0D179CFA1EEE32FA5A7D14A71F1B5CD6837BE3FBA7CB84E34 + FEDA8C1492D9AF814B75799B1257FA5037688F06DB1C8FA3884BCAC1AD06AD16 + 073D3C14EF7179DF3112B1EF7E6C3A62DDEC3332E89139E95E34AE152F47975C + 5C90B68E4BF2F47A85B16EAF423D6237FF099FF864B1BB464AA41A7A7DB8D5EF + BB5ABDB88489103D0A8EC32D923E6D17CD0DD8E3EEFD5F066DD42266F33AF8F7 + 1E40FD8AE9E8049919DA344B917445BDE37A5FB40755B1F17B1CBFE176C9AD5E + 6BC575E6FE0E1F847782C83952A4879B3AEC2AF05BFF41B2BE0D888BDC6FF673 + 5350FDC6E7A41005D91C9DA3888BD7D421EA9B0508BB8B7ECCBC300D3AFD8AAE + D0E559317B921A2910F0F40C7499F1A4E875D38674825E7C96B9C3884B783FCC + 89BC1F6E38791299BD499952CBDBC0DB56AC12D7A94350933479700DED408DDB + 505D86D43E213036C83C58F414AD5F5CB53AB4BB2F195D96FC251AEED8C461A8 + FE31DDD40268397BEB1FB885469A0D5BB76B1D32068F949DA15DDA0349BBF2A8 + B314EDC55E61EDD745109740C06377A1CBDC05A2D7A8DFFF37B2FA5E23BA78B9 + B5884BB3EA33143C425ACB5E1E8AC4E728E212DE6B06CE9D854E53458E1821D2 + 3E3AFB09D4AD58A358BA4C4B497EFB064123EFA2863134D4E3A0B78FC59E9E23 + 888BD79492C6EC1E78C5D13705D75757B41CC429715370A5B0FA5813950ADE63 + 4721EEDDC5A2EFF9343F7D879363EEB4AA47DEEAC5252064F65EE5857011D90F + ACF66826B2FA0F013C3DE0DAA7277AFC4EAF9C33EE1D8BC6F5FF48DAA0F7BF14 + 938C30FE6EC4BDF6167596A2BD38F1FA14942D5823698CDC56719976B03FBC13 + 9E098344AF933BF336747AE77BEAE7AD415CE51B7E42EE7065B73C72187111BC + 6E1F8EB8F73EA50F55138ABFFE0405E3669367A0CCAEF7C2BBB57EDA3A706EF4 + 77C015BF2D43CE4DE39D425CD01BD1F1C75508BAE24AD160590FDD8A9A1F7682 + 73BF7833346C3D48327AE502848E133F3BEDF8F431A8FA6AA7ECF7776D425CD0 + 1AD069ED3708BC9CBEABBABEAA1C69D75C0DFD8154745DFF35026E30BFC3B1AE + A204E9575D096349B5AC04F39A2A447FB718A163C75FF487559F7B0C47FA0F24 + 99C3F282595BC52548D9A56B7B246F266257D37B964D278FC323AA0BF5736717 + 57D389A3C8E81A073E2852D10D3B1D495CEA7625E891D2283A82C0D75762AF4F + A03295BFCE8090B993113D6D9E68B0F4FE1CB439E1161B960E212E42D09C69E8 + F8BFD9A2610C15853818D45EF1F78562D8222ED30CBDE24224E71F877B14FD35 + 8DBEB60629C9A4AED13652CFEE33FBBD36212E82FF84918879FD33D13099F78F + 45C38A35E823F2406A0E1F42F66022404F79E3CDC283EE6F612CDB5EE8AB8994 + 875D0363BEE5A1069BC565BAA016F1FBF6C3AB6347588B338BCB585B8EFD7EC1 + 76590BE248E232F5AE730EC3B3538268B8E295EFA170DA6B364F31E67C5CD0FD + 9F9DD4FD3D05B479994823E99152C13B8AB824EDF94938F9C5872879E655BBA6 + E56C6C12D7E938AE8F45DCF2CDA2D729FD6A01F2EE9D29ABBCB41971995E826A + EBC1891CC3D190B107452B9723E6D545D43047C6F440FD8E3279BB0E939684DF + A838745DBA991AC450530663BDBC5EDC9987E1EE253A0C2A9035F96ED47CBD09 + 9CA778E5A188B84886724F7041E266F1F5296238B3B832EEBF0D8D7FEE366D75 + A3348E242E34EAE1333216B1DFFC231A4C582B7928321CBC871FC9E8D64DD430 + ED8BF9D1CB889CF4BC6838CDBA5F50201C4124A1783A8AB85A6668AE41C0B5B7 + 8986E39B9B9031C4138D8743C0F9D97F86A112E212EEADFD17EF2362FCE3A2D7 + 3A3AF53ED4ADDE247974A2CD884BA89023DE9F89C8C7C55B2CD5FB77C1BF8FF9 + F733FAB293D81F122DBF42D5362366CB7AF827F7A306C97E723C2ADF5966D5C3 + 10FA7E967608A9DDB50E9912269428222E0819B6149D7EFA0CC1A31FB0EA9E9C + 555CD98FDC84EA157BC005D86701A343890B2D1553B2A559BB0443F949A40DBD + 1286D206D953A0857B0E98792B62DEB65C3E522339E88CD2F28DA3884BC02531 + 0EC91B378A0EAF9F2673FC68D42FFBC5AA6143BE8C34DE437C24094209710970 + BEEE48DCB6156EE1F483529B8E67203DA6BBE47B6A33E21250C7928CBAC1FA2D + 5EF23F5D8C9219F3C079CB6BED4819E2907236188D969DBA734845DF49349C94 + 3DCF94129780C7154948F8769DE8CB7B1ACE282ECDD78B5030F515B3273E2B85 + A3894B20F4B5D9887A709AC570FAAA321C890F4193C657DA8EF1240F085B09B5 + FF680E2226BE687194A3F0C3575038658EE42127471297701451DCEEEDF0EE12 + 6B31A8B04EAD6CED57C81B331EAAC07040C2C914C271483C1A10B5642EF227BD + 24E99E94129730E2E47B5332BA7DBE41345811495BE1E4D7497CE2E7280AB429 + 71416540FCAE5DF0EAD059F65785CC9231EE66346D3E28FBBBAE7D92D0E33752 + D973E63340F59FAB9075DD5D56BF13316A3468BF782E22268BAF58CF7DEB7954 + BCF3B9F87D2A282E616651E78DDF23F0BA5B25853F1B671357F59E6D383A60A8 + DD2B39471497F03B27179F806B58B4A4F0659B36A07CF552D42F590DE1900BCE + F44F4BE5CB9BFE07D391317E6FCE43E8C81BE193D4CF629CCD654548EB37C434 + BA2175B8C9E2964F99FF222361206D2F6CCBCF85B8D9E82E3D3F08EFBA7A36D5 + 817397B61B8FA1BC00A5DB76A0E68FD5D06E24FF649FBB244A988AE53161243C + AFBC157E5D3A2060D0E5E4C17AE2C88D1D50BF5767B121A098B8D0D2B8EEB6FD + 0F040C19261A2E75F850E80E1DB3F81B5A14D79183381ADF1B9CB523AA2A92E6 + C0F6A64D2194C43A71E98D089DFB20A2A6BE26FBABCDE545480D8E94DD2B12A4 + 12F5D15C844FA24B2563DC6D68DCB043DEF4FAF350F74A46CFF58250E87154FC + B305B9A3EF2499973EF5544971B5DC7F11FACA288CA77126710979239DE48D8B + B183B7238A4BA82D5D7BC62269EDEFA6F7AD72682EC842DDFEAD682E3C61FAB3 + 5B6407F8F4190AB7F6DD64C59316C8A1D955DE7E7EF6DA64F7340D990788F806 + 4B6FF5F3C2396D0FA0EBBC57EDBA64A69234B272AE1F03B88BCF3256525C026E + C96148FC6DB7E82E46A53F2E47DEAD0F9346BCF82E33F6DA64F734465D335242 + DD65353CA4609DB8706A8B95A65AF2A3C93BDC2EE789DB51F1D1DFE002E4CD26 + 34AD3B69A80147291C86BA2AA40E1B06636EA14D0F44CAB95886AA121C681726 + DAB3535A5C4293BAFDD28508BBF94E59F7E32CE2D29715E3F0A008E8ABC3659F + 7D660D0E292E019D0E018F4F409779F3A57F47218E3D331955EFFF08CE575E65 + 6F777159335C45EA8BD0C50B1035F909E9DF9189565388C3970D025F273E5146 + 697199D6767DFB3142EF7C54345CE6300E0D29E2DB41D95D5CCD5AA48479388E + B884821FFDDD7B081DFBA0F49BA8ABC43E5FEBD6A2785DDE1EF16BF6503F6F38 + 918BCCFEFDC91DD9B89B0679D0B1FFEE844F57F131F2F4BE1CB47961A47767BE + 902B2E2EB46CC0DB5BE4FC31733885B8849D21664C40DDAABF145DAB2586C38A + 4B781C9A6684BD3309D1D35F24BFB5FDDEF39D7916E4F9E7CEBC0515EFFE462A + CF70D9DF77487109F7D5C42362D14B88BCF721FBF4BCF4A437317204F42919A2 + C1941697D01B361417A18F85E34F9A4A34389C2CEC7548CF436D4E5C029EA3AE + 42FC92E5E407915691966FDF86BC9BC78A0EB1994F2510F6E142B4BF95DEDBD0 + 7CFF190A1E7DD6F60D348561D0E7C7236AFA1BA2C16A776FC4914137507B5DF6 + 1017AFA941C8CB13D1E1F977247FC719C4953DFB7154CFFF8C14DC7676BFD669 + 1C595C262A6BE0356E14E2162D06E76DBFE76228C943E684F1D06E4F073CAC2B + 3B8E2A2E1325C5F0FEDFC3885DF03E69D32AB35DD8D914BC3513C5B33E113D4B + 5071719D22F4D559887A68BA6898AC87C6A0E6875DD49D42DAA4B884EE78724D + 255C7CA52D063EF6D40454AFD82029ECD90815765CEA66D197CB69311C9A153A + 24CED4B3B1F0631A85A34E225D61545D3C7109F7C605F8A1C7AE9D70F1975699 + 39BAB84AD7FD84FC5BC601EDFC6D8F4C060E2F2E532239A8CB0B11B56D0B8284 + 09010AF61A84CD59CB77EEC2C911A348AB5098A56BFDCB7387169780560F7555 + 29A2B6FC81C0818365BF27A6C3A36ACBEFC8BEEA26D1D706F6129750FFF6AAAB + 84CA9B5EFF1A2A8B7030903EA7A04D8A8BAF6842C8CCEBD1E1F56FC587784885 + 6B6CAAC35E4F3FAB2AD1338B9E5DCDEFD3A62F3D81FD619DACAEA0CFC774B8E4 + E1DDF08CEF4FBF77E1C887C71E40E32F9BCD7F2E882B7DBB797199CE2E9B8886 + D532C565BA59D2239C330151D35EB73CAC46A4E5C8E2AAF9E7371CB9E2A68B33 + 4DFA3C9C425C6712CB4355518CE8D59F2070D484966348E42CDC3F138FD1946F + 359FBD82C2C92F136129F3DC4DE2DAB0C1BEE24ABCCCF629D9A4B8184B8A10F5 + C93C843FF2424BF991FB1C8D4653F92DFD6A210AA7CF86514D7F5D701AAFB123 + 10473B3E865CBF66FBAFC8BA7C946C7109EFD6021EBA0131EFADA0D70524FE13 + 1FBC86B2573E30FBF11971D9495E2671857B3A96B84C688AE1F7FC745381A05E + 84B41475592968589F06CE4BE67004499DCAD3089F07C681D7E9CCC50EFD896C + 34FCB2477EDC34F43CDCAFE80EB7842450CF0A2019A2716F1AF48728E3DB4430 + 5EB75E0D75B099B5142493D4FFB905C6FC32EBD247329BDF9C274C075C8AC1B9 + B8A0FAE58556AF6BB3A7B874C5B948BF6E388CE5B5B2F656530AA7129729C12D + 95AE50F5794F7F089EBDAF806F74203CA2A2E01A180A75D0856B1B857DF97415 + A5A8CFCA467D51051AB6FE8A8665BF90A8D4244F842A768F9C973B7C6E1B0ED8 + E9B4064359291A7EF8DBA220A425963CCAE262D303F57E700CDCFB0C85676830 + BC2283E0D5259614CDF3F2221155E3891CD49F28416351319AB6FC80A69F7799 + 6A052E54DA088F2A3A18DEC3AE342B4953DD989F83C6B53B01772BEA2F3757F8 + DE7D23693DD0BFABD79491F8FF363B494398E8E12FA12EB11A831175CBBE23CF + 4BD91D4A6C1717A3D5622F71199BEA91E6E903BD70DC0D7769B29FD389EB7C88 + EC8DA5C5679A55E69EE2E96A4A052F70217E561F36D8AAE15B8E6CE21BCBA8C7 + 5999D6C7F9855ADCE68D71F160E26250B197B88EDC773DEA37A629F23ED25A9C + 5E5C0C461B86898B41457171F1469C78770E4A66BC66971DDF652585898BC170 + 5A98B81854941657E5CE4DC8197987C59D062E064C5C0C86F3C2C4C5A0A2A4B8 + 6AF6FE83ACFE575CD403FCC460E262309C17262E0615A5C4653AEDBA57188C3A + 654F31B605262E06C37961E2625051445CDA3A1C48EA06BE9257663AB3423071 + 3118CE0B1317838A12E2CA7A7A1A6A577C6F5ACFE14830713118CE0B1317838A + ADE2CA7F650A4AE6AC0017A6D4163BCAC1C4C560382F4C5C0C2AB688AB7CFD2A + E4DD368944E249DD7CE452C2C4C560382F4C5C0C2AD68AABE1680AD2E37A5E92 + 3D08A5C2C4C560382F4C5C0C2AD6884B38D033AD77020CB58EBDBD10131783E1 + BC307131A8C81517DF548FF4C13E68CE0B07DC98B80498B8180CE561E2625091 + 2BAEE32F4E43D592D50EF94EEB7C98B8180CE785898B41458EB8F23F7813258F + 3FED303B635882898BC1705E98B81854A48AAB6AEF6E1C1F72351028ED246C47 + 80898BC1705E98B81854A488ABFEE03FC8ECED387B104A85898BC1705E98B818 + 542C894B5F5982C3636E863EEBA4C3ED8C6109262E06C37961E2625011159751 + 8FB4CEAE686E0807D48E3D83D01C4C5C0C86F3C2C4C5A02226AE634F3F86EACF + 7E045C9C4F5A024C5C0C86F3C2C4C5A0421357F1F27770F281272FF929C6B6C0 + C4C560382F4C5C0C2AE6C45593B207D9578F045C5D2F75F26C82898BC1705E98 + B81854CE1757C3B10C6476ED0E38714FEB344C5C0C86F3C2C4C5A072B6B88C8D + 0D48BBBC33F4856AA7D819C3124C5C0C86F3C2C4C5A072465C062DD2C65C0BED + 5F19E07CDD2F75B21481898BC1705E98B818544E8B2BF79D5751B160091198E1 + 5227493198B8180CE785898B412560CEF3F074AD46E1C4679D6E670C4B307131 + 18CE0B1317838A3AD203FAC315E0DA79939ABE756513262E06C37961E262B449 + 98B8180CE785898BD126E135358858F008229F5868D7EBA48C1E0DFDEE3D97FA + 76198C56051317A36D62E0E1D12B0C5EFDE201A39D8A00C7A1F2C77FC157375D + EABB65305A154C5C8CB68B90F38D76DED55EADBAD477C960B43A98B8180C0683 + E154307131180C06C3A960E26230180C8653F17F999C20259D508E0D00000000 + 49454E44AE426082} + end + object btnLogin: TButton + Left = 64 + Top = 496 + Width = 345 + Height = 57 + Caption = 'Login' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ImageIndex = 0 + ParentFont = False + TabOrder = 2 + OnClick = actVolgendeExecute + end + object edtPincode: TEdit + Left = 64 + Top = 412 + Width = 345 + Height = 47 + Alignment = taCenter + AutoSize = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + NumbersOnly = True + ParentFont = False + TabOrder = 1 + TextHint = 'Pincode' + OnKeyUp = edtPincodeKeyUp + end + object edtInitialen: TEdit + Left = 64 + Top = 328 + Width = 345 + Height = 47 + Alignment = taCenter + AutoSize = False + CharCase = ecUpperCase + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + TextHint = 'Initialen' + OnKeyUp = edtInitialenKeyUp + end + object btnAfmelden: TButton + Left = 408 + Top = 8 + Width = 49 + Height = 49 + ImageIndex = 2 + TabOrder = 3 + OnClick = btnAfmeldenClick + end +end Index: AAPClient/ProScanMain.pas =================================================================== diff -u -r96 -r112 --- AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 96) +++ AAPClient/ProScanMain.pas (.../ProScanMain.pas) (revision 112) @@ -14,6 +14,7 @@ fUiContext: TUiContext; fHuidigScherm: TForm; fLoginScherm: TForm; + fLoginScherm2: TForm; fHomeScherm: TForm; fPalletScherm: TForm; fBestaandePalletScherm: TForm; @@ -30,7 +31,7 @@ implementation uses - LoginScherm, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, + LoginScherm, LoginScherm2, GebruikerService, HomeScherm, DrieKnoppenScherm, PalletScherm, BestaandePalletscherm, DnaCodeScherm, InfoLogScherm, Images, HernoemPalletScherm; {$R *.dfm} @@ -64,15 +65,15 @@ procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject); begin fUiContext := TUiContext.Create(); - fLoginScherm := TfmLoginScherm.Create(Self); + fLoginScherm2 := TfmLoginScherm2.Create(Self); fHomeScherm := TfmHomeScherm.Create(Self); fPalletScherm := TfmPalletScherm.Create(Self); fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self); fDnaCodeScherm := TfmDnaCodeScherm.Create(Self); fInfoLogScherm := TfmInfoLogScherm.Create(Self); fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self); - fHuidigScherm := fLoginScherm; + fHuidigScherm := fLoginScherm2; end; procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden; Index: AAPClient/ProScan.dproj.local =================================================================== diff -u -r107 -r112 --- AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 107) +++ AAPClient/ProScan.dproj.local (.../ProScan.dproj.local) (revision 112) @@ -37,15 +37,15 @@ 2019/03/08 10:26:55.000.996,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas - 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm + 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas 2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas 2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas 2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm + 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas 2019/03/08 16:42:04.000.691,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/08 16:42:12.000.086,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/08 16:42:32.000.114,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas @@ -64,21 +64,26 @@ 2019/03/20 14:52:34.000.233,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/20 14:52:47.000.492,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/03/22 12:38:06.000.040,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.dfm + 2019/03/22 12:42:12.000.397,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\HernoemPalletScherm.pas 2019/04/10 07:45:17.000.841,=E:\svn\Delphi\AAPClient\WS.pas 2019/04/10 07:45:55.000.611,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/04/10 07:46:07.000.445,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas - 2019/05/02 15:08:14.961,=E:\svn\Delphi\AAPClient\WS.pas - 2019/05/02 15:08:28.270,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= - 2019/05/02 15:08:38.127,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas + 2019/05/02 15:08:14.000.961,=E:\svn\Delphi\AAPClient\WS.pas + 2019/05/02 15:08:28.000.270,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= + 2019/05/02 15:08:38.000.127,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas + 2019/09/03 15:55:43.155,=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/09/03 15:56:30.060,E:\svn\Delphi\AAPClient\UI\LoginScherm2.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/09/03 15:56:30.060,E:\svn\Delphi\AAPClient\UI\LoginScherm2.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + + Index: AAPClient/ProScan.dproj =================================================================== diff -u -r99 -r112 --- AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 99) +++ AAPClient/ProScan.dproj (.../ProScan.dproj) (revision 112) @@ -129,6 +129,10 @@ dfm + +
fmLoginScherm2
+ dfm +
Cfg_2 Base Index: AAPClient/UI/LoginScherm2.pas =================================================================== diff -u --- AAPClient/UI/LoginScherm2.pas (revision 0) +++ AAPClient/UI/LoginScherm2.pas (revision 112) @@ -0,0 +1,145 @@ +unit LoginScherm2; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls, + DrieKnoppenScherm, Images, Vcl.StdCtrls, Vcl.ActnList; + +type + TfmLoginScherm2 = class(TfmDrieKnoppenScherm) + Image1: TImage; + btnLogin: TButton; + edtPincode: TEdit; + edtInitialen: TEdit; + btnAfmelden: TButton; + procedure FormShow(Sender: TObject); + procedure edtInitialenKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure edtPincodeKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure actVolgendeExecute(Sender: TObject); + procedure btnAfmeldenClick(Sender: TObject); + private + procedure SetStatusLoginButton; + procedure HuidigeGebruikerAfmelden; + procedure SetContext; + public + { Public declarations } + end; + +var + fmLoginScherm2: TfmLoginScherm2; + +implementation + +uses + GebruikerService, UiContext; + +{$R *.dfm} + +procedure TfmLoginScherm2.actVolgendeExecute(Sender: TObject); +var + Service: GebruikerServiceSoap; + Request: GebruikerAanmeldenRequest; + Response: GebruikerAanmeldenResponse; + Header: RequestHeader; +begin + Service := GebruikerService.GetGebruikerServiceSoap(); + // request opbouwen + Request := GebruikerAanmeldenRequest.Create; + Header := RequestHeader.Create; + try + Request.Initialen := edtInitialen.Text; + Request.LoginCode := edtPinCode.Text; + Header.Initialen := edtInitialen.Text; + Header.ComputerNaam := ComputerName(); + Request.Header := Header; + + Response := Service.GebruikerAanmelden(Request); + try + if Response.Header.Status <> '200' then begin + Self.ModalResult := mrLogin; + ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw') + end else begin + SetContext; + lblGebruiker.Caption := UiContext.Initialen; + lblGebruiker.Visible := true; + Self.ModalResult := mrHome; + end; + finally + Response.Free; + end; + finally + Request.Free; + end; +end; + +procedure TfmLoginScherm2.btnAfmeldenClick(Sender: TObject); +begin + Self.ModalResult := mrAbort; + HuidigeGebruikerAfmelden; +end; + +procedure TfmLoginScherm2.edtInitialenKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + SetStatusLoginButton; + if Key = VK_RETURN then begin + Perform(CM_DIALOGKEY, VK_TAB, 0); + Key := 0; + end; +end; + +procedure TfmLoginScherm2.edtPincodeKeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + SetStatusLoginButton; + if Key = VK_RETURN then begin + Perform(CM_DIALOGKEY, VK_TAB, 0); + Key := 0; + end; +end; + +procedure TfmLoginScherm2.FormShow(Sender: TObject); +begin + HuidigeGebruikerAfmelden; + pnlDrieKnoppen.Visible := False; + SetStatusLoginButton; +end; + +procedure TfmLoginScherm2.HuidigeGebruikerAfmelden; +var + Service: GebruikerServiceSoap; + Request: GebruikerAfmeldenRequest; + Header: RequestHeader; +begin + Service := GebruikerService.GetGebruikerServiceSoap(); + + Request := GebruikerAfmeldenRequest.Create; + Header := RequestHeader.Create; + try + Request.Initialen := UiContext.Initialen; + Request.LoginCode := UiContext.LoginCode; + Header.Initialen := UiContext.Initialen; + Request.Header := Header; + + Service.GebruikerAfmelden(Request); + finally + Request.Free; + end; +end; + +procedure TfmLoginScherm2.SetContext; +begin + UiContext.Initialen := edtInitialen.Text; + UiContext.LoginCode := edtPinCode.Text; +end; + +procedure TfmLoginScherm2.SetStatusLoginButton; +begin + btnLogin.Enabled := ((edtPincode.Text <> '') and (edtInitialen.Text <> '')); +end; + +end.